cvs commit: modperl-2.0/examples/lib/Apache HelloWorld.pm

[dougm]

dougm       01/03/26 08:21:37

  Modified:    .        00README_FIRST
  Added:       examples/lib/Apache HelloWorld.pm
  Log:
  add a hello world example
  
  Revision  Changes    Path
  1.14      +2 -0      modperl-2.0/00README_FIRST
  
  Index: 00README_FIRST
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/00README_FIRST,v
  retrieving revision 1.13
  retrieving revision 1.14
  diff -u -r1.13 -r1.14
  --- 00README_FIRST    2001/03/26 16:17:00     1.13
  +++ 00README_FIRST    2001/03/26 16:21:35     1.14
  @@ -53,4 +53,6 @@
   much is the same as 1.x, but plenty is different at the moment.
   there will be a compat layer in the future.
   
  +see the examples/ directory for examples.
  +
   --dougm 03/26/01
  
  
  
  1.1                  modperl-2.0/examples/lib/Apache/HelloWorld.pm
  
  Index: HelloWorld.pm
  ===================================================================
  package Apache::HelloWorld;
  
  #<Location /hello-world>
  #  SetHandler modperl
  #  PerlResponseHandler Apache::HelloWorld
  #</Location>
  
  sub handler {
      my $r = shift;
  
      $r->content_type('text/plain');
  
      #send_http_header API function does not exist in 2.0
  
      $r->puts(__PACKAGE__); #print not yet implemented
  
      0; #constants not yet implemented
  }
  
  1;