Changeset 408 for branches/stable/cgi-bin
- Timestamp:
- 05/12/10 18:09:30 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/stable/cgi-bin/main.cgi
r407 r408 892 892 : "</div>"); 893 893 # Notify tech@example.com 894 mailNotify('tech@example.com',"ADDED: $disp_alloctypes{$webvar{alloctype}} allocation",895 "$disp_alloctypes{$webvar{alloctype}} $msg allocated to customer $webvar{custid}\n".896 "Description: $webvar{desc}\n\nAllocated by: $authuser\n");894 # mailNotify('tech@example.com',"ADDED: $disp_alloctypes{$webvar{alloctype}} allocation", 895 # "$disp_alloctypes{$webvar{alloctype}} $msg allocated to customer $webvar{custid}\n". 896 # "Description: $webvar{desc}\n\nAllocated by: $authuser\n"); 897 897 } else { 898 898 my $netblock = new NetAddr::IP $webvar{fullcidr}; … … 906 906 qq(">Add this netblock to RADIUS user table</a></div>) 907 907 : "</div>"); 908 mailNotify('nocmgr@example.com',"ADDED: $disp_alloctypes{$webvar{alloctype}} allocation",909 "$disp_alloctypes{$webvar{alloctype}} $webvar{fullcidr} allocated to customer $webvar{custid}\n".910 "Description: $webvar{desc}\n\nAllocated by: $authuser\n");908 # mailNotify('nocmgr@example.com',"ADDED: $disp_alloctypes{$webvar{alloctype}} allocation", 909 # "$disp_alloctypes{$webvar{alloctype}} $webvar{fullcidr} allocated to customer $webvar{custid}\n". 910 # "Description: $webvar{desc}\n\nAllocated by: $authuser\n"); 911 911 } 912 912 syslog "notice", "$authuser allocated '$webvar{fullcidr}' to '$webvar{custid}' as ". … … 1225 1225 # If we get here, the operation succeeded. 1226 1226 syslog "notice", "$authuser updated $webvar{block}"; 1227 mailNotify('nocmgr@example.com',"SWIPed: $disp_alloctypes{$webvar{alloctype}} $webvar{block}",1228 "$webvar{block} had SWIP status changed to \"Yes\" by $authuser");1227 #mailNotify('nocmgr@example.com',"SWIPed: $disp_alloctypes{$webvar{alloctype}} $webvar{block}", 1228 # "$webvar{block} had SWIP status changed to \"Yes\" by $authuser"); 1229 1229 open (HTML, "../updated.html") 1230 1230 or croak "Could not open updated.html :$!"; … … 1403 1403 " $custid, $city, desc='$description'"; 1404 1404 # Notify tech@ when a block/IP is deallocated 1405 mailNotify('tech@example.com',"REMOVED: $disp_alloctypes{$webvar{alloctype}} $webvar{block}",1406 "$disp_alloctypes{$webvar{alloctype}} $webvar{block} deallocated by $authuser\n".1407 "CustID: $custid\nCity: $city\nDescription: $description\n");1408 mailNotify('nocmgr@example.com',"REMOVED: $disp_alloctypes{$webvar{alloctype}} $webvar{block}",1409 "$disp_alloctypes{$webvar{alloctype}} $webvar{block} deallocated by $authuser\n".1410 "CustID: $custid\nCity: $city\nDescription: $description\n");1405 # mailNotify('tech@example.com',"REMOVED: $disp_alloctypes{$webvar{alloctype}} $webvar{block}", 1406 # "$disp_alloctypes{$webvar{alloctype}} $webvar{block} deallocated by $authuser\n". 1407 # "CustID: $custid\nCity: $city\nDescription: $description\n"); 1408 # mailNotify('nocmgr@example.com',"REMOVED: $disp_alloctypes{$webvar{alloctype}} $webvar{block}", 1409 # "$disp_alloctypes{$webvar{alloctype}} $webvar{block} deallocated by $authuser\n". 1410 # "CustID: $custid\nCity: $city\nDescription: $description\n"); 1411 1411 } else { 1412 1412 if ($webvar{alloctype} =~ /^.i$/) {
Note:
See TracChangeset
for help on using the changeset viewer.