#!/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