Add ARM files

[dh-make-perl] / dev / arm / libarchive-zip-perl / libarchive-zip-perl-1.18 / examples / zipcheck.pl

diff --git a/dev/arm/libarchive-zip-perl/libarchive-zip-perl-1.18/examples/zipcheck.pl b/dev/arm/libarchive-zip-perl/libarchive-zip-perl-1.18/examples/zipcheck.pl
new file mode 100644 (file)
index 0000000..d3c8fc0
--- /dev/null
+++ b/dev/arm/libarchive-zip-perl/libarchive-zip-perl-1.18/examples/zipcheck.pl
@@ -0,0 +1,39 @@
+#!/bin/perl -w
+# usage: valid zipname.zip
+# exits with non-zero status if invalid zip
+# status = 1: invalid arguments
+# status = 2: generic error somewhere
+# status = 3: format error
+# status = 4: IO error
+use strict;
+use Archive::Zip qw(:ERROR_CODES);
+use IO::Handle;
+use File::Spec;
+
+# instead of stack dump:
+Archive::Zip::setErrorHandler( sub { warn shift() } );
+
+my $nullFileName = File::Spec->devnull();
+my $zip = Archive::Zip->new();
+my $zipName = shift(@ARGV) || exit 1;
+eval
+{
+       my $status = $zip->read( $zipName );
+       exit $status if $status != AZ_OK;
+};
+if ($@) { warn 'error reading zip:', $@, "\n"; exit 2 }
+
+eval
+{
+       foreach my $member ($zip->members)
+       {
+               my $fh = IO::File->new();
+               $fh->open(">$nullFileName") || die "can't open $nullFileName\: $!\n";
+               my $status = $member->extractToFileHandle($fh);
+               if ($status != AZ_OK)
+               {
+                       warn "Extracting ", $member->fileName(), " from $zipName failed\n";
+                       exit $status;
+               }
+       }
+}