version 1.3, 2005/10/28 21:51:43
|
version 1.4, 2005/12/28 19:26:02
|
Line 60 sub handler {
|
Line 60 sub handler {
|
my ($r) = @_; |
my ($r) = @_; |
|
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['token']); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['token']); |
my %data = &Apache::lonnet::tmpget($env{'form.token'}); |
my %data = &Apache::lonnet::tmpget($env{'form.token'}); |
|
my $delete = &Apache::lonnet::tmpdel($env{'form.token'}); |
|
|
|
if ($delete ne 'ok') { |
|
return &goto_login($r); |
|
} |
|
|
if ($data{'ip'} ne $ENV{'REMOTE_ADDR'} || !defined($data{'username'}) || |
if ($data{'ip'} ne $ENV{'REMOTE_ADDR'} || !defined($data{'username'}) || |
!defined($data{'domain'}) ) { |
!defined($data{'domain'}) ) { |