Error executing Perl/CGI script

loftus49 · 06-08-2010, 12:41 AM

I'm trying to install a HoneyPot in my RHFC6 server. When I try to execute it (./name.cgi) I get the following error:

[root@ip-xxxxxxxxxxx cgi-bin]# ./name.cgi
Content-Type: text/html
Cache-Control: no-cache

can't open : No such file or directory at ./name.cgi line 380.

When I vi the file name.cgi and go to line 380 I find:

380 open(FILE, "< $_[0]") or die "can't open $_[0]: $!";

What am I doing wrong?
Think I'll go back to spitting watermelon seeds.

timmeke · 06-08-2010, 02:18 AM

Quote:

open(FILE, "< $_[0]") or die "can't open $_[0]: $!";

Line 380 above makes the name.cgi exit in case $_[0] (the first element in @_ array) cannot be opened with a filehandle.
Maybe you can add a print statement just before this line, to check the contents of @_ or $_[0]?

Usually, the @_ array is set from the results of previous code (that are not "caught" explicitly in variables). It's Perl's default
variable for storing everything.

loftus49 · 06-08-2010, 05:13 PM

Quote:

Originally Posted by timmeke

Line 380 above makes the name.cgi exit in case $_[0] (the first element in @_ array) cannot be opened with a filehandle.
Maybe you can add a print statement just before this line, to check the contents of @_ or $_[0]?

Usually, the @_ array is set from the results of previous code (that are not "caught" explicitly in variables). It's Perl's default
variable for storing everything.

OK. Sounds like a plan! But what print statement should be added just before this line?

Remember, I am the guy spitting watermelon seeds, not as proficient on this as I hope to be some day.

timmeke · 06-09-2010, 02:11 AM

Something like

Code:

print join(" ", @_);
#or
print $_[0];

should do it.

I'm also wondering, since it's supposed to be a CGI script - what are the CGI parameters it ingests?
How is it supposed to be called from the web site?

So my guess is that the print will print an empty string ("").
Perhaps it could be useful to add something like

Code:

print "FILE - " $_[0] " -";

to make it stick out more.

loftus49 · 06-09-2010, 05:01 PM

Quote:

Originally Posted by timmeke

Something like

Code:

print join(" ", @_);
#or
print $_[0];

should do it.

I'm also wondering, since it's supposed to be a CGI script - what are the CGI parameters it ingests?
How is it supposed to be called from the web site?

So my guess is that the print will print an empty string ("").
Perhaps it could be useful to add something like

Code:

print "FILE - " $_[0] " -";

to make it stick out more.

OK. I'll try that in the morning. Thanks for your help.

loftus49 · 06-10-2010, 12:40 AM

Quote:

Originally Posted by timmeke

Something like

Code:

print join(" ", @_);
#or
print $_[0];

should do it.

I'm also wondering, since it's supposed to be a CGI script - what are the CGI parameters it ingests?
How is it supposed to be called from the web site?

So my guess is that the print will print an empty string ("").
Perhaps it could be useful to add something like

Code:

print "FILE - " $_[0] " -";

to make it stick out more.

OK ... tried that and got the following:

Scalar found where operator expected at ./name.cgi line 380, near ""FILE - " $_"
(Missing operator before $_?)
String found where operator expected at ./name.cgi line 380, near "] " -""
(Missing operator before " -"?)
syntax error at ./name.cgi line 380, near ""FILE - " $_"
Execution of ./name.cgi aborted due to compilation errors.

Here's the snip out of the file:

377 #################### PERL <-> PHP functions ################
378
379 sub file_get_contents {
380 print "FILE - " $_[0] " -";
381 open(FILE, "< $_[0]") or die "can't open $_[0]: $!";
382 undef $/;
383 my $whole_file = <FILE>; # 'slurp' mode
384 $whole_file =~ s/^#![a-zA-Z0-9\/\\\:\.\-\_\~ ]*[\n\r;]//;
385 close(FILE);
386 return $whole_file;
387 }
388

timmeke · 06-10-2010, 03:41 AM

Sorry, that's right, we'll need to make it one string:

Code:

print "FILE - $_[0] -\n";