loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.9, 2000/01/14 21:12:40	version 1.10, 2000/01/21 19:08:12
Line 199 sub authenticate {	Line 199 sub authenticate {
my $tryserver;	my $tryserver;
foreach $tryserver (keys %libserv) {	foreach $tryserver (keys %libserv) {
if ($hostdom{$tryserver} eq $udom) {	if ($hostdom{$tryserver} eq $udom) {
my $answer=reply("enc:auth:$udom:$uname:$upass",$tryserver);	my $answer=reply("encrypt:auth:$udom:$uname:$upass",$tryserver);
if ($answer =~ /authorized/) {	if ($answer =~ /authorized/) {
if ($answer eq 'authorized') {	if ($answer eq 'authorized') {
&logthis("User $uname at $udom authorized by $tryserver");	&logthis("User $uname at $udom authorized by $tryserver");