<@20> <@local(r,x,h)> <$ifbreak(! v.daybook_admin)> <$ifbreak(csrf_check(Form.csrf_check_key))> ただの設定保存 <$ifexec(Form.save_twitter_setting, begin)> <$x.tw_ping = Form.tw_ping> <$x.tw_ping_title = Form.tw_ping_title> <$action_return = v.daybook_setting(x)> <$message('設定を保存しました')> <$jumpclear('sub/reload_message', v.myself)> <$break()> <$end> 認証 <$call('twitter_info')> <$oauth = loadpm("Base::OAuth")> <$r = oauth.request_token(tw)> <$ifexec(!r, begin)> <$message('twitterが認証エラーを返しました。')> <$break()> <$end> <$x.tw_oauth_token = r.oauth_token> <$x.tw_oauth_token_secret = r.oauth_token_secret> <$x.tw_access_token = ""> <$x.tw_access_token_secret = ""> <$action_return = v.daybook_setting(x)> POST成功時の処理 <$ifexec(action_return eq '0', begin)> <$message('続いてアプリに認証コードを登録します')> <$jumpclear('sub/reload_message', v.myself . '?twitter_oauth2' )> <$end>