#! /usr/local/bin/perl
require 'jcode.pl';
$cginame = "non";
$sub_file = $cginame.".sub";
$log_file = $cginame."_log";
$cgi_file = $cginame.'_i.cgi';
$log_file_i = $cginame."_log_i";#i-mode用ログファイル
$title = "のんチャット";
$log = "30";
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
if ($sec < 10) { $sec = "0$sec"; }
if ($min < 10) { $min = "0$min"; }
if ($hour < 10) { $hour = "0$hour"; }
$month = ($mon + 1);
$date_now = "$month/$mday $hour:$min";
if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
else { $buffer = $ENV{'QUERY_STRING'}; }
if($buffer){
@pairs = split(/&/,$buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
if($name eq "chat_name"){$cnr = $value;}
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
&jcode'convert(*value,'sjis');
&tag_c;
$FORM{$name} = $value;
}
$chat = $FORM{'chat'};
$chat_name = $FORM{'chat_name'};
$reld = $FORM{'reld'};
$size = $FORM{'size'};
if($chat){
if($chat_name){$cnw = $chat_name;}
else{ $cnw = "↓これだ〜れ？
？？？？"; }
$cnw2 = $cnw;
$cnw2 =~ s/<[^>]*[^<]*>//g;
if ($chat =~ /^「「「.*」」」$/i){&s_t;}
$id = $ENV{'REMOTE_ADDR'};
if ($chat =~ /^[al]*clear$/i){&clear_log;}
else{
open(LOG,">>$log_file");
print LOG "($date_now)($id)
$cnw:$chat
\n";
close(LOG);
#以下i-modeのログ書き込み
$chat =~ s/<[^>]*[^<]*>//g;
open(LOG,">>$log_file_i");
print LOG "$cnw2：$chat
\n";
close(LOG);
}
}
}
open(DB,"$log_file");
@logs2 = ;
close(DB);
$log_l = @logs2;
$cnp = $chat_name;
$chat_name =~ s//>/g;
$chat_name =~ s/"/"/g;
@logs = reverse @logs2;
@logs = @logs[0..$log-1];
if ($log_l >= $log*3){
&l_slim;
}
print "Content-type: text/html\n\n";
if ($reld == 0) {
}
else {
print "\n";
}
print "$title\n";
print "\n";
&s_tr;
print "$st
\n";
print @logs;
print "G-chat
Made by GANMO\n";
print "