[BACK]Return to lond CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom

Diff for /loncom/lond between versions 1.473 and 1.478

version 1.473, 2011/05/14 15:47:01 version 1.478, 2011/08/01 20:13:01
Line 1641  sub ls3_handler { Line 1641  sub ls3_handler {
 }  }
 &register_handler("ls3", \&ls3_handler, 0, 1, 0);  &register_handler("ls3", \&ls3_handler, 0, 1, 0);
   
   sub read_lonnet_global {
       my ($cmd,$tail,$client) = @_;
       my $userinput = "$cmd:$tail";
       my $requested = &Apache::lonnet::thaw_unescape($tail);
       my $result;
       if (ref($requested) eq 'HASH') {
           foreach my $what (keys(%{$requested})) {
               my $type = $requested->{$what};
               my $lonnetglobal = 'Apache::lonnet::'.$what;
               my $response;
               if ($type eq 'HASH') {
                   if (defined(%{$lonnetglobal})) {
                       my $hashref = \%{$lonnetglobal};
                       $response = &Apache::lonnet::freeze_escape($hashref);
                   }
               } else {
                   if (defined(${$lonnetglobal})) {
                       $response = &escape(${$lonnetglobal});
                   }
               }
               $result .= &escape($what).'='.$response.'&';
           }
       }
       $result =~ s/\&$//;
       &Reply($client,\$result,$userinput);
       return 1;
   }
   &register_handler("readlonnetglobal", \&read_lonnet_global, 0, 1, 0);
   
 sub server_timezone_handler {  sub server_timezone_handler {
     my ($cmd,$tail,$client) = @_;      my ($cmd,$tail,$client) = @_;
     my $userinput = "$cmd:$tail";      my $userinput = "$cmd:$tail";
Line 2278  sub fetch_user_file_handler { Line 2307  sub fetch_user_file_handler {
   
  my $destname=$udir.'/'.$ufile;   my $destname=$udir.'/'.$ufile;
  my $transname=$udir.'/'.$ufile.'.in.transit';   my $transname=$udir.'/'.$ufile.'.in.transit';
  my $remoteurl='http://'.$clientip.'/userfiles/'.$fname;          my $clientprotocol=$Apache::lonnet::protocol{$clientname};
           $clientprotocol = 'http' if ($clientprotocol ne 'https');
    my $remoteurl=$clientprotocol.'://'.$clientip.'/userfiles/'.$fname;
  my $response;   my $response;
  Debug("Remote URL : $remoteurl Transfername $transname Destname: $destname");   Debug("Remote URL : $remoteurl Transfername $transname Destname: $destname");
  alarm(120);   alarm(120);
Line 6093  sub HUPSMAN {                      # sig Line 6124  sub HUPSMAN {                      # sig
 #  #
 sub ReloadApache {  sub ReloadApache {
 # --------------------------- Handle case of another apachereload process (locking)  # --------------------------- Handle case of another apachereload process (locking)
     my $execdir = $perlvar{'lonDaemons'};      if (&LONCAPA::try_to_lock('/tmp/lock_apachereload')) {
     my $script  = $execdir."/apachereload";          my $execdir = $perlvar{'lonDaemons'};
     system($script);          my $script  = $execdir."/apachereload";
           system($script);
           unlink('/tmp/lock_apachereload'); #  Remove the lock file.
       }
 }  }
   
 #  #
Line 6362  my %iphost = &Apache::lonnet::get_iphost Line 6396  my %iphost = &Apache::lonnet::get_iphost
 my $dist=`$perlvar{'lonDaemons'}/distprobe`;  my $dist=`$perlvar{'lonDaemons'}/distprobe`;
   
 my $arch = `uname -i`;  my $arch = `uname -i`;
   chomp($arch);
 if ($arch eq 'unknown') {  if ($arch eq 'unknown') {
     $arch = `uname -m`;      $arch = `uname -m`;
       chomp($arch);
 }  }
   
 # --------------------------------------------------------------  # --------------------------------------------------------------
Line 7162  sub subscribe { Line 7198  sub subscribe {
                 # the metadata                  # the metadata
  unless ($fname=~/\.meta$/) { &unsub("$fname.meta",$clientip); }   unless ($fname=~/\.meta$/) { &unsub("$fname.meta",$clientip); }
  $fname=~s/\/home\/httpd\/html\/res/raw/;   $fname=~s/\/home\/httpd\/html\/res/raw/;
  $fname="http://".&Apache::lonnet::hostname($perlvar{'lonHostID'})."/".$fname;                  my $protocol = $Apache::lonnet::protocol{$perlvar{'lonHostID'}};
                   $protocol = 'http' if ($protocol ne 'https');
    $fname=$protocol.'://'.&Apache::lonnet::hostname($perlvar{'lonHostID'})."/".$fname;
  $result="$fname\n";   $result="$fname\n";
     }      }
  } else {   } else {
Removed from v.1.473  
changed lines
  Added in v.1.478

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