5 if ( $cgi->param('redirect') ) {
6 my $session = $cgi->param('redirect');
8 my $pref = $FS::CurrentUser::CurrentUser->option("redirect$session");
9 die "unknown redirect session $session\n" unless length($pref);
10 $cgi = new CGI($pref);
12 foreach my $param (grep /pay(info\d?|cvv)$/, $cgi->param) {
13 my $value = $cgi->param($param);
14 next unless length($value);
15 my $decrypted = FS::Record->decrypt( $value );
16 $cgi->param($param, $decrypted);