Changeset 445 for branches/stable/cgi-bin/newcity.cgi

Timestamp:

07/26/10 17:00:00 (14 years ago)

Author:

Kris Deugau

Message:

/branches/stable

Bring /branches/stable up to date with /trunk. See #13.

Location:

branches/stable

Files:

• . (modified) (2 props)
• cgi-bin/newcity.cgi (modified) (4 diffs)

branches/stable

@@ -1 +1 @@
 local.css
+*.tar.gz

@@ -1 +1 @@
 local.css
+*.tar.gz

branches/stable/cgi-bin/newcity.cgi

@@ -8 +8 @@
 # Last update by $Author$
 ###
-# Copyright (C) 2004,2005 - Kris Deugau
+# Copyright (C) 2004-2010 - Kris Deugau
 
 use strict;
@@ -15 +15 @@
 use DBI;
 use CommonWeb qw(:ALL);
-use MyIPDB;
 #use POSIX qw(ceil);
 use NetAddr::IP;
@@ -21 +20 @@
 use Sys::Syslog;
 
-openlog "IPDB","pid","local2";
+# don't remove!  required for GNU/FHS-ish install from tarball
+##uselib##
+
+use MyIPDB;
+
+openlog "IPDB","pid","$IPDB::syslog_facility";
 
 # Collect the username from HTTP auth.  If undefined, we're in a test environment.
@@ -48 +52 @@
 if ($sth->err) {
   print "Error adding city to database: ".$sth->errstr;
-  mailNotify('kdeugau@vianet.ca',"IPDB city add failure",
+  mailNotify($dbh, 'f:nci', "IPDB city add failure",
         "$authuser could not add city '$webvar{city}' to database: ".$sth->errstr);
   syslog "err", "$authuser could not add city '$webvar{city}' to database: ".$sth->errstr;

@@ -1 +1 @@
 local.css
+*.tar.gz