home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / xampp / xampp-perl-addon-1.4.9-installer.exe / _FormatURL.al < prev    next >
Encoding:
Text File  |  2002-11-07  |  696 b   |  26 lines
  1. # NOTE: Derived from blib\lib\Win32\ASP\Extras.pm.
  2. # Changes made here will be lost when autosplit is run again.
  3. # See AutoSplit.pm.
  4. package Win32::ASP::Extras;
  5.  
  6. #line 163 "blib\lib\Win32\ASP\Extras.pm (autosplit into blib\lib\auto\Win32\ASP\Extras\_FormatURL.al)"
  7. sub _FormatURL {
  8.   my ($url, @params) = @_;
  9.  
  10.   ($url !~ /^[\/\.]/ && $main::WEBROOT) and $url = "$main::WEBROOT/$url";
  11.   $url =~ s/^\.\///;
  12.  
  13.   if (@params) {
  14.     my(@pairs);
  15.     foreach my $i (0..scalar($#params)/2) {
  16.       push(@pairs, $params[$i*2].'='.$main::Server->URLEncode($params[$i*2+1]));
  17.     }
  18.     $url .= '?'.join('&', @pairs);
  19.   }
  20.  
  21.   return $url;
  22. }
  23.  
  24. # end of Win32::ASP::Extras::_FormatURL
  25. 1;
  26.