home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / asp / DemoASP.pm < prev    next >
Encoding:
Perl POD Document  |  2003-09-03  |  373 b   |  23 lines
  1.  
  2. package DemoASP;
  3. use File::Basename;
  4. use strict;
  5.  
  6. sub new {
  7.     my($request) = $main::Request;
  8.     my($env) = $request->ServerVariables();
  9.  
  10.     my $basename = &File::Basename::basename($0);
  11.     my($title) = "Demo ASP: ". $basename;
  12.     my($self) = bless {
  13.     bgcolor => 'white',
  14.     env => $env,
  15.     title => $title,
  16.     file => $basename
  17.     };
  18.  
  19.     $self;
  20. }
  21.  
  22. 1;
  23.