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 %
  21