loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

-version 1.1105, 2011/03/06 21:17:18
+version 1.1106, 2011/05/13 02:26:21
  Line 196  sub get_server_timezone {
      }
  }
+ sub get_server_distarch {
+     my ($lonhost,$ignore_cache) = @_;
+     if (defined($lonhost)) {
+         if (!defined(&hostname($lonhost))) {
+             return;
+         }
+         my $cachetime = 12*3600;
+         if (!$ignore_cache) {
+             my ($distarch,$cached)=&is_cached_new('serverdistarch',$lonhost);
+             if (defined($cached)) {
+                 return $distarch;
+             }
+         }
+         my $rep = &reply('serverdistarch',$lonhost);
+         unless ($rep eq 'unknown_command' || $rep eq 'no_such_host' ||
+                 $rep eq 'con_lost' || $rep eq 'rejected' || $rep eq 'refused' ||
+                 $rep eq '') {
+             return &do_cache_new('serverdistarch',$lonhost,$rep,$cachetime);
+         }
+     }
+     return;
+ }
  sub get_server_loncaparev {
      my ($dom,$lonhost,$ignore_cache,$caller) = @_;
      if (defined($lonhost)) {