PC Professionell 2004 December/PCpro_2004_12.ISO/files/webserver/xampp/xampp-perl-addon-1.4.9-installer.exe/MyURL.al

Text File | 2002-11-07 | 445 b | 15 lines

# NOTE: Derived from blib\lib\Win32\ASP\Extras.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package Win32::ASP::Extras;

#line 228 "blib\lib\Win32\ASP\Extras.pm (autosplit into blib\lib\auto\Win32\ASP\Extras\MyURL.al)"
sub MyURL {
  my $url = $main::Request->ServerVariables('URL')->item;
  $url = FormatURL($url, QueryStringList());
  return $url;
}

# end of Win32::ASP::Extras::MyURL
1;