--- loncom/auth/lonauth.pm 2000/02/29 16:24:00 1.5
+++ loncom/auth/lonauth.pm 2007/07/25 22:35:47 1.88
@@ -1,140 +1,326 @@
# The LearningOnline Network
# User Authentication Module
-# 5/21/99,5/22,5/25,5/26,5/27,5/29,6/2,6/11,6/14,6/15
-# 16/11,12/16,
-# 1/14,2/24,2/28,2/29 Gerd Kortemeyer
+#
+# $Id: lonauth.pm,v 1.88 2007/07/25 22:35:47 albertel 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/
+#
package Apache::lonauth;
+use strict;
+use LONCAPA;
use Apache::Constants qw(:common);
-use Apache::File;
use CGI qw(:standard);
use CGI::Cookie();
-use Apache::lonnet();
-
+use DynaLoader; # for Crypt::DES version
+use Crypt::DES;
+use Apache::loncommon();
+use Apache::lonnet;
+use Apache::lonmenu();
+use Fcntl qw(:flock);
+use Apache::lonlocal;
+
# ------------------------------------------------------------ Successful login
-
sub success {
- my ($r, $username, $domain, $authhost) = @_;
- my $lonids=$r->dir_config('lonIDsDir');
+ my ($r, $username, $domain, $authhost, $lowerurl, $extra_env,
+ $form) = @_;
-# See if old ID present, if so, remove
- my $cookie;
- while ($cookie=<$lonids/$username\_*\_$domain\_$authhost.id>) {
- unlink($cookie);
- }
+# ------------------------------------------------------------ Get cookie ready
+ my $cookie =
+ &Apache::loncommon::init_user_environment($r, $username, $domain,
+ $authhost, $form,
+ {'extra_env' => $extra_env,});
-# Give them a new cookie
+ my $public=($username eq 'public' && $domain eq 'public');
- my $now=time;
- $cookie="$username\_$now\_$domain\_$authhost";
+ if ($public or $lowerurl eq 'noredirect') { return $cookie; }
-# Initialize roles
+# -------------------------------------------------------------------- Log this
- my $userroles=Apache::lonnet::rolesinit($domain,$username,$authhost);
+ &Apache::lonnet::log($domain,$username,$authhost,
+ "Login $ENV{'REMOTE_ADDR'}");
-# Write first profile
+# ------------------------------------------------- Check for critical messages
- {
- my $idf=Apache::File->new(">$lonids/$cookie.id");
- print $idf "user.name=$username\n";
- print $idf "user.domain=$domain\n";
- print $idf "user.home=$authhost\n";
- if ($userroles ne '') { print $idf "$userroles" };
+ my @what=&Apache::lonnet::dump('critical',$domain,$username);
+ if ($what[0]) {
+ if (($what[0] ne 'con_lost') && ($what[0]!~/^error\:/)) {
+ $lowerurl='/adm/email?critical=display';
}
+ }
# ------------------------------------------------------------ Get cookie ready
-
$cookie="lonID=$cookie; path=/";
-
+# -------------------------------------------------------- Menu script and info
+ my $windowinfo=&Apache::lonmenu::open($env{'browser.os'});
+ my $startupremote=&Apache::lonmenu::startupremote($lowerurl);
+ my $remoteinfo=&Apache::lonmenu::load_remote_msg($lowerurl);
+ my $setflags=&Apache::lonmenu::setflags();
+ my $maincall=&Apache::lonmenu::maincall();
+ my $start_page=&Apache::loncommon::start_page('Successful Login',
+ $startupremote,
+ {'no_inline_link' => 1,});
+ my $end_page =&Apache::loncommon::end_page();
+
+ my $continuelink;
+ if (($env{'browser.interface'} eq 'textual') ||
+ ($env{'environment.remote'} eq 'off')) {
+ $continuelink="".&mt('Continue')."";
+ }
# ------------------------------------------------- Output for successful login
- $r->send_cgi_header(<header_out('Set-cookie' => $cookie);
+ $r->send_http_header;
+
+ my %lt=&Apache::lonlocal::texthash(
+ 'wel' => 'Welcome',
+ 'mes' => 'Welcome to the LearningOnline Network with CAPA. Please wait while your session is being set up',
+ 'pro' => 'Problems',
+ 'log' => 'loginproblems.html',
+ );
$r->print(<
-
-Successful Login to the LearningOnline Network with CAPA
-
-
-