httemplate/edit/process/svc_domain.cgi

   1 <%
   2
   3 #remove this to actually test the domains!
   4 $FS::svc_domain::whois_hack = 1;
   5
   6 $cgi->param('svcnum') =~ /^(\d*)$/ or die "Illegal svcnum!";
   7 my $svcnum = $1;
   8
   9 my $new = new FS::svc_domain ( {
  10   map {
  11     $_, scalar($cgi->param($_));
  12   #} qw(svcnum pkgnum svcpart domain action purpose)
  13   } ( fields('svc_domain'), qw( pkgnum svcpart action purpose ) )
  14 } );
  15
  16 my $error = '';
  17 if ($cgi->param('svcnum')) {
  18   $error="Can't modify a domain!";
  19 } else {
  20   $error=$new->insert;
  21   $svcnum=$new->svcnum;
  22 }
  23
  24 if ($error) {
  25   $cgi->param('error', $error);
  26   print $cgi->redirect(popurl(2). "svc_domain.cgi?". $cgi->query_string );
  27 } else {
  28   print $cgi->redirect(popurl(3). "view/svc_domain.cgi?$svcnum");
  29 }
  30
  31 %>