Diff for /loncom/lond between versions 1.572 and 1.573

version 1.572, 2022/02/01 23:13:21 version 1.573, 2022/02/16 00:06:08
Line 5142  sub get_domain_handler { Line 5142  sub get_domain_handler {
     my $userinput = "$cmd:$tail";      my $userinput = "$cmd:$tail";
   
     my ($udom,$namespace,$what)=split(/:/,$tail,3);      my ($udom,$namespace,$what)=split(/:/,$tail,3);
     if ($namespace =~ /^enc/) {      if (($namespace =~ /^enc/) || ($namespace eq 'private')) {
         &Failure( $client, "refused\n", $userinput);          &Failure( $client, "refused\n", $userinput);
     } else {      } else {
         my $res = LONCAPA::Lond::get_dom($userinput);          my $res = LONCAPA::Lond::get_dom($userinput);
Line 5181  sub encrypted_get_domain_handler { Line 5181  sub encrypted_get_domain_handler {
   
     my $userinput = "$cmd:$tail";      my $userinput = "$cmd:$tail";
   
     my $res = LONCAPA::Lond::get_dom($userinput);      my ($udom,$namespace,$what) = split(/:/,$tail,3);
     if ($res =~ /^error:/) {      if ($namespace eq 'private') {
         &Failure($client, \$res, $userinput);          &Failure( $client, "refused\n", $userinput);
     } else {      } else {
         if ($cipher) {          my $res = LONCAPA::Lond::get_dom($userinput);
             my $cmdlength=length($res);          if ($res =~ /^error:/) {
             $res.="         ";              &Failure($client, \$res, $userinput);
             my $encres='';  
             for (my $encidx=0;$encidx<=$cmdlength;$encidx+=8) {  
                 $encres.= unpack("H16",  
                                  $cipher->encrypt(substr($res,  
                                                          $encidx,  
                                                          8)));  
             }  
             &Reply( $client,"enc:$cmdlength:$encres\n",$userinput);  
         } else {          } else {
             &Failure( $client, "error:no_key\n",$userinput);              if ($cipher) {
                   my $cmdlength=length($res);
                   $res.="         ";
                   my $encres='';
                   for (my $encidx=0;$encidx<=$cmdlength;$encidx+=8) {
                       $encres.= unpack("H16",
                                        $cipher->encrypt(substr($res,
                                                                $encidx,
                                                                8)));
                   }
                   &Reply( $client,"enc:$cmdlength:$encres\n",$userinput);
               } else {
                   &Failure( $client, "error:no_key\n",$userinput);
               }
         }          }
     }      }
     return 1;      return 1;

Removed from v.1.572  
changed lines
  Added in v.1.573


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