From 50dd25a597339d00f9833ebaed119c59ea6ad394 Mon Sep 17 00:00:00 2001 From: Brent Gordon Date: Sat, 25 Jan 2020 20:52:55 -0500 Subject: [PATCH] initial commit --- bot.rkt | 47 +++++++++++++++++++++++++++++++++++++++++++++++ info.rkt | 4 ++++ 2 files changed, 51 insertions(+) create mode 100644 bot.rkt create mode 100644 info.rkt diff --git a/bot.rkt b/bot.rkt new file mode 100644 index 0000000..1cc5e02 --- /dev/null +++ b/bot.rkt @@ -0,0 +1,47 @@ +#lang racket/base + +(require net/http-client json net/url racket/port web-server/private/timer) + +(define server (getenv "SERVER")) +(define token(getenv "ACCESS_TOKEN")) +(define safebooru "safebooru.donmai.us") +(define limit "20") +(define page "2") +(define tags "mario_(series)") +(define pos (random 20)) + + +(define (search-safebooru) + (define-values (status header response)(http-sendrecv safebooru (string-append "/posts.json?limit=" limit "&page=" page "&tags="tags ) #:ssl? #t)) + (define posts (read-json response)) + (list-ref posts pos)) + + +(define (download-image) + (define post (search-safebooru)) + (define url (hash-ref post 'file_url)) + (define md5 (hash-ref post 'md5)) + (define file-ext (hash-ref post 'file_ext)) + (define filename (string-append md5 "." file-ext)) + (call-with-output-file filename + (lambda (in) (port->bytes (get-pure-port (string->url url)))) + #:exists 'replace)) + + + +(define (upload-image) + (define-values (status headers response) + (http-sendrecv server (string-append "/api/v1/media") #:ssl? #t #:method "POST" #:headers (list (string-append "Authorization: Bearer " token)) #:data (download-image))) + (define data (read-json response)) + (displayln data)) + + +(upload-image) + + +;define tm (start-timer-manager)) +;define (loop) + ;(start-timer tm 600 (upload-image)) + ;loop)) + +;loop) diff --git a/info.rkt b/info.rkt new file mode 100644 index 0000000..a088307 --- /dev/null +++ b/info.rkt @@ -0,0 +1,4 @@ +#lang info + +(define collection "mario-bot") +(define deps '("base"))