|
|
@@ -7,6 +7,50 @@
|
|
|
"URL of recent checkins API")
|
|
|
(defparameter *fsq-api-url* "https://api.foursquare.com/v2/~A"
|
|
|
"Foursquare API URL")
|
|
|
+(defparameter +fsq-oauth-url+ "https://foursquare.com/oauth2/authenticate")
|
|
|
+(defparameter +fsq-token-url+ "https://foursquare.com/oauth2/access_token")
|
|
|
+
|
|
|
+(defsetting *client-id* nil "App Client ID")
|
|
|
+(defsetting *client-secret* nil "App Client Secret")
|
|
|
+
|
|
|
+(defun get-authorization-url (chat-id)
|
|
|
+ (quri:render-uri
|
|
|
+ (quri:merge-uris
|
|
|
+ (quri:make-uri :query (quri:url-encode-params
|
|
|
+ `(("response_type" . "code")
|
|
|
+ ("client_id" . ,*client-id*)
|
|
|
+ ("redirect_uri" . ,(get-oauth-url))
|
|
|
+ ("state" . ,(encode-oauth-state :fsq chat-id)))))
|
|
|
+ (quri:uri +fsq-oauth-url+))))
|
|
|
+
|
|
|
+(def-oauth-section-handler oauth-handler (:fsq)
|
|
|
+ (if code
|
|
|
+ (progn
|
|
|
+ (log:info code state)
|
|
|
+ (let* ((resp (json-request +fsq-token-url+ :method :post
|
|
|
+ :content (list
|
|
|
+ (cons "code" code)
|
|
|
+ (cons "client_id" *client-id*)
|
|
|
+ (cons "client_secret" *client-secret*)
|
|
|
+ (cons "redirect_uri" (get-oauth-url))
|
|
|
+ (cons "grant_type" "authorization_code"))))
|
|
|
+ (access-token (aget "access_token" resp))
|
|
|
+ (chat-id (parse-integer state)))
|
|
|
+ (log:info chat-id access-token resp)
|
|
|
+ (if access-token
|
|
|
+ (let ((token-id (db/fsq-ensure-token access-token)))
|
|
|
+ (db/fsq-set-chat-token-id chat-id token-id)
|
|
|
+ (hunchentoot:redirect "/oauth/success"))
|
|
|
+ (hunchentoot:redirect "/oauth/fail"))))
|
|
|
+ (progn
|
|
|
+ (log:info error)
|
|
|
+ (hunchentoot:redirect "/oauth/fail"))))
|
|
|
+
|
|
|
+(defun %send-auth (chat-id)
|
|
|
+ (bot-send-message chat-id "Нет токена"
|
|
|
+ :reply-markup (telegram-inline-keyboard-markup
|
|
|
+ (list (list (list :text "Авторизоваться!"
|
|
|
+ :url (get-authorization-url chat-id)))))))
|
|
|
|
|
|
(defun %fsq-api-call (access-token method &optional params)
|
|
|
(let* ((resp
|
|
|
@@ -137,14 +181,7 @@
|
|
|
`(let ((,token (db/fsq-get-chat-token ,chat-id)))
|
|
|
(if ,token
|
|
|
(progn ,@body)
|
|
|
- (bot-send-message ,chat-id "Заебош токен через /fsqtoken <token>"))))
|
|
|
-
|
|
|
-(def-message-cmd-handler handle-cmd-fsqtoken (:fsqtoken)
|
|
|
- (let* ((token (car args))
|
|
|
- (self (fsq-fetch-self token))
|
|
|
- (token-id (db/fsq-ensure-token token)))
|
|
|
- (db/fsq-set-chat-token-id chat-id token-id)
|
|
|
- (bot-send-message chat-id (format nil "~A, твоих друзяш будем палить теперь" (fsq-user-name self)))))
|
|
|
+ (%send-auth chat-id))))
|
|
|
|
|
|
(def-message-cmd-handler handle-cmd-post-checkins (:postcheckins)
|
|
|
(with-fsq-token (token chat-id)
|
