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 / MyHandler.pm < prev    next >
Encoding:
Perl POD Document  |  2003-11-16  |  325 b   |  20 lines
  1. package Apache::MyHandler;
  2.  
  3. use strict;
  4. use HTML::Mason::ApacheHandler;
  5.  
  6. my $ah =
  7.     HTML::Mason::ApacheHandler->new
  8.           ( comp_root => 'D:/Apache2/mason',
  9.             data_dir  => 'D:/Temp',
  10.         args_method => 'CGI',
  11.       );
  12.  
  13. sub handler {
  14.   my ($r) = @_;
  15.   
  16.   return $ah->handle_request($r);
  17. }
  18.  
  19. 1;
  20.