| … | |
… | |
| 3 | sub new($$$$$) { |
3 | sub new($$$$$) { |
| 4 | my $class = shift; |
4 | my $class = shift; |
| 5 | my ($r, $courseEnvironment, $user, $key) = @_; |
5 | my ($r, $courseEnvironment, $user, $key) = @_; |
| 6 | |
6 | |
| 7 | my $self = { |
7 | my $self = { |
| 8 | request => $r, |
8 | r => $r, |
| 9 | courseEnvironment => $courseEnvironment, |
9 | courseEnvironment => $courseEnvironment, |
| 10 | user => $user, |
10 | user => $user, |
| 11 | key => $key, |
11 | key => $key, |
| 12 | }; |
12 | }; |
| 13 | bless $self, $class; |
13 | bless $self, $class; |
| 14 | return $self; |
14 | return $self; |
| 15 | } |
15 | } |
| 16 | |
16 | |
| 17 | sub go { |
17 | sub go { |
| 18 | my $self = shift; |
18 | my $self = shift; |
| 19 | $self{request}->content_type("text/html"); |
19 | $self->{r}->content_type("text/html"); |
| 20 | $self{request}->send_http_header; |
20 | $self->{r}->send_http_header; |
|
|
21 | |
|
|
22 | # get some stuff together |
|
|
23 | my $user = $self->{user}; |
|
|
24 | my $key = $self->{key}; |
|
|
25 | |
| 21 | print<<EOT; |
26 | print<<EOT; |
| 22 | <html> |
27 | <html> |
| 23 | <head><title>Welcome to Hell.</title></head> |
28 | <head><title>Welcome to Hell.</title></head> |
| 24 | <body> |
29 | <body> |
| 25 | <h1>There you go.</h1> |
30 | <h1>There you go.</h1> |
| 26 | <pre> |
31 | <pre> |
| 27 | user = $self{user} |
32 | user = $user |
| 28 | key = $self{key} |
33 | key = $key |
| 29 | </pre> |
34 | </pre> |
| 30 | </body> |
35 | </body> |
| 31 | </html> |
36 | </html> |
| 32 | EOT |
37 | EOT |
| 33 | } |
38 | } |
Parent Directory
| 
Revision Log
| 
Patch