Diff for /loncom/lond between versions 1.78 and 1.79

version 1.78, 2002/05/03 03:21:25 version 1.79, 2002/05/08 02:31:04
Line 549  sub make_new_child { Line 549  sub make_new_child {
 # ------------------------------------------------------------ Process requests  # ------------------------------------------------------------ Process requests
               while (my $userinput=<$client>) {                while (my $userinput=<$client>) {
                 chomp($userinput);                  chomp($userinput);
    Debug("Request = $userinput\n");
                 &status('Processing '.$hostid{$clientip}.': '.$userinput);                  &status('Processing '.$hostid{$clientip}.': '.$userinput);
                 my $wasenc=0;                  my $wasenc=0;
                 alarm(120);                  alarm(120);
Line 604  sub make_new_child { Line 605  sub make_new_child {
    } elsif ($userinput =~ /^currentauth/) {     } elsif ($userinput =~ /^currentauth/) {
      if ($wasenc==1) {       if ($wasenc==1) {
                        my ($cmd,$udom,$uname)=split(/:/,$userinput);                         my ($cmd,$udom,$uname)=split(/:/,$userinput);
        my $result = GetAuthType($udom, $user);         my $result = GetAuthType($udom, $uname);
        if($result eq "nouser") {         if($result eq "nouser") {
    print $client "unknown_user\n";     print $client "unknown_user\n";
        }         }
Line 1500  sub GetAuthType Line 1501  sub GetAuthType
     my $domain = shift;      my $domain = shift;
     my $user   = shift;      my $user   = shift;
   
       Debug("GetAuthType( $domain, $user ) \n");
     my $proname    = &propath($domain, $user);       my $proname    = &propath($domain, $user); 
     my $passwdfile = "$proname/passwd";      my $passwdfile = "$proname/passwd";
     if( -e $passwdfile ) {      if( -e $passwdfile ) {
  my $pf = IO::File->new($passwdfile);   my $pf = IO::File->new($passwdfile);
  my $realpassword = <$pf>;   my $realpassword = <$pf>;
  chomp($realpassword);   chomp($realpassword);
    Debug("Password info = $realpassword\n");
  my ($authtype, $contentpwd) = split(/:/, $realpassword);   my ($authtype, $contentpwd) = split(/:/, $realpassword);
    Debug("Authtype = $authtype, content = $contentpwd\n");
  my $availinfo = '';   my $availinfo = '';
  if($authtype eq 'krb4') {   if($authtype eq 'krb4') {
     $availinfo = $contentpwd;      $availinfo = $contentpwd;
  }   }
   
  return "$authtype:$availinfo";   return "$authtype:$availinfo";
     }      }
     else {      else {
    Debug("Returning nouser");
  return "nouser";   return "nouser";
     }      }
           

Removed from v.1.78  
changed lines
  Added in v.1.79


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>