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 $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 |