Adding/Updating zip file

JoshProx

I have to update a zip file with the file outputted from the tpl. The zip file is resides within the workarea.

Find more posts tagged with

Comments

nipper

Cool, sounds like fun. Easy to do with Perl and the zip module.

JoshProx

I tried using Archive::Zip module. But the update doesn't seem to work....Do you have some sample POC....

Adam Stoller

I tried using Archive::Zip module. But the update doesn't seem to work....Do you have some sample POC....

I seem to recall at one point (I think in 6.5, so it's likely to be the same with later versions too) that the version of Archive::Zip that was shipped with TeamSite was broken and/or out-of-date. You might try getting a newer version from CPAN and then, using the perldoc documentation, create your own POC.

JoshProx

This code works standalone but gives compilation error in iwutild logs when I put in TPL -

#!/opt/iw-home/iw-perl/bin/iwperl
use warnings;
use strict;
Use Archive::Zip qw( :ERROR_CODES );
my $zip = Archive::Zip->new();
$zip->read('/iwmnt/default/main/Toyota/ToyotaAdmin/WORKAREA/tstrls/web_docs/pub/toyotafishing/Scene.zip') == AZ_OK or die "read error\n";
$zip->updateMember('data/navigation.txt', '/iwmnt/default/main/Toyota/ToyotaAdmin/WORKAREA/tstrls/web_docs/pub/toyotafishing/data/navigation.txt');
$zip->overwrite() == AZ_OK or die "write error\n";

InternetExplorerBrowserScreenShot.bmp

MozillaFirefoxVersion11ScreenShot.bmp

jspFileScreenShot.bmp

SimpleMozillaReport.rptdesign

nipper

Don't use strict in a TPL. The code provided by IWOV will fail.

Also your or die"" won't return anything usable to the user.

JoshProx

Thanks for the feedback. It worked