httemplate/edit/process/addr_block/add.cgi

   1 <%
   2
   3 my $error = '';
   4 my $ip_gateway = $cgi->param('ip_gateway');
   5 my $ip_netmask = $cgi->param('ip_netmask');
   6
   7 my $new = new FS::addr_block {
   8     ip_gateway => $ip_gateway,
   9     ip_netmask => $ip_netmask,
  10     routernum  => 0 };
  11
  12 $error = $new->insert;
  13
  14 if ( $error ) {
  15   $cgi->param('error', $error);
  16   print $cgi->redirect(popurl(4). "browse/addr_block.cgi?". $cgi->query_string );
  17 } else {
  18   print $cgi->redirect(popurl(4). "browse/addr_block.cgi");
  19 }
  20 %>