[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.985 and 1.986

version 1.985, 2009/02/08 20:28:52 version 1.986, 2009/02/10 11:15:16
Line 74  use strict; Line 74  use strict;
 use LWP::UserAgent();  use LWP::UserAgent();
 use HTTP::Date;  use HTTP::Date;
 use Image::Magick;  use Image::Magick;
   use IO::Socket;
   
 # use Date::Parse;  # use Date::Parse;
 use vars qw(%perlvar %spareid %pr %prp $memcache %packagetab $tmpdir  use vars qw(%perlvar %spareid %pr %prp $memcache %packagetab $tmpdir
Line 150  sub logthis { Line 151  sub logthis {
     my $now=time;      my $now=time;
     my $local=localtime($now);      my $local=localtime($now);
     if (open(my $fh,">>$execdir/logs/lonnet.log")) {      if (open(my $fh,">>$execdir/logs/lonnet.log")) {
  print $fh "$local ($$): $message\n";   my $logstring = $local. " ($$): ".$message."\n"; # Keep any \'s in string.
    print $fh $logstring;
  close($fh);   close($fh);
     }      }
     return 1;      return 1;
Line 9010  sub get_dns { Line 9012  sub get_dns {
     }      }
 }  }
   
   #
   #  Given a DNS returns the loncapa host name for that DNS 
   # 
   sub host_from_dns {
       my ($dns) = @_;
       my @hosts;
       my $ip;
   
       $ip = gethostbyname($dns); # Initial translation to IP is in net order.
       if (length($ip) == 4) { 
    $ip   = &IO::Socket::inet_ntoa($ip);
    @hosts = get_hosts_from_ip($ip);
    return $hosts[0];
       }
       return undef;
   }
   
 BEGIN {  BEGIN {
   
 # ----------------------------------- Read loncapa.conf and loncapa_apache.conf  # ----------------------------------- Read loncapa.conf and loncapa_apache.conf
Line 9899  dirlist($uri) : return directory list ba Line 9918  dirlist($uri) : return directory list ba
   
 spareserver() : find server with least workload from spare.tab  spareserver() : find server with least workload from spare.tab
   
   
   =item *
   
   host_from_dns($dns) : Returns the loncapa hostname corresponding to a DNS name or undef
   if there is no corresponding loncapa host.
   
 =back  =back
   
   
 =head2 Apache Request  =head2 Apache Request
   
 =over 4  =over 4
Removed from v.1.985  
changed lines
  Added in v.1.986

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