httemplate/search/report_tax.cgi

   1 <%
   2
   3 use strict;
   4 use vars qw( $cgi $user $beginning $ending );
   5 use CGI;
   6 use CGI::Carp qw( fatalsToBrowser );
   7 use FS::UID qw( cgisuidsetup getotaker );
   8 use FS::CGI qw( header );
   9
  10 $cgi = new CGI;
  11 &cgisuidsetup($cgi);
  12
  13 $user = getotaker;
  14
  15 $cgi->param('beginning') =~ /^([ 0-9\-\/]{0,10})$/;
  16 $beginning = $1;
  17
  18 $cgi->param('ending') =~ /^([ 0-9\-\/]{0,10})$/;
  19 $ending = $1;
  20
  21 print $cgi->header( '-expires' => '-2m' ),
  22   header('Tax Report Results');
  23
  24 open (REPORT, "freeside-tax-report -v -s $beginning -d $ending $user |");
  25
  26 print '<PRE>';
  27 while(<REPORT>) {
  28   print $_;
  29 }
  30 print '</PRE>';
  31
  32 print '</BODY></HTML>';
  33
  34 %>
  35