[BACK]Return to decompress.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / cgi

Diff for /loncom/cgi/decompress.pl between versions 1.2 and 1.3

version 1.2, 2003/10/18 17:42:45 version 1.3, 2003/10/20 15:51:51
Line 33  use LONCAPA::Configuration; Line 33  use LONCAPA::Configuration;
 use LONCAPA::loncgi();  use LONCAPA::loncgi();
   
 if(! &LONCAPA::loncgi::check_cookie_and_load_env()){  if(! &LONCAPA::loncgi::check_cookie_and_load_env()){
  print "Content-type: text/html\n\n";      print "Content-type: text/html\n\n";
  print <<END;      print <<END;
  NO COOKIE!   <html><body>NO COOKIE!</body></html>
 END  END
 }  } else {
 else      $url = $ENV{'HTTP_REFERER'};
 {      $url =~ m|/{2}|;
  $url = $ENV{'HTTP_REFERER'};      $url = $'; #' stupid emacs
  $url =~ m|/{2}|;      $url =~ m|/{1}|;
  $url = $';      $referer = $`;
  $url =~ m|/{1}|;      if($referer ne $ENV{'SERVER_NAME'}) {
  $referer = $`;   print "Content-type: text/html\n\n";
  if($referer ne $ENV{'SERVER_NAME'})   print "<html><body>You are trying something that is not allowed, go to the real homeserver and try again</body></html>";
  { print "Content-type: text/html\n\n";      } else {
  print "You are trying something that is not allowed, go to the real homeserver and try again";   $url = $'; #' stupid emacs
    $url =~ m|$ENV{'user.name'}/{1}|;
    $url = $'; #' stupid emacs
    $url =~ m|\?{1}|;
    $url = $`;
    $path ="/home/$ENV{'user.name'}/public_html/";
    $back_path = "";
    while($url =~ m|/|) {
       $path .= $`;
       $back_path .= $`;
       $path .= "/";
       $back_path .= "/";
       $url = $'; #' stupid emacs
  }   }
  else   chdir $path;
  {   $filename=$url;
  $url = $';   if      ($url =~ m|zip|) {
  $url =~ m|$ENV{'user.name'}/{1}|;      system "unzip -qq $filename &> /dev/null";
  $url = $';   } elsif ($url =~ m|tar.gz|) {
  $url =~ m|\?{1}|;      system "tar -zxpvf $filename &> /dev/null";
  $url = $`;   } elsif ($url =~ m|tar.bz2|){
  $path ="/home/$ENV{'user.name'}/public_html/";      system "tar -jxpvf $filename &> /dev/null";
  $back_path = "";   } elsif ($url =~ m|bz2|){
  while($url =~ m|/|)      system "bunzip2 $filename &> /dev/null";
  {   } elsif ($url =~ m|tgz|){
  $path .= $`;      system "tar -zxpvf $filename &> /dev/null";
  $back_path .= $`;   } elsif ($url =~ m|gz|){
  $path .= "/";      system "gunzip $filename &> /dev/null";
  $back_path .= "/";   } elsif ($url =~ m|tar|){
  $url = $';      system "tar -xpvf $filename &> /dev/null";
  }  
  chdir $path;  
  $filename=$url;  
  if($url =~ m|zip|){system "unzip -qq $filename &> /dev/null";}  
  elsif($url =~ m|tar.gz|){system "tar -zxpvf $filename &> /dev/null";}  
  elsif($url =~ m|tar.bz2|){system "tar -jxpvf $filename &> /dev/null";}  
  elsif($url =~ m|bz2|){system "bunzip2 $filename &> /dev/null";}  
  elsif($url =~ m|tgz|){system "tar -zxpvf $filename &> /dev/null";}  
  elsif($url =~ m|gz|){system "gunzip $filename &> /dev/null";}  
  elsif($url =~ m|tar|){system "tar -xpvf $filename &> /dev/null";}  
  }   }
       }
 }  }
 print "Content-type: text/html\n\n";  print "Content-type: text/html\n\n";
 print '<META http-equiv="refresh" content="0; URL=';  
 print "http://$ENV{'SERVER_NAME'}/~$ENV{'user.name'}/$back_path"; print '" >';   
   
   print '<html><head>'
   print '<meta http-equiv="refresh" content="0; URL=';
   print "http://$ENV{'SERVER_NAME'}/~$ENV{'user.name'}/$back_path"; print '" />';
   print '</head></html>';
Removed from v.1.2  
changed lines
  Added in v.1.3

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