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 %
  16 %my $custnum = $cust_svc->cust_pkg->custnum;
  17 %
  18 %my $error = $cust_svc->cancel;
  19 %
  20 %if ( $error ) {
  21 %
  22
  23 <!-- mason kludge -->
  24 %
  25 %  &eidiot($error);
  26 %} else {
  27 %  print $cgi->redirect(popurl(2)."view/cust_main.cgi?$custnum");
  28 %}
  29 %
  30 %
  31