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_credit.cgi | 97 --------------------------------------------- 1 file changed, 97 deletions(-) delete mode 100755 htdocs/edit/cust_credit.cgi (limited to 'htdocs/edit/cust_credit.cgi') diff --git a/htdocs/edit/cust_credit.cgi b/htdocs/edit/cust_credit.cgi deleted file mode 100755 index 75ef21208..000000000 --- a/htdocs/edit/cust_credit.cgi +++ /dev/null @@ -1,97 +0,0 @@ -#!/usr/bin/perl -Tw -# -# cust_credit.cgi: Add a credit (output form) -# -# Usage: cust_credit.cgi custnum [ -paybatch ] -# http://server.name/path/cust_credit?custnum [ -paybatch ] -# -# Note: Should be run setuid root as user nobody. -# -# some hooks in here for modifications as well as additions, but needs (lots) more work. -# also see process/cust_credit.cgi, the script that processes the form. -# -# ivan@voicenet.com 96-dec-05 -# -# paybatch field, differentiates between credits & credits+refunds by commandline -# ivan@voicenet.com 96-dec-08 -# -# added (but commented out) sprintf("%.2f" in amount field. Hmm. -# ivan@voicenet.com 97-jan-3 -# -# paybatch stuff thrown out - has checkbox now instead. -# (well, sort of. still passed around for backward compatability and possible editing hook) -# ivan@voicenet.com 97-apr-21 -# -# rewrite ivan@sisd.com 98-mar-16 - -use strict; -use Date::Format; -use CGI::Base qw(:DEFAULT :CGI); #CGI module -use FS::UID qw(cgisuidsetup getotaker); - -my($cgi) = new CGI::Base; -$cgi->get; -cgisuidsetup($cgi); - -#untaint custnum -$QUERY_STRING =~ /^(\d+)$/; -my($custnum)=$1; - -#untaint otaker -my($otaker)=getotaker; - -SendHeaders(); # one guess. -print < - - Post Credit - - - -

Post Credit

- -

-END
-
-#crednum
-my($crednum)="";
-print qq!Credit #!, $crednum ? $crednum : " (NEW)", qq!!;
-
-#custnum
-print qq!\nCustomer #$custnum!;
-
-#paybatch
-print qq!!;
-
-#date
-my($date)=time;
-print qq!\nDate: !, time2str("%D",$date), qq!!;
-
-#amount
-my($amount)='';
-print qq!\nAmount \$!;
-
-#refund?
-#print qq! Also post refund!;
-
-#otaker (hidden)
-print qq!!;
-
-#reason
-my($reason)='';
-print qq!\nReason !;
-
-print <
-

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