新規記事投稿 フォロー記事投稿 記事のキャンセル
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は超初心者です。連想配列を知っている程度)

どなたかお知恵を・・・・