diff options
| author | ivan <ivan> | 1998-04-17 05:37:07 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1998-04-17 05:37:07 +0000 |
| commit | dd013679940cb0a4425eeff4df263e390d9c42e4 (patch) | |
| tree | 41c8454948d5a9db8c6ce03f39c13a9694b81001 /htdocs/misc/bill.cgi | |
| parent | 9307a5317a1dcf9fafd8b6bac8ffc70c505f9e2b (diff) | |
Initial revision
Diffstat (limited to 'htdocs/misc/bill.cgi')
| -rwxr-xr-x | htdocs/misc/bill.cgi | 66 |
1 files changed, 66 insertions, 0 deletions
diff --git a/htdocs/misc/bill.cgi b/htdocs/misc/bill.cgi new file mode 100755 index 000000000..d41f6d1c9 --- /dev/null +++ b/htdocs/misc/bill.cgi @@ -0,0 +1,66 @@ +#!/usr/bin/perl -Tw +# +# s/FS:Search/FS::Record/ and cgisuidsetup($cgi) ivan@sisd.com 98-mar-13 +# +# Changes to allow page to work at a relative position in server +# bmccane@maxbaud.net 98-apr-3 + +use strict; +use CGI::Base qw(:DEFAULT :CGI); +use CGI::Carp qw(fatalsToBrowser); +use FS::UID qw(cgisuidsetup); +use FS::Record qw(qsearchs); +use FS::Bill; + +my($cgi) = new CGI::Base; +$cgi->get; +&cgisuidsetup($cgi); + +#untaint custnum +$QUERY_STRING =~ /^(\d*)$/; +my($custnum)=$1; +my($cust_main)=qsearchs('cust_main',{'custnum'=>$custnum}); +die "Can't find customer!\n" unless $cust_main; + +# ? +bless($cust_main,"FS::Bill"); + +my($error); + +$error = $cust_main->bill( +# 'time'=>$time + ); +&idiot($error) if $error; + +$error = $cust_main->collect( +# 'invoice-time'=>$time, +# 'batch_card'=> 'yes', + 'batch_card'=> 'no', + 'report_badcard'=> 'yes', + ); +&idiot($error) if $error; + +$cgi->redirect("../view/cust_main.cgi?$custnum#history"); + +sub idiot { + my($error)=@_; + CGI::Base::SendHeaders(); # one guess + print <<END; +<HTML> + <HEAD> + <TITLE>Error billing customer</TITLE> + </HEAD> + <BODY> + <CENTER> + <H4>Error billing customer</H4> + </CENTER> + Your update did not occur because of the following error: + <P><B>$error</B> + </BODY> +</HTML> +END + + exit; + +} + |