Perl-CGI mit HTTP-Statuscodes
Ich habe die folgende Überprüfung in einem CGI-Skript, das nach der GET-Methode sucht und einen 405-HTTP-Statuscode zurückgibt, wenn die GET-Methode nicht verwendet wird. Leider wird bei Verwendung von POST oder PUT immer noch der Status 200 OK zurückgegeben.
my ($buffer);
# Read in text
$ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
if ($ENV{'REQUEST_METHOD'} eq "GET")
{
$buffer = $ENV{'QUERY_STRING'};
}
else
{
$cgi->$header->status('405 Method Not Allowed')
print $cgi->header('text/plain');
}
Ich bin noch ein Neuling in der CGI-Programmierung, daher habe ich mir gedacht, dass mir hier jemand die Arbeit mit CGI- und HTTP-Statusrückgaben erklären könnte. Wenn ein gutes CGI-Dokument zur Verfügung gestellt wird, wäre das fantastisch, da die meisten Suchergebnisse CPAN (bereits einige Male gelesen) und wirklich alte Tutorials sind, die nicht objektorientiert sind.