[system] / trunk / webwork / system / cgi / cgi-scripts / logout.pl Repository:
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2 - (download) (as text) (annotate)
Thu Jun 14 17:08:51 2001 UTC (18 years, 8 months ago) by sam
File size: 789 byte(s)
initial import

    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 

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9