CGIでチャットを作っています。
以下のCGIファイルをサーバーに置き、ブラウザからアクセスしたいのですが、Internal Server Errorというエラーが出ます。
解決法が分かりません。
よろしくお願います。
#!/usr/local/bin/perl
use CGI;
$input_data = new CGI;
# 最大メッセージ数
$maxmessage = 10;
# get data
if($input_data->param()){
$name = $input_data->param(‘name’);
$mail = $input_data->param(‘mail’);
$message = $input_data->param(‘message’);
}
# get data from file
open(FILE, “chat.dat”);
@allbody =
close(FILE);
# check input data and store data
if($message ne “”){
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
@dayname = (San, Mon, Tue, Wed, Thr, Fri, Sat);
$date = sprintf(“%02d/%02d %s %02d:%02d:%02d”,$mon+1, $mday, @dayname[$wday], $hour, $min, $sec);
if($mail eq “”){
$tmp = “$name“”;