#! /usr/local/bin/perl
#
#ゆいちゃっとPriv.(private.cgi)
#
require './jcodeLE.pl';
require './pref.cgi';
$| = 1;
&init; &decode; &jikan;
&get; &write if ($chat);
&sanka2; &html; &ended(); exit;
sub html {
print "Content-type: text/html\n\n";
print "
$title$metacode\n";
$dum=@sanka3;
&hide;
print <<"_HTML_";
$body
この電報機能\は、過去60秒以内に参加者ファイルに記録された相手に対してのみ発信できます。
相手が見つからなければ、再アクセスしてみてください。それでもいなければ...接続が切れている可能\性があります..。
発信された電報は、リモートホスト名(ppp123.bekkoame.or.jpなど)が一致した相手にのみ見ることができるようにログファイルに記載されます。書き込んだあなた自身も読むことはできませんので、あしからず。
送信後は、フレーム機能\による画面分割を利用されている方は、発言ウィンドウの発言ボタンを押してください。
フレーム機能\を利用していない方は、このウィンドウを閉じてください。
_HTML_
print "