View of /trunk/webwork-modperl/lib/Apache/WeBWorK.pm

    1 # Apache::WeBWorK - The WeBWorK dispatcher module
    2 # Place something like the following in your Apache configuration to load the
    3 # WeBWorK module and install it as a handler for the WeBWorK system
    4 
    5 # PerlModule Apache::WeBWorK
    6 # <Location /webwork>
    7 # SetHandler perl-script
    8 # PerlHandler Apache::WeBWorK::dispatch
    9 # </Location>
   10 
   11 package Apache::WeBWorK;
   12 
   13 use strict;
   14 use Apache::Constants qw(:common REDIRECT);
   15 use Apache::Request;
   16 use WeBWorK::CourseEnvironment;
   17 use WeBWorK::Test;
   18 use WeBWorK::Authen;
   19 use WeBWorK::Login;
   20 
   21 # registering discontent: wanted to call this dispatch, but mod_perl gave me lip
   22 sub handler() {
   23   my $r = Apache::Request->new(shift); # have to deal with unpredictable GET or POST data ,and sift through it for the key.  So use Apache::Request
   24   my $path_info = $r->path_info;
   25   my $path_translated = $r->lookup_uri($path_info)->filename;
   26   my $current_uri = $r->uri;
   27   unless ($path_info) {
   28     $r->header_out(Location => "$current_uri/");
   29     return REDIRECT;
   30   }
   31 
   32   return OK if $r->header_only;
   33   my($junk, @components) = split "/", $path_info;
   34   my $webwork_root = $r->dir_config('webwork_root'); # From a PerlSetVar in httpd.conf
   35   my $course = shift @components;
   36   # catch errors in $@
   37   my $course_env = eval {WeBWorK::CourseEnvironment->new($webwork_root, $course);};
   38   if ($@) {
   39     # TODO: display an error page.  For now, print something mildly useful
   40     return DECLINED;
   41   }
   42 
   43   # WeBWorK::Authen::verify erases the passwd field and sets the key field
   44   # if login is successful.
   45   if (!WeBWorK::Authen->new($r, $course_env)->verify) {
   46     return WeBWorK::Login->new($r, $course_env)->go();
   47   } else {
   48     if (1) {
   49       return WeBWorK::Test->new($r, $course_env)->go();
   50     }
   51   }
   52 
   53   return DECLINED;
   54 }
   55 
   56 1;
   57 
   58 __END__
   59 
   60 # if (!auth) {
   61 #   loginpage
   62 # } else {
   63 #   dispatch
   64 # }
   65 
   66 
   67 
   68 load some global settings for the system
   69   - apparently, these are going to live in the package Global
   70   - this sucks, since it's not really the global namespace
   71   - but whatever.
   72 
   73 disassemble the URI to some extent
   74   - we need to know the course