喫茶LAPON-β

152行目より追加してrequire MT::Util;以下のブロックをif文で囲む。
TwitterカテゴリのエントリーのみPOSTするよ。

my $cats = $obj->categories;
my $postflag = 0;
for my $cat (@$cats) {
if($cat->label == "Twitter"){
$postflag = 1;
}
}

if($postflag){
require MT::Util;
MT::Util::start_background_task(
sub {
return doLog("PostToTwitter: do update.") if $DEBUG;
unless(update_twitter($user, $pass, $msg)) {
return doLog("PostToTwitter: Failed to update.");
}
}
);
}