httemplate/search/report_receivables.cgi

   1 <%
   2
   3 use strict;
   4 use vars qw( $cgi );
   5 use CGI;
   6 use CGI::Carp qw(fatalsToBrowser);
   7 use FS::UID qw(cgisuidsetup);
   8
   9 $cgi = new CGI;
  10 &cgisuidsetup($cgi);
  11
  12 print $cgi->header( '-expires' => '-2m' ),
  13       header('Current Receivables Report Results');
  14
  15 open (REPORT, "/usr/bin/freeside-receivables-report -v freeside |");
  16
  17 print '<PRE>';
  18 while(<REPORT>) {
  19   print $_;
  20 }
  21 print '</PRE>';
  22
  23 print '</BODY></HTML>';
  24
  25 %>
  26