前の日 / 次の日 / 最新 / 2006-8

あかぴのChangeLog by rchalow / 2006-08-19

01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

2006-08-19 Sat

0819の暇人 [行動]

7時過ぎまでゴロゴロ
(仕事)小牛田
旭小屋 14:20ごろ
行かなかったコインランドリー
ゆうらいふ夏祭り
さとこう亭
ようこ
旭小屋 22:35ごろ

今日の天気 [天気]

くもり。今朝は寝やすかったかも。
薄日。蒸し暑くて不快。

買物ログ [買物ログ]

労働 小牛田 9350
食費 ジュース100+500 100
雑費 げんこつ屋2人分 1575
旅交 やまと代行 2400

くっつきBBSスパム対策 [chalow]

### 書き込み
if ($mode eq "write") {
    $name = $noname if ($name =~ /^\s*$/sm);

+ ##### スパム対策 2006/08/19
+ ##### http://www.pochi.cc/~sasaki/chalow/2006-01-25-2.html
+ # anti spam
+ if (($body ne "") && ($body !~ m/[\x80-\xff]/)) {die('error')};
+ #####
    
    if ($body !~ /\A\s*\Z/m) {
escape_string(\$name);
escape_string(\$mail_or_url);
escape_string(\$body);

$body =~ s/\r?\n/<br>/gsm;

my $name_tmp = $name;
if ($mail_or_url =~ /^http:\/\/$URLCHARS+$/) {
    $name_tmp = qq(<a href="$mail_or_url">$name</a>);
}

$latest_id++;
$com_hash{$latest_id}{n} = $name_tmp;
$com_hash{$latest_id}{m} = $body;
$com_hash{$latest_id}{d} = $what_time_is_it_now;

+ ##### スパム対策 2006/08/19
+ exit if (length($body) > 1000); # spam
+ #####

write_to_logfile(); # ログファイルへの書き込み
write_to_jsfile($fn_pref.".js"); # JavaScript Feed ファイルへの書き込み
write_to_rssfile(); # RSS ファイルへの書き込み
write_to_adminlogfile(); # 管理者用ログファイルへの書き込み
    }
}


最終更新時間: 2012-07-04 06:43