新規記事投稿
フォロー記事投稿
記事のキャンセル
From: koba
<mailto:ykoba@dcn.ne.jp>
Subject: サブルーチンが動かない?
Date: 2000/05/30 13:30:23
どうにもまともに動かず困ってます。
site.plを自分の環境に書き換え、index.cgi を実行したのですが、
Internal Server Error になり、error_logに
Premature end of script headers: /home/users/koba/public_html/forum/article.cgi
が表示され動かず。
コマンドラインから >perl index.cgi を実行してみても何も出力されず。
最後の &forum'convert_print(*output); でhtmlを吐き出すと思われるのですが、
何も表示されないので、とりあえずこの行をコメントアウトして、print $output; に
してみたら表示されました。 なぜ?
またとりあえずフレームとして表示されたので、Testの部屋 で試験してみたのですが、
新規記事の場所をクリックしたら、やっぱり Internal Server Error。
これは、article.cgi によって表示されるはずですので、同様にコマンドラインから
>perl article.cgi としてみたら表示されるのは、Bad Forum の文字。
コマンドラインからステップ実行でデバッグしてみると、
$title = forum::get_title($room);
&WarningMsg('Bad Forum') if ($title eq '');
のところだと思います。つまり、$title に正しく値が入っていないのでしょうか?
このようになってしまうのは一体何が原因なのでしょうか?
なお、環境ですが、TurboLinux4 上で Perl5 です。
また、LINUX上でいろいろいじりたかった関係上、ファイルは全て
EUC(LF)に変換してあります。
ほかに何か考えられる原因ってありますか?
また、perlは /usr/bin/perl ですので、各ファイルの最初の行も
もちろん書き換えてあります。
(ちなみに、Perlは超初心者です。連想配列を知っている程度)
どなたかお知恵を・・・・