htdocs/edit/cust_pay.cgi

   1 #!/usr/bin/perl -Tw
   2 #
   3 # cust_pay.cgi: Add a payment (output form)
   4 #
   5 # Usage: cust_pay.cgi invnum
   6 #        http://server.name/path/cust_pay.cgi?invnum
   7 #
   8 # Note: Should be run setuid as user nobody.
   9 #
  10 # some hooks for modifications as well as additions, but needs work.
  11 #
  12 # ivan@voicenet.com 96-dec-11
  13 #
  14 # rewrite ivan@sisd.com 98-mar-16
  15
  16 use strict;
  17 use Date::Format;
  18 use CGI::Base qw(:DEFAULT :CGI);
  19 use FS::UID qw(cgisuidsetup);
  20
  21 my($cgi) = new CGI::Base;
  22 $cgi->get;
  23 cgisuidsetup($cgi);
  24
  25 #untaint invnum
  26 $QUERY_STRING =~ /^(\d+)$/;
  27 my($invnum)=$1;
  28
  29 SendHeaders(); # one guess.
  30 print <<END;
  31 <HTML>
  32   <HEAD>
  33     <TITLE>Enter payment</TITLE>
  34   </HEAD>
  35   <BODY>
  36     <CENTER>
  37     <H1>Enter payment</H1>
  38     </CENTER>
  39     <FORM ACTION="process/cust_pay.cgi" METHOD=POST>
  40     <HR><PRE>
  41 END
  42
  43 #invnum
  44 print qq!Invoice #<B>$invnum</B><INPUT TYPE="hidden" NAME="invnum" VALUE="$invnum">!;
  45
  46 #date
  47 my($date)=time;
  48 print qq!<BR>Date: <B>!, time2str("%D",$date), qq!</B><INPUT TYPE="hidden" NAME="_date" VALUE="$date">!;
  49
  50 #paid
  51 print qq!<BR>Amount \$<INPUT TYPE="text" NAME="paid" VALUE="" SIZE=8 MAXLENGTH=8>!;
  52
  53 #payby
  54 my($payby)="BILL";
  55 print qq!<BR>Payby: <B>$payby</B><INPUT TYPE="hidden" NAME="payby" VALUE="$payby">!;
  56
  57 #payinfo (check # now as payby="BILL" hardcoded.. what to do later?)
  58 my($payinfo)="";
  59 print qq!<BR>Check #<INPUT TYPE="text" NAME="payinfo" VALUE="$payinfo">!;
  60
  61 #paybatch
  62 print qq!<INPUT TYPE="hidden" NAME="paybatch" VALUE="">!;
  63
  64 print <<END;
  65 </PRE>
  66 <BR>
  67 <CENTER><INPUT TYPE="submit" VALUE="Post"></CENTER>
  68 END
  69
  70 print <<END;
  71
  72     </FORM>
  73   </BODY>
  74 </HTML>
  75 END
  76