あかぴのChangeLog by rchalow

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

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

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

### 書き込み
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(); # 管理者用ログファイルへの書き込み
    }
}