Help for this page

Select Code to Download

Select or download this

if ( $ENV{'REQUEST_URI'} =~ m|\A/shop(/.*)$| ) {
  my $url  = $1;
     $url .= '/' if $url !~ m|/$|;
...
  $sth = $dbh->prepapre("...");
  # ...
}