| … | |
… | |
| 8 | =head1 NAME |
8 | =head1 NAME |
| 9 | |
9 | |
| 10 | WeBWorK - Dispatch requests to the appropriate ContentGenerator. |
10 | WeBWorK - Dispatch requests to the appropriate ContentGenerator. |
| 11 | |
11 | |
| 12 | =cut |
12 | =cut |
|
|
13 | |
|
|
14 | BEGIN { $main::VERSION = "2.0"; } |
| 13 | |
15 | |
| 14 | use strict; |
16 | use strict; |
| 15 | use warnings; |
17 | use warnings; |
| 16 | use Apache::Constants qw(:common REDIRECT DONE); |
18 | use Apache::Constants qw(:common REDIRECT DONE); |
| 17 | use Apache::Request; |
19 | use Apache::Request; |
| … | |
… | |
| 42 | use WeBWorK::ContentGenerator::ProblemSets; |
44 | use WeBWorK::ContentGenerator::ProblemSets; |
| 43 | use WeBWorK::ContentGenerator::Test; |
45 | use WeBWorK::ContentGenerator::Test; |
| 44 | use WeBWorK::CourseEnvironment; |
46 | use WeBWorK::CourseEnvironment; |
| 45 | use WeBWorK::DB; |
47 | use WeBWorK::DB; |
| 46 | use WeBWorK::Timing; |
48 | use WeBWorK::Timing; |
| 47 | |
|
|
| 48 | #sub dispatch($) { |
|
|
| 49 | # print STDERR "Executing &WeBWorK::dispatch\n"; |
|
|
| 50 | # return DECLINED; |
|
|
| 51 | #} |
|
|
| 52 | #1; |
|
|
| 53 | #__END__ |
|
|
| 54 | |
49 | |
| 55 | sub dispatch($) { |
50 | sub dispatch($) { |
| 56 | my ($apache) = @_; |
51 | my ($apache) = @_; |
| 57 | my $r = Apache::Request->new($apache); |
52 | my $r = Apache::Request->new($apache); |
| 58 | # have to deal with unpredictable GET or POST data, and sift |
53 | # have to deal with unpredictable GET or POST data, and sift |
Parent Directory
| 
Revision Log
| 
Patch