htdocs/edit/cust_pay.cgi

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