add some reporting features

1 files changed, 26 insertions, 0 deletions

diff --git a/httemplate/search/report_receivables.cgi b/httemplate/search/report_receivables.cgi
new file mode 100755
index 000000000..7113ad5a7
--- /dev/null
+++ b/httemplate/search/report_receivables.cgi
@@ -0,0 +1,26 @@
+<%
+
+use strict;
+use vars qw( $cgi );
+use CGI;
+use CGI::Carp qw(fatalsToBrowser);
+use FS::UID qw(cgisuidsetup);
+
+$cgi = new CGI;
+&cgisuidsetup($cgi);
+
+print $cgi->header( '-expires' => '-2m' ),
+      header('Current Receivables Report Results');
+
+open (REPORT, "/usr/bin/freeside-receivables-report -v freeside |");
+
+print '<PRE>';
+while(<REPORT>) {
+  print $_;
+}
+print '</PRE>';
+
+print '</BODY></HTML>';
+
+%>
+