Parent Directory
| 
Revision Log
*** empty log message ***
1 package WeBWorK::Test; 2 3 sub new($$$$$) { 4 my $class = shift; 5 my ($r, $courseEnvironment, $user, $key) = @_; 6 7 my $self = { 8 request => $r, 9 courseEnvironment => $courseEnvironment, 10 user => $user, 11 key => $key, 12 }; 13 bless $self, $class; 14 return $self; 15 } 16 17 sub go { 18 my $self = shift; 19 $self{request}->content_type("text/html"); 20 $self{request}->send_http_header; 21 print<<EOT; 22 <html> 23 <head><title>Welcome to Hell.</title></head> 24 <body> 25 <h1>There you go.</h1> 26 <pre> 27 user = $self{user} 28 key = $self{key} 29 </pre> 30 </body> 31 </html> 32 EOT 33 } 34 35 1;
| aubreyja at gmail dot com | ViewVC Help |
| Powered by ViewVC 1.0.9 |