--- loncom/lond 2002/08/22 20:00:00 1.91 +++ loncom/lond 2002/08/22 21:37:35 1.92 @@ -2,7 +2,7 @@ # The LearningOnline Network # lond "LON Daemon" Server (port "LOND" 5663) # -# $Id: lond,v 1.91 2002/08/22 20:00:00 albertel Exp $ +# $Id: lond,v 1.92 2002/08/22 21:37:35 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -660,7 +660,6 @@ sub make_new_child { $null=pack("C",0); unless ($upass=~/$null/) { my $krbclient=&Authen::Krb5::parse_name($uname.'@'.$contentpwd); - &logthis("Realm ".$krbclient->realm); my $krbservice="krbtgt/".$contentpwd."\@".$contentpwd; my $krbserver=&Authen::Krb5::parse_name($krbservice); my $credentials=&Authen::Krb5::cc_default(); @@ -668,10 +667,10 @@ sub make_new_child { my $krbreturn = &Authen::Krb5::get_in_tkt_with_password( $krbclient,$krbserver,$upass,$credentials); - unless ($krbreturn) { - &logthis("Krb5 Error: ". - &Authen::Krb5::error()); - } +# unless ($krbreturn) { +# &logthis("Krb5 Error: ". +# &Authen::Krb5::error()); +# } $pwdcorrect = ($krbreturn == 1); } else { $pwdcorrect=0; } } elsif ($howpwd eq 'localauth') {