ada yang bisa bantu nggak ?
setelah saya kirim script ini ke server kok nggak jalan
dengan pesan error:
[500] Error - Internal Server Error
Errors:
[Wed Sep 22 09:05:16 1999] [error] (8)Exec format error: exec of
/data1/hypermart.net/ocin/decodingget.pl failed
[Wed Sep 22 09:05:16 1999] [error] [client 202.154.44.57] Premature
end of script headers: /data1/hypermart.net/ocin/decodingget.pl
script saya :
# Nama File: decodingget.pl
# Keterangan: skrip untuk pendekodean data form dengan metode GET
#!/usr/local/bin/perl
print "content-type: text/html\n\n";
print "<HTML><HEAD><TITLE> DecodinG GeT</TITLE></HEAD>\n";
print "<BODY><H1>Hasil Data-Data Form yang dimasukkan : </H1>\n";
print "<P>HTTP_USER_AGENT = $ENV{'HTTP_USER_AGENT'}<BR>\n";
print "REQUEST_METHOD = $ENV{'REQUEST_METHOD'}<BR>\n";
print "SCRIPT_NAME = $ENV{'SCRIPT_NAME'}<BR>\n";
print "QUERY_STRING = $ENV{'QUERY_STRING'}<BR>\n";
print "REMOTE_HOST = $ENV{'REMOTE_HOST'}<BR>\n";
print "REMOTE_ADDR = $ENV{'REMOTE_ADDR'}<BR>\n";
print "CONTENT-TYPE = $ENV{'CONTENT_TYPE'}<BR>\n";
print "CONTENT_LENGTH = $ENV{'CONTENT_LENGTH'}<BR>\n";
$dataform = $ENV{'QUERY_STRING'};
@dataform = split(/&/,$dataform);
foreach $i (0 .. $#dataform)
{
$dataform[$i] =~ s/\+/ /g;
$dataform =~ s/%(..)/pack("c",hex($1))/ge;
($name, $value) = split(/=/,$dataform[$i],2);
$dataform{$name} = $value;
}
print "<P>\nData-Data seteleh didekodekan:<BR>\n\n";
foreach $name (sort keys(%dataform))
{print "<P>$name=", $dataform{$name}, "<BR>\n"}
print "</BODY></HTML>\n";
thanks before
_______________________________________________________________________
Sent by Bimasakti Mail. Get your free e-mail at http://www.bimamail.com
Layanan Pertukaran Banner - http://www.indobanner.co.id
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
To unsubscribe, e-mail : [EMAIL PROTECTED]
To subscribe, e-mail : [EMAIL PROTECTED]
Netika BerInternet : [EMAIL PROTECTED]
