<@20> <@local(ps,name,art,form,line)> <$name = argv#0> <$art = argv#1> <$form = argv#2> <$ps = v.load_plgset(name)> <$ifbreak(! form.ping)> <$ifbreak(ps.access_token eq '')> <@>twitterへの通知ツイート <@local(line,tw,res,t)> <$line = ps.ping_txt || "%t - %n %u"> <$replace(line, '%t', art.title)> <$replace(line, '%n', v.blog.blog_name)> <$replace(line, '%u', art.absolute_url)> <@> ツイート処理 <$tw = call('_sub/load_twitter_info', ps)> <$oauth = loadpm("Base::OAuth")> <$res = oauth.post(tw, tw.status_update_api, {status => line})> <$ifexec(!res || res.errors, begin, begin)> <$ifexec(res.errors, begin, begin)> <@forexec(t, res.errors, begin)> <$notice('Twitterへの通知に失敗しました : %s', "<@t.message> (<@t.code>)")> <$end> <$else> <$notice('Twitterへの通知に失敗しました')> <$end> <$else> <$notice('Twitterに通知しました : %s', line)> <$end>