|
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 |
}
|