Thank you Francis Paulin! Five minutes ago I found my mistake.
--- Best regards AlexBel --------- Original Message --------- DATE: Thu, 24 Jul 2003 14:51:00 From: Francis Paulin <[EMAIL PROTECTED]> To: [EMAIL PROTECTED], [EMAIL PROTECTED] Cc: [EMAIL PROTECTED] >Make sure that you use the following lines > >use Archive::Zip; >use Archive::Zip::Tree; > >Because the addTree method is in the package Archive::Zip::Tree > >Hope this will work >Francis Paulin > >-----Original Message----- >From: Alexander Bel... [mailto:[EMAIL PROTECTED] >Sent: 24 juillet, 2003 14:27 >To: [EMAIL PROTECTED] >Cc: [EMAIL PROTECTED] >Subject: Archive::Zip > > >Hi guys! >I am currently trying write script for archiving of the data under Linux OS. > >In the Windows OS I don't have a problem. I put putch f:/usr/web. It >working fine. But in the Linux I put path /var/www and I receive error: >Can't locate object method "addTree" via package "Archive::Zip::Archive" at >/var/www/cgi-bin/arhivator.pl line 117. > >It is my code: >109 sub CreateArhiv { >110 my $inp = shift @_; >111 my $name = '20030700'; >112 my $root = '/var/www'; >113 my $mess = "New"; >114 my $out = '${root}/arhive/${name}.zip'; >115 my $temp = '${root}/${inp}'; >116 my $zip = Archive::Zip->new(); >117 $zip->addTree($temp, $inp); >118 my $member = $zip->addString($mess,'info'); >119 my $oldAttribs = $member->unixFileAttributes(0750); >120 $zip->writeToFileNamed($out); >121 return $out; >122 } > >Where my mistake, please help me! > >--- > >Best regards > AlexBel > > >____________________________________________________________ >Get advanced SPAM filtering on Webmail or POP Mail ... Get Lycos Mail! >http://login.mail.lycos.com/r/referral?aid=27005 >_______________________________________________ >Perl-Win32-Users mailing list >[EMAIL PROTECTED] >To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs > ____________________________________________________________ Get advanced SPAM filtering on Webmail or POP Mail ... Get Lycos Mail! http://login.mail.lycos.com/r/referral?aid=27005 _______________________________________________ Perl-Unix-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
