htdocs/misc/bill.cgi

   1 #!/usr/bin/perl -Tw
   2 #
   3 # $Id: bill.cgi,v 1.2 1998-12-17 09:12:41 ivan Exp $
   4 #
   5 # s/FS:Search/FS::Record/ and cgisuidsetup($cgi) ivan@sisd.com 98-mar-13
   6 #
   7 # Changes to allow page to work at a relative position in server
   8 #       bmccane@maxbaud.net     98-apr-3
   9 #
  10 # $Log: bill.cgi,v $
  11 # Revision 1.2  1998-12-17 09:12:41  ivan
  12 # s/CGI::(Request|Base)/CGI.pm/;
  13 #
  14
  15 use strict;
  16 use CGI;
  17 use CGI::Carp qw(fatalsToBrowser);
  18 use FS::UID qw(cgisuidsetup);
  19 use FS::CGI qw(popurl eidiot);
  20 use FS::Record qw(qsearchs);
  21 use FS::cust_main;
  22
  23 my($cgi) = new CGI;
  24 &cgisuidsetup($cgi);
  25
  26 #untaint custnum
  27 $cgi->query_string =~ /^(\d*)$/;
  28 my($custnum)=$1;
  29 my($cust_main)=qsearchs('cust_main',{'custnum'=>$custnum});
  30 die "Can't find customer!\n" unless $cust_main;
  31
  32 my($error);
  33
  34 $error = $cust_main->bill(
  35 #                          'time'=>$time
  36                          );
  37 &eidiot($error) if $error;
  38
  39 $error = $cust_main->collect(
  40 #                             'invoice-time'=>$time,
  41 #                             'batch_card'=> 'yes',
  42                              'batch_card'=> 'no',
  43                              'report_badcard'=> 'yes',
  44                             );
  45 &eidiot($error) if $error;
  46
  47 print $cgi->redirect(popurl(2). "view/cust_main.cgi?$custnum#history");
  48