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 / MailErrors.inc < prev    next >
Encoding:
Text File  |  2002-04-22  |  958 b   |  33 lines
  1.  
  2. <%;
  3. my %args = @_;
  4.  
  5. my $Form = $Request->Form;
  6. my $Query = $Request->QueryString;
  7. my $Env = $Request->ServerVariables;
  8.  
  9. my $http_out = join("<br>\n  ", 
  10.             map { "$_= ".$Server->HTMLEncode(substr($Env->{$_}, 0, 100)) } 
  11.             sort grep(/^HTTP_/, keys %$Env)
  12.             );
  13. my $query_out = join("<br>\n  ", 
  14.              map { "$_= ".$Server->HTMLEncode(substr($Query->{$_}, 0, 100)) } 
  15.              sort keys %$Query
  16.              );
  17. my $form_out = join("<br>\n  ", 
  18.             map { "$_= ".$Server->HTMLEncode(substr($Form->{$_}, 0, 100)) } 
  19.             sort keys %$Form 
  20.             );                   
  21.  
  22. my %client_data = ( GLOBAL => $Server->Config('Global') || '.',
  23.             FILE => $Server->File,
  24.             REMOTE_ADDR => $Env->{REMOTE_ADDR},
  25.             REMOTE_USER => $Env->{REMOTE_USER},
  26.             HTTP_HEADERS => $http_out || '',
  27.             QUERY => $query_out || '',
  28.             FORM => $form_out || '',
  29.             );
  30.  
  31. $Response->Include('Share::CORE/MailErrorsHTML.inc', %args, %client_data);
  32. %>
  33.