Changeset 411 for branches/stable/cgi-bin/admin.cgi

Timestamp:

05/13/10 13:17:04 (15 years ago)

Author:

Kris Deugau

Message:

/branches/stable

Merge extra pieces of admin.cgi from /trunk. See #13.

File:

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

branches/stable/cgi-bin/admin.cgi

@@ -74 +74 @@
   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";
   }
 
@@ -90 +97 @@
 <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
@@ -276 +291 @@
 
   print $html;
+} 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
+<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>Click CustID to 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 qq(<tr><td><a href="admin.cgi?action=edcust&custid=$data[0]">$data[0]</td>).
+        "<td>$data[1]</td><td>$data[2]</td></tr>\n";
+  }
+  print "</table>\n";
+} elsif ($webvar{action} eq 'newcust') {
+  if ($webvar{custid} eq '') {
+    print 'No CustID entered.  PTHBT!  (Hit "Back" and fix the problem.)';
+  } else {
+    $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 'edcust') {
+  $sth = $ip_dbh->prepare("select custid,name,street,city,province,".
+        "country,pocode,phone,tech_handle,abuse_handle,admin_handle ".
+        "from customers where custid='$webvar{custid}'");
+  $sth->execute;
+  my ($custid, $name, $street, $city, $prov, $country, $pocode, $phone, $tech, $abuse, $admin) =
+        $sth->fetchrow_array;
+  print qq(<form action=admin.cgi method=POST>
+<table border=1><tr>
+<input type=hidden name=action value=updcust>
+<td>CustID:</td><td>$custid<input type=hidden name=custid value=$custid></td>
+<td>Name:</td><td><input name=name value="$name"></td></tr>
+<tr><td>Street:</td><td><input name=street value="$street"></td></tr>
+<!-- <td>Street2:</td><td><input name=street2></td> -->
+<tr><td>City:</td><td><input name=city value="$city"></td>
+<td>Province: (2-letter code)</td><td><input name=province value="$prov" length=2 size=2></td></tr>
+<tr><td>Country: (2-letter code)</td><td><input name=country value="$country" length=2 size=2></td>
+<td>Postal/ZIP Code:</td><td><input name=pocode value="$pocode"></td></tr>
+<tr><td>Phone:</td><td><input name=phone value="$pocode"></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="$tech"><br>
+ Abuse: <input name=abuse_handle value="$abuse"><br>
+ Admin: <input name=admin_handle value="$admin"><br>
+Note:  Only tech is required at the moment.
+</td></tr>
+<tr><td colspan=4 align=center><input type=submit value="Update"></td></tr>
+</form></table>
+);
+
+} elsif ($webvar{action} eq 'updcust') {
+  print "Updated $webvar{custid}\n";
 } elsif ($webvar{action} eq 'showpools') {
   print "IP Pools currently allocated:\n".
@@ -542 +664 @@
   print "</form></table>\n";
 }
-