httemplate/search/report_receivables.cgi

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