diff options
| author | cvs2git <cvs2git> | 2001-04-23 12:44:07 +0000 |
|---|---|---|
| committer | cvs2git <cvs2git> | 2001-04-23 12:44:07 +0000 |
| commit | b05ab53315716b57305cbe6b2f5032eed314049c (patch) | |
| tree | 3cc3737d6b3b47896d3f364cdf85d39651b78c09 /htdocs/misc/susp_pkg.cgi | |
| parent | fd337973c05b8cd15ecc8c4c9b913c7261e17ed6 (diff) | |
| parent | 80ba0c074354875c288c143721af08a0a5d02e42 (diff) | |
This commit was manufactured by cvs2svn to create branchfreeside_1_3_0_pci_mods
'freeside_1_3_0_pci_mods'.
Diffstat (limited to 'htdocs/misc/susp_pkg.cgi')
| -rwxr-xr-x | htdocs/misc/susp_pkg.cgi | 64 |
1 files changed, 0 insertions, 64 deletions
diff --git a/htdocs/misc/susp_pkg.cgi b/htdocs/misc/susp_pkg.cgi deleted file mode 100755 index abe4f70b0..000000000 --- a/htdocs/misc/susp_pkg.cgi +++ /dev/null @@ -1,64 +0,0 @@ -#!/usr/bin/perl -Tw -# -# $Id: susp_pkg.cgi,v 1.6 1999-04-08 10:35:02 ivan Exp $ -# -# Usage: susp_pkg.cgi pkgnum -# http://server.name/path/susp_pkg.cgi pkgnum -# -# probably should generalize this to do cancels, suspensions, unsuspensions, etc. -# -# ivan@voicenet.com 97-feb-27 -# -# now redirects to enter comments -# ivan@voicenet.com 97-may-8 -# -# rewrote for new API -# ivan@voicenet.com 97-jul-21 -# -# FS::Search -> FS::Record ivan@sisd.com 98-mar-17 -# -# Changes to allow page to work at a relative position in server -# bmccane@maxbaud.net 98-apr-3 -# -# $Log: susp_pkg.cgi,v $ -# Revision 1.6 1999-04-08 10:35:02 ivan -# import necessary subroutines from FS::CGI -# -# Revision 1.5 1999/02/28 00:03:52 ivan -# removed misleading comments -# -# Revision 1.4 1999/01/19 05:14:08 ivan -# for mod_perl: no more top-level my() variables; use vars instead -# also the last s/create/new/; -# -# Revision 1.3 1998/12/23 03:04:56 ivan -# $cgi->keywords instead of $cgi->query_string -# -# Revision 1.2 1998/12/17 09:12:48 ivan -# s/CGI::(Request|Base)/CGI.pm/; -# - -use strict; -use vars qw( $cgi $query $pkgnum $cust_pkg $error ); -use CGI; -use CGI::Carp qw(fatalsToBrowser); -use FS::UID qw(cgisuidsetup); -use FS::Record qw(qsearchs); -use FS::CGI qw(popurl eidiot); -use FS::cust_pkg; - -$cgi = new CGI; -&cgisuidsetup($cgi); - -#untaint pkgnum -($query) = $cgi->keywords; -$query =~ /^(\d+)$/ || die "Illegal pkgnum"; -$pkgnum = $1; - -$cust_pkg = qsearchs('cust_pkg',{'pkgnum'=>$pkgnum}); - -$error = $cust_pkg->suspend; -&eidiot($error) if $error; - -print $cgi->redirect(popurl(2). "view/cust_main.cgi?".$cust_pkg->getfield('custnum')); - |