CGI problem

[empanad0]

im having trouble accessing the my cgi scripts online; i get access denied
_________________
(=

[aprelium]

[empanad0]

HTTP 500 - Internal server error
thats what i get, and im using 192.168.1.2; i connect the internet through router although my ports are forwarded
_________________
(=

[os17fan]

I Know a good way how you can tell whats wrong with a Perl or CGI , add this line at the top of every CGI or Perl program

[empanad0]

I used the line of code you posted, however the problem is that the server isnt really reading into the cgi folder; it doesnt get to execute the script, doesnt even read the HTML page thats being used to execute it.
_________________
(=

[aprelium]

[empanad0]

#!c:/perl/bin/perl
use CGI::Carp qw(fatalsToBrowser);

use CGI;

$CGI::POST_MAX = 2048;

print "content-type: text/html\n\n";

binmode(STDIN);

@inx = <STDIN>;
@filetest = <STDIN>;

$str = @inx[1];
$str1 = reverse $str;
$filename1 = "";
$currchar = "";
$offset = 3;
while ($currchar !~ /\\/) {
$currchar = substr($str1, $offset, 1);
if ($currchar !~ /\\/) {
$filename1 = "$filename1$currchar";
$offset++;
}
}
$filename2 = reverse $filename1;

splice(@inx,0,4);
splice(@inx,$#inx,1);
$in = join("",@inx);
$in = substr($in,0,length($in) - 2);;
#
open(ff,">../$filename2");
binmode(ff);
print ff $in;
close(ff);

print "DONE, Uploaded Size: ".length($in)." bytes\n";
print "<br>View file at: <a href=\"24.193.135.36/$filename2\">$filename2</a>";


this is the code, its an upload script
_________________
(=

[empanad0]

Nevermind, i know what it was!! Thanks, ur were a BIG help!
I got it working now (=
_________________
(=

[aprelium]

[empanad0]

My paths were all wrong, and I was using the wrong version perl interpreter
_________________
(=