Changeset 331 for trunk/cgi-bin

Timestamp:

04/07/06 18:01:00 (19 years ago)

Author:

Kris Deugau

Message:

/trunk

Basic editing capability for rWHOIS customer contact data.
Still needs segment to allow customization of the Network-Name
field in the rWHOIS data - this is currently only changeable
by manually hacking the database tables.

File:

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

trunk/cgi-bin/admin.cgi

@@ -304 +304 @@
 </form></table>
 );
-  print "<p>Edit existing customer contact data:\n".
+  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 "<tr><td>$data[0]</td><td>$data[1]</td><td>$data[2]</td></tr>\n";
-  }
+    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 '') {
@@ -344 +346 @@
     } # $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";