#!/usr/local/bin/perl
use lib "/home/heineman/public_html/cgi-bin/meeting/2.0/";
use CGI ":standard";
use DBI;
use private::config;
use private::system;
# IS this now necessary for top level?
use lib "/home/heineman/public_html/cgi-bin/meeting/2.0/";
#
# index.cgi - generates INDEX.html for the web page
#===========REQUIRED FILES==============
use private::globals;
use db::mysql;
mimeHeader();
print "";
if (!database_connect()) {
print "Unable to connect to the mySQL database
";
print "contact the appropriate system adminstrator.";
exit 0;
}
# Prepare DB information (also sets $Gmeeting)
configure();
if (!&isActiveSoftware()) {
print "Meeting Scheduler Temporarily Disabled";
print "";
print "The Meeting Scheduling Software has been temporarily disabled
The Meeting Scheduler Software has been temporarily disabled while important maintance is being performed. We aplogize for any inconvenience. Please contact the meeting administrator.";
my ($ts) = &systemTimestamp();
my ($msg) = &systemMessage();
print "
| ";
print "Deactivation Message:$msg ($ts) ";
print " |
| Current time:";
$t = localtime;
print "$t";
print " |
\n";
&standardTrailer();
database_disconnect();
exit(0);
}
if (!&validateMeetingID($private::globals::Gmeeting)) {
print <Error! No Such Meeting!
Invalid Meeting ID: $private::globals::Gmeeting
No such meeting exists. Please contact the meeting administrator.
EOF
&standardTrailer();
database_disconnect();
exit (0);
}
print "";
print "$private::globals::Gmeeting (Meeting System V$GVersion)";
print "";
&outputMainFramesPage();
print "";
database_disconnect();
1;