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

Diff for /loncom/cgi/decompress.pl between versions 1.14 and 1.15

version 1.14, 2005/05/25 22:31:51 version 1.15, 2005/11/03 20:36:58
Line 43  END Line 43  END
     my $file=$Apache::lonnet::env{'cgi.file'};      my $file=$Apache::lonnet::env{'cgi.file'};
     my $dir=$Apache::lonnet::env{'cgi.dir'};       my $dir=$Apache::lonnet::env{'cgi.dir'}; 
     if(! $file || ! $dir) {      if(! $file || ! $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><p><b>Output of decompress:</b></p>
 END  END
         chdir $dir;          chdir($dir);
         if ($file =~ m|zip|) {   my @cmd;
             open(OUTPUT, "unzip $file 2> /dev/null |");          if ($file =~ m|\.zip$|) {
             while (<OUTPUT>) {              @cmd = ("/usr/bin/unzip","-o");
                 print "$_<br />";          } elsif ($file =~ m|\.tar\.gz$|) {
             }              @cmd = ("/usr/bin/tar","-zxpvf");
             close(OUTPUT);          } elsif ($file =~ m|\.tar\.bz2$|) {
         } elsif ($file =~ m|tar.gz|) {              @cmd = ("/usr/bin/tar","-jxpvf");
             open(OUTPUT, "tar -zxpvf $file 2> /dev/null |");          } elsif ($file =~ m|\.bz2$|) {
             while (<OUTPUT>) {              @cmd = ("/usr/bin/bunzip2");
                 print "$_<br />";          } elsif ($file =~ m|\.tgz$|) {
             }              @cmd = ("/usr/bin/tar","-zxpvf");
             close(OUTPUT);          } elsif ($file =~ m|\.gz$|) {
         } elsif ($file =~ m|tar.bz2|) {      @cmd = ("/usr/bin/gunzip");
             open(OUTPUT, "tar -jxpvf $file 2> /dev/null |");          } elsif ($file =~ m|\.tar$|) {
             while (<OUTPUT>) {              @cmd = ("/usr/bin/tar","-xpvf");
                 print "$_<br />";  
             }  
             close(OUTPUT);  
         } elsif ($file =~ m|bz2|) {  
             open(OUTPUT, "bunzip2 $file 2> /dev/null |");  
             while (<OUTPUT>) {  
                 print "$_<br />";  
             }  
             close(OUTPUT);  
         } elsif ($file =~ m|tgz|) {  
             open(OUTPUT, "tar -zxpvf $file 2> /dev/null |");  
             while (<OUTPUT>) {  
                 print "$_<br />";  
             }  
             close(OUTPUT);  
         } elsif ($file =~ m|gz|) {  
             open(OUTPUT, "gunzip $file 2> /dev/null |");  
             while (<OUTPUT>) {  
                 print "$_<br />";  
             }  
             close(OUTPUT);  
         } elsif ($file =~ m|tar|) {  
             open(OUTPUT, "tar -xpvf $file 2> /dev/null |");  
             while (<OUTPUT>) {  
                 print "$_<br />";  
             }  
             close(OUTPUT);  
         } else {          } else {
             print "There has been an error in determining the file type of $file, please check name";              print("There has been an error in determining the file type of $file, please check name");
         }          }
         print "<br /><b>Decompress complete!</b><br /></body></html>";   if (@cmd) {
       undef($!);
       undef($@);
       open(OUTPUT,"-|", @cmd, $file);
       while (<OUTPUT>) { print "$_<br />"; }
       close(OUTPUT);
       print("<p><b>Decompress complete.</b></p>");
       if ($! || $@) {
    print("<p><b>An error occurred</b></p><p>$!</p><p>$@</p>");
       }
       print("</body></html>");
    }
     }      }
 }  }
   
Removed from v.1.14  
changed lines
  Added in v.1.15

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