Changeset 839 for trunk/cgi-bin

Timestamp:

04/12/16 14:49:45 (9 years ago)

Author:

Kris Deugau

Message:

/trunk

Convert a lingering custom patch to another configuration knob. See #26.

Location:

trunk/cgi-bin

Files:

• IPDB.pm (modified) (1 diff)
• MyIPDB.pm (modified) (1 diff)
• main.cgi (modified) (2 diffs)

trunk/cgi-bin/IPDB.pm

@@ -137 +137 @@
 our $numeric_vlan = 1;
 
+# Billing system return link
+our $billinglink = 'https://billing.example.com/radius.pl';
 
 ##

trunk/cgi-bin/MyIPDB.pm

@@ -88 +88 @@
 #$IPDB::numeric_vlan = 1;
 
+## Billing return link
+# Passalong link for allocations initiated by a link in from a billing system
+#$IPDB::billinglink = 'https://billing.example.com/radius.pl';
+
 ## connectDB_My()
 # Wrapper for IPDB::connectDB

trunk/cgi-bin/main.cgi

@@ -889 +889 @@
       $page->param(custid => $webvar{custid});
       $page->param(billinguser => $webvar{billinguser});
+      $page->param(billinglink => $IPDB::billinglink);
       mailNotify($ip_dbh, "a$webvar{alloctype}", "ADDED: $disp_alloctypes{$webvar{alloctype}} allocation",
         "$disp_alloctypes{$webvar{alloctype}} $msg allocated to customer $webvar{custid}\n".
@@ -905 +906 @@
       if ($webvar{alloctype} eq 'pr' && $webvar{billinguser}) {
         $page->param(billinguser => $webvar{billinguser});
+        $page->param(billinglink => $IPDB::billinglink);
         $page->param(custid => $webvar{custid});
         $page->param(netaddr => $netblock->addr);