diff options
Diffstat (limited to 'httemplate/edit/process/addr_block/deallocate.cgi')
-rwxr-xr-x | httemplate/edit/process/addr_block/deallocate.cgi | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/httemplate/edit/process/addr_block/deallocate.cgi b/httemplate/edit/process/addr_block/deallocate.cgi deleted file mode 100755 index 494c19f..0000000 --- a/httemplate/edit/process/addr_block/deallocate.cgi +++ /dev/null @@ -1,25 +0,0 @@ -% -%my $error = ''; -%my $blocknum = $cgi->param('blocknum'); -% -%my $addr_block = qsearchs('addr_block', { blocknum => $blocknum }); -% -%if($addr_block) { -% my $router = $addr_block->router; -% if ($router) { -% $error = $addr_block->deallocate($router); -% } else { -% $error = "Block is not allocated to a router"; -% } -%} else { -% $error = "Cannot find block with blocknum $blocknum"; -%} -% -%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"); -%} -% - |