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 r => $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->{r}->content_type("text/html"); 20 $self->{r}->send_http_header; 21 22 # get some stuff together 23 my $user = $self->{user}; 24 my $key = $self->{key}; 25 26 print<<EOT; 27 <html> 28 <head><title>Welcome to Hell.</title></head> 29 <body> 30 <h1>There you go.</h1> 31 <pre> 32 user = $user 33 key = $key 34 </pre> 35 </body> 36 </html> 37 EOT 38 } 39 40 1;
| aubreyja at gmail dot com | ViewVC Help |
| Powered by ViewVC 1.0.9 |