Problems while accessing a file kept at remote location

Hi,
I have a perl script which i used to unzip a file.I have a zip file kept on a different machine on same network.When i run my script as .pl file from command prompt it successfully unzips the file on remote machine but when i run the same script as a .ipl file from Teamsite it gives an error.
Can you tell some possible solution?

thanks in advance

Find more posts tagged with

Comments

Adam Stoller

Hi,
I have a perl script which i used to unzip a file.I have a zip file kept on a different machine on same network.When i run my script as .pl file from command prompt it successfully unzips the file on remote machine but when i run the same script as a .ipl file from Teamsite it gives an error.
Can you tell some possible solution?

thanks in advance

tech_trix

Hi,
I am using TeamSite 6.5.0 Service Pack 2.
OS is Windows Server 2003.
I am executing my code from a ipl file which is called when user triggers a button from TS.

MY CODE

$targetPath="//chdsez102291d/staging/nav2/0/json.zip";
$destinationPath="//chdsez102291d/staging/nav2/0";

my $zip = Archive::Zip->new($targetPath);
foreach my $member ($zip->members)
{
next if $member->isDirectory;
(my $extractName = $member->fileName) =~ s{.*/}{} ;
$member->extractToFileNamed("$destinationPath/$extractName") ;
}

I am getting following error..

Can't call method "members" on an undefined value.

Its giving error for this line of code :foreach my $member ($zip->members)

I would like to add that when i am running this script from a separate .pl file from command prompt its running perfect.

Adam Stoller

Hi,
I am using TeamSite 6.5.0 Service Pack 2.
OS is Windows Server 2003.
I am executing my code from a ipl file which is called when user triggers a button from TS.

MY CODE

$targetPath="//chdsez102291d/staging/nav2/0/json.zip";
$destinationPath="//chdsez102291d/staging/nav2/0";

my $zip = Archive::Zip->new($targetPath);
foreach my $member ($zip->members)
{
next if $member->isDirectory;
(my $extractName = $member->fileName) =~ s{.*/}{} ;
$member->extractToFileNamed("$destinationPath/$extractName") ;
}

I am getting following error..

Can't call method "members" on an undefined value.

Its giving error for this line of code :foreach my $member ($zip->members)

I would like to add that when i am running this script from a separate .pl file from command prompt its running perfect.

When you run it from the command line - are you running it with iwperl or perl (there could be a different version of Perl on your system)

Are you doing a

use Archive::Zip;

above the lines you showed?

I seem to recall that when I first used 6.5 I had to download a newer version of Archive::Zip from CPAN (this was on Solaris, but ...)

Also - looking at the perldoc for my version of Archive::Zip on my laptop (not TS) - I see the following note:[indent]If a filename argument is passed and the read fails for any reason, new will return undef. For this reason, it may be better to call read separately.[/indent]or perhaps improve the code to check for it:

...
my $zip = Archive::Zip->new($targetPath);
if (!defined($zip)) {
    die "Failed to read '$targetPath' ($!)";
}
...

Not sure if any of that helps, but hopefully some part of it does.

tech_trix

Hi,
I tried executing the code you provided and got followinmg error message :

"Failed to read '//chdsez102291d/staging/nav2/0/json.zip' (No such file or directory)"

Some information:
I am using Archive::Zip.
I have ActivePerl 5.8.7 Build 813 installed on my system.

Adam Stoller

Hi,
I tried executing the code you provided and got followinmg error message :

"Failed to read '//chdsez102291d/staging/nav2/0/json.zip' (No such file or directory)"

Some information:
I am using Archive::Zip.
I have ActivePerl 5.8.7 Build 813 installed on my system.

You didn't answer the question about how you were running this script from the command line vs. running it within TeamSite.

different versions of the Archive::Zip (and associated) modules when you run it the different ways - and that would account for why it works one way and not the other.If so - then the answer is to download and install a newer version of Archive::Zip for iwperl.(This is assuming that file actually exists)

tech_trix

hi ,
You are rite i have tried the latter approach ie from command prompt i m using ActivePerl and from TS i m using iwperl.

I tried upgrading the ARCGIVE ZIP module but got following errors.

"C:\perlfiles\Archive-Zip-1.20>iwperl Makefile.pl
Have

\iw-home\iw-perl\lib\Config.pm expected C:\PROGRA~1\INTERW~1\TeamSite\iw-
perl\lib\Config.pm
Your perl and your Config.pm seem to have different ideas about the
architecture they are running on.
Perl thinks: [lib]
Config says: [MSWin32-x86-multi]
This may or may not cause problems. Please check your installation of perl
if you have problems building this extension.
Writing Makefile for Archive::Zip

C:\perlfiles\Archive-Zip-1.20>make install
'make' is not recognized as an internal or external command,
operable program or batch file.
"

Adam Stoller

hi ,
You are rite i have tried the latter approach ie from command prompt i m using ActivePerl and from TS i m using iwperl.

I tried upgrading the ARCGIVE ZIP module but got following errors.

"C:\perlfiles\Archive-Zip-1.20>iwperl Makefile.pl
Have \iw-home\iw-perl\lib\Config.pm expected C:\PROGRA~1\INTERW~1\TeamSite\iw-
perl\lib\Config.pm
Your perl and your Config.pm seem to have different ideas about the
architecture they are running on.
Perl thinks: [lib]
Config says: [MSWin32-x86-multi]
This may or may not cause problems. Please check your installation of perl
if you have problems building this extension.
Writing Makefile for Archive::Zip

C:\perlfiles\Archive-Zip-1.20>make install
'make' is not recognized as an internal or external command,
operable program or batch file.
"

Hmm - no idea (as I said, I ran into this on Solaris - and didn't have that problem).
Depending on what your script is doing and whether it needs access to the TS perl modules - you could have your script use AS perl explicitly - even when called from within TS and/or you could try adding the TS perl modules to the @INC path

... BEGIN {
    push(@INC, "explicit-path-to-iwhome/iwperl/vendor/lib");
};
...

or copy the iw-home/vendor/lib/TeamSite folder to AS perl's site/lib directory.
It's not "great", but ...

Another thing though - you seem to have TS installed under Program Files -- this is generally a bad thing to do - as the space in the path name tends to cause all sorts of problems when you least expect it - and determining that it's the cause of the problem is now always easy. You'd be better off uninstalling and re-installing TS in something like C:\iw-home. If you do that - try to build the Archive::Zip Makefile.pl again ...