In the past when I have used this method (zip on windows transfer to
*nix), the issues have come when the Type flag is set to transfer the data
through an ascii connection. When I changed the connection type to binary,
the zip file is preserved [ $ftp->type = (' I ') ].
asterix
----- Original Message -----
From: "Michael Meltzer" <[EMAIL PROTECTED]>
To: "perl-unix-users" <[EMAIL PROTECTED]>
Sent: Monday, April 19, 2004 2:21 PM
Subject: [Perl-unix-users] archive::zip problem
> I wrote a little perl script to zip some textfiles on a windows box, send
the archive via NET::FTP to a unix
> box and decrompress the archive there.
> On windows (NT) I can decrompress the archive with WinZip but on unix
(SuSe 8.2 and Solaris 7)
> when running unzip I get the following error message:
>
> mich: unzip Container.zip
> Archive: Container.zip
> End-of-central-directory signature not found. Either this file is not
> a zipfile, or it constitutes one disk of a multi-part archive. In the
> latter case the central directory and zipfile comment will be found on
> the last disk(s) of this archive.
> unzip: cannot find zipfile directory in one of Container.zip or
> Container.zip.zip, and cannot find Container.zip.ZIP, period.
>
> the file command on Linux:
> mich: file Container.zip
> Container.zip: Zip archive data, at least v2.0 to extract
>
>
> here are the relevant parts of my program:
>
> --------------------------------
>
> use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
> my $zip = Archive::Zip->new();
> .....
>
> foreach $box (@boxes) {
> print "$box\n";
> ...
> $member = $zip->addFile( "document.$box");
> }
>
> $status = $zip->writeToFileNamed( "Container.zip" );
> &werror("040 Error while trying to zip\n $!\n", "2") if $status !=
AZ_OK;
>
> --------------------------------------
>
> instead of addFile command in foreach loop I also tried
>
> $zip->addTreeMatching( '.', 'dir/*', 'document\.' );
>
> after foreach loop with the same effect.
>
> I hope somone can help me.
>
> Thanks in advance
>
> Michael
>
>
>
>
>
> --
> +-- Michael
Meltzer -------------+-----------------------------------------+
> | AED-SICAD Aktiengesellschaft | EMail : [EMAIL PROTECTED]
|
> | Lilienthal-Str. 7 | Phone : +49-89-45026-108
|
> | 85579 Neubiberg | Fax : +49-89-45026-113
|
>
+--------------------------------+-----------------------------------------+
> _______________________________________________
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
> _______________________________________________
> Perl-Unix-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
