Unable to Access file throug inline perl script

Sivakumar

Hi

Teamsite version Interwoven TeamSite 6.5.0.0
OSun solaris
I have an Inline command with perl script which tries to read an XML file located under my workarea. When I execute the perl script separately it is able to read the XML but when the perl script is executed as inline command from my DCT it throws permission denied error at the line where I open the XML file. The XML file has got Attribute 777. Permission denied error is thrown in the followig perl script at line 25 which is open (CHECKBOOK, "$warea$filename") or die ("an error occured: $!");

Any quick help will be very useful. Thanks in advance.

Perl Script:
#!/data/Interwoven/TeamSite/iw-perl/bin/iwperl -w

use TeamSite::Config;

# Some page level variables
my $iwhome = TeamSite::Config::iwgethome();
my $iwmount = TeamSite::Config::iwgetmount();

$current = `date`;


my $log_path = "$iwhome/tmp";

my $filename = $ARGV[0];
my $warea = $ENV{IW_WORKAREA};
$warea =~ s/\/\/capsxp62(.*)/$iwmount$1/;

open(logOUT, ">$log_path/taw_data_comp.log") or die("Can't open data_com.log for writing: $!");
print logOUT "Current date and time is $current";
print logOUT "work area: $warea\n";
print logOUT "cmd arg: $filename\n";
print logOUT "opening file: $warea$filename\n";


open (CHECKBOOK, "$warea$filename") or die ("an error occured: $!");
print logOUT "file opened successfully\n";
while( )
{
$line = $_ ;
print logOUT "$line\n";
print "$line" ;
}
print logOUT "file read successfully\n";
close(CHECKBOOK);
close (logOUT);

exit();

RonaldV

Setting chmod 777 might not be enough.

You probably miss sufficient rights furtherup the (branch)-path. Try adding the iwui user to the group that own the branches & wa's.

Cheers, Ronald