htdocs/edit/cust_pay.cgi

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