Changeset 489 for branches/htmlform/cgi-bin/admin.cgi

Timestamp:

09/23/10 18:45:58 (14 years ago)

Author:

Kris Deugau

Message:

/branches/htmlform

Remove use of printError() in admin.cgi. See #15, #26

File:

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

branches/htmlform/cgi-bin/admin.cgi

@@ -124 +124 @@
 
 ## Non-default actions.
+
 elsif ($webvar{action} eq 'alloc') {
-  # OK, we know what we're allocating.
 
   if ($webvar{cidr} !~ /^\s*(\d{1,3}\.){3}\d{1,3}(\/\d{2})?\s*$/) {
@@ -142 +142 @@
       my $status = CustIDCK->custid_exist($webvar{custid});
       if ($CustIDCK::Error) {
-        printError("Error verifying customer ID: ".$CustIDCK::ErrMsg);
-        return;
+        $page->param(errmsg => "Error verifying customer ID: ".$CustIDCK::ErrMsg);
+        goto ERRJUMP;
       }
       if (!$status) {
-        printError("Customer ID not valid.  Make sure the Customer ID ".
+        $page->param(errmsg => "Customer ID not valid.  Make sure the Customer ID ".
           "is correct.<br>\nUse STAFF for staff static IPs, and $IPDB::defcustid for any other ".
           "non-customer assignments.");
-        return;
+        goto ERRJUMP;
       }
     }
@@ -208 +208 @@
   # Only need to check city here.
   if ($webvar{city} eq '-') {
-    printError("Invalid customer location!  Go back and select customer's location.");
+    $page->param(locerr => "Invalid customer location!  Go back and select customer's location.");
+    goto ERRJUMP;
   } else {
     if ($webvar{alloctype} =~ /^.i$/) {
@@ -497 +498 @@
 }
 
-print "Content-type: text/html\n\n".$header->output;
+ERRJUMP: print "Content-type: text/html\n\n".$header->output;
 print $page->output;