[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.595 and 1.596

version 1.595, 2005/02/05 22:20:56 version 1.596, 2005/02/09 22:04:22
Line 35  use HTTP::Headers; Line 35  use HTTP::Headers;
 use HTTP::Date;  use HTTP::Date;
 # use Date::Parse;  # use Date::Parse;
 use vars   use vars 
 qw(%perlvar %hostname %homecache %badServerCache %spareid %hostdom   qw(%perlvar %hostname %homecache %badServerCache %iphost %spareid %hostdom 
    %libserv %pr %prp %metacache %packagetab %titlecache %courseresversioncache %resversioncache     %libserv %pr %prp %metacache %packagetab %titlecache %courseresversioncache %resversioncache
    %courselogs %accesshash %userrolehash $processmarker $dumpcount      %courselogs %accesshash %userrolehash $processmarker $dumpcount 
    %coursedombuf %coursenumbuf %coursehombuf %coursedescrbuf %courseinstcodebuf %courseownerbuf %courseresdatacache      %coursedombuf %coursenumbuf %coursehombuf %coursedescrbuf %courseinstcodebuf %courseownerbuf %courseresdatacache 
Line 5683  BEGIN { Line 5683  BEGIN {
        next if ($configline =~ /^(\#|\s*$)/);         next if ($configline =~ /^(\#|\s*$)/);
        chomp($configline);         chomp($configline);
        my ($id,$domain,$role,$name)=split(/:/,$configline);         my ($id,$domain,$role,$name)=split(/:/,$configline);
          $name=~s/\s^//g;
        if ($id && $domain && $role && $name) {         if ($id && $domain && $role && $name) {
    my $ip = gethostbyname($name);
    if (length($ip) ne 4) {
        &logthis("Skipping host $id name $name no IP $ip found\n");
        next;
    }
    $ip=inet_ntoa($ip);
    push(@{$iphost{$ip}},$id);
  $hostname{$id}=$name;   $hostname{$id}=$name;
  $hostdom{$id}=$domain;   $hostdom{$id}=$domain;
  if ($role eq 'library') { $libserv{$id}=$name; }   if ($role eq 'library') { $libserv{$id}=$name; }
Removed from v.1.595  
changed lines
  Added in v.1.596

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