#!/usr/bin/perl print "Content-type: text/html\n\n\n"; require 'jcode.pl'; $logfile="/export/www/yayoi/regist-log"; $homeurl="../"; if($cgi{'lang'} eq "en") { $registurl="../regist-e.html"; } else { $registurl="../regist.html"; } $myname="くみちょ"; $mymail="kumicho\@lares.dti.ne.jp"; $mailto="/bin/mail " . $mymail; open(FILE,"$logfile"); print &print_euc(< Visitors List
登録された先輩のリストですぅ(since Jan 13 1997) EOF $counter=0; while() { chop; if(/name:(.*)$/) { $counter++; $name=$1; } else { if(/url:(.*)$/) { if($1 ne "") { print &print_euc(< $counter:$name 先輩 EOF } else { print &print_euc(< $counter:$name 先輩 EOF } } else { if(/who:(.*)$/) { print &print_euc(<
EOF } else { if(/msg:(.*)$/) { print &print_euc(< $1

EOF } } } } } close(FILE); print &print_euc(< [登録ページ] [トップページ]

インターネット弥生組組長
EOF sub print_jis{ local($value) = @_; &jcode'convert(*value, 'jis'); $value; } sub print_euc{ local($value) = @_; &jcode'convert(*value, 'euc'); $value; }