#!c:\perl\bin\perl

use strict;
use CGI::Carp 'fatalsToBrowser';
use CGI qw( :standard :html3 );
use Archive::Zip;

my $form=new CGI;
my ($submit)=param('submit');

print "Content-type:text/html\n\n";

if ($submit) {
  print "Unzipping Archive...<br/>";
  my $zip = Archive::Zip->new();
  my $zipName = "webauction3.4.zip";
  my $status = $zip->read( $zipName );
  die "Read of $zipName failed\n" if $status != AZ_OK;
  $zip->extractTree();
} else {
  print "<form name=\"install\" method=\"post\" action=\"install.cgi\">
  <input type=\"submit\" name=\"submit\" value=\"Install >>\"/>
  </form>";
}