Changeset 473 for branches/htmlform
- Timestamp:
- 08/17/10 16:50:59 (14 years ago)
- Location:
- branches/htmlform
- Files:
-
- 1 added
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/htmlform/cgi-bin/main.cgi
r472 r473 91 91 printError("You shouldn't have been able to get here. Access denied."); 92 92 } else { 93 94 93 my $cidr = new NetAddr::IP $webvar{cidr}; 95 96 print "<div type=heading align=center>Adding $cidr as master block....</div>\n"; 94 $page->param(cidr => "$cidr"); 97 95 98 96 my ($code,$msg) = addMaster($ip_dbh, $webvar{cidr}); 99 97 100 98 if ($code eq 'FAIL') { 101 carp "Transaction aborted because $msg";102 99 syslog "err", "Could not add master block '$webvar{cidr}' to database: '$msg'"; 103 printError("Could not add master block $webvar{cidr} to database: $msg");100 $page->param(err => $msg); 104 101 } else { 105 print "<div type=heading align=center>Success!</div>\n";106 102 syslog "info", "$authuser added master block $webvar{cidr}"; 107 103 }
Note:
See TracChangeset
for help on using the changeset viewer.