From 94097d905fc381217c18e42888a865b3c4659f9a Mon Sep 17 00:00:00 2001 From: Anish Lakhwara Date: Sat, 9 Jul 2022 20:16:59 +1000 Subject: [PATCH] working main --- main.clj | 85 -------------------------------------------------------- 1 file changed, 85 deletions(-) delete mode 100644 main.clj diff --git a/main.clj b/main.clj deleted file mode 100644 index 0433592..0000000 --- a/main.clj +++ /dev/null @@ -1,85 +0,0 @@ -(ns dhynan.main - (:require [clojure.java.shell :refer [sh]] - [cheshire.core :as json] - [clojure.string :as string] - [babashka.curl :as curl]) - (:import (javax.crypto Mac) - (javax.crypto.spec SecretKeySpec))) - -(defn generate-token - [api-secret] - (let [encoder (java.util.Base64/getEncoder) - header-raw (->> (json/encode {"alg" "HS512" "typ" "JWT"}) - .getBytes - (.encodeToString encoder)) - ; TODO can't figure out how to apply this with an anon function - header (clojure.string/replace header-raw "=" "") - date (-> (sh "date" "-u" "+%s") - :out - (clojure.string/replace "\n" "")) - payload-raw (->> (json/encode {"iat" date}) - .getBytes - (.encodeToString encoder)) - ; TODO can't figure out how to apply this with an anon function - payload (clojure.string/replace payload-raw "=" "") - algo "HmacSHA512" - mac (Mac/getInstance algo)] - (.init mac (SecretKeySpec. (.getBytes api-secret) algo)) - (let [sig (->> (.doFinal mac (.getBytes (str header "." payload))) - (.encodeToString encoder)) - signature (-> sig - ; TODO should do url encode here - (string/replace "/" "_") - (string/replace "=" "") - (string/replace "+" "-"))] - (str header "." payload "." signature)))) - -(defn filterer - [m] - (filter (fn [x] (.contains (get x :url) "bandcamp")) m)) - -(def token (generate-token (System/getenv "token"))) - -(defn shaarli-request [offset] - (-> (curl/get (str "http://links.mossnet.lan/api/v1/links?searchtags=music&limit=" offset) {:headers {"Authorization" (str "Bearer " token)}}) - (:body) - (json/parse-string true))) - -(defn get-all-shaarli-data - ([] (get-all-shaarli-data {} 0)) - ([data offset] - (let [new-data (shaarli-request offset) - total-data (concat data new-data) - old-last (last data) - new-last (last new-data)] - (if (= old-last new-last) - total-data - (get-all-shaarli-data total-data (+ offset 100)))))) - -(let [shaarli-data (get-all-shaarli-data) - ; filter to bandcamp (and maybe others?) - filtered-shaarli-data (filterv #(.contains (get % :url) "bandcamp") shaarli-data) - file-data (sh "ls" (System/getenv "folder")) - ; remove anything in () [] {} - filtered-file-data (filterv #(string/replace % #"(.*)" "") file-data)] - (->> filtered-shaarli-data - (mapv #(select-keys % [:url :title])))) - -(comment - (shaarli-request 0) - (count (get-all-shaarli-data)) - (filterer {:url "bandcamp"}) - (filter (fn [x] (.contains (get x :url) "bandcamp")) [{:url "bandcamp"}]) - (println "somestring") - (.getBytes (str {"iat" (sh "date" "-u" "+%s")})) - (def signature (-> (Mac/getInstance "HmacSHA256") - (.init (SecretKeySpec. (.getBytes "test secret") "HmacSHA256")) - (.doFinal (.getBytes (str "header.payload") "UTF-8")))) - (def sig - (let [algo "HmacSHA256" - mac (Mac/getInstance algo)] - (.init mac (SecretKeySpec. (.getBytes "test secret") algo)) - (str (.doFinal mac (.getBytes "header.payload" "UTF-8"))))) - (println sig) - (.contains "https://somesite.bandcamp.com.au" "bandcamp") - (str {"alg" "HS512" "typ" "JWT"}))