issue in running system command in perl script...

hi all,
I am not sure why the following code is not working in my perl script....

any hint?

my $xcopy = $ENV{'systemroot'} . '\\system32\\xcopy.exe';
$srcpath= 'y:\\default\\main\\BRANCH\WORKAREA\......\\timeline.swf';
$destpath= 'y:\\default\\main\\.BRANCH\WORKAREA\...\\about';
$mycmd= qq{("$xcopy" "$srcpath" "$destpath" /y)};
eval{
system ($mycmd);
};

if ($@) {
print "Something went wrong - $@\n";
}

thx in advance...

Find more posts tagged with

Comments

ISCBorisB

hi all,
I am not sure why the following code is not working in my perl script....

any hint?

my $xcopy = $ENV{'systemroot'} . '\\system32\\xcopy.exe';
$srcpath= 'y:\\default\\main\\BRANCH\WORKAREA\......\\timeline.swf';
$destpath= 'y:\\default\\main\\.BRANCH\WORKAREA\...\\about';
$mycmd= qq{("$xcopy" "$srcpath" "$destpath" /y)};
eval{
system ($mycmd);
};

if ($@) {
print "Something went wrong - $@\n";
}

thx in advance...

1. Strings in single quotes are literals, they are not evaluated. What it means is that you have to use unescaped(single) reversed slashes.
2. qq has incorrect bracketing, it should be either qq{...} or qq(...) but not qq{(...)}
3. "xcopy" command clause itself must not be quoted, so $mycmd = qq($xcopy "$srcpath" "$destpath" /y);

motlnt

thanks for your inputs...
but it seems to be also and access related issue...

the error I am getting in iwerror.log is,

[Fri Sep 21 17:54:26 2007] [error] [client *.*.*.*] Access denied\n

I am running this script from my local box from TS interface as a menu item.

has anybody encountered this before?

motlnt

I saw it in some other posts that it might be because the TS server is not able to run the 'system()' command from client box.
how to take care of this?

ISCBorisB

I saw it in some other posts that it might be because the TS server is not able to run the 'system()' command from client box.
how to take care of this?

Web Daemon executes Menu's CGI scripts on the Server side so 'system' command should not be a problem.
In fact, your code is perhaps not evaluated at all and 'system' is irrelevant. You are getting "Access Denied"
before that.

Do you have execution access to your script (CGI)? Do you use "iw_cgi_wrapper.cgi" in the menu Entry configuration?
Do you have execution credentials for that?

motlnt

I am not even running a CGI script here.....I am executing an IPL(perl script) from the menu item.
I am trying to find if the access denied error is due to access credentials on Y drive.

motlnt

In fact the script is getting executed well and it is printing all the log statements in logs correctly....
the 'access denied' error occurs only at the line where I am running system() command.