--- loncom/lond	1999/10/26 20:24:47	1.2
+++ loncom/lond	1999/11/04 20:12:47	1.3
@@ -17,6 +17,8 @@ use Symbol;
 use POSIX;
 use Crypt::IDEA;
 use LWP::UserAgent();
+use GDBM_File;
+use Authen::Krb4;
 
 # ------------------------------------ Read httpd access.conf and get variables
 
@@ -355,6 +357,11 @@ sub make_new_child {
                               $contentpwd=(getpwnam($uname))[1];
                               $pwdcorrect=
                                   (crypt($upass,$contentpwd) eq $contentpwd);
+                          } elsif ($howpwd eq 'krb4') {
+                              $pwdcorrect=(
+                                 Authen::Krb4::get_pw_in_tkt($uname,"",
+                                        $contentpwd,'krbtgt',$contentpwd,1,
+							     $upass) == 0);
                           }
                           if ($pwdcorrect) {
                              print $client "authorized\n";