Changeset 390 for branches/stable/cgi-bin
- Timestamp:
- 02/18/10 17:50:02 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/stable/cgi-bin/main.cgi
r383 r390 834 834 return if !validateInput(); 835 835 836 # 2009/12/1 kdeugau 837 # Since we're using these for more than just NOC-ish things now, removing 838 ## Hack as per Jody. Force CustID of NOC-VPN on 192.168 assignments 839 #if ($webvar{fullcidr} =~ /^192\.168/) { 840 # $webvar{custid} = "NOC-VPN"; 841 #} 842 836 843 if (!defined($webvar{privdata})) { 837 844 $webvar{privdata} = ''; … … 868 875 qq(">Add this netblock to RADIUS user table</a></div>) 869 876 : "</div>"); 877 mailNotify('nocmgr@example.com',"ADDED: $disp_alloctypes{$webvar{alloctype}} allocation", 878 "$disp_alloctypes{$webvar{alloctype}} $webvar{fullcidr} allocated to customer $webvar{custid}\n". 879 "Description: $webvar{desc}\n\nAllocated by: $authuser\n"); 870 880 } 871 881 syslog "notice", "$authuser allocated '$webvar{fullcidr}' to '$webvar{custid}' as ". … … 1138 1148 # If we get here, the operation succeeded. 1139 1149 syslog "notice", "$authuser updated $webvar{block}"; 1150 mailNotify('nocmgr@example.com',"SWIPed: $disp_alloctypes{$webvar{alloctype}} $webvar{block}", 1151 "$webvar{block} had SWIP status changed to \"Yes\" by $authuser"); 1140 1152 open (HTML, "../updated.html") 1141 1153 or croak "Could not open updated.html :$!"; … … 1317 1329 "$disp_alloctypes{$webvar{alloctype}} $webvar{block} deallocated by $authuser\n". 1318 1330 "CustID: $custid\nCity: $city\nDescription: $description\n"); 1331 mailNotify('nocmgr@example.com',"REMOVED: $disp_alloctypes{$webvar{alloctype}} $webvar{block}", 1332 "$disp_alloctypes{$webvar{alloctype}} $webvar{block} deallocated by $authuser\n". 1333 "CustID: $custid\nCity: $city\nDescription: $description\n"); 1319 1334 } else { 1320 1335 if ($webvar{alloctype} =~ /^.i$/) {
Note:
See TracChangeset
for help on using the changeset viewer.