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('Credit Card Recipt Report Results');
15 open (REPORT, "freeside-cc-receipts-report -v -s $beginning -f $ending $user |");
23 print '</BODY></HTML>';