Changeset 424

Timestamp:

07/06/10 17:59:43 (14 years ago)

Author:

Kris Deugau

Message:

/trunk

checkpoint, email notice management. See #21.
Completed delete notice entry.

Still need to add custom code to support legacy notify-on-SWIP.

File:

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

trunk/cgi-bin/admin.cgi

@@ -537 +537 @@
 
 # add new entries from this tangle:
-  print "Add new notification:<br>\n";
+  print "<h4>Add new notification:</h4>\n".
+        "Note:  Failure notices on most conditions are not yet supported.\n";
 
   print qq(<table border=1><form action=admin.cgi method="POST">
@@ -547 +548 @@
         <input type=radio name=msgaction value=u>Update &nbsp;
         <input type=radio name=msgaction value=d>Delete
+        <input type=radio name=msgaction value=s:>Special: <input name=special>(requires code changes)
 </td>
 <td>Failure?</td><td><input type=checkbox name=onfail></td></tr>
@@ -579 +581 @@
 
 } elsif ($webvar{action} eq 'addnotice') {
-##work
   $webvar{reciplist} =~ s/[\r\n]+/,/g;
   print "Adding notice to $webvar{reciplist} for ".dispNoticeCode($webvar{msgaction}.$webvar{alloctype}).":\n";
@@ -586 +587 @@
   $webvar{msgaction} = "f:$webvar{msgaction}" if $webvar{onfail};
   $sth->execute($webvar{msgaction}.$webvar{alloctype}, $webvar{reciplist});
+  if ($sth->err) {
+    print "Failed:  DB error: ".$sth->errstr."\n";
+  } else {
+    print "OK!<br>\n"
+  }
+  print qq(<a href="admin.cgi?action=emailnotice">Back to email notice list</a>\n);
+
+} elsif ($webvar{action} eq 'delnotice') {
+  print "Deleting notices on ".dispNoticeCode($webvar{code}.$webvar{alloctype}).":\n";
+  $sth = $ip_dbh->prepare("DELETE FROM notify WHERE action=?");
+  $sth->execute($webvar{code});
   if ($sth->err) {
     print "Failed:  DB error: ".$sth->errstr."\n";