mezzo/buch_des_monats
1
0
Fork 0
Code Issues 7 Pull requests Projects Releases Packages Wiki Activity Actions

Find broken URLs

Browse source
This commit is contained in:
Aaron Fischer 2015-06-10 23:16:32 +02:00
parent 0b5a63ba86
commit c8c534c9ca
2 changed files with 14 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
project.clj
View file

@ -1,9 +1,10 @@
(defproject buchdesmonats "1.1" (defproject buchdesmonats "1.2"
:description "A simple tool to fetch all books of the month from the okoyono.de project." :description "A simple tool to fetch all books of the month from the okoyono.de project."
:url "https://git.okoyono.de/mezzomix/buch_des_monats" :url "https://git.okoyono.de/mezzomix/buch_des_monats"
:license {:name "MIT License" :license {:name "MIT License"
:url "http://opensource.org/licenses/MIT"} :url "http://opensource.org/licenses/MIT"}
:dependencies [[org.clojure/clojure "1.6.0"] :dependencies [[org.clojure/clojure "1.6.0"]
[org.clojure/tools.logging "0.3.1"]
[enlive "1.1.5"] [enlive "1.1.5"]
[me.raynes/fs "1.4.5"] [me.raynes/fs "1.4.5"]
[clj-http "0.9.2"]] [clj-http "0.9.2"]]

19
src/buchdesmonats/core.clj
View file

@ -23,6 +23,7 @@
[clj-http.client :as http-client] [clj-http.client :as http-client]
[clojure.string :as str] [clojure.string :as str]
[clojure.java.io :as io] [clojure.java.io :as io]
[clojure.tools.logging :as log]
[me.raynes.fs :as fs])) [me.raynes.fs :as fs]))
(defn imgurl->bytes [lovelybooks-url] (defn imgurl->bytes [lovelybooks-url]
@ -59,10 +60,14 @@
(remove nil?))) (remove nil?)))
(defn scrape-book-cover [url target-dir] (defn scrape-book-cover [url target-dir]
(let [target-file (url->file url target-dir) (try
encoded-url (encode-url url)] (let [target-file (url->file url target-dir)
(with-open [out (io/output-stream target-file)] encoded-url (encode-url url)
(.write out (imgurl->bytes encoded-url))))) bytes (imgurl->bytes encoded-url)]
(with-open [out (io/output-stream target-file)]
(.write out bytes)))
(catch Exception e
(log/info "Problems with " url ", skip it."))))
(defn find-missing-covers [books-url target-dir] (defn find-missing-covers [books-url target-dir]
(remove #(fs/exists? (url->file % target-dir)) (remove #(fs/exists? (url->file % target-dir))
@ -85,10 +90,10 @@
(.write out content)))) (.write out content))))
(defn -main [& args] (defn -main [& args]
(let [github-url "https://git.okoyono.de/mezzomix/buch_des_monats/raw/master/README.mkd" (let [datasource-url "https://git.okoyono.de/mezzomix/buch_des_monats/raw/master/README.mkd"
target-dir (io/file "public" "book-covers")] target-dir (io/file "public" "book-covers")]
(fs/mkdirs target-dir) (fs/mkdirs target-dir)
(generate-html (scrape-book-urls github-url) "public") (generate-html (scrape-book-urls datasource-url) "public")
(doall (pmap #(scrape-book-cover % target-dir) (doall (pmap #(scrape-book-cover % target-dir)
(find-missing-covers github-url target-dir))) (find-missing-covers datasource-url target-dir)))
(System/exit 0))) (System/exit 0)))