Parent Directory
| 
Revision Log
*** 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 ($r, $courseEnvironment, $user, $key) = @_; 9 10 my $self = { 11 r => $r, 12 courseEnvironment => $courseEnvironment, 13 user => $user, 14 key => $key, 15 }; 16 bless $self, $class; 17 return $self; 18 } 19 20 sub go($) { 21 my $self = shift; 22 $self->{r}->content_type("text/html"); 23 $self->{r}->send_http_header; 24 25 # get some stuff together 26 my $user = $self->{user}; 27 my $key = $self->{key}; 28 29 print<<EOT; 30 <html> 31 <head><title>Welcome to Hell.</title></head> 32 <body> 33 <h1>There you go.</h1> 34 <pre> 35 user = $user 36 key = $key 37 </pre> 38 </body> 39 </html> 40 EOT 41 42 return OK; 43 } 44 45 1;
| aubreyja at gmail dot com | ViewVC Help |
| Powered by ViewVC 1.0.9 |