htdocs/search/cust_bill.cgi

   1 #!/usr/bin/perl -Tw
   2 #
   3 # $Id: cust_bill.cgi,v 1.2 1998-12-17 09:41:07 ivan Exp $
   4 #
   5 # Usage: post form to:
   6 #        http://server.name/path/cust_bill.cgi
   7 #
   8 # Note: Should be run setuid freeside as user nobody.
   9 #
  10 # ivan@voicenet.com 97-apr-4
  11 #
  12 # Changes to allow page to work at a relative position in server
  13 #       bmccane@maxbaud.net     98-apr-3
  14 #
  15 # $Log: cust_bill.cgi,v $
  16 # Revision 1.2  1998-12-17 09:41:07  ivan
  17 # s/CGI::(Base|Request)/CGI.pm/;
  18 #
  19
  20 use strict;
  21 use CGI;
  22 use CGI::Carp qw(fatalsToBrowser);
  23 use FS::UID qw(cgisuidsetup);
  24 use FS::CGI qw(popurl idiot);
  25 use FS::Record qw(qsearchs);
  26
  27 my($cgi)=new CGI;
  28 cgisuidsetup($cgi);
  29
  30 $cgi->param('invnum') =~ /^\s*(FS-)?(\d+)\s*$/;
  31 my($invnum)=$2;
  32
  33 if ( qsearchs('cust_bill',{'invnum'=>$invnum}) ) {
  34   print $cgi->redirect(popurl(2). "view/cust_bill.cgi?$invnum");  #redirect
  35 } else { #error
  36   idiot("Invoice not found.");
  37 }
  38