Annotation of loncom/auth/lonauth.pm, revision 1.1
1.1 ! albertel 1: # The LearningOnline Network
! 2: # User Authentication Module
! 3: # 5/21/99,5/22,5/25,5/26,5/27,5/29,6/2,6/11,6/14,6/15 Gerd Kortemeyer
! 4:
! 5: package Apache::lonauth;
! 6:
! 7: use Apache::Constants qw(:common);
! 8: use Apache::File;
! 9: use CGI qw(:standard);
! 10: use CGI::Cookie();
! 11: use Apache::lonnet();
! 12:
! 13: # ------------------------------------------------------------ Successful login
! 14:
! 15: sub success {
! 16: my ($r, $lowerurl, $username, $domain, $authhost) = @_;
! 17: my $lonids=$r->dir_config('lonIDsDir');
! 18: # See if old ID present, but overlooked
! 19: my $cookie;
! 20: if ($cookie=<$lonids/$username\_*\_$domain\_$authhost.id>) {
! 21: $cookie=~s/\.id//;
! 22: $cookie=~s/$lonids\///;
! 23: } else {
! 24: my $now=time;
! 25: $cookie="$username\_$now\_$domain\_$authhost";
! 26: {
! 27: my $idf=Apache::File->new(">$lonids/$cookie.id");
! 28: print $idf "Name: $username\n";
! 29: }
! 30: }
! 31: $cookie="lonID=$cookie; path=/";
! 32: $r->send_cgi_header(<<ENDHEADER);
! 33: Content-type: text/html
! 34: Set-cookie: $cookie
! 35:
! 36: ENDHEADER
! 37: $r->print(<<ENDSUCCESS);
! 38: <html>
! 39: <head>
! 40: <title>Successful Login to the LearningOnline Network</title>
! 41: </head>
! 42: <frameset rows="80,*" border=0>
! 43: <frame scrolling="no" name="loncontrol" src="/adm/menu">
! 44: <frame name="loncontent" src="$lowerurl">
! 45: </frameset>
! 46: </html>
! 47: ENDSUCCESS
! 48: }
! 49:
! 50: # --------------------------------------------------------------- Failed login!
! 51:
! 52: sub failed {
! 53: my ($r,$message) = @_;
! 54: $r->send_cgi_header(<<ENDFHEADER);
! 55: Content-type: text/html
! 56:
! 57: ENDFHEADER
! 58: $r->print(<<ENDFAILED);
! 59: <html>
! 60: <head>
! 61: <title>Unsuccessful Login to the LearningOnline Network</title>
! 62: </head>
! 63: <html>
! 64: <body bgcolor="#FFFFFF">
! 65: <h1>Sorry ...</h1>
! 66: <h2>$message to use the Learning<i>Online</i> Network</h2>
! 67: </body>
! 68: </html>
! 69: ENDFAILED
! 70: }
! 71:
! 72: # ---------------------------------------------------------------- Main handler
! 73:
! 74: sub handler {
! 75: my $r = shift;
! 76:
! 77: my $buffer;
! 78: $r->read($buffer,$r->header_in('Content-length'));
! 79: my @pairs=split(/&/,$buffer);
! 80: my $pair; my $name; my $value; my %FORM;
! 81: foreach $pair (@pairs) {
! 82: ($name,$value) = split(/=/,$pair);
! 83: $FORM{$name}=$value;
! 84: }
! 85:
! 86: if ((!$FORM{'uname'}) || (!$FORM{'upass'}) || (!$FORM{'udom'})) {
! 87: failed($r,'Username, password and domain need to be specified');
! 88: return OK;
! 89: }
! 90: $FORM{'uname'} =~ s/\W//g;
! 91: $FORM{'upass'} =~ s/\W//g;
! 92: $FORM{'udom'} =~ s/\W//g;
! 93:
! 94: my $role = $r->dir_config('lonRole');
! 95: my $domain = $r->dir_config('lonDefDomain');
! 96: my $prodir = $r->dir_config('lonUsersDir');
! 97:
! 98: # ---------------------------------------------------------------- Authenticate
! 99: my $authhost=Apache::lonnet::authenticate($FORM{'uname'},
! 100: $FORM{'upass'},
! 101: $FORM{'udom'});
! 102:
! 103: # --------------------------------------------------------------------- Failed?
! 104:
! 105: if ($authhost eq 'no_host') {
! 106: failed($r,'Username and/or password could not be authenticated');
! 107: return OK;
! 108: }
! 109:
! 110: my %cookies=CGI::Cookie->parse($r->header_in('Cookie'));
! 111: my $lonurl=$cookies{'lonURL'};
! 112: if (!$lonurl) { failed($r,'Cookies need to be activated'); return OK; }
! 113: my $lowerurl=$lonurl->value;
! 114:
! 115: success($r,$lowerurl,$FORM{'uname'},$FORM{'udom'},$authhost);
! 116: return OK;
! 117: }
! 118:
! 119: 1;
! 120: __END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to lonauth.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth