<@20> <@local(r,x,h)> <$ifbreak(! v.daybook_admin)> <$ifbreak(csrf_check(Form.csrf_check_key))> <$verifier = Form.oauth_verifier> <$delete_Wchar(verifier)> <$ifexec(verifier eq '', begin)> <$message('暗証番号が入力されていません。')> <$break()> <$end> <$call('twitter_info')> <$oauth = loadpm("Base::OAuth")> <$tw.verifier = verifier> <$r = oauth.request_access_token(tw)> <$ifexec(!r || r.oauth_token eq '', begin)> <$message('twitterが認証エラーを返しました。')> <$break()> <$end> <$x.tw_access_token = r.oauth_token> <$x.tw_access_token_secret = r.oauth_token_secret> <$x.tw_screen_name = r.screen_name> <$action_return = v.daybook_setting(x)> POST成功時の処理 <$ifexec(action_return eq '0', begin)> <$message('認証と登録が完了しました。')> <$jumpclear('sub/reload_message', v.myself . '?twitter_setting#oauth' )> <$end>