diff options
Diffstat (limited to 'htdocs/misc')
-rwxr-xr-x | htdocs/misc/bill.cgi | 19 | ||||
-rwxr-xr-x | htdocs/misc/cancel-unaudited.cgi | 21 | ||||
-rwxr-xr-x | htdocs/misc/cancel_pkg.cgi | 19 | ||||
-rwxr-xr-x | htdocs/misc/expire_pkg.cgi | 22 | ||||
-rwxr-xr-x | htdocs/misc/link.cgi | 25 | ||||
-rwxr-xr-x | htdocs/misc/print-invoice.cgi | 22 | ||||
-rwxr-xr-x | htdocs/misc/process/link.cgi | 16 | ||||
-rwxr-xr-x | htdocs/misc/susp_pkg.cgi | 19 | ||||
-rwxr-xr-x | htdocs/misc/unsusp_pkg.cgi | 19 |
9 files changed, 110 insertions, 72 deletions
diff --git a/htdocs/misc/bill.cgi b/htdocs/misc/bill.cgi index 430aefa4b..2c17baec7 100755 --- a/htdocs/misc/bill.cgi +++ b/htdocs/misc/bill.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: bill.cgi,v 1.3 1998-12-23 03:01:13 ivan Exp $ +# $Id: bill.cgi,v 1.4 1999-01-19 05:14:02 ivan Exp $ # # s/FS:Search/FS::Record/ and cgisuidsetup($cgi) ivan@sisd.com 98-mar-13 # @@ -8,7 +8,11 @@ # bmccane@maxbaud.net 98-apr-3 # # $Log: bill.cgi,v $ -# Revision 1.3 1998-12-23 03:01:13 ivan +# Revision 1.4 1999-01-19 05:14:02 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:01:13 ivan # $cgi->keywords instead of $cgi->query_string # # Revision 1.2 1998/12/17 09:12:41 ivan @@ -16,6 +20,7 @@ # use strict; +use vars qw( $cgi $query $custnum $cust_main $error ); use CGI; use CGI::Carp qw(fatalsToBrowser); use FS::UID qw(cgisuidsetup); @@ -23,18 +28,16 @@ use FS::CGI qw(popurl eidiot); use FS::Record qw(qsearchs); use FS::cust_main; -my($cgi) = new CGI; +$cgi = new CGI; &cgisuidsetup($cgi); #untaint custnum -my($query) = $cgi->keywords; +($query) = $cgi->keywords; $query =~ /^(\d*)$/; -my($custnum)=$1; -my($cust_main)=qsearchs('cust_main',{'custnum'=>$custnum}); +$custnum = $1; +$cust_main = qsearchs('cust_main',{'custnum'=>$custnum}); die "Can't find customer!\n" unless $cust_main; -my($error); - $error = $cust_main->bill( # 'time'=>$time ); diff --git a/htdocs/misc/cancel-unaudited.cgi b/htdocs/misc/cancel-unaudited.cgi index 4c5fbc7f3..b8729440f 100755 --- a/htdocs/misc/cancel-unaudited.cgi +++ b/htdocs/misc/cancel-unaudited.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: cancel-unaudited.cgi,v 1.3 1998-12-23 03:02:05 ivan Exp $ +# $Id: cancel-unaudited.cgi,v 1.4 1999-01-19 05:14:03 ivan Exp $ # # Usage: cancel-unaudited.cgi svcnum # http://server.name/path/cancel-unaudited.cgi pkgnum @@ -18,7 +18,11 @@ # bmccane@maxbaud.net 98-apr-3 # # $Log: cancel-unaudited.cgi,v $ -# Revision 1.3 1998-12-23 03:02:05 ivan +# Revision 1.4 1999-01-19 05:14:03 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:02:05 ivan # $cgi->keywords instead of $cgi->query_string # # Revision 1.2 1998/12/17 09:12:42 ivan @@ -26,6 +30,7 @@ # use strict; +use vars qw( $cgi $query $svcnum $svc_acct $cust_svc $error ); use CGI; use CGI::Carp qw(fatalsToBrowser); use FS::UID qw(cgisuidsetup); @@ -34,18 +39,18 @@ use FS::Record qw(qsearchs); use FS::cust_svc; use FS::svc_acct; -my($cgi) = new CGI; +$cgi = new CGI; &cgisuidsetup($cgi); #untaint svcnum -my($query) = $cgi->keywords; +($query) = $cgi->keywords; $query =~ /^(\d+)$/; -my($svcnum)=$1; +$svcnum = $1; -my($svc_acct) = qsearchs('svc_acct',{'svcnum'=>$svcnum}); +$svc_acct = qsearchs('svc_acct',{'svcnum'=>$svcnum}); &eidiot("Unknown svcnum!") unless $svc_acct; -my($cust_svc) = qsearchs('cust_svc',{'svcnum'=>$svcnum}); +$cust_svc = qsearchs('cust_svc',{'svcnum'=>$svcnum}); &eidiot(qq!This account has already been audited. Cancel the <A HREF="!. popurl(2). qq!view/cust_pkg.cgi?! . $cust_svc->getfield('pkgnum') . qq!pkgnum"> package</A> instead.!) @@ -57,8 +62,6 @@ local $SIG{QUIT} = 'IGNORE'; local $SIG{TERM} = 'IGNORE'; local $SIG{TSTP} = 'IGNORE'; -my($error); - $error = $svc_acct->cancel; &eidiot($error) if $error; $error = $svc_acct->delete; diff --git a/htdocs/misc/cancel_pkg.cgi b/htdocs/misc/cancel_pkg.cgi index 45afee8a1..27bc277c0 100755 --- a/htdocs/misc/cancel_pkg.cgi +++ b/htdocs/misc/cancel_pkg.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: cancel_pkg.cgi,v 1.3 1998-12-23 03:02:54 ivan Exp $ +# $Id: cancel_pkg.cgi,v 1.4 1999-01-19 05:14:04 ivan Exp $ # # Usage: cancel_pkg.cgi pkgnum # http://server.name/path/cancel_pkg.cgi pkgnum @@ -29,7 +29,11 @@ # bmccane@maxbaud.net 98-apr-3 # # $Log: cancel_pkg.cgi,v $ -# Revision 1.3 1998-12-23 03:02:54 ivan +# Revision 1.4 1999-01-19 05:14:04 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:02:54 ivan # $cgi->keywords instead of $cgi->query_string # # Revision 1.2 1998/12/17 09:12:43 ivan @@ -37,6 +41,7 @@ # use strict; +use vars qw ( $cgi $query $pkgnum $cust_pkg $error ); use CGI; use CGI::Carp qw(fatalsToBrowser); use FS::UID qw(cgisuidsetup); @@ -44,17 +49,17 @@ use FS::CGI qw(eidiot popurl); use FS::Record qw(qsearchs); use FS::cust_pkg; -my($cgi) = new CGI; +$cgi = new CGI; &cgisuidsetup($cgi); #untaint pkgnum -my($query) = $cgi->keywords; +($query) = $cgi->keywords; $query =~ /^(\d+)$/ || die "Illegal pkgnum"; -my($pkgnum)=$1; +$pkgnum = $1; -my($cust_pkg) = qsearchs('cust_pkg',{'pkgnum'=>$pkgnum}); +$cust_pkg = qsearchs('cust_pkg',{'pkgnum'=>$pkgnum}); -my($error)=$cust_pkg->cancel; +$error = $cust_pkg->cancel; eidiot($error) if $error; print $cgi->redirect(popurl(2). "view/cust_main.cgi?".$cust_pkg->getfield('custnum')); diff --git a/htdocs/misc/expire_pkg.cgi b/htdocs/misc/expire_pkg.cgi index e921c7218..8cf553a26 100755 --- a/htdocs/misc/expire_pkg.cgi +++ b/htdocs/misc/expire_pkg.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: expire_pkg.cgi,v 1.2 1998-12-17 09:12:44 ivan Exp $ +# $Id: expire_pkg.cgi,v 1.3 1999-01-19 05:14:05 ivan Exp $ # # Usage: post form to: # http://server.name/path/expire_pkg.cgi @@ -16,11 +16,16 @@ # bmccane@maxbaud.net 98-apr-3 # # $Log: expire_pkg.cgi,v $ -# Revision 1.2 1998-12-17 09:12:44 ivan +# Revision 1.3 1999-01-19 05:14:05 ivan +# for mod_perl: no more top-level my() variables; use vars instead +# also the last s/create/new/; +# +# Revision 1.2 1998/12/17 09:12:44 ivan # s/CGI::(Request|Base)/CGI.pm/; # use strict; +use vars qw ( $cgi $date $pkgnum $cust_pkg %hash $new $error ); use Date::Parse; use CGI; use CGI::Carp qw(fatalsToBrowser); @@ -29,12 +34,11 @@ use FS::CGI qw(popurl eidiot); use FS::Record qw(qsearchs); use FS::cust_pkg; -my($cgi) = new CGI; +$cgi = new CGI; &cgisuidsetup($cgi); #untaint date & pkgnum -my($date); if ( $cgi->param('date') ) { str2time($cgi->param('date')) =~ /^(\d+)$/ or die "Illegal date"; $date=$1; @@ -43,13 +47,13 @@ if ( $cgi->param('date') ) { } $cgi->param('pkgnum') =~ /^(\d+)$/ or die "Illegal pkgnum"; -my($pkgnum)=$1; +$pkgnum = $1; -my($cust_pkg) = qsearchs('cust_pkg',{'pkgnum'=>$pkgnum}); -my(%hash)=$cust_pkg->hash; +$cust_pkg = qsearchs('cust_pkg',{'pkgnum'=>$pkgnum}); +%hash = $cust_pkg->hash; $hash{expire}=$date; -my($new)=create FS::cust_pkg ( \%hash ); -my($error) = $new->replace($cust_pkg); +$new = new FS::cust_pkg ( \%hash ); +$error = $new->replace($cust_pkg); &eidiot($error) if $error; print $cgi->redirect(popurl(2). "view/cust_main.cgi?".$cust_pkg->getfield('custnum')); diff --git a/htdocs/misc/link.cgi b/htdocs/misc/link.cgi index d18cfccc1..208ed8ee5 100755 --- a/htdocs/misc/link.cgi +++ b/htdocs/misc/link.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: link.cgi,v 1.4 1999-01-18 09:41:36 ivan Exp $ +# $Id: link.cgi,v 1.5 1999-01-19 05:14:06 ivan Exp $ # # Note: Should be run setuid freeside as user nobody # @@ -11,7 +11,11 @@ # can also link on some other fields now (about time) ivan@sisd.com 98-jun-24 # # $Log: link.cgi,v $ -# Revision 1.4 1999-01-18 09:41:36 ivan +# Revision 1.5 1999-01-19 05:14:06 ivan +# for mod_perl: no more top-level my() variables; use vars instead +# also the last s/create/new/; +# +# Revision 1.4 1999/01/18 09:41:36 ivan # all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl # (good idea anyway) # @@ -23,13 +27,15 @@ # use strict; +use vars qw ( %link_field $cgi $pkgnum $svcpart $query $part_svc $svc $svcdb + $link_field ); use CGI; use CGI::Carp qw(fatalsToBrowser); use FS::UID qw(cgisuidsetup); use FS::CGI qw(popurl); use FS::Record qw(qsearchs); -my(%link_field)=( +%link_field = ( 'svc_acct' => 'username', 'svc_domain' => 'domain', 'svc_acct_sm' => '', @@ -37,20 +43,19 @@ my(%link_field)=( 'svc_wo' => '', ); -my($cgi) = new CGI; +$cgi = new CGI; cgisuidsetup($cgi); -my($pkgnum,$svcpart); -my($query) = $cgi->keywords; +($query) = $cgi->keywords; foreach $_ (split(/-/,$query)) { #get & untaint pkgnum & svcpart $pkgnum=$1 if /^pkgnum(\d+)$/; $svcpart=$1 if /^svcpart(\d+)$/; } -my($part_svc) = qsearchs('part_svc',{'svcpart'=>$svcpart}); -my($svc) = $part_svc->getfield('svc'); -my($svcdb) = $part_svc->getfield('svcdb'); -my($link_field) = $link_field{$svcdb}; +$part_svc = qsearchs('part_svc',{'svcpart'=>$svcpart}); +$svc = $part_svc->getfield('svc'); +$svcdb = $part_svc->getfield('svcdb'); +$link_field = $link_field{$svcdb}; print $cgi->header( '-expires' => 'now' ), header("Link to existing $svc account"), qq!<FORM ACTION="!, popurl(1), qq!process/link.cgi" METHOD=POST>!; diff --git a/htdocs/misc/print-invoice.cgi b/htdocs/misc/print-invoice.cgi index 0ece4261e..213f15406 100755 --- a/htdocs/misc/print-invoice.cgi +++ b/htdocs/misc/print-invoice.cgi @@ -1,12 +1,16 @@ #!/usr/bin/perl -Tw # -# $Id: print-invoice.cgi,v 1.3 1998-12-23 03:04:24 ivan Exp $ +# $Id: print-invoice.cgi,v 1.4 1999-01-19 05:14:07 ivan Exp $ # # just a kludge for now, since this duplicates in a way it shouldn't stuff from # Bill.pm (like $lpr) ivan@sisd.com 98-jun-16 # # $Log: print-invoice.cgi,v $ -# Revision 1.3 1998-12-23 03:04:24 ivan +# Revision 1.4 1999-01-19 05:14:07 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:24 ivan # $cgi->keywords instead of $cgi->query_string # # Revision 1.2 1998/12/17 09:12:47 ivan @@ -14,7 +18,7 @@ # use strict; -use vars qw($conf); +use vars qw($conf $cgi $lpr $query $invnum $cust_bill $custnum ); use CGI; use CGI::Carp qw(fatalsToBrowser); use FS::UID qw(cgisuidsetup); @@ -22,17 +26,17 @@ use FS::CGI qw(popurl); use FS::Record qw(qsearchs); use FS::cust_bill; -my($cgi) = new CGI; +$cgi = new CGI; &cgisuidsetup($cgi); $conf = new FS::Conf; -my $lpr = $conf->config('lpr'); +$lpr = $conf->config('lpr'); #untaint invnum -my($query) = $cgi->keywords; +($query) = $cgi->keywords; $query =~ /^(\d*)$/; -my($invnum)=$1; -my($cust_bill)=qsearchs('cust_bill',{'invnum'=>$invnum}); +$invnum = $1; +$cust_bill = qsearchs('cust_bill',{'invnum'=>$invnum}); die "Can't find invoice!\n" unless $cust_bill; open(LPR,"|$lpr") or die "Can't open $lpr: $!"; @@ -41,7 +45,7 @@ die "Can't find invoice!\n" unless $cust_bill; or die $! ? "Error closing $lpr: $!" : "Exit status $? from $lpr"; -my($custnum)=$cust_bill->getfield('custnum'); +$custnum = $cust_bill->getfield('custnum'); print $cgi->redirect(popurl(2). "view/cust_main.cgi?$custnum#history"); diff --git a/htdocs/misc/process/link.cgi b/htdocs/misc/process/link.cgi index aab26411d..c20b47373 100755 --- a/htdocs/misc/process/link.cgi +++ b/htdocs/misc/process/link.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: link.cgi,v 1.2 1998-12-17 09:15:00 ivan Exp $ +# $Id: link.cgi,v 1.3 1999-01-19 05:14:10 ivan Exp $ # # ivan@voicenet.com 97-feb-5 # @@ -12,11 +12,16 @@ # can also link on some other fields now (about time) ivan@sisd.com 98-jun-24 # # $Log: link.cgi,v $ -# Revision 1.2 1998-12-17 09:15:00 ivan +# Revision 1.3 1999-01-19 05:14:10 ivan +# for mod_perl: no more top-level my() variables; use vars instead +# also the last s/create/new/; +# +# Revision 1.2 1998/12/17 09:15:00 ivan # s/CGI::Request/CGI.pm/; # use strict; +use vars qw ( $cgi $old $new $error ); use CGI; use CGI::Carp qw(fatalsToBrowser); use FS::CGI qw(popurlidiot); @@ -24,7 +29,7 @@ use FS::UID qw(cgisuidsetup); use FS::cust_svc; use FS::Record qw(qsearchs); -my($cgi)=new CGI; +$cgi = new CGI; cgisuidsetup($cgi); $cgi->param('pkgnum') =~ /^(\d+)$/; my($pkgnum)=$1; @@ -40,15 +45,14 @@ unless ( $svcnum ) { $svcnum=$svc_acct->svcnum; } -my($old)=qsearchs('cust_svc',{'svcnum'=>$svcnum}); +$old = qsearchs('cust_svc',{'svcnum'=>$svcnum}); die "svcnum not found!" unless $old; -my($new)=create FS::cust_svc ({ +$new = new FS::cust_svc ({ 'svcnum' => $svcnum, 'pkgnum' => $pkgnum, 'svcpart' => $svcpart, }); -my($error); $error = $new->replace($old); unless ($error) { diff --git a/htdocs/misc/susp_pkg.cgi b/htdocs/misc/susp_pkg.cgi index 7b8096470..851a53f7f 100755 --- a/htdocs/misc/susp_pkg.cgi +++ b/htdocs/misc/susp_pkg.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: susp_pkg.cgi,v 1.3 1998-12-23 03:04:56 ivan Exp $ +# $Id: susp_pkg.cgi,v 1.4 1999-01-19 05:14:08 ivan Exp $ # # Usage: susp_pkg.cgi pkgnum # http://server.name/path/susp_pkg.cgi pkgnum @@ -23,7 +23,11 @@ # bmccane@maxbaud.net 98-apr-3 # # $Log: susp_pkg.cgi,v $ -# Revision 1.3 1998-12-23 03:04:56 ivan +# 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 @@ -31,23 +35,24 @@ # 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::cust_pkg; -my($cgi) = new CGI; +$cgi = new CGI; &cgisuidsetup($cgi); #untaint pkgnum -my($query) = $cgi->keywords; +($query) = $cgi->keywords; $query =~ /^(\d+)$/ || die "Illegal pkgnum"; -my($pkgnum)=$1; +$pkgnum = $1; -my($cust_pkg) = qsearchs('cust_pkg',{'pkgnum'=>$pkgnum}); +$cust_pkg = qsearchs('cust_pkg',{'pkgnum'=>$pkgnum}); -my($error)=$cust_pkg->suspend; +$error = $cust_pkg->suspend; &eidiot($error) if $error; print $cgi->redirect(popurl(2). "view/cust_main.cgi?".$cust_pkg->getfield('custnum')); diff --git a/htdocs/misc/unsusp_pkg.cgi b/htdocs/misc/unsusp_pkg.cgi index 170d85f8a..c8bb4f4a8 100755 --- a/htdocs/misc/unsusp_pkg.cgi +++ b/htdocs/misc/unsusp_pkg.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: unsusp_pkg.cgi,v 1.3 1998-12-23 03:05:25 ivan Exp $ +# $Id: unsusp_pkg.cgi,v 1.4 1999-01-19 05:14:09 ivan Exp $ # # Usage: susp_pkg.cgi pkgnum # http://server.name/path/susp_pkg.cgi pkgnum @@ -23,7 +23,11 @@ # bmccane@maxbaud.net 98-apr-3 # # $Log: unsusp_pkg.cgi,v $ -# Revision 1.3 1998-12-23 03:05:25 ivan +# Revision 1.4 1999-01-19 05:14:09 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:05:25 ivan # $cgi->keywords instead of $cgi->query_string # # Revision 1.2 1998/12/17 09:12:49 ivan @@ -31,6 +35,7 @@ # use strict; +use vars qw( $cgi $query $pkgnum $cust_pkg $error ); use CGI; use CGI::Carp qw(fatalsToBrowser); use FS::UID qw(cgisuidsetup); @@ -38,17 +43,17 @@ use FS::CGI qw(popurl eidiot); use FS::Record qw(qsearchs); use FS::cust_pkg; -my($cgi) = new CGI; +$cgi = new CGI; &cgisuidsetup($cgi); #untaint pkgnum -my($query) = $cgi->keywords; +($query) = $cgi->keywords; $query =~ /^(\d+)$/ || die "Illegal pkgnum"; -my($pkgnum)=$1; +$pkgnum = $1; -my($cust_pkg) = qsearchs('cust_pkg',{'pkgnum'=>$pkgnum}); +$cust_pkg = qsearchs('cust_pkg',{'pkgnum'=>$pkgnum}); -my($error)=$cust_pkg->unsuspend; +$error = $cust_pkg->unsuspend; &eidiot($error) if $error; print $cgi->redirect(popurl(2). "view/cust_main.cgi?".$cust_pkg->getfield('custnum')); |