Gidday all,
I am having trouble getting File::find to work TS6.1 on solaris.
This is a snippet of code from my index page tpl. I want to derive the start path from iwpt_get_ofile_name(); File::find will then return a list of files that we then do some other stuff on.
Any help appreciated
Regards Colin
<iw_pt name="default"/>
<iw_perl>
sub wanted {-f && push(
@list, $File::Find::name); }
use File::Find;
use TeamSite::Config;
my $iwmount = TeamSite::Config::iwgetmount();
my $path = iwpt_get_ofile_name('dirname');
#change /.iwmnt to value of $iwmount per your previous post
$path =~ s!/.iwmnt/$iwmount/;
$path = iwpt_get_ofile_name('dirname');
# get list of downstream pages
my
@list = ();
find(\&wanted, $path );
foreach $file (
@list) {
# extract EA from file
}
</iw_perl>
