htdocs/edit/cust_pay.cgi

   1 #!/usr/bin/perl -Tw
   2 #
   3 # $Id: cust_pay.cgi,v 1.2 1998-12-17 06:17:03 ivan Exp $
   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 # $Log: cust_pay.cgi,v $
  17 # Revision 1.2  1998-12-17 06:17:03  ivan
  18 # fix double // in relative URLs, s/CGI::Base/CGI/;
  19 #
  20
  21 use strict;
  22 use Date::Format;
  23 use CGI;
  24 use CGI::Carp qw(fatalsToBrowser);
  25 use FS::UID qw(cgisuidsetup);
  26 use FS::CGI qw(header popurl);
  27
  28 my($cgi) = new CGI;
  29 cgisuidsetup($cgi);
  30
  31 my($query) = $cgi->keywords;
  32 $query =~ /^(\d+)$/;
  33 my($invnum)=$1;
  34
  35 my $p1 = popurl(1);
  36 print $cgi->header, header("Enter payment", ''), <<END;
  37     <FORM ACTION="${p1}process/cust_pay.cgi" METHOD=POST>
  38     <HR><PRE>
  39 END
  40
  41 #invnum
  42 print qq!Invoice #<B>$invnum</B><INPUT TYPE="hidden" NAME="invnum" VALUE="$invnum">!;
  43
  44 #date
  45 my($date)=time;
  46 print qq!<BR>Date: <B>!, time2str("%D",$date), qq!</B><INPUT TYPE="hidden" NAME="_date" VALUE="$date">!;
  47
  48 #paid
  49 print qq!<BR>Amount \$<INPUT TYPE="text" NAME="paid" VALUE="" SIZE=8 MAXLENGTH=8>!;
  50
  51 #payby
  52 my($payby)="BILL";
  53 print qq!<BR>Payby: <B>$payby</B><INPUT TYPE="hidden" NAME="payby" VALUE="$payby">!;
  54
  55 #payinfo (check # now as payby="BILL" hardcoded.. what to do later?)
  56 my($payinfo)="";
  57 print qq!<BR>Check #<INPUT TYPE="text" NAME="payinfo" VALUE="$payinfo">!;
  58
  59 #paybatch
  60 print qq!<INPUT TYPE="hidden" NAME="paybatch" VALUE="">!;
  61
  62 print <<END;
  63 </PRE>
  64 <BR>
  65 <CENTER><INPUT TYPE="submit" VALUE="Post"></CENTER>
  66 END
  67
  68 print <<END;
  69
  70     </FORM>
  71   </BODY>
  72 </HTML>
  73 END
  74