PerlでのHTTPヘッダのStatus変更
内部処理の結果に応じて、成功の場合は「200 OK」、失敗の場合は「503 Service Unavailable」をHTTPヘッダのStatusに指定して返したいと思っています。
ヘッダを
"Content-Type: text/html\n\n"
だけにして返す場合は問題ないのですが、その前に
"Status: HTTP/1.1 200 OK\n" や "Status: HTTP/1.0 503 Service Unavailable\n" を追加するとInternal Server Errorになってしまいます。
[現状]
--------------------------------------------
$ret=system("コマンド");
$header = "Status: HTTP/1.1 200 OK\n";
$cmt = "OK";
if ($ret == 256) {
$header = "Status: HTTP/1.0 503 Service Unavailable\n";
$cmt = "NG";
}
$header .= "Content-Type: text/html\n\n";
print "$header";
print "$cmt";
exit;
--------------------------------------------
なにか、Statusを変更する良い手段はないでしょうか?
よろしくお願いします。