1 files changed, 142 insertions, 0 deletions
diff --git a/examples/zipinfo.pl b/examples/zipinfo.pl
new file mode 100644
index 0000000..8433493
--- /dev/null
+++ b/examples/zipinfo.pl
@@ -0,0 +1,142 @@
+#! /usr/bin/perl -w
+# Print out information about a ZIP file.
+# Note that this buffers the entire file into memory!
+# usage:
+# perl examples/zipinfo.pl zipfile.zip
+
+use strict;
+
+use Data::Dumper ();
+use FileHandle;
+use Archive::Zip qw(:ERROR_CODES :CONSTANTS :PKZIP_CONSTANTS);
+use Archive::Zip::BufferedFileHandle;
+
+$| = 1;
+
+### Workaround for a bug in version of Data::Dumper bundled
+### with some versions of Perl, which causes warnings when
+### calling ->Seen below.
+if (defined &Data::Dumper::init_refaddr_format) {
+    Data::Dumper::init_refaddr_format();
+}
+
+# use constant END_OF_CENTRAL_DIRECTORY_SIGNATURE_STRING;
+use constant CENTRAL_DIRECTORY_FILE_HEADER_SIGNATURE_STRING =>
+  pack(SIGNATURE_FORMAT, CENTRAL_DIRECTORY_FILE_HEADER_SIGNATURE);
+use constant LOCAL_FILE_HEADER_SIGNATURE_STRING =>
+  pack(SIGNATURE_FORMAT, LOCAL_FILE_HEADER_SIGNATURE);
+
+$Data::Dumper::Useqq  = 1;    # enable double-quotes for string values
+$Data::Dumper::Indent = 1;
+
+my $zip         = Archive::Zip->new();
+my $zipFileName = shift(@ARGV);
+
+my $fh = Archive::Zip::BufferedFileHandle->new();
+$fh->readFromFile($zipFileName) or exit($!);
+
+my $status = $zip->_findEndOfCentralDirectory($fh);
+die("can't find EOCD\n") if $status != AZ_OK;
+
+my $eocdPosition = $fh->tell();
+
+$status = $zip->_readEndOfCentralDirectory($fh);
+die("can't read EOCD\n") if $status != AZ_OK;
+
+my $zipDumper = Data::Dumper->new([$zip], ['ZIP']);
+$zipDumper->Seen({ref($fh), $fh});
+print $zipDumper->Dump(), "\n";
+
+my $expectedEOCDPosition =
+  $zip->centralDirectoryOffsetWRTStartingDiskNumber() +
+  $zip->centralDirectorySize();
+
+my $eocdOffset = $zip->{eocdOffset} = $eocdPosition - $expectedEOCDPosition;
+
+if ($eocdOffset) {
+    printf "Expected EOCD at %d (0x%x) but found it at %d (0x%x)\n",
+      ($expectedEOCDPosition) x 2, ($eocdPosition) x 2;
+} else {
+    printf("Found EOCD at %d (0x%x)\n\n", ($eocdPosition) x 2);
+}
+
+my $contents = $fh->contents();
+my $offset   = $eocdPosition + $eocdOffset - 1;
+my $cdPos;
+my @members;
+my $numberOfMembers = $zip->numberOfCentralDirectoriesOnThisDisk();
+foreach my $n (0 .. $numberOfMembers - 1) {
+    my $index = $numberOfMembers - $n;
+    $cdPos = rindex($contents,
+        CENTRAL_DIRECTORY_FILE_HEADER_SIGNATURE_STRING, $offset);
+    if ($cdPos < 0) {
+        print "No central directory found for member #$index\n";
+        last;
+    } else {
+        print "Found central directory for member #$index at $cdPos\n";
+        $fh->seek($cdPos + SIGNATURE_LENGTH, 0);    # SEEK_SET
+        my $newMember =
+          Archive::Zip::Member->_newFromZipFile($fh, "($zipFileName)");
+        $status = $newMember->_readCentralDirectoryFileHeader();
+        if ($status != AZ_OK and $status != AZ_STREAM_END) {
+            printf "read CD header status=%d\n", $status;
+            last;
+        }
+        unshift(@members, $newMember);
+
+        my $memberDumper =
+          Data::Dumper->new([$newMember], ['CDMEMBER' . $index]);
+        $memberDumper->Seen({ref($fh), $fh});
+        print $memberDumper->Dump(), "\n";
+    }
+    $offset = $cdPos - 1;
+}
+
+if (    $cdPos >= 0
+    and $cdPos != $zip->centralDirectoryOffsetWRTStartingDiskNumber()) {
+    printf
+      "Expected to find central directory at %d (0x%x), but found it at %d (0x%x)\n",
+      ($zip->centralDirectoryOffsetWRTStartingDiskNumber()) x 2,
+      ($cdPos) x 2;
+}
+
+print "\n";
+
+# Now read the local headers
+
+foreach my $n (0 .. $#members) {
+    my $member = $members[$n];
+    $fh->seek(
+        $member->localHeaderRelativeOffset() + $eocdOffset + SIGNATURE_LENGTH,
+        0);
+    $status = $member->_readLocalFileHeader();
+    if ($status != AZ_OK and $status != AZ_STREAM_END) {
+        printf "member %d read header status=%d\n", $n + 1, $status;
+        last;
+    }
+
+    my $memberDumper = Data::Dumper->new([$member], ['LHMEMBER' . ($n + 1)]);
+    $memberDumper->Seen({ref($fh), $fh});
+    print $memberDumper->Dump(), "\n";
+
+    my $endOfMember =
+      $member->localHeaderRelativeOffset() +
+      $member->_localHeaderSize() +
+      $member->compressedSize();
+
+    if (
+        $endOfMember > $cdPos
+        or (    $n < $#members
+            and $endOfMember > $members[$n + 1]->localHeaderRelativeOffset())
+      ) {
+        print "Error: ";
+    }
+    printf("End of member: %d, CD at %d", $endOfMember, $cdPos);
+    if ($n < $#members) {
+        printf(", next member starts at %d",
+            $members[$n + 1]->localHeaderRelativeOffset());
+    }
+    print("\n\n");
+}
+
+# vim: ts=4 sw=4