Re^4: perl script not working after moved to new host

after fix the permission error, from shell I can run that shell script(system)-------------------- same script when we calling from perl script not working,.....................it through system error 256 on browser

Again please note that the same script working via perl on other system without any issue.

Please help me to identify the issue on this system

Comment on Re^4: perl script not working after moved to new host

Replies are listed 'Best First'.
Re^5: perl script not working after moved to new host by poj (Abbot) on Jan 26, 2016 at 07:58 UTC
Try this cut down version of your program on both working and non-working systems and compare the contents of `$ENV{'PATH'}` #!/usr/bin/perl use strict; use warnings; use CGI ':standard'; use CGI::Carp 'fatalsToBrowser'; my $node = param('node'); my $target = "raksan"; my $wwwpath = '/target'; my $wwwrealpath = "/home/nagios/stat/$target/htdocs"; my $tmpgraph = "rrd-$$.gif"; my $recenttimes = time - 3600 * 36; print header(),start_html(); my $cmd = "/home/nagios/stat/scripts/ng_rrd2img.sh $target $node dig $ +recenttimes now 300 130 > $wwwrealpath/tmp/$tmpgraph"; my $status = system($cmd); if ($status){ warn "$?"; } my $path = join "\n",split ';',$ENV{'PATH'}; print qq!<pre>$cmd</pre> <pre>PATH $path</pre> <img src="$wwwpath/tmp/$tmpgraph" alt="$wwwpath/tmp/$tmpgraph" border= +"1"/>!; print end_html(); [download] poj	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^5: perl script not working after moved to new host
by poj (Abbot) on Jan 26, 2016 at 07:58 UTC

Try this cut down version of your program on both working and non-working systems and compare the contents of $ENV{'PATH'}

#!/usr/bin/perl
use strict;
use warnings;
use CGI ':standard';
use CGI::Carp 'fatalsToBrowser';

my $node = param('node');
my $target      = "raksan";
my $wwwpath     = '/target';
my $wwwrealpath = "/home/nagios/stat/$target/htdocs";
my $tmpgraph    = "rrd-$$.gif";
my $recenttimes = time - 3600 * 36;

print header(),start_html();

my $cmd = "/home/nagios/stat/scripts/ng_rrd2img.sh $target $node dig $
+recenttimes now 300 130 > $wwwrealpath/tmp/$tmpgraph";
my $status = system($cmd);
if ($status){
  warn "$?";
}

my $path = join "\n",split ';',$ENV{'PATH'};
print qq!<pre>$cmd</pre>
<pre>PATH
$path</pre>
<img src="$wwwpath/tmp/$tmpgraph" alt="$wwwpath/tmp/$tmpgraph" border=
+"1"/>!;
print end_html();
[download]

[reply]
[d/l]
[select]