Changeset 445 for branches/stable/cgi-bin/newnode.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/newnode.cgi (modified) (2 diffs)

branches/stable

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

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

branches/stable/cgi-bin/newnode.cgi

@@ -15 +15 @@
 use DBI;
 use CommonWeb qw(:ALL);
-use MyIPDB;
 #use POSIX qw(ceil);
 use NetAddr::IP;
-
 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.
@@ -45 +48 @@
 if ($sth->err) {
   print "Error adding node to database: ".$sth->errstr;
-  mailNotify('noc@example.com',"IPDB node add failure",
+  mailNotify($dbh, 'f:nno', "IPDB node add failure",
         "$authuser could not add node '$webvar{nodename}','$webvar{type}' to database: ".$sth->errstr);
   syslog "err", "$authuser could not add node '$webvar{nodename}','$webvar{type}' to database: ".$sth->errstr;

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