#!/usr/bin/perl
############################################
# Remote unZip Utility © 2002 by Robert Wedge
# rwedge@webtv.net. Use this to retrieve and
# open .zip files into your directory.
# Uses CGI.pm and LWP::Simple modules.
# Chmod script to 755
############################################
use CGI;
$q = new CGI;
$url = $q->param('url');
$effects = 'nohighlight autoactivate onBlur=spud()';
$effect = 'nohighlight autoactivate';
if ($url eq '' )  {
print $q->header;
print $q->start_html
                  (-title=>'File Unzip',
                   -bgcolor=>'white',
                   -text=>'navy',
                   -vspace=>'60',
                   -hspace=>'30',
                   -onLoad=>'PutRef()');
print "
<script language=JavaScript>
function PutRef () {
var his = (navigator.appCodeName == 'bowser' ) ? history.previous: document.referrer;
if ( his.indexOf(\"http://\") != 0 ) { his = \"http://\" }
document.f.url.value=his;
}
function spud() {
ext = document.f.url.value;
parts = ext.split(\"/\");
a = (parts.length);
b = (a - 1);
document.f.fname.value=(parts[b]);
}
</script>";
print "<center><h3><b>Enter the .zip file url</b></h3>";
print $q->startform
                   (-name=>'f',
                    -method=>'post');
print "<br>Url ". $q->textfield
                   (-name=>'url',
                    -default=>'http://',
                    -size=>'50',
                    -$effects);
print "<br>File Name ". $q->textfield
                   (-name=>'fname',
                    -default=>'',
                    -size=>'25',
                    -$effect);
print $q->submit(-value=>'UnZip');
print $q->endform;
print "<p><font size=\"-2\">© 2002 expanding head</font>";
print "</center>";
print $q->end_html;
}
else {
use LWP::Simple;
$fname = $q->param("fname");
if ( $fname eq '') { $fname = "temp.zip"; }
$file = getstore("$url","$fname") or die "Could not resolve $url: $!";
$Results = `unzip $fname; ls $fname 2>&1`;

print $q->header;
print $q->start_html
                  (-title=>'File Unzip',
                   -bgcolor=>'white',
                   -text=>'navy',
                   -vspace=>'30',
                   -hspace=>'30');
print "<center>";
print "<p><h3><b>File Status</b></h3>";
print "<p>Zip file = $fname";
print "<p>$Results<br><b>End of Action</b>";
print "<p><font size=\"-2\">© 2002 expanding head</font>";
print "</center>";
print $q->end_html;
}