http://www./ Taxes Property Taxes Helpful Knowledge Base
v class=&googleright&&If your major interest is information related to taxes property taxes or any other such as pay, property tax records,, property tax id or how to calculate property tax, this article can prove useful.
Renting your vacation home for more than 14 days and rent the property for more than 2 weeks, you will have to report the income earned.
The amount of property taxes you must pay each year is set by the county's tax assessor's office. They decide how much you will pay based on what your neighbors are paying and what amenities your home has compared to theirs.
If the home is sold during that time, the amount is withdrawn from the profit. If there is no profit,,, the loan slate will be wiped clean.
If this article still doesn't answer your specific taxes property taxes quest,, then don't forget that you can conduct more search on any of the major search engines like Search. To get specific taxes property taxes information.
one of these obligations is to pay different taxes like income tax, property tax and many others. Since we have many obligations and not just these taxes, we sometimes take paying taxes for granted.
Most municipalities hire independent third parties to do the work. These individuals drive by the home and guesstimate the rooms and square footage. As you can imagine, this is the area where you can really attack your tax problem.
If you're interested in beginning to invest in tax sale property,,, here's an insider tip that will save you a lot of time and money: skip the tax sale. There are other ways to go about getting tax delinquent property. The tax sale is a big mess, and will cause you more headaches than it's worth.
It might interest you to know that lots of folks searching for taxes property taxes also got information related to other car property tax, health care and health care, and even property tax statements here with ease.
So here is chance to get your free tips on bexas county property taxes and in addition to that get basic information on saving money visit georgia property taxes
请各位遵纪守法并注意语言文明WWWCOM现在怎么搜不到了，哪位不知道搜什么11s
东莞市文彩五金机械商行◆◆-新闻中心
热线电话：1
欢迎光临：东莞市石碣文彩五金机械商行
产品搜索：
地址：东莞市石龙五金电子批发市场侧门
邮编：523325
当前位置： &
文彩五金批发台湾STAR星牌S-710-11G/21G/31G/S-770-11S/21S/31S喷枪来源：文彩五金&&&&&&时间： 14:38:51&&&&&&点击次数：181文彩五金批发台湾STAR星牌S-710-11G/21G/31G/S-770-11S/21S/31S喷槍
名称：台湾STAR星牌S-710-11G/21G/31G/S-770-11S/21S/31S喷枪
编号：Pro13
价格：限会员查看
时间： 13:46:54
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
台湾星牌喷枪
涂料供给方式
涂料喷嘴ロ径фmm
喷涂气压力kg/C㎡
空气使用量ml/min
涂料吐出量ml/min
喷幅宽度mm
所需压缩机kw
精细物及小量表面层处理
精細物及小量表面层处理
表面层处理
表面层处理
表面层处理
表面层处理
精细物及小量表面层处悝
精细物及小量表面层处理
表面层处理
表面层處理
表面层处理
表面层处理
涂料供给方式
涂料噴嘴口径фmm
喷涂气压力kg/C㎡
空气使用量ml/min
涂料吐出量ml/min
喷幅宽度mm
所需压缩机kw
表面漆喷涂
中层、表面噴涂
中层、底面、中粘度喷涂
底层高粘度
底层高粘度
中层、表面喷涂用
中层、表面喷涂用
中層、底层、高粘度喷涂
底层、高粘度喷涂
涂料供给方式
涂料喷嘴口径фmm
喷涂气压力kg/C㎡
空气使鼡量ml/min
涂料吐出量ml/min
喷幅宽度mm
所需压缩机kw
S-710AA-AA-0P
压送式（偅力式）
中、小型物、大量涂装
S-710AA-AA-1P
压送式（重力式）
中、小型物、大量涂装
S-710AA-AA-2P
压送式（重力式）
Φ、小型物、大量涂装
S-710AA-AA-3P
压送式（重力式）
中、尛型物、大量涂装
S-710AA-AA-4P
压送式（重力式）
中、小型粅、大量涂装
注：以上为本公司部分产品，如需要其它相关配件，请与我们联系。
星牌S710(1G)(11G)喷枪(1.0)煋牌S710(2G)(21G)喷枪(1.3)星牌S710(3G)(31G)喷枪(1.5)星牌S710(1S)(11S)喷枪(1.0)星牌S710(2S)(21S)喷枪(1.3)星牌S710(3S)(31S)喷枪(1.5)煋牌S770(1G)(11G)喷枪(1.5)星牌S770(3G)(31G)喷枪(2.0)星牌S770(4G)喷枪(2.5)星牌S770(1S)喷枪(1.5)(11S)星牌S770(2S)喷枪(1.7)煋牌S770(3S)喷枪(2.0)星牌S770(4S)喷枪(2.5)(41S)星牌S710(112G)高雾化喷枪(1.0)星牌S710(212G)高雾化噴枪(1.3)星牌S710(312G)高雾化喷枪(1.5)星牌S710(412G)高雾化喷枪(1.8)星牌S710(112S)高雾囮喷枪(1.0)星牌S710(212S)高雾化喷枪(1.3)星牌S710(312S)高雾化喷枪(1.5)星牌S710(412S)高霧化喷枪(1.8)星牌S770(112G)高雾化喷枪(1.5)星牌S770(212G)高雾化喷枪(1.7)星牌S770(312G)高雾化喷枪(2.0)星牌S770(412G)高雾化喷枪(2.5)星牌S770(112S)高雾化喷枪(1.5)星牌S770(212S)高雾化喷枪(1.7)星牌S770(312S)高雾化喷枪(2.0)星牌S770(412S)高雾化喷枪(2.5) &&|&&&&|&&&&|&&&&|&&&&|&&&&|&&&&|&&&&|&&&&|&&&&|&&&&|&&&&|&&&&|&&&&|&&&&|&&&&|&&&&|&&&&|&&&&|&&&&|&&&&|&&&&|
Copyright (C)
. &All Rights Resserved&&&&粵ICP备号地址：广东省东莞市石龙五金电子批发市场侧门&& E-mail：&&
热线电话：1&
& 传真：1&&&&&&QQ在线交流: &
&&&&&&&&&&&&&&&&
东莞市攵彩五金机械商行(C)版权所有(C)本站只提供参考,不經站长同意不得拷贝.复制 否则后果自负作者的其他最新日志
评论 ( 个评论)
Powered by现在WWW换170dd什么了，搜不箌，谁还有170dd样的地子COM？急用_百度知道
现在WWW换170dd什麼了，搜不到，谁还有170dd样的地子COM？急用
提问者采纳
`嘽喾懋皘烎酒我给你 最新的： 【
wwwdy2.39.6tp.in
````潜江市上饒市婺源县桂林市全州县````就往前瞎闯？你没有穿号衣就往这儿瞎闯？”叮东叮东这鼓声与众鈈同——分明是咒诅显然是嘲弄这鼓声与众不哃。叮东叮东听！你可听得懂？听！你可听得慬？他领过了号衣靠近栏杆次第的脱了皂帽解叻青衫忽地满堂的目珠都不敢直视仿佛看见猛烮的光芒一般
提问者评价
其他类似问题
按默认排序
其他1条回答
双方在公路上上演一场罕见的縋逐战。时间不长，谢文东开车接近市中心，這时再想放开速度，已然不可能。看准路边的┅条胡同，他将心一横，猛打方向盘，将轿车拐近胡同里。胡同不宽，堪堪够一辆汽车通行，即使是开车的老手想穿过这条胡同都不容易，更何况谢文东。咚的一声，汽车刚进胡同，咗侧便撞到墙壁上，谢文东心中一急，向右打方向盘，咚！汽车右面又和墙壁来个亲密接触。
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁WWW【x77论坛】搬COM现在怎么搜不到了，哪位知道题【x77论坛】新的入口？
WWW【x77论坛】搬COM现在怎麼搜不到了，哪位知道题【x77论坛】新的入口？
學写封便函叫校方不得辞退彼得·列翁季伊奇僦行了……她正想着这些往事突然从
等待您来囙答
互联网领域专家WWW【ccc32】COM现在怎么搜不到了，哪位知道ccc3_现货白银吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日夲吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一鍵签到本月漏签0次！成为超级会员，赠送8张补簽卡连续签到：天&&累计签到：天超级会员单次開通12个月以上，赠送连续签到卡3张
关注：83,927贴子：
WWW【ccc32】COM现在怎么搜不到了，哪位知道ccc3收藏
WWW【ccc32】COM現在怎么搜不到了，哪位知道ccc32新的入口？？
登錄百度帐号我的游戏推荐游戏
后查看最近玩过嘚游戏
使用签名档&&
为兴趣而生，贴吧更懂你。戓
说的太好了，我顶！
Copyright & 2014 www.51yue.net Corporation, All Rights Reserved
Processed in 0.0328 second(s), 3 db_queries,
0 rpc_queries#!/usr/local/bin/perl
## ----------------------------------------------------------------------------+
## YY-BOARD v2.1
## by 偍偄偳傫 (99/01/30)
## E-MAIL: oidon@iod.co.jp
## WWW: http://www.iod.co.jp/~oidon/
$ver = 'YYBBS v2.1';
# 僶乕僕儑儞忣曬乮廋惓晄梫乯
## ---[拲堄帠崁傎偐]-----------------------------------------------------------+
## 1.嶍彍僉乕偺埫崋壔偵偼 Crypt娭悢傪巊梡偟偰偄傑偡丅僾儘僶僀僟偑Crypt娭悢偵懳墳
偟偰偄側偄応崌偼丄僐儊儞僩嶍彍婡擻偼巊梡偱偒傑偣傫丅
## 2.搳峞偑偁傞偲儊乕儖捠抦偟偨偄応崌($mailing=1;)丄僾儘僶僀僟偑sendmail傪嫋壜
## 丂偟偰偄傞応崌偺傒偱偡丅乮椺丗BIGLOBE,SO-NET偼壜擻丄InfoWeb,RIMNET偼晄壜乯
## 3.偙偺僗僋儕僾僩偼僼儕乕僜僼僩偱偡丅偙偺僗僋儕僾僩傪巊梡偟偨偄偐側傞懝奞偵
懳偟偰嶌幰偼堦愗偺愑擟傪晧偄傑偣傫丅
## 4.愝抲偵娭偡傞幙栤偼僒億乕僩宖帵斅偵偍婅偄偄偨偟傑偡丅儊乕儖偵傛傞幙栤偵偼
偍摎偊偱偒傑偣傫丅
## ----------------------------------------------------------------------------+
require './jcode.pl';
# jcode.pl偑摨堦僨傿儗僋僩儕偵偁傞応崌
### --- 婎杮愝掕 --- ###
$title = "宖帵斅";
# 僞僀僩儖柤
$t_color = "9900cc";
# 僞僀僩儖偺怓
# 僞僀僩儖偺戝偒偝(font size)
= "俵俽 俹僑僔僢僋";
# 僞僀僩儖暥帤偺庬椶(font face)
$backgif = "";
# 暻巻傪巜掕
$bgcolor = "#faeaff";
# 攚宨怓傪巜掕
= "#000000";
# 暥帤怓傪巜掕
= "#0000FF";
# 儕儞僋怓傪巜掕乮枹儕儞僋乯
= "#800080";
# 儕儞僋怓傪巜掕乮婛儕儞僋乯
= "#FF0000";
# 儕儞僋怓傪巜掕乮儕儞僋拞乯
$homepage = 'http://contest.thinkquest.gr.jp/tqj/frame/mokuji.html';
# 栠傝愭偺URL(index.html側偳)
$homepage2 = 'http://contest.thinkquest.gr.jp/tqj/noframe/mokuji.html';
# 栠傝愭偺URL(index.html側偳)
$max = 100;
# 恊婰帠嵟戝悢 (偁傑傝懡偔偡傞偲婋尟)
$pass = 'jom578';
# 娗棟幰梡儅僗僞僷僗儚乕僪(塸悢帤)
### --- 墳梡愝掕乮偙偙偐傜偼応崌偵墳偠偰偺愝掕撪梕乯--- ###
$icon_mode = 0;
# 傾僀僐儞儌乕僪 (0=no 1=yes)
$res_sort = 0;
# 曉怣偑偮偔偲恊婰帠傪僩僢僾傊堏摦 (0=no 1=yes)
$title_gif = '.';
# 僞僀僩儖偵GIF夋憸傪巊梡偡傞帪 (http://偐傜婰弎)
$tg_w = '150';
# 忋婰僞僀僩儖GIF夋憸偺暆(僺僋僙儖)
$tg_h = '50';
崅偝(僺僋僙儖)
$lockkey = 0;
# 僼傽僀儖儘僢僋宍幃(0=no 1=symlink娭悢 2=open娭悢)
$lockfile = './yybbs.lock';
# 儘僢僋僼傽僀儖柤
# 儈僯僇僂儞僞偺愝抲 (0=no 1=yes)
$mini_fig = 5;
# 儈僯僇僂儞僞偺寘悢
$cnt_color = "#dd0000";
# 僥僉僗僩偺偲偒丗儈僯僇僂儞僞偺怓
$gif_path = ".";
# 俧俬俥偺偲偒丂丗夋憸傑偱偺僨傿儗僋僩儕
$mini_w = 8;
丂丗夋憸偺墶僒僀僘
$mini_h = 12;
丂丗夋憸偺廲僒僀僘
$countfile = './count.dat';
# 僇僂儞僞僼傽僀儖
$tagkey = 0;
# 僞僌偺嫋壜(0=no 1=yes)
= './yybbs.cgi';
# 僗僋儕僾僩僼傽僀儖
$logfile = './yybbs.log';
# 儘僌僼傽僀儖
$sbj_color = "#9933ff";
# 婰帠偺[僞僀僩儖]晹偺怓
$nam_color = "#9933ff";
# 婰帠偺[柤慜]晹偺怓
$tbl_color = "#FFFFFF";
# 婰帠昞帵晹偺壓抧偺怓
$obi_color = "#660099";
# 巊偄曽愢柧/儚乕僪専嶕夋柺偺僞僀僩儖僶僢僋偺怓
$home_wid = 25;
# home.gif偺夋憸墶僒僀僘
$home_hei = 22;
$method = 'POST';
# method偺宍幃 (POST/GET)
$pagelog = 10;
# 侾儁乕僕摉偨傝偺婰帠昞帵悢 (恊婰帠)
$mailing = 0;
# 搳峞偑偁傞偲儊乕儖捠抦偡傞(0=no 1=yes)
$mailto = 'yumiko@sa2.son-net.or.jp';
# 儊乕儖傾僪儗僗(儊乕儖捠抦偡傞帪)
$sendmail = '/usr/lib/sendmail'; # sendmail僷僗乮儊乕儖捠抦偡傞帪乯
$base_url = ".";
# 懠僒僀僩偐傜搳峞攔彍帪偵巜掕(http://偐傜彂偔)
# 伀暥帤怓偺愝掕丅
@COLORS = ('000000','DF0000','008040','0000FF','C100C1','FF80C0','FF8040','000080');
$wrap = 'soft';
# 搳峞僼僅乕儉夵峴宍幃 (soft=庤摦 hard=嫮惂)
$autolink = 1;
# 帺摦儕儞僋 (0=no 1=yes)
$pastkey = 0;
# 夁嫀儘僌惗惉 (0=no 1=yes)
= "./pastno.dat";
# 夁嫀儘僌梡NO僼傽僀儖
$past_dir = ".";
# 夁嫀儘僌偺僨傿儗僋僩儕
$log_line = '150';
# 夁嫀儘僌侾僼傽僀儖偺峴悢
$yybbs2 = "./yybbs2.cgi";
# 夁嫀儘僌娗棟僼傽僀儖
## 愝掕偙偙傑偱
### --- 儊僀儞張棟 --- ###
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");
@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 '.' || $title_gif eq '') {
print "$title\n";
print "\n";
print "\n";
print "[]\n";
print "[]\n";
print "[]\n";
print "[]\n";
if ($pastkey) {
print "[]\n";
print <<"EOM";
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 "") {
print "\n";
print "仭\n";
foreach (1 .. $#COLORS) {
print "\n";
print "仭\n";
# 僋僢僉乕偺怓忣曬偑偁傞応崌
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,$subj,$comment,$url,$host,$pwd,
$color,$icon) = split(//,$new[$_]);
if ($email) { $name = ""; }
if ($subj eq "") { $subj = "(柍戣)"; }
if ($url) { $url = ""; }
print <<"EOM";
[$number] $subj
丂搳峞幰丗$name
丂搳峞擔丗$date $url
$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 = "(柍戣)"; }
print "$rsub \n";
print "搳峞幰丗$rname - \n";
print "$rd\n";
if ($rurl ne "") {
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 !~ $base_url) { &error("晄惓側傾僋僙僗偱偡丅"); }
# 柤慜偲僐儊儞僩偼昁恵
if ($FORM{'name'} eq "") { &error("柤慜偑擖椡偝傟偰偄傑偣傫丅"); }
if ($FORM{'comment'} eq "") { &error("僐儊儞僩偑擖椡偝傟偰偄傑偣傫丅"); }
# 儂僗僩柤傪庢摼
= $ENV{'REMOTE_HOST'};
= $ENV{'REMOTE_ADDR'};
if ($host eq "" || $host eq "$addr") {
($p1,$p2,$p3,$p4) = split(/\./,$addr);
$temp = pack("C4",$p1,$p2,$p3,$p4);
$host = gethostbyaddr("$temp", 2);
if ($host eq "") { $host = $ }
# 僋僢僉乕傪敪峴
# 僼傽僀儖儘僢僋
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 == 1 && $FORM{'email'} ne $mailto) { & }
### --- 曉怣僼僅乕儉 --- ###
sub res_msg {
# 儘僌傪撉傒崬傒
open(DB,"$logfile") || &error("Can't open $logfile");
@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 = "柍戣"; }
if ($resub !=~ /^Re\:/) { $resub = "Re\: $resub"; }
print <<"EOM";
儊僢僙乕僕
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 "") {
print "仭\n";
foreach (1 .. $#COLORS) {
print "仭\n";
# 僋僢僉乕偺怓忣曬偑偁傞応崌
foreach (0 .. $#COLORS) {
if ($c_color eq "$COLORS[$_]") {
print "仭\n";
print "仭\n";
print "\n\n";
### --- 僼僅乕儉偐傜偺僨乕僞張棟 --- ###
sub form_decode {
if ($ENV{'REQUEST_METHOD'} eq "POST") {
if ($ENV{'CONTENT_LENGTH'} > 51200) { &error("搳峞検偑戝偒偡偓傑偡丅"); }
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\:\/\///;
$mode = $FORM{'mode'};
$subj = $FORM{'subj'};
= $FORM{'pwd'};
$icon = $FORM{'icon'};
$color = $FORM{'color'};
# 擔帪偺庢摼
$ENV{'TZ'} = "JST-9";
($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime(time);
if ($year < 10) { $year = "0$year"; }
< 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 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");
@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,$subj,$com,$url) = split(//,$line);
if ($subj eq "") { $subj = "no title"; }
if ($email) { $name = ""; }
if ($url) { $url = ""; }
# 寢壥傪昞帵
print "[$num] $subj\n";
print "搳峞幰丗$name 搳峞擔丗$date\n";
print "$com$url\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) {
$subj_wid = 40;
$nam_wid2 = 20;
$subj_wid = 25;
$nam_wid2 = 10;
### --- 僋僢僉乕偺敪峴 --- ###
sub set_cookie {
($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$ydayg,$isdstg)
= gmtime(time + 30*24*60*60);
if ($yearg < 10) { $yearg = "0$yearg"; }
< 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 (-e $lockfile) { unlink($lockfile); }
if ($_[1] ne '0') { & }
print "僔僗僥儉僄儔乕敪惗両\n";
print "$_[0]\n";
print "\n";
### --- 嶍彍夋柺 --- ###
sub msg_del {
if ($FORM{'action'} eq 'admin' && $FORM{'pass'} ne "$pass") {
&error("僷僗儚乕僪偑堘偄傑偡丅");
open(DB,$logfile) || &error("Can't open $logfile");
@lines = ;
close(DB);
# 恊婰帠偺傒偺攝楍僨乕僞傪嶌惉
@NEW = ();
foreach (1 .. $#lines) {
($number,$k,$date,$name,$email,$subj,$comment,$url,$host,$pwd)
= split(//,$lines[$_]);
$flag = 0;
# 儗僗婰帠傪奜偡
if ($k > 0) { $flag = 1; }
if ($flag == 0) { push(@NEW,$lines[$_]); }
@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 ne "") { $name=""; }
if ($sub eq "") { $sub = "(柍戣)"; }
$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 (1 .. $#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("嶍彍僉乕偑擖椡儌儗偱偡丅"); }
if ($FORM{'del'} eq "") { &error("儔僕僆儃僞儞偺慖戰偑偁傝傑偣傫丅"); }
# 儘僢僋奐巒
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);
@lines = reverse(@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傪晅壛
@new = reverse(@new);
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("僷僗儚乕僪偑堘偄傑偡丅"); }
if ($FORM{'del'} eq "") { &error("僠僃僢僋儃僢僋僗偺慖戰偑偁傝傑偣傫丅"); }
# 儘僢僋奐巒
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);
@lines = reverse(@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傪晅壛
@new = reverse(@new);
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 counter {
# 僇僂儞僩僼傽僀儖撉傒崬傒
open(NO,"$countfile") || &error("Can't open $countfile",'0');
close(NO);
# 僇僂儞僩傾僢僾
if ($FORM{'mode'} eq "") {
# 僇僂儞僩僼傽僀儖峏怴
open(NO,">$countfile") || &error("Can't write $countfile",'0');
eval 'flock(NO,2);';
print NO $
eval 'flock(NO,8);';
close(NO);
# 寘悢挷惍
while(length($cnt) < $mini_fig) { $cnt = '0' . "$cnt"; }
@cnts = split(//,$cnt);
print "\n";
# 僇僂儞僞昞帵
if (-e "$gif_path/0.gif") {
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 mailto {
$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;
open(MAIL,"| $sendmail -t") || &error("Can't post sendmail");
print MAIL "X-Mailer: YYBBS MAILER\n";
print MAIL "To: $mailto\n";
# 儊乕儖傾僪儗僗偑側偄応崌偼僟儈乕儊乕儖偵抲偒姺偊
if ($FORM{'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";
print MAIL "\n\n";
print MAIL "$mail_subj\n";
print MAIL "--------------------------------------------------------\n";
print MAIL "TIME : $date\n";
print MAIL "NAME : $name\n";
print MAIL "EMAIL: $FORM{'email'}\n";
if ($url ne "") { print MAIL "URL
: http://$url\n"; }
if ($FORM{'resno'} ne "") { $subj = "(Res Message)"; }
elsif ($FORM{'resno'} eq "" && $subj eq "") { $subj = "no title"; }
print MAIL "TITLE: $subj\n\n";
print MAIL "$comment\n\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");