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を変更する良い手段はないでしょうか？
よろしくお願いします。

回答No.1

BLUEPIXY · ベストアンサー

実際に試してませんが
$header = "Status: 200 OK\n";
$cmt = "OK";
if ($ret == 256) {
$header = "Status: 503 Service Unavailable\n";
$cmt = "NG";
}
$header .= "Content-Type: text/html\n\n";
でどうでしょう

お礼

おおお、これでできました！
ありがとうございます！助かりました…。

補足

ちなみに、質問文に間違いがありまして、Internal Server Errorではなく、正常に画面が表示されてステータスコードが「0」になっていました。
誤った条件を記述していました。すみません。

回答No.2

sakusaker7

HTTPヘッダのステータス部分て Status: とかつきましたっけ?

HTTP/1.1 200 OK

のようになると思うんですが。

お礼

回答ありがとうございます。

Statusを付けないとInternal Server Errorになっていました。
ちなみに、受け取ったヘッダにはStatusがついていません。