syntax error at /usr/lib/cgi-bin/about_deadline.cgi line 30, near ") {"
syntax error at /usr/lib/cgi-bin/about_deadline.cgi line 33, near "}"
####
my ($conf) = new Config::General(
-ConfigFile => 'somefile.conf',
-ExtendedAccess => 1
);
my ($databaseUser)=$conf->value("user");
my ($databaseName) = $conf->value("name");
my ($databasePw) = $conf->value("pass");
# Declare local variables
my ($dbh);
my ($stmt, $sth);
my (@deadlinetyp, @deadline);
my $i = 0;
while ($deadlinetyp[$i]) {
print $deadlinetyp[$i]." ".$deadline[$i]."
";
$i++;
}
####
print header;
my ($conf) = new Config::General(
-ConfigFile => 'somefile.conf',
-ExtendedAccess => 1
);
my ($databaseUser)=$conf->value("user");
my ($databaseName) = $conf->value("name");
my ($databasePw) = $conf->value("pass");
# Declare local variables
my $dbh;
my ($stmt, $sth);
my @aRow;
my $j=0;
$dbh = DBI->connect($databaseName, $databaseUser,
$databasePw) || die "Connect failed: $DBI::errstr\n";
#Get available deadline details
$stmt = "SELECT dead_typ, dead_line FROM deadlines";
#Prepare and execute the SQL query
$sth = $dbh->prepare($stmt) || die "prepare: $stmt: $DBI::errstr";
$sth->execute() || die "execute: $stmt: $DBI::errstr";
while (@aRow = $sth->fetchrow()){
$deadlinetyp[$j] = @aRow[0];
$deadline[$j] = @aRow[1];
$j++;
}
# Clean up the record set and the database connection
$sth->finish();
$dbh->disconnect();