Changeset 71 for branches/stable/cgi-bin/main.cgi

Timestamp:

11/15/04 12:42:35 (20 years ago)

Author:

Kris Deugau

Message:

/branches/stable

Backport email notification for static IP assignments from /trunk
r66, r68, r69, and r70

File:

• branches/stable/cgi-bin/main.cgi (modified) (2 diffs)

branches/stable/cgi-bin/main.cgi

@@ -47 +47 @@
 
 my %full_alloc_types = (
-        "ci","Cable pool IP",
-        "di","DSL pool IP",
+        "ci","Static cable IP",
+        "di","Static DSL IP",
         "si","Server pool IP",
         "mi","Static dialup IP",
@@ -987 +987 @@
     print qq(<div class="center"><div class="heading">The IP $cidr has been allocated to customer $webvar{custid}</div></div>);
     syslog "notice", "$authuser allocated $cidr to $webvar{custid}";
+# Notify tech@example.com
+    mailNotify('tech@example.com','$full_alloc_types{$webvar{alloctype}} allocation',
+        "$full_alloc_types{$webvar{alloctype}} $cidr allocated to customer $webvar{custid}");
 
   } else { # end IP-from-pool allocation