home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / perl / MyTTHandler.pm < prev    next >
Encoding:
Perl POD Document  |  2004-01-04  |  323 b   |  17 lines
  1. package Apache::MyTTHandler;
  2. use strict;
  3. use base qw(Template::Service::Apache);
  4.  
  5. sub params {
  6.     my $self = shift;
  7.     my $params = $self->SUPER::params(@_);
  8.     my %env;
  9.     foreach my $key(keys %ENV) {
  10.         $env{$key} = $ENV{$key};
  11.     }
  12.     $params->{environment} = \%env;
  13.     return $params;
  14. }
  15.  
  16. 1;
  17.