#!/usr/mesh/bin/perl
# NChat.pl is freeware: (c)GOMASUKE
#  Dept. of Computer Science, Faculty of Engineering,
#                             Shizuoka Univ., Hamamatsu, Japan
#  Ver.1.0 1997/05/23
#
# The following DENY BLOCK: write permission denied domain(0)

require './jcode.pl';
$base = 'http://www2s.biglobe.ne.jp/~kibita/cgi-bin/';
$pg = '970525.cgi';
$file = './xxx.txt';
$max = 50; $mmax = 200;

@week = ("Sun","Mon","Tue","Wed","Thu","Fri","Sat");
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdat) = localtime(time);
$mon++;
$date = sprintf("%02d/%02d&lt;%3s&gt;%02d:%02d",
                $mon,$mday,$week[$wday],$hour,$min);

$rh = $ENV{'REMOTE_HOST'};
$ra = $ENV{'REMOTE_ADDR'};
$ref = $ENV{'HTTP_REFERER'};
$ref =~ s/%7E/~/gi;
if ($ra =~ /^xxx\.xxx\.xxx\./) { $rh = "adm"; $ra = "adm"; }
$date = "($date $ra)";

$ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
if ($ENV{'REQUEST_METHOD'} eq "GET") {
    $dat = $ENV{'QUERY_STRING'};
} else {
    read(STDIN, $dat, $ENV{'CONTENT_LENGTH'});
}

@buf = split('&',$dat);
foreach $item (@buf) {
  ($var,$value) = split('=',$item);
  $value =~ tr/+/ /;
  $value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg;
  &jcode'convert(*value,'sjis');
  if ($var eq "msg") { $imsg = $value; }
  $value =~ s/</&lt;/g;
  $value =~ s/>/&gt;/g;
  $value =~ s/\r\n/\n/g; $value =~ s/\r/\n/g; #Win,Mac
  $value =~ s/\n//g;
  $value =~ s/　/ /g;
  $value =~ tr/ / /s;
  $itm{$var} = $value;
}

$name = $itm{'name'};
$mail = $itm{'mail'};
$dln = $itm{'dln'};
$msg = $itm{'msg'};
$ln = length($msg);
if ($ln != 0) { $act = "w"; }

$acl = 0;
if ($act eq "w") {
  if ($ref =~ /^$base/) {
      $acl = 1;
      if ($rh eq $ra) { $rh = gethostbyaddr(pack("C4", split('\.',$rh)),2) || $ra; }
      DENY: {
#       if ($rh =~ /\.zzz\.(or|ne)\.jp/i) { $acl = 2; last DENY; }
#       if ($rh =~ /\.interq\.(or|ne)\.jp/i) { $acl = 2; last DENY; }
#       if ($rh =~ /\.eznet\.(or|ne)\.jp/i) { $acl = 2; last DENY; }
#       if ($rh =~ /\.interwave\.(or|ne)\.jp/i) { $acl = 2; last DENY; }

#       if ($ra =~ /^xxx\.xxx\.xxx\./) { $acl = 2; last DENY; }
      }
  } else {
      $acl = 3;
  }
}

print "Content-type: text/html\n\n";
print <<EOF;
<HTML>
<HEAD><TITLE>N88CHAT</TITLE></HEAD>
<BODY BGCOLOR=#ffffff>
<FONT SIZE=5><B>N88CHAT</B></FONT><BR>
<FORM METHOD="POST" ACTION="$pg">
投稿者: <INPUT TYPE="text" SIZE=20 MAXLENGTH=20 NAME="name" VALUE="$name">
Email<FONT SIZE=2>(任意)</FONT>: <INPUT TYPE="text" SIZE=30 MAXLENGTH=40 NAME="mail" VALUE="$mail"><BR>
<FONT SIZE=2>内容: 改行・タグは無視されます。何も書かないと更新(reload)します</FONT><BR>
EOF

if ($acl == 1 && ($ln > $mmax || $name eq "")) {
    print "<TEXTAREA NAME=\"msg\" ROWS=3 COLS=60>$imsg</TEXTAREA>\n";
} else {
    print "<TEXTAREA NAME=\"msg\" ROWS=3 COLS=60></TEXTAREA>\n";
}

print "<BR><INPUT TYPE=\"submit\" VALUE=\"更新/書込\">　<INPUT TYPE=\"reset\" VALUE=\"clear\">　行数: <SELECT NAME=\"dln\" SIZE=1>\n";
if ($dln eq "") { $dln = 10; }
foreach (50,40,30,20,10) {
  $s = ""; if ($dln == $_) { $s = " SELECTED"; }
  print "<OPTION VALUE=$_$s>$_行";
}
print "\n</SELECT>\n";
print "</FORM><HR>\n";

if ($acl == 1 && ($ln > $mmax || $ln < 2)) {
  print "<FONT COLOR=#ff0000>文字数を減らして下さい($ln char)</FONT><HR>\n";
  $acl = 0;
}
if ($acl == 1 && $name eq "") {
  print "<FONT COLOR=#ff0000>名前を入力して下さい</FONT><HR>\n";
  $acl = 0;
}
if ($acl == 2) { 
  print "<FONT COLOR=#ff0000>ごめんなさい。$rhのドメインからは書き込めません</FONT><HR>\n";
}
if ($acl == 3) { 
  print "<FONT COLOR=#ff0000>正規のフォームから書き込んで下さい($ref)</FONT><HR>\n";
}

if ($acl == 1) { &wrt; } else { &dsp; }
print <<EOF;
MAX record:$max cgi script (c)GOMASUKE&lt;NChat.pl&gt;<BR>
$ra($rh:$acl)<BR>
</BODY>
</HTML>
EOF

exit;

sub dsp {
  $i = 1; @d = ();
  if (-e $file) {
    open(IN,"<$file");
    while(!eof(IN) && $i <= $max) {
      chop($a = <IN>);
      push(@d,$a); $i++;
    }
    close(IN);
  }
  &send;
}

sub wrt {
  $i = 1; @d = ();
  $b = "$name<$mail<$msg<$date<$rh";
  if (-e $file) {
      open(IN,"+<$file");
      flock(IN,2);
      while(!eof(IN) && $i < $max) {
        chop($a = <IN>);
        push(@d,$a); $i++;
      }
  } else {
      exit;
  }
  unshift(@d,$b);
  seek(IN,0,0);
  foreach (@d) {
    print IN "$_\n";
  }
  close(IN);
  &send;
}

sub send {
  $i = 0;
  foreach (@d) {
    ($name,$mail,$msg,$date,$ad) = split('<',$_);
    if ($mail eq "") {
        print "$name＞$msg <FONT SIZE=2>$date</FONT><!--$ad--><HR>\n";
    } else {
        print "<A HREF=\"mailto:$mail\">$name</A>＞$msg <FONT SIZE=2>$date</FONT><!--$ad--><HR>\n";
    }
    $i++; if ($i == $dln) { last; }
  }
}