Changeset 517 for trunk/cgi-bin/allocate.pl
- Timestamp:
- 10/18/12 16:53:10 (13 years ago)
- Location:
- trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk
-
Property svn:mergeinfo
set to
/branches/htmlform merged eligible
-
Property svn:mergeinfo
set to
-
trunk/cgi-bin/allocate.pl
r431 r517 11 11 use warnings; 12 12 use DBI; 13 use CommonWeb qw(:ALL);14 13 use NetAddr::IP; 15 14 … … 38 37 my $errstr; 39 38 ($ip_dbh,$errstr) = connectDB_My; 40 if (!$ip_dbh) { 41 printAndExit("Failed to connect to database: $errstr\n");42 } 39 die "Failed to connect to database: $errstr\n" 40 if !$ip_dbh; 41 43 42 checkDBSanity($ip_dbh); 44 43 initIPDBGlobals($ip_dbh);
Note:
See TracChangeset
for help on using the changeset viewer.