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