httemplate/elements/handle_uri_query


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

<%doc>

Usage (before accessing any $cgi parameters):

$m->comp('/elements/handle_uri_query');

</%doc>
<%init>

#my %opt = @_;

if ( $cgi->param('redirect') ) {
  my $session = $cgi->param('redirect');
  my $maxrecords = $cgi->param('maxrecords');

  my $pref = $FS::CurrentUser::CurrentUser->option("redirect$session");
  die "unknown redirect session $session\n" unless length($pref);
  $cgi = new CGI($pref);

  foreach my $param (grep /pay(info\d?|cvv)$/, $cgi->param) {
    my $value = $cgi->param($param);
    next unless length($value);
    my $decrypted = FS::Record->decrypt( $value );
    $cgi->param($param, $decrypted);
  }

  $cgi->param('maxrecords', $maxrecords) if $maxrecords =~ /^(\d+)$/;

}
</%init>