1 files changed, 35 insertions, 0 deletions
diff --git a/httemplate/search/report_credit.cgi b/httemplate/search/report_credit.cgi
new file mode 100755
index 0000000..f4430c1
--- /dev/null
+++ b/httemplate/search/report_credit.cgi
@@ -0,0 +1,35 @@
+<%
+
+use strict;
+use vars qw( $cgi $user $beginning $ending );
+use CGI;
+use CGI::Carp qw( fatalsToBrowser );
+use FS::UID qw( cgisuidsetup getotaker );
+use FS::CGI qw( header );
+
+$cgi = new CGI;
+&cgisuidsetup($cgi);
+
+$user = getotaker;
+
+$cgi->param('beginning') =~ /^([ 0-9\-\/]{0,10})$/;
+$beginning = $1;
+
+$cgi->param('ending') =~ /^([ 0-9\-\/]{0,10})$/;
+$ending = $1;
+
+print $cgi->header( '-expires' => '-2m' ),
+  header('In House Credit Report Results');
+
+open (REPORT, "/usr/bin/freeside-credit-report -v -s $beginning -d $ending $user |");
+
+print '<PRE>';
+while(<REPORT>) {
+  print $_;
+}
+print '</PRE>';
+
+print '</BODY></HTML>';
+
+%>
+