httemplate/elements/handle_uri_query

   1 <%init>
   2
   3 my %opt = @_;
   4
   5 if ( $cgi->param('redirect') ) {
   6   my $session = $cgi->param('redirect');
   7
   8   my $pref = $FS::CurrentUser::CurrentUser->option("redirect$session");
   9   die "unknown redirect session $session\n" unless length($pref);
  10   $cgi = new CGI($pref);
  11
  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);
  17   }
  18
  19 }
  20 </%init>