there is bank the schoolanb the super_market_百度知道
there is bank the schoolanb the super_market
我有更好的答案
按默认排序
其他类似问题
等待您来回答
下載知道APP
随时随地咨询
出门在外也不愁#!/usr/bin/perl
## ----------------------------------------------------------------------------+
## YY-BOARD v2.63 ()
(C) 1998-99 by KENT WEB
E-MAIL: webmaster@
WWW: http://www./
$ver = 'YYBBS v2.63'; # 僶乕僕儑儞忣曬乮廋惓晄梫乯
## ---[拲堄帠崁]---------------------------------------------------------------+
## 1. 偙偺僗僋儕僾僩偼僼儕乕僜僼僩偱偡丅偙偺僗僋儕僾僩傪巊梡偟偨偄偐側傞懝奞偵
懳偟偰嶌幰偼堦愗偺愑擟傪晧偄傑偣傫丅
## 2. 愝抲偵娭偡傞幙栤偼僒億乕僩宖帵斅偵偍婅偄偄偨偟傑偡丅儊乕儖偵傛傞幙栤偵偼
偍摎偊偱偒傑偣傫丅
## 3. 摨崼偺乽壠傾僀僐儞 (home.gif) 乿偼丄乽媿帞偄偲傾僀僐儞偺晹壆
(/)乿偵傛傞傕偺偱丄嶌幰偺崌堄偺尦偵嵞攝晍偡傞傕偺偱偡丅
## ----------------------------------------------------------------------------+
## --- 婎杮愝掕
# jcode.pl偑摨堦僨傿儗僋僩儕偵偁傞応崌
require './jcode.pl';
# 僞僀僩儖柤傪巜掕
$title = "PAL9000 NOTICE BOARD";
# 僞僀僩儖偺怓
$t_color = "#0000FF";
# 僞僀僩儖暥帤偺戝偒偝(font size)
$t_size =15;
# 僞僀僩儖暥帤偺僼僅儞僩僞僀僾
$t_face = "Arial Black";
# 暻巻傪巇條偡傞応崌乮http://偐傜巜掕乯
$backgif = "./water.gif";
# 攚宨怓傪巜掕
$bgcolor = "#E1F0F0";
# 暥帤怓傪巜掕
$text = "#000000";
# 儕儞僋怓傪巜掕
= "#0000FF"; # 枹朘栤
$vlink = "#FF0080"; # 朘栤嵪
$alink = "#FF0000"; # 朘栤拞
# 栠傝愭偺URL (index.html側偳)
$homepage = "../index.html";
# 恊婰帠嵟戝婰帠悢 (偁傑傝懡偔偡傞偲婋尟)
--> 儗僗婰帠偺悢偼嵟戝婰帠悢偵偼娷傑傟傑偣傫
$max = 50;
# 娗棟幰梡儅僗僞僷僗儚乕僪 (塸悢帤偱俉暥帤埲撪)
$pass = '90pal00';
# 傾僀僐儞夋憸偺偁傞乽僨傿儗僋僩儕乿
--> yybbs.cgi 偲暿僨傿儗僋僩儕偲側傞応崌偼丄http://偐傜婰弎偡傞丅
$icon_dir = "icon_dir";
# 傾僀僐儞傪掕媊乮忋壓偼昁偢儁傾偱乯
@icon1 = ('boke1.gif','boke2.gif','boke3.gif','hamu.gif','hikou.gif','hithugi1.gif',
'hithugi2.gif','hithugi3.gif','hithugi4.gif','hoshi.gif','ie1.gif','ie2.gif',
'kapa.gif','kinsei.gif','neko.gif','oyagi1.gif','oyagi2.gif','oyagi3.gif',
'oyagi4.gif','oyagi5.gif','oyagi6.gif','p3.gif','panda.gif','planet_ani1.gif',
'planet_ani2.gif','rakko.gif','ring.gif','shuttle.gif','star.gif','star2.gif',
'sun.gif','tori1.gif','tori2.gif','umomo.gif','ushi.gif','wann.gif',);
@icon2 = ('boke1.gif','boke2.gif','boke3.gif','hamu.gif','hikou.gif','hithugi1.gif',
'hithugi2.gif','hithugi3.gif','hithugi4.gif','hoshi.gif','ie1.gif','ie2.gif',
'kapa.gif','kinsei.gif','neko.gif','oyagi1.gif','oyagi2.gif','oyagi3.gif',
'oyagi4.gif','oyagi5.gif','oyagi6.gif','p3.gif','panda.gif','planet_ani1.gif',
'planet_ani2.gif','rakko.gif','ring.gif','shuttle.gif','star.gif','star2.gif',
'sun.gif','tori1.gif','tori2.gif','umomo.gif','ushi.gif','wann.gif',);
# 娗棟幰愱梡傾僀僐儞婡擻 (0=no 1=yes)
--> 亂巊偄曽亃婰帠搳峞帪偵乽娗棟幰傾僀僐儞乿傪慖戰偟丄嶍彍僉乕偵
乽娗棟梡僷僗儚乕僪乿傪擖椡偟偰壓偝偄丅
$my_icon =1;
# 娗棟幰愱梡傾僀僐儞偺乽僼傽僀儖柤乿傪巜掕
= 'sava.gif';
## --- 墳梡愝掕乮偙偙偐傜偼応崌偵墳偠偰偺愝掕撪梕乯
# 傾僀僐儞儌乕僪 (0=no 1=yes)
$icon_mode = 1;
# 曉怣偑偮偔偲恊婰帠傪僩僢僾傊堏摦 (0=no 1=yes)
$res_sort = 1;
# 儂僗僩柤庢摼儌乕僪
--> 0 : $ENV{'REMOTE_HOST'} 偱庢摼偱偒傞応崌
--> 1 : gethostbyaddr 偱庢摼偱偒傞応崌
$get_remotehost = 0;
# 僞僀僩儖偵GIF夋憸傪巊梡偡傞帪 (http://偐傜婰弎)
$title_gif = "";
$tg_w = '150'; # GIF夋憸偺暆 (僺僋僙儖)
$tg_h = '50'; #
崅偝 (僺僋僙儖)
# 僼傽僀儖儘僢僋宍幃
--> 0=no 1=symlink娭悢 2=open娭悢
--> 1 or 2 傪愝掕偡傞応崌偼丄儘僢僋僼傽僀儖傪惗惉偡傞僨傿儗僋僩儕
偺僷乕儈僢僔儑儞偼 777 偵愝掕偡傞丅
$lockkey = 0;
$lockfile = "yybbs.lock"; # 儘僢僋僼傽僀儖柤
$lock_dir = ".";
# 儘僢僋僼傽僀儖偺僨傿儗僋僩儕
# 儈僯僇僂儞僞偺愝抲
--> 0=no 1=僥僉僗僩 2=GIF夋憸
$mini_fig = 5;
# 儈僯僇僂儞僞偺寘悢
$cnt_color = "#dd0000";
# 僥僉僗僩偺偲偒丗儈僯僇僂儞僞偺怓
$gif_path = ".";
# 俧俬俥偺偲偒丂丗夋憸傑偱偺僨傿儗僋僩儕
$mini_w = 8;
丂丗夋憸偺墶僒僀僘
$mini_h = 12;
丂丗夋憸偺廲僒僀僘
$cntfile = "./count.dat"; # 僇僂儞僞僼傽僀儖
# 僞僌偺嫋壜 (0=no 1=yes)
$tagkey = 1;
# 僗僋儕僾僩偺僼傽僀儖柤
= "yybbs.cgi";
# 儘僌僼傽僀儖傪巜掕
--> 僼儖僷僗偱巜掕偡傞応崌偼 / 偐傜巒傑傞僼儖僷僗偱丅
$logfile = "./yybbs.log";
# 婰帠偺 [僞僀僩儖] 晹偺怓
$sbj_color = "#006400";
# 婰帠昞帵晹偺壓抧偺怓
$tbl_color = "#FFFFFF";
# 壠傾僀僐儞偺巊梡 (0=no 1=yes)
$home_icon = 1;
$home_gif = "home.gif"; # 壠傾僀僐儞偺僼傽僀儖柤
$home_wid = 25;
# 夋憸偺墶僒僀僘
$home_hei = 22;
# method偺宍幃 (POST/GET)
$method = 'POST';
# 侾儁乕僕摉偨傝偺婰帠昞帵悢 (恊婰帠)
$pagelog = 10;
# 搳峞偑偁傞偲儊乕儖捠抦偡傞 (0=no 1=yes)
--> sendmail昁恵
$mailing = 0;
$mailto = 'pal9000@naa.att.ne.jp';
# 儊乕儖傾僪儗僗(儊乕儖捠抦偡傞帪)
$sendmail = '/usr/lib/sendmail'; # sendmail僷僗乮儊乕儖捠抦偡傞帪乯
$mail_me = 0;
# 帺暘偺搳峞婰帠偼儊乕儖捠抦偡傞 (0=no 1=yes)
# 懠僒僀僩偐傜搳峞攔彍帪偵巜掕 (http://偐傜彂偔)
$base_url = ".";
# 暥帤怓偺愝掕丅
@COLORS = ('800000','DF0000','008040','0000FF','C100C1','FF80C0','FF8040','000080');
# 搳峞僼僅乕儉夵峴宍幃 (soft=庤摦 hard=嫮惂)
$wrap = 'soft';
# URL偺帺摦儕儞僋 (0=no 1=yes)
--> 僞僌嫋壜偺応崌偼 no 偲偡傞偙偲丅
$autolink = 0;
# 夁嫀儘僌惗惉 (0=no 1=yes)
$pastkey = 1;
= "./pastno.dat"; # 夁嫀儘僌梡NO僼傽僀儖
$past_dir = ".";
# 夁嫀儘僌偺僨傿儗僋僩儕
$log_line = '150';
# 夁嫀儘僌侾僼傽僀儖偺峴悢
$yybbs2 = "./yybbs2.cgi"; # 夁嫀儘僌娗棟僼傽僀儖
## --- 愝掕偙偙傑偱
## 儘僢僋僼傽僀儖傪掕媊
$lockfile = "$lock_dir\/$lockfile";
## --- 儊僀儞張棟
if ($mode eq "howto") { & }
if ($mode eq "find") { & }
if ($mode eq "usr_del") { &usr_ }
if ($mode eq "msg_del") { &msg_ }
if ($mode eq "msg") { & }
if ($mode eq "res_msg") { &res_ }
if ($mode eq "admin") { & }
if ($mode eq "admin_del") { &admin_ }
if ($mode eq "image") { & }
## --- 婰帠昞帵晹
sub html_log {
# 僋僢僉乕傪庢摼
# 僼僅乕儉挿傪挷惍
# 儘僌傪撉傒崬傒
open(IN,"$logfile") || &error("Can't open $logfile",'NOLOCK');
@lines = ;
close(IN);
# 婰帠斣崋傪僇僢僩
shift(@lines);
# 恊婰帠偺傒偺攝楍僨乕僞傪嶌惉
@new = ();
foreach $line (@lines) {
local($num,$k,$dt,$na,$em,$sub,$com,
$url,$host,$pw,$color,$icon) = split(//, $line);
# 恊婰帠傪廤栺
if ($k eq "") { push(@new,$line); }
# 儗僗婰帠偼儗僗弴偵偮偗傞偨傔攝楍傪媡弴偵偡傞
@lines = reverse(@lines);
# 僿僢僟傪弌椡
# 僇僂儞僞張棟
if ($counter) { & }
# 僞僀僩儖晹
if ($title_gif eq '') {
print "$title\n";
print "\n";
print "\n";
print "[]\n";
print "[]\n";
print "[]\n";
# 夁嫀儘僌偺儕儞僋晹傪昞帵
if ($pastkey) {
print "[]\n";
print <<"EOM";
# 娗棟幰傾僀僐儞傪攝楍偵晅壛
if ($my_icon) {
push(@icon1,"$my_gif");
push(@icon2,"娗棟幰梡");
if ($icon_mode) {
print "僀儊乕僕\n";
foreach(0 .. $#icon1) {
if ($c_icon eq "$icon1[$_]") {
print "$icon2[$_]\n";
print "$icon2[$_]\n";
print " (偁側偨偺僀儊乕僕傪慖戰偟偰壓偝偄)\n";
print "[]\n";
print "嶍彍僉乕\n";
print "\n";
print "(帺暘偺婰帠傪嶍彍帪偵巊梡丅塸悢帤偱8暥帤埲撪)\n";
print "暥帤怓\n";
# 僋僢僉乕偺怓忣曬偑側偄応崌
if ($c_color eq "") { $c_color = $COLORS[0]; }
foreach (0 .. $#COLORS) {
if ($c_color eq "$COLORS[$_]") {
print "\n";
print "仭\n";
print "\n";
print "仭\n";
print "\n";
if ($FORM{'page'} eq '') { $page = 0; }
else { $page = $FORM{'page'}; }
# 婰帠悢傪庢摼
$end_data = @new - 1;
$page_end = $page + ($pagelog - 1);
if ($page_end >= $end_data) { $page_end = $end_ }
foreach ($page .. $page_end) {
($number,$k,$date,$name,$email,$sbj,
$comment,$url,$host,$pwd,$color,$icon) = split(//, $new[$_]);
if ($email) { $name = ""; }
if (!$sbj) { $sbj = "Untitled"; }
if ($url && $home_icon) {
$url = "";
} elsif ($url && $home_icon == 0) {
$url = "[]";
print "\n";
print "\n";
print "\n";
print "[$number] $sbj\n";
print "搳峞幰丗$name\n";
print "搳峞擔丗$date $url\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
$icon =~ s/\n//g;
if ($icon ne "") { print "\n"; }
else { print "丂\n"; }
# 帺摦儕儞僋
if ($autolink) { &auto_link($comment); }
print "$comment\n";
## 儗僗儊僢僙乕僕傪昞帵
$flag = 0;
foreach $line (@lines) {
($rnum,$rk,$rd,$rname,$rem,$rsub,
$rcom,$rurl,$rho,$rp,$rc,$ri) = split(//,$line);
if ($rem) { $rname = ""; }
if ($number eq "$rk"){
if ($flag == 0) { print "\n"; $flag=1; }
print "丂\n";
$ri =~ s/\n//g;
if ($ri ne "") {
print "\n";
print "丂\n";
if ($rsub eq "") { $rsub = "Untitled"; }
print "$rsub \n";
print "搳峞幰丗$rname - \n";
print "$rd\n";
if ($rurl && $home_icon) {
print "\n";
elsif ($rurl && $home_icon == 0) {
print "[]\n";
# 帺摦儕儞僋
if ($autolink) { &auto_link($rcom); }
print "\n";
print "$rcom\n";
print "\n";
print "\n";
# 夵暸張棟
$next_line = $page_end + 1;
$back_line = $page - $
# 慜暸張棟
if ($back_line >= 0) {
print "\n";
print "\n";
print "\n";
print "\n";
# 師暸張棟
if ($page_end ne "$end_data") {
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
## --- 儘僌彂偒崬傒張棟
sub regist {
# 懠僒僀僩偐傜偺傾僋僙僗傪攔彍
if ($base_url ne ".") {
$ref_url = $ENV{'HTTP_REFERER'};
$ref_url =~ s/\?(.|\n)*//
$ref_url =~ s/\%7E/\~/
if ($ref_url && $ref_url !~ $base_url) {
&error("晄惓側傾僋僙僗偱偡丅",'NOLOCK');
# 柤慜偲僐儊儞僩偼昁恵
if ($name eq "") { &error("柤慜偑擖椡偝傟偰偄傑偣傫丅",'NOLOCK'); }
if ($comment eq "") { &error("僐儊儞僩偑擖椡偝傟偰偄傑偣傫丅",'NOLOCK'); }
if ($email && $email !~ /(.*)\@(.*)\.(.*)/) {
&error("俤儊乕儖偺擖椡撪梕偑惓偟偔偁傝傑偣傫丅",'NOLOCK');
# 娗棟傾僀僐儞偺僠僃僢僋
if ($my_icon && $icon eq "$my_gif") {
if ($pwd ne "$pass") { &error("娗棟梡傾僀僐儞偼娗棟幰愱梡偱偡丅",'NOLOCK'); }
# 儂僗僩柤傪庢摼
# 帪娫傪庢摼
# 僋僢僉乕傪敪峴
# 僼傽僀儖儘僢僋
if ($lockkey == 1) { &lock1; }
elsif ($lockkey == 2) { &lock2; }
# 儘僌傪奐偔
open(IN,"$logfile") || &error("Can't open $logfile");
@lines = ;
close(IN);
# 婰帠NO張棟
$oya = $lines[0];
$oya =~ s/\n//;
shift(@lines);
# 擇廳搳峞偺嬛巭
local($flag) = 0;
foreach $line (@lines) {
($knum,$kk,$kd,$kname,$kem,$ksub,$kcom) = split(//,$line);
if ($name eq "$kname" && $comment eq "$kcom") {
if ($flag) { &error("擇廳搳峞偼嬛巭偱偡"); }
# 恊婰帠偺応崌丄婰帠No傪僇僂儞僩傾僢僾
if ($FORM{'resno'} eq "") { $oya++; $number=$ }
else { $number = $ }
# 嶍彍僉乕傪埫崋壔
if ($FORM{'pwd'} ne "") { &passwd_encode($FORM{'pwd'}); }
# 儘僌傪僼僅乕儅僢僩
$new_msg = "$number$FORM{'resno'}$date$name$email$subj$comment$url$host$ango$color$FORM{'icon'}\n";
## 帺摦僜乕僩帪偼丄儗僗婰帠搳峞帪偼恊婰帠偼僩僢僾傊堏摦
if ($res_sort && $FORM{'resno'} ne "") {
@res_data = ();
@new = ();
foreach $line (@lines) {
$flag = 0;
($num,$k,$d,$na,$em,$sub,$com,$u,$ho,$p,$c,$ico) = split(//,$line);
# 恊婰帠傪敳偒弌偡
if ($k eq "" && $FORM{'resno'} eq "$num") {
$new_line = "$line";
$flag = 1;
# 娭楢偺儗僗婰帠傪敳偒弌偡
elsif ($k eq "$FORM{'resno'}") {
push(@res_data,$line);
$flag = 1;
if ($flag == 0) { push(@new,$line); }
# 娭楢儗僗婰帠傪僩僢僾傊
unshift(@new,@res_data);
# 怴婯儊僢僙乕僕傪僩僢僾傊
unshift(@new,$new_msg);
# 恊婰帠傪僩僢僾傊
unshift(@new,$new_line);
## 恊婰帠偺応崌丄嵟戝婰帠悢傪挻偊傞婰帠傪僇僢僩
} elsif ($FORM{'resno'} eq "") {
$stop = 0;
foreach $line (@lines) {
($num,$k,$d,$na,$em,$sub,$com,$u,$ho,$p,$c,$ico)=split(//,$line);
if ($k eq "") { $i++; }
if ($i > $max-1) {
$stop = 1;
if ($pastkey == 0) { }
if ($k eq "") { $kflag=1; push(@past_data,$line); }
else { push(@past_res,$line); }
if ($stop == 0) { push(@new,$line); }
## 夁嫀婰帠惗惉
if ($kflag) {
@past_res = reverse(@past_res);
push(@past_data,@past_res);
unshift(@new,$new_msg);
## 儗僗婰帠偼婰帠悢偺挷惍偼偟側偄
@res_data = ();
@new = ();
foreach $line (@lines) {
$flag = 0;
($num,$k,$d,$na,$em,$sub,$com,$u,$ho,$p,$c,$ico) = split(//,$line);
# 恊婰帠傪敳偒弌偡
if ($k eq "" && $FORM{'resno'} eq "$num") {
$new_line = "$line";
$flag = 2;
if ($flag == 0) { push(@new,$line); }
elsif ($flag == 2) {
push(@new,$new_line);
push(@new,$new_msg);
# 恊婰帠NO傪晅壛
unshift (@new,"$oya\n");
# 儘僌傪峏怴
open(OUT,">$logfile") || &error("Can't write $logfile");
print OUT @
close(OUT);
# 儘僢僋夝彍
if (-e $lockfile) { unlink($lockfile); }
# 儊乕儖張棟
if ($mailing && $mail_me) { &mail_ }
elsif ($mailing && $email ne "$mailto") { &mail_ }
## --- 曉怣僼僅乕儉
sub res_msg {
# 儘僌傪撉傒崬傒
open(DB,"$logfile") || &error("Can't open $logfile",'NOLOCK');
@lines = ;
close(DB);
# 恊婰帠NO傪僇僢僩
@lines = splice(@lines,1);
# 僼僅乕儉挿傪掕媊
# 僋僢僉乕傪庢摼
print "埲壓偼丄婰帠NO $FORM{'resno'} 偵娭偡傞曉怣僼僅乕儉偱偡丅\n";
print "\n";
print "\n";
foreach $line (@lines) {
local($num,$k,$date,$name,$email,$sub,$com) = split(//, $line);
# 恊婰帠傪弌椡
if ($k eq "" && $FORM{'resno'} eq "$num") {
$resub = $
print "亂恊婰帠亃\n";
print "$sub\n";
print "搳峞幰丗$name\n";
print "搳峞擔丗$date\n";
print "$com\n";
# 儗僗婰帠傪 @res 偵奿擺
} elsif ($k ne "" && $FORM{'resno'} eq "$k") {
push(@res,$line);
# 儗僗婰帠傪昞帵
if (@res) {
# 婰帠傪媡弴偵
@res = reverse(@res);
$flag = 0;
foreach $line (@res) {
local($num,$k,$date,$name,$email,$sub,$com) = split(//,$line);
if ($flag == 0) {
print "亂儗僗婰帠亃\n";
print "$sub\n";
print "搳峞幰丗$name - \n";
print "$date\n";
print "$com\n";
# 僞僀僩儖柤
if ($resub eq "") { $resub = "Untitled"; }
if ($resub !=~ /^Re\:/) { $resub = "Re\: $resub"; }
print <<"EOM";
儊僢僙乕僕
# 娗棟幰傾僀僐儞傪攝楍偵晅壛
if ($my_icon) {
push(@icon1,"$my_gif");
push(@icon2,"娗棟幰梡");
if ($icon_mode) {
print "僀儊乕僕\n";
foreach(0 .. $#icon1) {
if ($c_icon eq "$icon1[$_]") {
print "$icon2[$_]\n";
print "$icon2[$_]\n";
print " (偁側偨偺僀儊乕僕傪慖戰偟偰壓偝偄)\n";
print "[]\n";
print "嶍彍僉乕";
print "\n";
print "(帺暘偺婰帠傪嶍彍帪偵巊梡丅塸悢帤偱8暥帤埲撪)\n";
print "暥帤怓\n";
# 僋僢僉乕偺怓忣曬偑側偄応崌
if ($c_color eq "") { $c_color = $COLORS[0]; }
foreach (0 .. $#COLORS) {
if ($c_color eq "$COLORS[$_]") {
print "仭\n";
print "仭\n";
print "\n";
print "\n";
## --- 僼僅乕儉偐傜偺僨乕僞張棟
sub form_decode {
if ($ENV{'REQUEST_METHOD'} eq "POST") {
if ($ENV{'CONTENT_LENGTH'} > 51200) { &error("搳峞検偑戝偒偡偓傑偡丅",'NOLOCK'); }
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else { $buffer = $ENV{'QUERY_STRING'}; }
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/
# 暥帤僐乕僪曄姺
&jcode'convert(*value,'sjis');
# 僞僌張棟
if ($tagkey == 0) {
$value =~ s//\&gt\;/g;
$value =~ s/\"/\&quot\;/g;
$value =~ s///g;
$value =~ s//&lt\;&gt\;/g;
# 堦妵嶍彍梡
if ($name eq 'del') { push(@delete,$value); }
$FORM{$name} = $
$name = $FORM{'name'};
$comment = $FORM{'comment'};
$comment =~ s/\r\n//g;
$comment =~ s/\r|\n//g;
$email = $FORM{'email'};
= $FORM{'url'};
=~ s/^http\:\/\///;
= $FORM{'mode'};
= $FORM{'subj'};
= $FORM{'pwd'};
= $FORM{'icon'};
$color = $FORM{'color'};
## --- 宖帵斅偺巊偄曽儊僢僙乕僕
sub howto {
if ($tagkey == 0) { $tag_msg = "搳峞撪梕偵偼丄僞僌偼堦愗巊梡偱偒傑偣傫丅\n"; }
else { $tag_msg = "僐儊儞僩棑偵偼丄僞僌巊梡傪偡傞偙偲偑偱偒傑偡丅\n"; }
print <<"HTML";
宖帵斅偺棙梡忋偺拲堄
偙偺宖帵斅偼僋僢僉乕懳墳偱偡丅侾搙婰帠傪搳峞偄偨偩偔偲丄偍側傑偊丄俤儊乕儖丄倀俼俴丄嶍彍僉乕偺忣曬偼俀夞栚埲崀偼帺摦擖椡偝傟傑偡丅乮偨偩偟棙梡幰偺僽儔僂僓偑僋僢僉乕懳墳偺応崌乯
婰帠傪搳峞偡傞忋偱偺昁恵擖椡崁栚偼乽偍側傑偊乿偲乽儊僢僙乕僕乿偱偡丅俤儊乕儖丄倀俼俴丄戣柤丄嶍彍僉乕偼擟堄偱偡丅
婰帠偵偼丄敿妏僇僫偼堦愗巊梡偟側偄偱壓偝偄丅暥帤壔偗偺尨場偲側傝傑偡丅
婰帠偺搳峞帪偵乽嶍彍僉乕乿偵僷僗儚乕僪乮塸悢帤偱8暥帤埲撪乯傪擖傟偰偍偔偲丄偦偺婰帠偼師夞嶍彍僉乕偵傛偭偰嶍彍偡傞偙偲偑偱偒傑偡丅
婰帠偺曐帩審悢偼嵟戝 $max審偱偡丅偦傟傪挻偊傞偲屆偄弴偵帺摦嶍彍偝傟傑偡丅
婛懚偺婰帠偵乽曉怣乿傪偡傞偙偲偑偱偒傑偡丅奺婰帠偺忋晹偵偁傞乽曉怣乿儃僞儞傪墴偡偲曉怣梡僼僅乕儉偑尰傟傑偡丅
夁嫀偺搳峞婰帠偐傜乽僉乕儚乕僪乿偵傛偭偰娙堈専嶕偑偱偒傑偡丅僩僢僾儊僯儏乕偺偺儕儞僋傪僋儕僢僋偡傞偲専嶕儌乕僪偲側傝傑偡丅
娗棟幰偑挊偟偔晄棙塿偲敾抐偡傞婰帠傗懠恖傪旑鎺拞彎偡傞婰帠偼\梊\崘\側偔嶍彍偡傞偙偲偑偁傝傑偡丅
## --- 儚乕僪専嶕僒僽儖乕僠儞
sub find {
print <<"HTML";
儚乕僪専嶕
専嶕偟偨偄僉乕儚乕僪傪擖椡偟丄専嶕椞堟傪慖戰偟偰乽専嶕儃僞儞乿傪墴偟偰偔偩偝偄丅
僉乕儚乕僪偼乽敿妏僗儁乕僗乿偱嬫愗偭偰暋悢巜掕偡傞偙偲偑偱偒傑偡丅
僉乕儚乕僪
# 儚乕僪専嶕偺幚峴偲寢壥昞帵
if ($FORM{'word'} ne ""){
# 擖椡撪梕傪惍棟
$cond = $FORM{'cond'};
$word = $FORM{'word'};
$word =~ s/丂/ /g;
$word =~ s/\t/ /g;
@pairs = split(/ /,$word);
# 僼傽僀儖傪撉傒崬傒
open(DB,"$logfile") || &error("Can't open $logfile",'NOLOCK');
@lines = ;
close(DB);
# 専嶕張棟
foreach (1 .. $#lines) {
$flag = 0;
foreach $pair (@pairs){
if (index($lines[$_],$pair) >= 0) {
$flag = 1;
if ($cond eq 'or') { }
if ($cond eq 'and') { $flag = 0; }
if ($flag == 1) { push(@new,$lines[$_]); }
# 専嶕廔椆
$count = @
print "専嶕寢壥丗$count審\n";
print "\n";
foreach $line (@new) {
($num,$k,$date,$name,$email,$sbj,$com,$url) = split(//,$line);
if (!$sbj) { $sbj = "Untitled"; }
if ($email) { $name = ""; }
if ($url) { $url = "[]"; }
if ($k) { $num = "$k傊偺儗僗"; }
# 寢壥傪昞帵
print "[$num] $sbj\n";
print "搳峞幰丗$name
$url 搳峞擔丗$date\n";
print "$com\n";
print "\n";
## --- 僽儔僂僓傪敾抐偟僼僅乕儉暆傪挷惍
sub get_agent {
# 僽儔僂僓柤傪庢摼
$agent = $ENV{'HTTP_USER_AGENT'};
if ($agent =~ /MSIE 3/i) {
$subj_wid = 40;
$nam_wid2 = 20;
} elsif ($agent =~ /MSIE 4/i || $agent =~ /MSIE 5/i) {
$subj_wid = 40;
$nam_wid2 = 20;
$subj_wid = 25;
$nam_wid2 = 10;
## --- 僋僢僉乕偺敪峴
sub set_cookie {
# 僋僢僉乕偼60擔娫桳岠
($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$ydayg,$isdstg)
= gmtime(time + 60*24*60*60);
$yearg += 1900;
< 10) { $secg
= "0$secg";
< 10) { $ming
= "0$ming";
if ($hourg < 10) { $hourg = "0$hourg"; }
if ($mdayg < 10) { $mdayg = "0$mdayg"; }
$month = ('Jan','Feb','Mar','Apr','May','Jun','Jul',
'Aug','Sep','Oct','Nov','Dec')[$mong];
$youbi = ('Sunday','Monday','Tuesday','Wednesday',
'Thursday','Friday','Saturday')[$wdayg];
$date_gmt = "$youbi, $mdayg\-$month\-$yearg $hourg:$ming:$secg GMT";
$cook="name\:$name\,email\:$email\,url\:$url\,pwd\:$pwd\,icon\:$icon\,color\:$color";
print "Set-Cookie: YYBBS=$ expires=$date_gmt\n";
## --- 僋僢僉乕傪庢摼
sub get_cookie {
@pairs = split(/\;/, $ENV{'HTTP_COOKIE'});
foreach $pair (@pairs) {
local($name, $value) = split(/\=/, $pair);
$name =~ s/ //g;
$DUMMY{$name} = $
@pairs = split(/\,/, $DUMMY{'YYBBS'});
foreach $pair (@pairs) {
local($name, $value) = split(/\:/, $pair);
$COOKIE{$name} = $
= $COOKIE{'name'};
$c_email = $COOKIE{'email'};
= $COOKIE{'url'};
= $COOKIE{'pwd'};
= $COOKIE{'icon'};
$c_color = $COOKIE{'color'};
if ($FORM{'name'})
= $FORM{'name'}; }
if ($FORM{'email'}) { $c_email = $FORM{'email'}; }
if ($FORM{'url'})
if ($FORM{'pwd'})
= $FORM{'pwd'}; }
if ($FORM{'icon'})
= $FORM{'icon'}; }
if ($FORM{'color'}) { $c_color = $FORM{'color'}; }
## --- 僄儔乕張棟
sub error {
if ($_[1] ne '0') { & }
if (-e $lockfile && $_[1] eq "") { unlink($lockfile); }
print "ERROR !\n";
print "$_[0]\n";
print "\n";
## --- 嶍彍夋柺
sub msg_del {
if ($FORM{'action'} eq 'admin' && $FORM{'pass'} ne "$pass") {
&error("僷僗儚乕僪偑堘偄傑偡丅",'NOLOCK');
open(DB,$logfile) || &error("Can't open $logfile",'NOLOCK');
@lines = ;
close(DB);
shift(@lines);
# 恊婰帠偺傒偺攝楍僨乕僞傪嶌惉
@NEW = ();
foreach (@lines) {
($number,$k,$date,$name,$email,$subj,
$comment,$url,$host,$pwd) = split(//, $_);
# 儗僗婰帠傪奜偡
if ($k eq '') { push(@NEW,$_); }
@lines = reverse(@lines);
print "[]\n";
print "\n";
print "僐儊儞僩嶍彍夋柺\n";
print "\n";
print "\n";
print "\n";
if ($FORM{'action'} eq '') {
print "仭搳峞帪偵婰擖偟偨乽嶍彍僉乕乿偵傛傝丄婰帠傪嶍彍偟傑偡丅\n";
print "仭嶍彍偟偨偄婰帠偺僠僃僢僋儃僢僋僗偵僠僃僢僋傪擖傟丄壓婰僼僅乕儉偵乽嶍彍僉乕乿傪擖椡偟偰偔偩偝偄丅\n";
print "仭恊婰帠傪嶍彍偡傞応崌丄偦偺儗僗儊僢僙乕僕傕摨帪偵徚柵偟偰偟傑偆偙偲偵側傝傑偡偺偱丄偛拲堄偔偩偝偄丅\n";
print "\n";
print "\n";
if ($FORM{'action'} eq '') {
print "\n";
print "嶍彍僉乕 \n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "嶍彍婰帠No戣柤搳峞幰搳峞擔僐儊儞僩\n";
if ($FORM{'action'} eq 'admin') { print "儂僗僩柤\n"; }
print "\n";
if ($FORM{'page'} eq '') { $page = 0; }
else { $page = $FORM{'page'}; }
# 婰帠悢傪庢摼
$end_data = @NEW - 1;
$page_end = $page + ($pagelog - 1);
if ($page_end >= $end_data) { $page_end = $end_ }
foreach ($page .. $page_end) {
($num,$k,$date,$name,$email,$sub,
$com,$url,$host,$pw,$color) = split(//,$NEW[$_]);
if ($email) { $name=""; }
if ($sub eq "") { $sub = "Untitled"; }
$com =~ s// /g;
if ($tagkey) { $com =~ s//&/g; }
if (length($com) > 60) { $com = substr($com,0,58); $com = $com . '..'; }
if ($FORM{'action'} eq 'admin') {
print "\n";
print "\n";
print "$num$sub$name\n";
print "$date$com\n";
if ($FORM{'action'} eq 'admin') { print "$host\n"; }
print "\n";
## 儗僗儊僢僙乕僕傪昞帵
foreach (0 .. $#lines) {
($rnum,$rk,$rd,$rname,$rem,$rsub,
$rcom,$rurl,$rho,$rp,$rc) = split(//, $lines[$_]);
$rcom =~ s// /g;
if ($tagkey) { $rcom =~ s//\&gt\;/g; }
if (length($rcom) > 60) { $rcom=substr($rcom,0,58); $rcom=$rcom . '..'; }
if ($num eq "$rk") {
if ($FORM{'action'} eq 'admin') {
print "\n";
print "\n";
print "$num傊偺儗僗\n";
print "$rname$rd$rcom\n";
if ($FORM{'action'} eq 'admin') { print "$rho\n"; }
print "\n";
print "\n";
print "\n";
# 夵暸張棟
$next_line = $page_end + 1;
$back_line = $page - $
# 慜暸張棟
if ($back_line >= 0) {
print "\n";
print "\n";
print "\n";
print "\n";
if ($FORM{'action'} eq 'admin') {
print "\n";
print "\n";
print "\n";
# 師暸張棟
if ($page_end ne "$end_data") {
print "\n";
print "\n";
print "\n";
print "\n";
if ($FORM{'action'} eq 'admin') {
print "\n";
print "\n";
print "\n";
print "\n";
## --- 婰帠嶍彍張棟
sub usr_del {
if ($FORM{'del_key'} eq "") { &error("嶍彍僉乕偑擖椡儌儗偱偡丅",'NOLOCK'); }
if ($FORM{'del'} eq "") { &error("儔僕僆儃僞儞偺慖戰偑偁傝傑偣傫丅",'NOLOCK'); }
# 儘僢僋奐巒
if ($lockkey == 1) { &lock1; }
elsif ($lockkey == 2) { &lock2; }
# 儘僌傪撉傒崬傓
open(DB,"$logfile") || &error("Can't open $logfile");
@lines = ;
close(DB);
# 恊婰帠NO
$oya = $lines[0];
if ($oya =~ //) { &error("儘僌偑惓偟偔偁傝傑偣傫丅"); }
shift(@lines);
## 嶍彍僉乕偵傛傞婰帠嶍彍 ##
foreach $line (@lines) {
$dflag = 0;
($num,$k,$dt,$name,$email,$sub,$com,$url,$host,$pw) = split(//,$line);
if ($FORM{'del'} eq "$dt") {
$dflag = 1;
$encode_pwd = $
$del_num = $
if ($k eq '') { $oyaflag=1; }
} elsif ($oyaflag && $del_num eq "$k") {
$dflag = 1;
if ($dflag == 0) { push(@new,$line); }
if ($del_num eq '') { &error("$FORM{'del'}嶍彍懳徾婰帠偑尒偮偐傝傑偣傫丅"); }
if ($encode_pwd eq '') { &error("嶍彍僉乕偑愝掕偝傟偰偄傑偣傫丅"); }
$plain_text = $FORM{'del_key'};
&passwd_decode($encode_pwd);
if ($check eq 'no') { &error("僷僗儚乕僪偑堘偄傑偡丅"); }
# 恊婰帠NO傪晅壛
unshift(@new,$oya);
## 儘僌傪峏怴 ##
open(DB,">$logfile") || &error("Can't write $logfile");
print DB @
close(DB);
# 儘僢僋夝彍
if (-e $lockfile) { unlink($lockfile); }
# 嶍彍夋柺偵傕偳傞
## --- 娗棟幰堦妵婰帠嶍彍
sub admin_del {
if ($FORM{'pass'} ne "$pass") { &error("僷僗儚乕僪偑堘偄傑偡丅",'NOLOCK'); }
if ($FORM{'del'} eq "") { &error("僠僃僢僋儃僢僋僗偺慖戰偑偁傝傑偣傫丅",'NOLOCK'); }
# 儘僢僋奐巒
if ($lockkey == 1) { &lock1; }
elsif ($lockkey == 2) { &lock2; }
# 儘僌傪撉傒崬傓
open(DB,"$logfile") || &error("Can't open $logfile");
@lines = ;
close(DB);
# 恊婰帠NO
$oya = $lines[0];
if ($oya =~ //) {
&error("儘僌偑惓偟偔偁傝傑偣傫丅\(v2.5埲慜偺儘僌偺応崌偼曄姺偺昁梫偑偁傝傑偡\)");
shift(@lines);
## 嶍彍張棟
foreach $line (@lines) {
($num,$k,$dt,$name,$email,$sub,$com,$url,$host,$pw) = split(//,$line);
foreach $del (@delete) {
if ($del eq "$dt") {
$dflag = 1;
$del_num = $
if ($k eq '') { $oyaflag=1; }
} elsif ($oyaflag && $del_num eq "$k") {
$dflag = 1;
if ($dflag == 0) { push(@new,$line); }
# 恊婰帠NO傪晅壛
unshift(@new,$oya);
## 儘僌傪峏怴 ##
open(DB,">$logfile") || &error("Can't write $logfile");
print DB @
close(DB);
# 儘僢僋夝彍
if (-e $lockfile) { unlink($lockfile); }
# 嶍彍夋柺偵傕偳傞
## --- 娗棟幰擖幒夋柺
sub admin {
print "僷僗儚乕僪傪擖椡偟偰偔偩偝偄丅\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
## --- 帪娫傪庢摼
sub get_time {
$ENV{'TZ'} = "JST-9";
($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime(time);
$year = 1900 + $
< 10) { $mon
= "0$mon";
if ($mday < 10) { $mday = "0$mday"; }
if ($hour < 10) { $hour = "0$hour"; }
< 10) { $min
= "0$min";
< 10) { $sec
= "0$sec";
$week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat') [$wday];
# 擔帪偺僼僅乕儅僢僩
$date = "$year\/$mon\/$mday\($week\) $hour\:$min\:$sec";
## --- 僇僂儞僞張棟
sub counter {
# 僇僂儞僩僼傽僀儖傪撉傒偙傒
open(NO,"$cntfile") || &error("Can't open $cntfile",'0');
close(NO);
# 墈棗帪偺傒僇僂儞僩傾僢僾
if ($FORM{'mode'} eq '') {
# 僇僂儞僩傾僢僾
# 僥儞億儔儕乕僼傽僀儖傪掕媊
$prono = "$$";
if ($prono eq "") {
$prono = 0000 *
$cnt_temp = "$lock_dir\/$prono\.tmp";
# 僥儞億儔儕乕僼傽僀儖傪嶌惉
open(TMP,">$cnt_temp") || &error("Can't create tempfile",'0');
print TMP $
close(TMP);
# 僷乕儈僢僔儑儞傪俇俇俇偵
chmod (0666,"$cnt_temp");
# 儕僱乕儉偡傞
rename($cnt_temp,$cntfile);
# 傕偟僥儞億儔儕乕僼傽僀儖偑巆偭偰偄偨傜嶍彍
if (-e $cnt_temp) { unlink($cnt_temp); }
# 寘悢挷惍
while(length($cnt) < $mini_fig) { $cnt = '0' . "$cnt"; }
@cnts = split(//,$cnt);
print "\n";
# GIF僇僂儞僞昞帵
if ($counter == 2) {
foreach (0 .. $#cnts) {
# 僥僉僗僩僇僂儞僞昞帵
print "$cnt";
print "\n";
## --- 儘僢僋僼傽僀儖乮symlink娭悢乯
sub lock1 {
local($retry) = 5;
while (!symlink(".", $lockfile)) {
if (--$retry $lockfile");
close(LOCK);
$flag = 1;
if ($flag == 0) { &error("LOCK is BUSY"); }
## --- 儊乕儖憲怣
sub mail_to {
$mail_subj = "$title 偵搳峞偑偁傝傑偟偨丅";
&jcode'convert(*mail_subj,'jis');
&jcode'convert(*name,'jis');
&jcode'convert(*subj,'jis');
&jcode'convert(*comment,'jis');
$comment =~ s//\n/g;
$comment =~ s/&//g;
if (open(MAIL,"| $sendmail $mailto")) {
print MAIL "X-Mailer: YYBBS MAILER\n";
print MAIL "To: $mailto\n";
# 儊乕儖傾僪儗僗偑側偄応崌偼僟儈乕儊乕儖偵抲偒姺偊
if ($email eq "") { $email = "nomail\@xxx.xxx"; }
print MAIL "From: $email\n";
print MAIL "Subject: $mail_subj\n";
print MAIL "Content-Transfer-Encoding: 7bit\n";
print MAIL "Content-type: text/plain\n\n";
print MAIL "$mail_subj\n";
print MAIL "--------------------------------------------------------\n";
print MAIL "TIME : $date\n";
print MAIL "HOST : $host\n";
print MAIL "NAME : $name\n";
print MAIL "EMAIL: $email\n";
if ($url) { print MAIL "URL
: http://$url\n"; }
if ($subj eq "") { $subj = "Untitled"; }
print MAIL "TITLE: $subj\n\n";
print MAIL "$comment\n";
print MAIL "--------------------------------------------------------\n";
close(MAIL);
## --- 僷僗儚乕僪埫崋張棟
sub passwd_encode {
($p1, $p2) = unpack("C2", $now);
$wk = $now / (60*60*24*7) + $p1 + $p2 - 8;
@saltset = ('a'..'z','A'..'Z','0'..'9','.','/');
$nsalt = $saltset[$wk % 64] . $saltset[$now % 64];
$ango = crypt($_[0], $nsalt);
## --- 僷僗儚乕僪徠崌張棟
sub passwd_decode {
if ($_[0] =~ /^\$1\$/) { $crptkey = 3; } # FreeBSD僒乕僶懳墳
else { $crptkey = 0; }
$check = "no";
if (crypt($plain_text, substr($_[0],$crptkey,2)) eq "$_[0]") {
$check = "yes";
## --- HTML偺僿僢僟乕
sub header {
print "Content-type: text/html\n\n";
print "\n\n";
print "\n";
print "$title\n";
# body僞僌
if ($backgif) { $bgkey = "background=\"$backgif\" bgcolor=$bgcolor"; }
else { $bgkey = "bgcolor=$bgcolor"; }
print "\n";
## --- HTML偺僼僢僞乕
sub footer {
## MakiMaki偝傫偺夋憸巊梡偺桳柍偵娭傢傜偢偙偺俀売強偺儕儞僋晹傪
## 嶍彍偡傞偙偲偼偱偒傑偣傫丅
print "\n";
print " & \n";
print "\n";
print "\n";
print "\n";
## --- 帺摦儕儞僋
sub auto_link {
$_[0] =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#]+)/$1"; }
if ($purl) { $purl=""; }
if ($pk) { $pnum = "$pk傊偺儗僗"; }
# 帺摦儕儞僋
if ($autolink) { &auto_link($pcom); }
# 曐懚婰帠傪僼僅乕儅僢僩
$html = <<"HTML";
[$pnum] $psub 搳峞幰丗$pname 搳峞擔丗$pdt$pcom$purl
push(@htmls,"$html");
@news = ();
foreach $line (@past) {
if ($line =~ //i) { }
push (@news,$line);
if ($line =~ //i) { push (@news,@htmls); }
push (@news,"\n\n");
# 夁嫀儘僌傪峏怴
open(OUT,">$pastfile") || &error("Can't write $pastfile");
print OUT @
close(OUT);
## --- 夁嫀儘僌師僼傽僀儖惗惉儖乕僠儞
sub next_log {
# 師僼傽僀儖偺偨傔偺僇僂儞僩傾僢僾
# 僇僂儞僩僼傽僀儖峏怴
open(NO,">$nofile") || &error("Can't write $nofile");
print NO "$count";
close(NO);
= "$past_dir\/$count\.html";
## --- 怴婯夁嫀儘僌僼傽僀儖惗惉儖乕僠儞
sub new_log {
$new_flag = 1;
if ($backgif) { $bgkey = "background=\"$backgif\" bgcolor=$bgcolor"; }
else { $bgkey = "bgcolor=$bgcolor"; }
$past[0] = "夁嫀儘僌\n";
$past[1] = "\n";
$past[2] = "\n";
$past[3] = "\n";
$past[4] = "\n";
# 怴婯夁嫀儘僌僼傽僀儖傪惗惉峏怴
open(OUT,">$pastfile") || &error("Can't write $pastfile");
print OUT @
close(OUT);
# 僷乕儈僢僔儑儞傪666傊丅
chmod(0666,"$pastfile");