Blame examples/ziptest.pl

Packit 0bf95d
#!/bin/perl -w
Packit 0bf95d
# $Revision: 1.7 $
Packit 0bf95d
# Lists the zipfile given as a first argument and tests CRC's.
Packit 0bf95d
# Usage:
Packit 0bf95d
#	perl ziptest.pl zipfile.zip
Packit 0bf95d
Packit 0bf95d
use strict;
Packit 0bf95d
Packit 0bf95d
use Archive::Zip qw(:ERROR_CODES :CONSTANTS);
Packit 0bf95d
Packit 0bf95d
package CRCComputingFileHandle;
Packit 0bf95d
use Archive::Zip::MockFileHandle;
Packit 0bf95d
Packit 0bf95d
use vars qw( @ISA );
Packit 0bf95d
@ISA = qw( Archive::Zip::MockFileHandle );
Packit 0bf95d
Packit 0bf95d
my $crc;
Packit 0bf95d
Packit 0bf95d
sub writeHook {
Packit 0bf95d
    my $self   = shift;
Packit 0bf95d
    my $bytes  = shift;
Packit 0bf95d
    my $length = length($bytes);
Packit 0bf95d
    $crc = Archive::Zip::computeCRC32($bytes, $crc);
Packit 0bf95d
}
Packit 0bf95d
Packit 0bf95d
sub resetCRC { $crc = 0 }
Packit 0bf95d
Packit 0bf95d
sub crc { $crc }
Packit 0bf95d
Packit 0bf95d
package main;
Packit 0bf95d
Packit 0bf95d
die "usage: $0 zipfile.zip\n"
Packit 0bf95d
  if (scalar(@ARGV) != 1);
Packit 0bf95d
Packit 0bf95d
my $zip    = Archive::Zip->new();
Packit 0bf95d
my $status = $zip->read($ARGV[0]);
Packit 0bf95d
exit $status if $status != AZ_OK;
Packit 0bf95d
Packit 0bf95d
print " Length    Size         Last Modified         CRC-32  Name\n";
Packit 0bf95d
print "-------- --------  ------------------------  -------- ----\n";
Packit 0bf95d
Packit 0bf95d
my $fh = CRCComputingFileHandle->new();
Packit 0bf95d
my @errors;
Packit 0bf95d
Packit 0bf95d
foreach my $member ($zip->members()) {
Packit 0bf95d
    my $compressedSize = $member->compressedSize();
Packit 0bf95d
    $fh->resetCRC();
Packit 0bf95d
    $member->desiredCompressionMethod(COMPRESSION_STORED);
Packit 0bf95d
    $status = $member->extractToFileHandle($fh);
Packit 0bf95d
    exit $status if $status != AZ_OK;
Packit 0bf95d
    my $crc = $fh->crc();
Packit 0bf95d
Packit 0bf95d
    my $ct = scalar(localtime($member->lastModTime()));
Packit 0bf95d
    chomp($ct);
Packit 0bf95d
Packit 0bf95d
    printf(
Packit 0bf95d
        "%8d %8d  %s  %08x %s\n",
Packit 0bf95d
        $member->uncompressedSize(),
Packit 0bf95d
        $compressedSize, $ct, $member->crc32(), $member->fileName());
Packit 0bf95d
Packit 0bf95d
    if ($member->crc32() != $crc) {
Packit 0bf95d
        push(
Packit 0bf95d
            @errors,
Packit 0bf95d
            sprintf(
Packit 0bf95d
                "Member %s CRC error: file says %08x computed: %08x\n",
Packit 0bf95d
                $member->fileName(), $member->crc32(), $crc
Packit 0bf95d
            ));
Packit 0bf95d
    }
Packit 0bf95d
}
Packit 0bf95d
Packit 0bf95d
if (scalar(@errors)) {
Packit 0bf95d
    print join("\n", @errors);
Packit 0bf95d
    die "CRC errors found\n";
Packit 0bf95d
} else {
Packit 0bf95d
    print "All CRCs check OK\n";
Packit 0bf95d
}