diff options
| author | ivan <ivan> | 2006-08-23 22:25:39 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2006-08-23 22:25:39 +0000 |
| commit | 3ce7691203a7737406bf2d4442f7fd84b81f847e (patch) | |
| tree | 90658b097da96772224f04771888ac6ca1a940aa /httemplate/edit/process/addr_block/add.cgi | |
| parent | 15e561850b61b10a92a46d8f3e316d53d4970087 (diff) | |
Will things ever be the same again?
It's the final masonize
Diffstat (limited to 'httemplate/edit/process/addr_block/add.cgi')
| -rwxr-xr-x | httemplate/edit/process/addr_block/add.cgi | 39 |
1 files changed, 20 insertions, 19 deletions
diff --git a/httemplate/edit/process/addr_block/add.cgi b/httemplate/edit/process/addr_block/add.cgi index 34d799ccd..85780c678 100755 --- a/httemplate/edit/process/addr_block/add.cgi +++ b/httemplate/edit/process/addr_block/add.cgi @@ -1,20 +1,21 @@ -<% +% +% +%my $error = ''; +%my $ip_gateway = $cgi->param('ip_gateway'); +%my $ip_netmask = $cgi->param('ip_netmask'); +% +%my $new = new FS::addr_block { +% ip_gateway => $ip_gateway, +% ip_netmask => $ip_netmask, +% routernum => 0 }; +% +%$error = $new->insert; +% +%if ( $error ) { +% $cgi->param('error', $error); +% print $cgi->redirect(popurl(4). "browse/addr_block.cgi?". $cgi->query_string ); +%} else { +% print $cgi->redirect(popurl(4). "browse/addr_block.cgi"); +%} +% -my $error = ''; -my $ip_gateway = $cgi->param('ip_gateway'); -my $ip_netmask = $cgi->param('ip_netmask'); - -my $new = new FS::addr_block { - ip_gateway => $ip_gateway, - ip_netmask => $ip_netmask, - routernum => 0 }; - -$error = $new->insert; - -if ( $error ) { - $cgi->param('error', $error); - print $cgi->redirect(popurl(4). "browse/addr_block.cgi?". $cgi->query_string ); -} else { - print $cgi->redirect(popurl(4). "browse/addr_block.cgi"); -} -%> |