#!c:\Perl\bin\perl.exe
use warnings;
print "Content-type: text/html\n\n";
print '', "\n";print "\n";
print "\n\n";
print "\n";
print "\n";
print "\n";
print "TEST MODULE ARCHIVE::ZIP\n";
print "\n";
print "\n";
print " Test 1 zum erzeugen von Zip-Files !\n";
use Archive::Zip;
my $pfad = "C:\xampp\htdocs\keys";
chdir $pfad or die "chdir nach '$pfad' nicht moeglich: $!";
my $zip = Archive::Zip->new();
$zip->addFile("C:\xampp\htdocs\cgi-bin\newuser.pl");
$zip->addfile("C:\xampp\htdocs\cgi-bin\edituser.pl");
my @Dateien;
find( sub {push @Dateien, $File::Find::name},"./Check/" );
for (@Dateien) {
if (-d) {
$zip->addDirectory($_);
}
else {
$zip->addFile($_);
}
}
my $zipname = 'check_V';
{
open CHECK, './Check/Check.pm' or die "Kann './Check/Check.pm' nicht oeffnen: $!";
my @checkinhalt = ;
close CHECK or die "Kann './Check/Check.pm' nicht schliessen: $!";
(my $v) = grep s~^\s+\$Version\s*=\s*'([.\d]+[a-z]?)'\s*;\s*$~$1~, @checkinhalt;
$zipname .= $v;
}
$zipname .= '.zip';
$zip->writeToFileNamed($zipname);
print " Variablentest\n";
print "\n";
print "\n";
print "\n";