[LON-CAPA-cvs] cvs: loncom / lond

[albertel]

albertel		Thu Aug 22 17:37:35 2002 EDT

  Modified files:              
    /loncom	lond 
  Log:
  -removing some debug info
  
  
Index: loncom/lond
diff -u loncom/lond:1.91 loncom/lond:1.92
--- loncom/lond:1.91	Thu Aug 22 16:00:00 2002
+++ loncom/lond	Thu Aug 22 17:37:35 2002
@@ -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 @@
 			      $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 @@
 				  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') {