--- loncom/auth/lonlogout.pm 2000/10/05 15:31:42 1.2 +++ loncom/auth/lonlogout.pm 2001/12/29 21:09:47 1.5 @@ -1,9 +1,34 @@ # The LearningOnline Network # Logout Handler +# +# $Id: lonlogout.pm,v 1.5 2001/12/29 21:09:47 www Exp $ +# +# Copyright Michigan State University Board of Trustees +# +# This file is part of the LearningOnline Network with CAPA (LON-CAPA). +# +# LON-CAPA is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# LON-CAPA is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with LON-CAPA; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA +# +# /home/httpd/html/adm/gpl.txt +# +# http://www.lon-capa.org/ +# # (Cookie Based Access Handler # 5/21/99,5/22,5/29,5/31,6/15,16/11,22/11, # 01/06,01/13 Gerd Kortemeyer) -# 05/31 Gerd Kortemeyer +# 05/31,11/29,12/29 Gerd Kortemeyer package Apache::lonlogout; @@ -39,6 +64,8 @@ sub handler { $sessionhash{$envname}=$envvalue; } unlink("$lonidsdir/$handle.id"); + my %temp=('logout' => time); + &Apache::lonnet::put('email_status',\%temp); &Apache::lonnet::log($sessionhash{'user.domain'}, $sessionhash{'user.name'}, $sessionhash{'user.home'}, @@ -59,6 +86,7 @@ $windowinfo