IWDatacapture.callServer

I am trying to call below given test.cgi file using IWDatacapture.callServer command as below.

IWDatacapture.callServer("http://"+server+"/iw-bin/test.cgi");

test.cgi -----

#!/iw-home/iw-perl/bin/iwperl

use CGI qw(:standard);

my $debugFile = "/tmp/test.log";
open (DEBUG,">$debugFile");
print DEBUG "****** Start Debugging *******";
close(DEBUG);
----------

But this test.log file is not creating in side the tmp folder.

I am calling this call server function in side java script file and I guess this is executing using iw-ui user,

Please help me to resolve this issue.

Find more posts tagged with

Comments

nipper

What OS ? What rev of TS ?

kaalraa

Are you sure your CGI is getting compiled and executing?

I am trying to call below given test.cgi file using IWDatacapture.callServer command as below.

IWDatacapture.callServer("http://"+server+"/iw-bin/test.cgi");

test.cgi -----

#!/iw-home/iw-perl/bin/iwperl

use CGI qw(:standard);

my $debugFile = "/tmp/test.log";
open (DEBUG,">$debugFile");
print DEBUG "****** Start Debugging *******";
close(DEBUG);
----------

But this test.log file is not creating in side the tmp folder.

I am calling this call server function in side java script file and I guess this is executing using iw-ui user,

Please help me to resolve this issue.

Pawan

I am trying to call below given test.cgi file using IWDatacapture.callServer command as below.

IWDatacapture.callServer("http://"+server+"/iw-bin/test.cgi");

test.cgi -----

#!/iw-home/iw-perl/bin/iwperl

use CGI qw(:standard);

my $debugFile = "/tmp/test.log";
open (DEBUG,">$debugFile");
print DEBUG "****** Start Debugging *******";
close(DEBUG);
----------

But this test.log file is not creating in side the tmp folder.

Just try to create it manually first with your id and give full permissions to all, and then try to run your code.

Adam Stoller

[...]test.cgi -----

#!/iw-home/iw-perl/bin/iwperl

use CGI qw(:standard);

my $debugFile = "/tmp/test.log";
open (DEBUG,">$debugFile");
print DEBUG "****** Start Debugging *******";
close(DEBUG);

FYI - you should also learn / practice better coding - the above, though extremely simple would be better written as:

#!/iw-home/iwperl/bin/iwperl
use strict;
use warnings; [color=red]# This assumes TS6.x with Perl 5.8.2 (or higher)
# use File::Temp qw(tempfile); # optional[/color]
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);

my $debugFile = "/tmp/test.log"; # or: my($fh, $fname) = tempfile(); 
# - if you use tempfile, you don't need the open() call, it's done for you
open(DEBUG, '>', $debugFile) || die " '$debugFile' ($!)";
print DEBUG "****** Start Debugging *******";
close(DEBUG);

Although another option for the debugging altogether is to make use of the Log::Log4perl module which will allow for different levels of logging (including DEBUG) and will automatically time-stamp and identify the location of the source of the logging ... but I've probably already digressed a bit too far.

Pawan's suggestion of creating your named log file in advance and doing a chmod 666 on it - for now at least - should help to verify if the problem is somewhere else in your code (doubtful if you posted the entire thing) or simply a permissions issue (I'm assuming that the script itself is located in /iw-home/httpd/iw-bin/ and is marked executable - e.g.: chmod 755 /iw-home/httpd/iw-bin/test.cgi -- yes?)

dial value show m.rptdesign

Rick Poulin

Could be a problem with the JS too. We had an issue a while back where callServer wouldn't work unless you told it to POST instead of GET. Try

IWDatacapture.callServer("http://whatever/script.cgi", null, 0); // 0 = false on isGet