httemplate/misc/process/catchall.cgi

   1 %
   2 %
   3 %$FS::svc_domain::whois_hack=1;
   4 %
   5 %$cgi->param('svcnum') =~ /^(\d*)$/ or die "Illegal svcnum!";
   6 %my $svcnum =$1;
   7 %
   8 %my $old = qsearchs('svc_domain',{'svcnum'=>$svcnum}) if $svcnum;
   9 %
  10 %my $new = new FS::svc_domain ( {
  11 %  map {
  12 %    ($_, scalar($cgi->param($_)));
  13 %  } ( fields('svc_domain'), qw( pkgnum svcpart ) )
  14 %} );
  15 %
  16 %$new->setfield('action' => 'M');
  17 %
  18 %my $error;
  19 %if ( $svcnum ) {
  20 %  $error = $new->replace($old);
  21 %} else {
  22 %  $error = $new->insert;
  23 %  $svcnum = $new->getfield('svcnum');
  24 %}
  25 %
  26 %if ($error) {
  27 %  $cgi->param('error', $error);
  28 %  print $cgi->redirect(popurl(2). "catchall.cgi?". $cgi->query_string );
  29 %} else {
  30 %  print $cgi->redirect(popurl(3). "view/svc_domain.cgi?$svcnum");
  31 %}
  32 %
  33 %
  34