htdocs/misc/cancel-unaudited.cgi

   1 #!/usr/bin/perl -Tw
   2 #
   3 # cancel-unaudited.cgi: Cancel an unaudited account
   4 #
   5 # Usage: cancel-unaudited.cgi svcnum
   6 #        http://server.name/path/cancel-unaudited.cgi pkgnum
   7 #
   8 # Note: Should be run setuid freeside as user nobody
   9 #
  10 # ivan@voicenet.com 97-apr-23
  11 #
  12 # rewrote for new API
  13 # ivan@voicenet.com 97-jul-21
  14 #
  15 # Search->Record, cgisuidsetup($cgi) ivan@sids.com 98-mar-19
  16 #
  17 # Changes to allow page to work at a relative position in server
  18 #       bmccane@maxbaud.net     98-apr-3
  19
  20 use strict;
  21 use CGI::Base qw(:DEFAULT :CGI); # CGI module
  22 use CGI::Carp qw(fatalsToBrowser);
  23 use FS::UID qw(cgisuidsetup);
  24 use FS::Record qw(qsearchs);
  25 use FS::cust_svc;
  26 use FS::svc_acct;
  27
  28 my($cgi) = new CGI::Base;
  29 $cgi->get;
  30 &cgisuidsetup($cgi);
  31
  32 #untaint svcnum
  33 $QUERY_STRING =~ /^(\d+)$/;
  34 my($svcnum)=$1;
  35
  36 my($svc_acct) = qsearchs('svc_acct',{'svcnum'=>$svcnum});
  37 &idiot("Unknown svcnum!") unless $svc_acct;
  38
  39 my($cust_svc) = qsearchs('cust_svc',{'svcnum'=>$svcnum});
  40 &idiot(qq!This account has already been audited.  Cancel the
  41     <A HREF="../view/cust_pkg.cgi?! . $cust_svc->getfield('pkgnum') .
  42     qq!pkgnum"> package</A> instead.!)
  43   if $cust_svc->getfield('pkgnum') ne '';
  44
  45 local $SIG{HUP} = 'IGNORE';
  46 local $SIG{INT} = 'IGNORE';
  47 local $SIG{QUIT} = 'IGNORE';
  48 local $SIG{TERM} = 'IGNORE';
  49 local $SIG{TSTP} = 'IGNORE';
  50
  51 my($error);
  52
  53 bless($svc_acct,"FS::svc_acct");
  54 $error = $svc_acct->cancel;
  55 &idiot($error) if $error;
  56 $error = $svc_acct->delete;
  57 &idiot($error) if $error;
  58
  59 bless($cust_svc,"FS::cust_svc");
  60 $error = $cust_svc->delete;
  61 &idiot($error) if $error;
  62
  63 $cgi->redirect("../");
  64
  65 sub idiot {
  66   my($error)=@_;
  67   SendHeaders();
  68   print <<END;
  69 <HTML>
  70   <HEAD>
  71     <TITLE>Error cancelling account</TITLE>
  72   </HEAD>
  73   <BODY>
  74     <CENTER>
  75     <H1>Error cancelling account</H1>
  76     </CENTER>
  77     <HR>
  78     There has been an error cancelling this acocunt:  $error
  79   </BODY>
  80   </HEAD>
  81 </HTML>
  82 END
  83   exit;
  84 }
  85