commit 50dd25a597339d00f9833ebaed119c59ea6ad394
Author: Brent Gordon <brentgordon146@gmail.com>
Date:   Sat Jan 25 20:52:55 2020 -0500

    initial commit

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"))