--- loncom/auth/migrateuser.pm 2005/10/28 21:51:43 1.3 +++ loncom/auth/migrateuser.pm 2006/04/05 22:39:55 1.5 @@ -1,7 +1,7 @@ # The LearningOnline Network # Starts a user off based of an existing token. # -# $Id: migrateuser.pm,v 1.3 2005/10/28 21:51:43 albertel Exp $ +# $Id: migrateuser.pm,v 1.5 2006/04/05 22:39:55 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -37,21 +37,12 @@ sub goto_login { my ($r) = @_; &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; - $r->print(< - - - Going to login - - -

One moment please...

-

- Transferring to login page. - Continue -

- - -TOLOGIN + $r->print(&Apache::loncommon::start_page('Going to login',undef, + {'redirect' => + [0,'/adm/login'],}). + '

'.&mt('One moment please...').'

'. + '

'.&mt('Transferring to login page.').'

'. + &Apache::loncommon::end_page()); return OK; } @@ -60,7 +51,12 @@ sub handler { my ($r) = @_; &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'}) || !defined($data{'domain'}) ) {