overflow/mariobot
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add sleep to all three functions

Browse Source
This commit is contained in:
Brent Gordon 2020-03-02 10:27:03 -05:00
parent a1faf8d047
commit 7cc63fac64
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
bot.rkt
View File

@ -26,13 +26,15 @@
(define (search-safebooru) (define (search-safebooru)
(sleep (* 3.333333333 60))
(define-values (status header response)(http-sendrecv safebooru (string-append "/posts.json?limit=" limit "&page=" page "&tags="tags ) #:ssl? #t)) (define-values (status header response)(http-sendrecv safebooru (string-append "/posts.json?limit=" limit "&page=" page "&tags="tags ) #:ssl? #t))
(displayln status)
(define posts (read-json response)) (define posts (read-json response))
(list-ref posts pos)) (list-ref posts pos))
(define (attach-media) (define (attach-media)
(sleep (* 3.333333333 60))
(displayln "Obtaining media id")
(define post (search-safebooru)) (define post (search-safebooru))
(define url (hash-ref post 'file_url)) (define url (hash-ref post 'file_url))
(define md5 (hash-ref post 'md5)) (define md5 (hash-ref post 'md5))
@ -50,16 +52,16 @@
"Content-Type: " mime-type CRLF CRLF)) "Content-Type: " mime-type CRLF CRLF))
(file->bytes filename) (file->bytes filename)
(string->bytes/utf-8 (string-append CRLF "--" boundary "--" CRLF)))) (string->bytes/utf-8 (string-append CRLF "--" boundary "--" CRLF))))
(define-values (status headers response) (define-values (status headers response)
(http-sendrecv server (string-append "/api/v1/media") #:ssl? #t #:method #"POST" #:headers (list (string-append "Content-Type: multipart/form-data; boundary=" boundary) (string-append "Authorization: Bearer " token)) #:data data)) (http-sendrecv server (string-append "/api/v1/media") #:ssl? #t #:method #"POST" #:headers (list (string-append "Content-Type: multipart/form-data; boundary=" boundary) (string-append "Authorization: Bearer " token)) #:data data))
(displayln status)
(read-json response)) (read-json response))
(define (upload-attachment) (define (upload-attachment)
(sleep (* 3.333333333 60))
(displayln "Uploading attachment")
(define attachment (attach-media)) (define attachment (attach-media))
(define id (hash-ref attachment 'id)) (define id (hash-ref attachment 'id))
(define data (define data
@ -70,14 +72,11 @@
(define-values (status headers response) (define-values (status headers response)
(http-sendrecv server (string-append "/api/v1/statuses") #:ssl? #t #:method #"POST" #:headers (list (string-append "Content-Type: multipart/form-data; boundary=" boundary) (string-append "Authorization: Bearer " token)) #:data data)) (http-sendrecv server (string-append "/api/v1/statuses") #:ssl? #t #:method #"POST" #:headers (list (string-append "Content-Type: multipart/form-data; boundary=" boundary) (string-append "Authorization: Bearer " token)) #:data data))
(displayln status) (displayln status)
(displayln (read-json response))) (displayln (read-json response))
(upload-attachment))
;sleep for ten minutes
(define (loop)
(sleep 600)
(upload-attachment) (upload-attachment)
(loop))
(loop)