CGIでチャットを作っています。 以下のCGIファイルをサーバーに置き、ブラウザからアクセスしたい

未分類

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“”;



 ⬇人気の記事!⬇

タイトルとURLをコピーしました