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

[www]

www		Tue Feb 12 18:08:27 2002 EDT

  Modified files:              
    /loncom	lond 
  Log:
  Hopefully avoid null byte problem
  
  
Index: loncom/lond
diff -u loncom/lond:1.70 loncom/lond:1.71
--- loncom/lond:1.70	Thu Feb  7 05:22:44 2002
+++ loncom/lond	Tue Feb 12 18:08:27 2002
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # lond "LON Daemon" Server (port "LOND" 5663)
 #
-# $Id: lond,v 1.70 2002/02/07 10:22:44 harris41 Exp $
+# $Id: lond,v 1.71 2002/02/12 23:08:27 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -48,6 +48,9 @@
 # 12/22 Gerd Kortemeyer
 # YEAR=2002
 # 01/20/02,02/05 Gerd Kortemeyer
+# 02/05 Guy Albertelli
+# 02/07 Scott Harrison
+# 02/12 Gerd Kortemeyer
 ###
 
 # based on "Perl Cookbook" ISBN 1-56592-243-3
@@ -637,10 +640,13 @@
 				  $pwdcorrect=!$?;
 			      }
                           } elsif ($howpwd eq 'krb4') {
+                             $null=pack("C",0);
+			     unless ($upass=~/$null/) {
                               $pwdcorrect=(
                                  Authen::Krb4::get_pw_in_tkt($uname,"",
                                         $contentpwd,'krbtgt',$contentpwd,1,
 							     $upass) == 0);
+			     } else { $pwdcorrect=0; }
                           } elsif ($howpwd eq 'localauth') {
 			    $pwdcorrect=&localauth::localauth($uname,$upass,
 							      $contentpwd);