Diff for /loncom/lond between versions 1.520 and 1.521

version 1.520, 2016/05/08 19:05:10 version 1.521, 2016/05/08 20:48:35
Line 5482  sub retrieve_auto_file_handler { Line 5482  sub retrieve_auto_file_handler {
     my ($filename)   = split(/:/, $tail);      my ($filename)   = split(/:/, $tail);
   
     my $source = $perlvar{'lonDaemons'}.'/tmp/'.$filename;      my $source = $perlvar{'lonDaemons'}.'/tmp/'.$filename;
     if ( (-e $source) && ($filename ne '') ) {  
       if ($filename =~m{/\.\./}) {
           &Failure($client, "refused\n", $userinput);
       } elsif ( (-e $source) && ($filename ne '') ) {
  my $reply = '';   my $reply = '';
  if (open(my $fh,$source)) {   if (open(my $fh,$source)) {
     while (<$fh>) {      while (<$fh>) {

Removed from v.1.520  
changed lines
  Added in v.1.521


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