--- loncom/cgi/decompress.pl 2003/10/18 17:42:45 1.2 +++ loncom/cgi/decompress.pl 2003/10/20 15:51:51 1.3 @@ -33,51 +33,55 @@ use LONCAPA::Configuration; use LONCAPA::loncgi(); if(! &LONCAPA::loncgi::check_cookie_and_load_env()){ - print "Content-type: text/html\n\n"; - print <NO COOKIE! END -} -else -{ - $url = $ENV{'HTTP_REFERER'}; - $url =~ m|/{2}|; - $url = $'; - $url =~ m|/{1}|; - $referer = $`; - if($referer ne $ENV{'SERVER_NAME'}) - { print "Content-type: text/html\n\n"; - print "You are trying something that is not allowed, go to the real homeserver and try again"; +} else { + $url = $ENV{'HTTP_REFERER'}; + $url =~ m|/{2}|; + $url = $'; #' stupid emacs + $url =~ m|/{1}|; + $referer = $`; + if($referer ne $ENV{'SERVER_NAME'}) { + print "Content-type: text/html\n\n"; + print "You are trying something that is not allowed, go to the real homeserver and try again"; + } else { + $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 - { - $url = $'; - $url =~ m|$ENV{'user.name'}/{1}|; - $url = $'; - $url =~ m|\?{1}|; - $url = $`; - $path ="/home/$ENV{'user.name'}/public_html/"; - $back_path = ""; - while($url =~ m|/|) - { - $path .= $`; - $back_path .= $`; - $path .= "/"; - $back_path .= "/"; - $url = $'; - } - 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";} + 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 ''; \ No newline at end of file +print '' +print ''; +print '';