1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
<!-- mason kludge --> <% my $user = getotaker; print header('Current Receivables Report Results'); open (REPORT, "freeside-receivables-report -v $user |"); print '<PRE>'; while(<REPORT>) { print $_; } print '</PRE>'; print '</BODY></HTML>'; %>