|
|
@@ -8,9 +8,9 @@
|
|
|
|
|
|
(defparameter +mobile-ua+ "Mozilla/5.0 (Linux; Android 4.4.4; Nexus 5 Build/KTU84P) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/38.0.2125.114 Mobile Safari/537.36"
|
|
|
"Mobile UA")
|
|
|
-(defparameter +nalunch-mobile+ (puri:uri "https://www.nalunch.ru/Mobile/"))
|
|
|
-(defparameter +nalunch-login+ (puri:uri "https://www.nalunch.ru/Mobile/Account/Login"))
|
|
|
-(defparameter +basicdata-calend+ (puri:uri "http://basicdata.ru/api/json/calend/"))
|
|
|
+(defparameter +nalunch-mobile+ "https://www.nalunch.ru/Mobile/")
|
|
|
+(defparameter +nalunch-login+ "https://www.nalunch.ru/Mobile/Account/Login")
|
|
|
+(defparameter +basicdata-calend+ "http://basicdata.ru/api/json/calend/")
|
|
|
|
|
|
(defun nalunch-auth (&optional body)
|
|
|
(let* ((body (or body
|
