From e1eb06c05b654a4533bab0e034e87a8de99015cc Mon Sep 17 00:00:00 2001 From: cvs2git Date: Mon, 12 Oct 1998 07:03:12 +0000 Subject: This commit was manufactured by cvs2svn to create tag 'freeside_current'. --- htdocs/edit/cust_pay.cgi | 76 ------------------------------------------------ 1 file changed, 76 deletions(-) delete mode 100755 htdocs/edit/cust_pay.cgi (limited to 'htdocs/edit/cust_pay.cgi') diff --git a/htdocs/edit/cust_pay.cgi b/htdocs/edit/cust_pay.cgi deleted file mode 100755 index a6cb204d1..000000000 --- a/htdocs/edit/cust_pay.cgi +++ /dev/null @@ -1,76 +0,0 @@ -#!/usr/bin/perl -Tw -# -# cust_pay.cgi: Add a payment (output form) -# -# Usage: cust_pay.cgi invnum -# http://server.name/path/cust_pay.cgi?invnum -# -# Note: Should be run setuid as user nobody. -# -# some hooks for modifications as well as additions, but needs work. -# -# ivan@voicenet.com 96-dec-11 -# -# rewrite ivan@sisd.com 98-mar-16 - -use strict; -use Date::Format; -use CGI::Base qw(:DEFAULT :CGI); -use FS::UID qw(cgisuidsetup); - -my($cgi) = new CGI::Base; -$cgi->get; -cgisuidsetup($cgi); - -#untaint invnum -$QUERY_STRING =~ /^(\d+)$/; -my($invnum)=$1; - -SendHeaders(); # one guess. -print < - - Enter payment - - - -

Enter payment

- -

-END
-
-#invnum
-print qq!Invoice #$invnum!;
-
-#date
-my($date)=time;
-print qq!
Date: !, time2str("%D",$date), qq!!;
-
-#paid
-print qq!
Amount \$!;
-
-#payby
-my($payby)="BILL";
-print qq!
Payby: $payby!;
-
-#payinfo (check # now as payby="BILL" hardcoded.. what to do later?)
-my($payinfo)="";
-print qq!
Check #!;
-
-#paybatch
-print qq!!;
-
-print <
-

-
-END
-
-print <
-  
-
-END
-
-- 
cgit v1.2.1