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

Timestamp:

04/07/06 13:36:54 (19 years ago)

Author:

Kris Deugau

Message:

/trunk

Update SQL tabledefs with defaults on the customers table

(province/country/tech handle)

First iteration of cust data handling for rWHOIS - allow display

of existing data, entry of complete fresh new data.

File:

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

trunk/cgi-bin/admin.cgi

@@ -73 +73 @@
   while (my @data = $sth->fetchrow_array) {
     $typelist .= "<option value='$data[0]'>$data[1]</option>\n";
+  }
+
+  my $masterlist = '';
+  $sth = $ip_dbh->prepare("select cidr,mtime from masterblocks order by cidr");
+  $sth->execute;
+  while (my @data = $sth->fetchrow_array) {
+    $masterlist .= "<option value='$data[0]'>$data[0] ($data[1])</option>\n";
   }
 
@@ -89 +96 @@
 <input type=submit value="Show allocations">
 </form>
+
+<hr>rWHOIS tools:
+<form action="admin.cgi" method="POST">
+<input type=hidden name=action value=touch>
+Bump "last updated" timestamp on this master: <select name=whichmaster>$masterlist</select>
+<input type=submit value="Update timestamp"> (Sets timestamp to "now")</form>
+<a href="admin.cgi?action=listcust">Edit customer data for rWHOIS</a>
+
 <hr><a href="admin.cgi?action=showpools">List IP Pools</a> for manual tweaking and updates
 <hr><a href="admin.cgi?action=showusers">Manage users</a> (add/remove users;  change
@@ -257 +272 @@
 
   print $html;
+} elsif ($webvar{action} eq 'touch') {
+  print "Touching master $webvar{whichmaster}\n";
+} elsif ($webvar{action} eq 'listcust') {
+  print qq(Add new entry:\n
+<form action=admin.cgi method=POST>
+<table border=1><tr>
+<input type=hidden name=action value=newcust>
+<td>CustID:</td><td><input name=custid></td>
+<td>Name:</td><td><input name=name></td></tr>
+<tr><td>Street:</td><td><input name=street></td></tr>
+<!-- <td>Street2:</td><td><input name=street2></td> -->
+<tr><td>City:</td><td><input name=city></td>
+<td>Province: (2-letter code)</td><td><input name=province value=ON length=2 size=2></td></tr>
+<tr><td>Country: (2-letter code)</td><td><input name=country value=CA length=2 size=2></td>
+<td>Postal/ZIP Code:</td><td><input name=pocode></td></tr>
+<tr><td>Phone:</td><td><input name=phone></td>
+<!-- <td>Default rDNS:</td><td><input name=def_rdns></td></tr>
+<td>Description:</td><td><input name=description></td> -->
+<td>ARIN Handles:</td><td>
+ Tech: <input name=tech_handle value="VH25-ORG-ARIN"><br>
+ Abuse: <input name=abuse_handle><br>
+ Admin: <input name=admin_handle><br>
+Note:  Only tech is required at the moment.
+</td></tr>
+<tr><td colspan=4 align=center><input type=submit value="Add"></td></tr>
+</form></table>
+);
+  print "<p>Edit existing customer contact data:\n".
+        "<table border=1>\n<tr><td>CustID</td><td>Name</td><td>Tech handle</td></tr>\n";
+  $sth = $ip_dbh->prepare("select custid,name,tech_handle from customers order by custid");
+  $sth->execute;
+  while (my @data = $sth->fetchrow_array) {
+    print "<tr><td>$data[0]</td><td>$data[1]</td><td>$data[2]</td></tr>\n";
+  }
+} elsif ($webvar{action} eq 'newcust') {
+  if ($webvar{custid} eq '') {
+    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, ".
+        "phone, tech_handle, abuse_handle, admin_handle) values ".
+        "('$webvar{custid}', '$webvar{name}', '$webvar{street}', ".
+        "'$webvar{city}', '$webvar{province}', '$webvar{country}', ".
+        "'$webvar{pocode}', '$webvar{phone}', '$webvar{techhandle}', ".
+        "'$webvar{abusehandle}', '$webvar{adminhandle}')");
+    $sth->execute;
+    if ($sth->err) {
+      print "INSERT failed:  ".$sth->errstr."\n";
+    } else {
+      print "Success!  Added customer contact data:\n".
+        qq(<table border=1><tr>
+<td>CustID:</td>$webvar{custid}</td><td>Name:</td>$webvar{name}</td></tr>
+<tr><td>Street:</td><td>$webvar{street}</td></tr>
+<tr><td>City:</td><td>$webvar{city}</td><td>Province:</td><td>$webvar{province}</td></tr>
+<tr><td>Country:</td><td>$webvar{country}</td>
+<td>Postal/ZIP Code:</td><td>$webvar{pocode}</td></tr>
+<tr><td>Phone:</td><td>$webvar{phone}</td>
+<!-- <td>Default rDNS:</td><td><input name=def_rdns></td></tr>
+<tr><td>Description:</td><td><input name=description></td> -->
+<td>ARIN Handles:</td><td>
+ Tech: $webvar{tech_handle}<br>
+ Abuse: $webvar{abuse_handle}<br>
+ Admin: $webvar{admin_handle}<br>
+</td></tr></table>
+);
+    } # $sth err check
+  } # bad custid
+} elsif ($webvar{action} eq 'updcust') {
+  print "Updated $webvar{custid}\n";
 } elsif ($webvar{action} eq 'showpools') {
   print "IP Pools currently allocated:\n".