#!/opt/bin/perl
use CGI qw (:standard);
my $msg = "";
my $tserve_tip_read = param ('tserve_tip_read');
my $tserve_tip_write = param ('tserve_tip_write');
my $tserve_tip_write_key = param ('tserve_tip_write_key');
my $tserve_host_code = param ('tserve_host_code');
my $PARM2 = param ('PARM2');
my $PARM3 = param ('PARM3');
my $PARM4 = param ('PARM4');
my $PARM5 = param ('PARM5');
my $ORDERNUM = param ('ORDERNUM');
my $PMTAMT = param ('PMTAMT');
my $AUTHNUM = param ('AUTHNUM');
my $REFNUM = param ('REFNUM');
my $AMOUNT = param ('AMOUNT');
if ((! $AMOUNT || $AMOUNT eq "\$") ||
(! $REFNUM || $REFNUM eq "none") ||
(! $AUTHNUM || $AUTHNUM eq "none")) {
$msg .= "\nThe Verification did not appear to be successful. Please wait 5 minutes and retry.
If this is a second straight unsuccessful verification, contact the support person on-call.";
} else {
$msg .= "\nVerification is Successful!
";
}
$msg .= "The values passed to the form were:
ORDERNUM: $ORDERNUM
PMTAMT: $PMTAMT
AUTHNUM: $AUTHNUM
REFNUM: $REFNUM
AMOUNT: $AMOUNT
";
print header;
print "\n\n\n";
print "\n\n$msg";
print "\n\n\n";