#! /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
$title
発信先指定:
おなまえ:$name $hidden $kao $mojicolor
電報:
この電報機能\は、過去60秒以内に参加者ファイルに記録された相手に対してのみ発信できます。
相手が見つからなければ、再アクセスしてみてください。それでもいなければ...接続が切れている可能\性があります..。
発信された電報は、リモートホスト名（ppp123.bekkoame.or.jpなど）が一致した相手にのみ見ることができるようにログファイルに記載されます。書き込んだあなた自身も読むことはできませんので、あしからず。


送信後は、フレーム機能\による画面分割を利用されている方は、発言ウィンドウの発言ボタンを押してください。
フレーム機能\を利用していない方は、このウィンドウを閉じてください。
_HTML_ print "
ゆいちゃっと Pro++(Free)
\n";#この行だけは消さないでっ！！ }#html END sub get{ $chat = $FORM{'chat'}; $emoji = $FORM{'emoji'};$emoji =~ s/\t/</eg; $emoji = '(=＾＾=)' if($emoji eq '(=＾＾=)'); $emoji ='' if($emoji =~/なし/); $mojicolor = $FORM{'mojicolor'}; $secret = $FORM{'secret'}; }#get END sub write { &jcode'convert(*chat,'sjis'); &tag if ($chat=~s/\t/]*)>(.*)/$1/; $tag =~s/^\/(.*)//; $tag =~s/^([^\s]*).*/$1/; } $chat.='>' if($chat=~/<\/$/); @tags = reverse( @tags ); foreach $tag ( @tags ){ next if($tag =~/(img|^hr$|^br$)/i); $chat.="" if($tag); } $chat.='">タグえらー？' if( ($chat=~/.*<\/A>/i) ); $chat =~ s/; close(LOG); foreach $line (@sanka) { ($timerec, $handle, $host2,$dmy) = split(/\t/, $line); push(@sanka3,"