#!/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;