Changeset 423 for trunk/cgi-bin/admin.cgi

Timestamp:

07/06/10 17:23:27 (14 years ago)

Author:

Kris Deugau

Message:

/trunk

checkpoint, email notice management. See #21.
Completed: add new notice group.

File:

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

trunk/cgi-bin/admin.cgi

@@ -535 +535 @@
   }
   print "</table>\n";
+
+# add new entries from this tangle:
+  print "Add new notification:<br>\n";
+
+  print qq(<table border=1><form action=admin.cgi method="POST">
+<input type=hidden name=action value=addnotice>
+<tr>
+<td>Recipients</td><td colspan=3><textarea name=reciplist cols=50 rows=5></textarea></td></tr>
+<tr><td>Action</td><td>
+        <input type=radio name=msgaction value=a>Add &nbsp;
+        <input type=radio name=msgaction value=u>Update &nbsp;
+        <input type=radio name=msgaction value=d>Delete
+</td>
+<td>Failure?</td><td><input type=checkbox name=onfail></td></tr>
+<tr><td>Allocation type:</td><td colspan=3>
+        <table>
+        <tr>
+                <td><input type=radio name=alloctype value=a>All allocations</td>
+                <td><input type=radio name=alloctype value=.i>All static IPs</td>
+        </tr>
+        <tr>
+);
+
+  $sth = $ip_dbh->prepare("SELECT type,dispname FROM alloctypes WHERE listorder < 500 ".
+        "ORDER BY listorder");
+  $sth->execute;
+  my $i=0;
+  while (my ($type,$disp) = $sth->fetchrow_array) {
+    print "             <td><input type=radio name=alloctype value=$type>$disp</td>";
+    $i++;
+    print "     </tr>\n\t<tr>"
+        if ($i % 4 == 0);
+  }
+
+  print qq(     </tr>
+        </table>
+</tr>
+<tr><td colspan=4 align=center><input type=submit value="Add notice"></td></tr>
+</table>
+</form>
+);
+  ## done spitting out add-new-spam-me-now table
+
+} 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";
+  $sth = $ip_dbh->prepare("INSERT INTO notify (action, reciplist) VALUES (?,?)");
+##fixme:  automagically merge reciplists iff action already exists
+  $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 'ednotice') {
   print "<h4>Editing recipient list for '".dispNoticeCode($webvar{code})."':</h4>\n";
-##work
   $sth = $ip_dbh->prepare("SELECT reciplist FROM notify WHERE action=?");
   $sth->execute($webvar{code});
@@ -731 +788 @@
     elsif ($action eq 'd')   { $action_out .= 'Delete '; }
 ##fixme:  what if we get something funky?
+# What about the eleventy-billion odd combinations possible?
+# this should give an idea of the structure tho
     if ($target eq 'a') { $action_out .= "all"; }
+    elsif ($target =~ /^\.i$/) {
+      $action_out .= "all static IPs";
+    }
     else { $action_out .= $disp_alloctypes{$target}; }
   }