Changeset 330 for trunk/cgi-bin

Timestamp:

04/07/06 13:40:42 (19 years ago)

Author:

Kris Deugau

Message:

/trunk

Added supporting code to update masterblock modified timestamp
Removed debugging fragment

File:

• trunk/cgi-bin/admin.cgi (modified) (2 diffs)

trunk/cgi-bin/admin.cgi

@@ -274 +274 @@
 } elsif ($webvar{action} eq 'touch') {
   print "Touching master $webvar{whichmaster}\n";
+  $sth = $ip_dbh->prepare("update masterblocks set mtime=now() where cidr='$webvar{whichmaster}'");
+  $sth->execute;
+  if ($sth->err) {
+    print "<p>Error updating modified timestamp on master $webvar{whichmaster}: ".$sth->errstr."\n";
+  }
 } elsif ($webvar{action} eq 'listcust') {
   print qq(Add new entry:\n
@@ -310 +315 @@
     print 'No CustID entered.  PTHBT!  (Hit "Back" and fix the problem.)';
   } else {
-print "<table border=1>\n";
-foreach my $key (keys %webvar) {
-  print "<tr><td>$key</td><td>$webvar{$key}</td><tr>\n";
-}
-print "</table>\n";
     $sth = $ip_dbh->prepare("insert into customers ".
         "(custid, name, street, city, province, country, pocode, ".