[system] / trunk / webwork-modperl / lib / WeBWorK / Test.pm Repository:
ViewVC logotype

View of /trunk/webwork-modperl/lib/WeBWorK/Test.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 289 - (download) (as text) (annotate)
Wed May 22 19:55:44 2002 UTC (17 years, 9 months ago) by sh002i
File size: 597 byte(s)
*** empty log message ***

    1 package WeBWorK::Test;
    2 
    3 use Apache::Request;
    4 use Apache::Constants qw(:common);
    5 
    6 sub new($$$) {
    7   my $class = shift;
    8   my $self = {};
    9   ($self->{r}, $self->{courseEnvironment}) = @_;
   10   bless $self, $class;
   11   return $self;
   12 }
   13 
   14 sub go($) {
   15   my $self = shift;
   16   $self->{r}->content_type("text/html");
   17   $self->{r}->send_http_header;
   18 
   19   # get some stuff together
   20   my $user = $self->{r}->param("user");
   21   my $key = $self->{r}->param("key");
   22 
   23 print<<EOT;
   24 <html>
   25 <head><title>Welcome to Hell.</title></head>
   26 <body>
   27 <h1>There you go.</h1>
   28 <pre>
   29 user = $user
   30 key = $key
   31 </pre>
   32 </body>
   33 </html>
   34 EOT
   35 
   36   return OK;
   37 }
   38 
   39 1;

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9