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();