#!/usr/bin/perl -w
############################################
# Remote unZip Utility 2009 by rwedge
# expandinghead.net. Use to retrieve a .zip or
# .gzip file and unzip and add the file(s)
# to a directory it is installed in. Be careful,
# as it will over-write any existing file(s)
# which share the same name.
# Requires CGI.pm and LWP.
# The directory this script runs in must have
# write permissions enable.
# Chmod script as required ( usually 755 )
############################################
# This software is provided "as is" and any express or
# implied warranties, including, but not limited to, the implied warranties
# of merchantability and fitness for a particular purpose are disclaimed.
# In no event shall the author be liable for any direct, indirect,
# incidental, special, exemplary, or consequential damages
############################################
my ($url, $effect, $fname, $browser, $res, $Results, $js);

use CGI qw(:cgi :standard);
use strict;
use warnings;

$url = param('url') || '';
$effect = 'nohighlight autoactivate';
$js =<<END;
var eh = 0;
function spud() {
if ( eh < 1)  {
ext = document.forms[0].url.value;
parts = ext.split("/");
a = (parts.length -1);
document.forms[0].fname.value=(parts[a]);
eh++;
   }
else {
return false;
   }
}
END
print header,start_html(-title =>'UnZip Utility',
                        -script => $js,
                        -author =>'expandinghead.net',
                        -bgcolor => '#ffffff',
                        -text => '#000000'),
      p,h1('UnZip Utility'),p,'enter the URL of the zipped file',hr,
      start_form,table(Tr([
      td(['URL ',textfield(-size=>50,-name=>'url',-default=>'http://',-onChange=>"spud(this)",$effect)]),
      td(['File Name ',textfield(-size=>25,-name=>'fname',-default=>'',$effect)]),
      td([submit(undef,' Submit '),reset]),
      ])),end_form;

 if ($url ne '' )  {
      $Results = '';
      $fname = param('fname') || '';
     if ($url !~ /(\.zip|\.gz)$/ig) {
      $Results = 'The <b>URL</b> to the file must end in <b>.zip</b> or <b>.gz</b>';
       }
     elsif ($fname !~ /(\.zip|\.gz)$/ig) {
      $Results = 'The local file <b>Name</b> you assign must end in the same type as the remote file  <b>.zip</b> or <b>.gz</b>';
       }
     else {
      use LWP::UserAgent;
      $browser = LWP::UserAgent->new();
      $res = $browser->mirror($url, $fname);
         if (!$res->is_success) {
             $Results = $res->status_line;
           }
         else {
          $Results = "<center><p><h3><b>File Status</b></h3><br>";
           if ( -e $fname ) {
             if ($fname =~ /\.zip$/i) {
               $Results .= `unzip $fname; ls $fname 2>&1`;
               $Results .= "<p>Zip file = $fname<br><b>End of Action</b></p>";
               } 
             elsif ($fname =~ /\.gz$/i) { 
               $Results .= `gzip -l $fname; gzip -d $fname`;
               $Results .= "<p><b>End of Action</b></p>";
               }
             }
             else {
               $Results .= "<p><b>$fname</b> could not be found</p>";
             }
           }
       }
      print $Results;
     }
      print p,h5('expanding head'),end_html;