Haifen/noopy_core.clj

## noopy_core.clj
(ns noopy.core (:require [compojure.core :refer [ANY context GET routes]] [compojure.route :as route :refer [not-found]] [compojure.handler :as handler :refer [api site]] [hiccup.page :as hp :refer [html5]][clojure.java.io :as io]))

(def noop (api (routes
  (ANY "/202/ihaveapublicip" {ip :remote-addr} (or (with-open [ipaf (io/writer "/home/robink/ipsofremotemachines.txt" :append true)] (binding [*out* ipaf] (print (str ip "\n")))) {:status 202 :headers {"Content-Type" "text/plain"} :body (str "IP address " ip " received and recorded, over and out.\n")}))
  (ANY "/*" [] #(assoc {:status 501 :headers {"Content-Type" "text/html"}} :body (let [rts (html5 [:html [:head [:title "501"]] [:body [:h1 "501"] [:p "Sorry, we don't know what to do with that REST request yet.  You requested " [:i (%1 :uri)] ".  Here is your request map if it makes you feel better:"] [:code (pr-str %1)] ]] )] rts))))))
	(ns noopy.core (:require [compojure.core :refer [ANY context GET routes]] [compojure.route :as route :refer [not-found]] [compojure.handler :as handler :refer [api site]] [hiccup.page :as hp :refer [html5]][clojure.java.io :as io]))

	(def noop (api (routes
	(ANY "/202/ihaveapublicip" {ip :remote-addr} (or (with-open [ipaf (io/writer "/home/robink/ipsofremotemachines.txt" :append true)] (binding [out ipaf] (print (str ip "\n")))) {:status 202 :headers {"Content-Type" "text/plain"} :body (str "IP address " ip " received and recorded, over and out.\n")}))
	(ANY "/*" [] #(assoc {:status 501 :headers {"Content-Type" "text/html"}} :body (let [rts (html5 [:html [:head [:title "501"]] [:body [:h1 "501"] [:p "Sorry, we don't know what to do with that REST request yet. You requested " [:i (%1 :uri)] ". Here is your request map if it makes you feel better:"] [:code (pr-str %1)] ]] )] rts))))))