httemplate/edit/process/addr_block/deallocate.cgi

   1 <%
   2 my $error = '';
   3 my $blocknum = $cgi->param('blocknum');
   4
   5 my $addr_block = qsearchs('addr_block', { blocknum => $blocknum });
   6
   7 if($addr_block) {
   8   my $router = $addr_block->router;
   9   if ($router) {
  10     $error = $addr_block->deallocate($router);
  11   } else {
  12     $error = "Block is not allocated to a router";
  13   }
  14 } else {
  15   $error = "Cannot find block with blocknum $blocknum";
  16 }
  17
  18 if ( $error ) {
  19   $cgi->param('error', $error);
  20   print $cgi->redirect(popurl(4). "browse/addr_block.cgi?" . $cgi->query_string);
  21 } else {
  22   print $cgi->redirect(popurl(4). "browse/addr_block.cgi");
  23 }
  24 %>