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 / MyTTHandler1.pm < prev    next >
Encoding:
Perl POD Document  |  2004-01-04  |  733 b   |  32 lines
  1. package Apache::MyTTHandler1;
  2. use strict;
  3. use Template;
  4. use Apache::Const -compile => ':common';
  5. sub handler {
  6.   my $r = shift;
  7.   my $config = {
  8.                 INCLUDE_PATH => 'D:/Apache2/tt2',
  9.         INTERPOLATE => 1,
  10.         POST_CHOMP => 1,
  11.         EVAL_PERL => 1,
  12.            };
  13.   my $template = Template->new($config) or do {
  14.     $r->warn(Template->error());
  15.     return Apache::SERVER_ERROR;
  16.   };
  17.   
  18.   my $vars;
  19.   foreach my $key (keys %ENV) {
  20.       push @$vars, {key => $key, value => $ENV{$key}};
  21.   }
  22.   my $var = { vars => $vars };
  23.   my $input = 'printenv.html';
  24.   $template->process($input, $var, $r) or do {
  25.     $r->log_reason($template->error());
  26.     return Apache::SERVER_ERROR;
  27.   };
  28.   return Apache::OK;
  29. }
  30.  
  31. 1;
  32.