100offer 刷票脚本

(defun robot-vote(project-id)
  (let* ((cookie-jar (make-instance 'drakma:cookie-jar))
         (proj-res (multiple-value-list
                    (drakma:http-request (concatenate 'string "http://i.100offer.com/projects/" (write-to-string project-id))
                                         :cookie-jar cookie-jar)))
         (html-str (car proj-res))
         (csrf-token
          (car (map 'list
                    #'(lambda (node)
                        (plump:attribute node "content"))
                    (clss:select "meta[name=csrf-token]" (plump:parse html-str)))))
         (vote-result (drakma:http-request "http://i.100offer.com/projects/vote"
                                           :method :post
                                           :parameters `(,(cons "project_id" (write-to-string project-id)))
                                           :additional-headers `(,(cons "X-CSRF-Token"  csrf-token))
                                           :cookie-jar cookie-jar)))
    vote-result))