5 my $user = $FS::UID::user; #dumb 1.4 8-char workaround
7 $cgi->param('beginning') =~ /^([ 0-9\-\/]{0,10})$/;
10 $cgi->param('ending') =~ /^([ 0-9\-\/]{0,10})$/;
13 print header('In House Credit Report Results');
15 open (REPORT, "freeside-credit-report -v -s $beginning -f $ending $user |");
23 print '</BODY></HTML>';