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

Diff for /loncom/cgi/decompress.pl between versions 1.8 and 1.9

version 1.8, 2003/11/19 15:07:25 version 1.9, 2003/11/19 20:03:05
Line 32 Line 32
 use strict;  use strict;
 use lib '/home/httpd/lib/perl';  use lib '/home/httpd/lib/perl';
 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;
     <html><body>NO COOKIE!</body></html>      <html><body>NO COOKIE!</body></html>
 END  END
 }  } else {
 else  
 {  
     print "Content-type: text/html\n\n";      print "Content-type: text/html\n\n";
     if(! $ENV{'cgi.file'} || ! $ENV{'cgi.dir'})      if(! $ENV{'cgi.file'} || ! $ENV{'cgi.dir'}) {
     {  
         print <<END;          print <<END;
         <html><body>Bad Enviroment!</body></html>          <html><body>Bad Enviroment!</body></html>
 END  END
     }      } else {
     else  
     {  
         print <<END;          print <<END;
  <html><body><b>Output of decompress:</b><br /><br />   <html><body><b>Output of decompress:</b><br /><br />
 END  END
         chdir $ENV{'cgi.dir'};          chdir $ENV{'cgi.dir'};
         if ($ENV{'cgi.file'} =~ m|zip|)          if ($ENV{'cgi.file'} =~ m|zip|) {
         {  
             open(OUTPUT, "unzip $ENV{'cgi.file'} 2> /dev/null |");              open(OUTPUT, "unzip $ENV{'cgi.file'} 2> /dev/null |");
             while (<OUTPUT>)              while (<OUTPUT>) {
             {  
                 print "$_<br />";                  print "$_<br />";
             }              }
             close(TRACE);              close(TRACE);
         }          } elsif ($ENV{'cgi.file'} =~ m|tar.gz|) {
         elsif ($ENV{'cgi.file'} =~ m|tar.gz|)  
         {  
             open(OUTPUT, "tar -zxpvf $ENV{'cgi.file'} 2> /dev/null |");              open(OUTPUT, "tar -zxpvf $ENV{'cgi.file'} 2> /dev/null |");
             while (<OUTPUT>)              while (<OUTPUT>) {
             {  
                 print "$_<br />";                  print "$_<br />";
             }              }
             close(TRACE);              close(TRACE);
         }          } elsif ($ENV{'cgi.file'} =~ m|tar.bz2|) {
         elsif ($ENV{'cgi.file'} =~ m|tar.bz2|)  
         {  
             open(OUTPUT, "tar -jxpvf $ENV{'cgi.file'} 2> /dev/null |");              open(OUTPUT, "tar -jxpvf $ENV{'cgi.file'} 2> /dev/null |");
             while (<OUTPUT>)              while (<OUTPUT>) {
             {  
                 print "$_<br />";                  print "$_<br />";
             }              }
             close(TRACE);              close(TRACE);
         }          } elsif ($ENV{'cgi.file'} =~ m|bz2|) {
         elsif ($ENV{'cgi.file'} =~ m|bz2|)  
         {  
             open(OUTPUT, "bunzip2 $ENV{'cgi.file'} 2> /dev/null |");              open(OUTPUT, "bunzip2 $ENV{'cgi.file'} 2> /dev/null |");
             while (<OUTPUT>)              while (<OUTPUT>) {
             {  
                 print "$_<br />";                  print "$_<br />";
             }              }
             close(TRACE);              close(TRACE);
         }          } elsif ($ENV{'cgi.file'} =~ m|tgz|) {
         elsif ($ENV{'cgi.file'} =~ m|tgz|)  
         {  
             open(OUTPUT, "tar -zxpvf $ENV{'cgi.file'} 2> /dev/null |");              open(OUTPUT, "tar -zxpvf $ENV{'cgi.file'} 2> /dev/null |");
             while (<OUTPUT>)              while (<OUTPUT>) {
             {  
                 print "$_<br />";                  print "$_<br />";
             }              }
             close(TRACE);              close(TRACE);
         }          } elsif ($ENV{'cgi.file'} =~ m|gz|) {
         elsif ($ENV{'cgi.file'} =~ m|gz|)  
         {  
             open(OUTPUT, "gunzip $ENV{'cgi.file'} 2> /dev/null |");              open(OUTPUT, "gunzip $ENV{'cgi.file'} 2> /dev/null |");
             while (<OUTPUT>)              while (<OUTPUT>) {
             {  
                 print "$_<br />";                  print "$_<br />";
             }              }
             close(TRACE);              close(TRACE);
         }          } elsif ($ENV{'cgi.file'} =~ m|tar|) {
         elsif ($ENV{'cgi.file'} =~ m|tar|)  
         {  
             open(OUTPUT, "tar -xpvf $ENV{'cgi.file'} 2> /dev/null |");              open(OUTPUT, "tar -xpvf $ENV{'cgi.file'} 2> /dev/null |");
             while (<OUTPUT>)              while (<OUTPUT>) {
             {  
                 print "$_<br />";                  print "$_<br />";
             }              }
             close(TRACE);              close(TRACE);
         }          } else {
         else  
         {  
             print "There has been an error in determining the file type of $ENV{'cgi.file'}, please check name";              print "There has been an error in determining the file type of $ENV{'cgi.file'}, please check name";
         }          }
         print "<br /><b>Decompress complete!</b><br /></body></html>";          print "<br /><b>Decompress complete!</b><br /></body></html>";
Removed from v.1.8  
changed lines
  Added in v.1.9

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