httemplate/misc/unprovision.cgi

   1 <%
   2
   3 my $dbh = dbh;
   4
   5 #untaint svcnum
   6 my($query) = $cgi->keywords;
   7 $query =~ /^(\d+)$/;
   8 my $svcnum = $1;
   9
  10 #my $svc_acct = qsearchs('svc_acct',{'svcnum'=>$svcnum});
  11 #die "Unknown svcnum!" unless $svc_acct;
  12
  13 my $cust_svc = qsearchs('cust_svc',{'svcnum'=>$svcnum});
  14 die "Unknown svcnum!" unless $cust_svc;
  15 #&eidiot(qq!This account has already been audited.  Cancel the
  16 #    <A HREF="!. popurl(2). qq!view/cust_pkg.cgi?! . $cust_svc->getfield('pkgnum') .
  17 #    qq!pkgnum"> package</A> instead.!)
  18 #  if $cust_svc->pkgnum ne '' && $cust_svc->pkgnum ne '0';
  19
  20 my $custnum = $cust_svc->cust_pkg->custnum;
  21
  22 my $error = $cust_svc->cancel;
  23
  24 if ( $error ) {
  25   %>
  26 <!-- mason kludge -->
  27 <%
  28   &eidiot($error);
  29 } else {
  30   print $cgi->redirect(popurl(2)."view/cust_main.cgi?$custnum");
  31 }
  32
  33 %>