View of /trunk/webwork/system/cgi/cgi-scripts/logout.pl

    1 #!/usr/bin/perl
    2 
    3 ## $Id$
    4 
    5 require 5.001;
    6 use lib '/ww/webwork/development/'; # mainWeBWorKDirectory;
    7 use strict;
    8 use Global;
    9 use Auth;
   10 use CGI qw(:standard);
   11 
   12 &Global::getCourseEnvironment(param('course'));
   13 my $scriptDirectory = $Global::scriptDirectory;
   14 require "${scriptDirectory}$Global::HTMLglue_pl";
   15 my $keyFile = &Global::getCourseKeyFile(param('course'));
   16 
   17 # log access
   18   &Global::log_info('', query_string);
   19 
   20 
   21 # try to make sure you're who you claim to be
   22 &verify_key(param('user'), param('key'), "$keyFile", param('course'));
   23 
   24 # delete key
   25 &delete_key(param('user'), $keyFile);
   26 
   27 print &htmlTOP('WeBWorK Logout Form', '' , ''),
   28     hr,
   29     h1('User', param('user'), ' is logged out.'),
   30    "You may now exit your web browser or surf on to other sites.",
   31     end_html;
   32 
   33