Help for this page

Select Code to Download


  1. or download this
      $attach1 = $ENV{REQUEST_URI};
  if($attach1 =~ /\\/){
...
    my $length = scalar(@filename_parts);
    $attach1 = $filename_parts[--$length];
  }
  2. or download this
      $paramstr = "\?".$ENV{QUERY_STRING};
  $attach1 =~ s/$paramstr/;