Changeset 142 for trunk/cgi-bin/main.cgi
- Timestamp:
- 01/28/05 14:04:55 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/cgi-bin/main.cgi
r138 r142 14 14 use DBI; 15 15 use CommonWeb qw(:ALL); 16 use IPDB 2.0 qw(:ALL);16 use MyIPDB; 17 17 use POSIX qw(ceil); 18 18 use NetAddr::IP; … … 37 37 my $sth; 38 38 my $errstr; 39 ($ip_dbh,$errstr) = connectDB ("ipdb", "ipdb", "ipdbpwd");39 ($ip_dbh,$errstr) = connectDB_My; 40 40 if (!$ip_dbh) { 41 41 printAndExit("Failed to connect to database: $errstr\n");
Note:
See TracChangeset
for help on using the changeset viewer.