[BACK]Return to lonnet.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / lonnet / perl

Diff for /loncom/lonnet/perl/lonnet.pm between versions 1.992 and 1.993

version 1.992, 2009/03/21 21:43:46 version 1.993, 2009/04/11 14:47:51
Line 196  sub get_server_timezone { Line 196  sub get_server_timezone {
     }      }
 }  }
   
   sub get_server_loncaparev {
       my ($dom,$lonhost) = @_;
       if (defined($lonhost)) {
           if (!defined(&hostname($lonhost))) {
               undef($lonhost);
           }
       }
       if (!defined($lonhost)) {
           if (defined(&domain($dom,'primary'))) {
               $lonhost=&domain($dom,'primary');
               if ($lonhost eq 'no_host') {
                   undef($lonhost);
               }
           }
       }
       if (defined($lonhost)) {
           my $cachetime = 24*3600;
           my ($loncaparev,$cached)=&is_cached_new('serverloncaparev',$lonhost);
           if (defined($cached)) {
               return $loncaparev;
           } else {
               my $loncaparev = &reply('serverloncaparev',$lonhost);
               return &do_cache_new('serverloncaparev',$lonhost,$loncaparev,$cachetime);
           }
       }
   }
   
 # -------------------------------------------------- Non-critical communication  # -------------------------------------------------- Non-critical communication
 sub subreply {  sub subreply {
     my ($cmd,$server)=@_;      my ($cmd,$server)=@_;
Line 9055  sub get_dns { Line 9082  sub get_dns {
         my @hosts;          my @hosts;
         my $ip;          my $ip;
   
         if (defined($name_to_ip{$dns})) {          if (exists($name_to_ip{$dns})) {
             $ip = $name_to_ip{$dns};              $ip = $name_to_ip{$dns};
         }          }
         if (!$ip) {          if (!$ip) {
Removed from v.1.992  
changed lines
  Added in v.1.993

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