#!/usr/bin/perl #by Eliot _ Unzipper #Adjust the path to perl if needed - chmod to 755 #Rename to anything .cgi example extract.cgi #put this in the SAME Directory as the Zip File #enter filename only ex. image.zip #Leave Credit in TACT! #copyight - by Blatnoi - blatnoi\@webtv.net #This Script is Free to Use as Long as the copyright #is in tact! Not To Be Used WITHOUT Permission #NOTE: Not All Webhosts can run the script #Enjoy use CGI ':standard'; print "Content-type: text/html\n\n"; $go = $ENV{'SCRIPT_NAME'}; $file = param('file'); $what = param('what'); print qq~ ALL - Unzipper + Lister


 UNZIPPER


Put this in the SAME Directory as the Zip File

  
List .Zip Contents   Unzip The Specified File
Extract Tar.gz The Specified File
Extract Tar The Specified File
open .gz The Specified File


Results:  
~; print "
\n"; if ($what eq 'list' && $file ne ''){ print `unzip -l $file 2>&1\n`; } if ($what eq 'un' && $file ne ''){ print `unzip -o $file 2>&1\n`; } if ($what eq 'on' && $file ne ''){ print `tar -xzvf $file 2>&1\n`; } if ($what eq 't' && $file ne ''){ print `tar -xvf $file 2>&1\n`; } if ($what eq 'g' && $file ne ''){ print `gzip -d $file 2>&1\n`; } print "</plaintext></bq></small></font><B><BR><BR><small><b><center>© By Blatnoi</small></b></body></html><noembed>\n"; #Script offerred As Is. #use this script at your own risk #NO Part of the script may be REPRODUCED without the #authors Consent! - Sorry But, That Needs to be said! exit; #!/usr/bin/perl #by Eliot _ Unzipper #Adjust the path to perl if needed - chmod to 755 #Rename to anything .cgi example extract.cgi #put this in the SAME Directory as the Zip File #enter filename only ex. image.zip #Leave Credit in TACT! #copyight - by Blatnoi - blatnoi\@webtv.net #This Script is Free to Use as Long as the copyright #is in tact! Not To Be Used WITHOUT Permission #NOTE: Not All Webhosts can run the script #Enjoy use CGI ':standard'; print "Content-type: text/html\n\n"; $go = $ENV{'SCRIPT_NAME'}; $file = param('file'); $what = param('what'); print qq~ <html><head><title>ALL - Unzipper + Lister</title></head> <body bgcolor=ffffff text=0000AA><P><Hr width=7%><CENTER><b><u> UNZIPPER </u></b><br><BR><BR> <b> Put this in the SAME Directory as the Zip File</b> <BR><BR><form method="POST" action=$go><input name="file" size=25>   <input type=submit> <br> <input type=radio checked name=what value="list">List <b>.Zip</b> Contents   <input type=radio name=what value="un"> <b>Unzip</b> The Specified File<br><input type=radio name=what value="on"> Extract <b>Tar.gz</b> The Specified File<br><input type=radio name=what value="t">Extract <b>Tar</b> The Specified File<br><input type=radio name=what value="g"> <b>open .gz</b> The Specified File<br><br> <br>Results:   </form> </center>~; print "<br><small><bq><font color=cc0000><plaintext>\n"; if ($what eq 'list' && $file ne '') { print `unzip -l $file 2>&1\n`; } if ($what eq 'un' && $file ne '') { print `unzip -o $file 2>&1\n`; } if ($what eq 'on' && $file ne '') { print `tar -xzvf $file 2>&1\n`; } if ($what eq 't' && $file ne '') { print `tar -xvf $file 2>&1\n`; } if ($what eq 'g' && $file ne '') { print `gzip -d $file 2>&1\n`; } print "</plaintext></bq></small></font><B><BR><BR><small><b><center>\&copy; By Blatnoi</small></b></body></html><noembed>\n"; #Script offerred As Is. #use this script at your own risk #NO Part of the script may be REPRODUCED without the #authors Consent! - Sorry But, That Needs to be said! exit;