moved everything under lisp/

11 files changed, 0 insertions, 761 deletions

diff --git a/webapps/ldapadmin/clojurescript/ldapadmin/.gitignore b/webapps/ldapadmin/clojurescript/ldapadmin/.gitignore
deleted file mode 100644
index a1cd79c..0000000
--- a/webapps/ldapadmin/clojurescript/ldapadmin/.gitignore
+++ /dev/null
@@ -1,15 +0,0 @@
-target
-classes
-resources
-checkouts
-pom.xml
-pom.xml.asc
-*.jar
-*.class
-.lein-*
-.nrepl-port
-.hgignore
-.hg
-profiles.clj
-figwheel_server.log
-.rebel_readline_history
diff --git a/webapps/ldapadmin/clojurescript/ldapadmin/README.md b/webapps/ldapadmin/clojurescript/ldapadmin/README.md
deleted file mode 100644
index 53ca866..0000000
--- a/webapps/ldapadmin/clojurescript/ldapadmin/README.md
+++ /dev/null
@@ -1,14 +0,0 @@
-# ldapadmin
-
-A Clojure library designed to ... well, that part is up to you.
-
-## Usage
-
-FIXME
-
-## License
-
-Copyright © 2017 FIXME
-
-Distributed under the Eclipse Public License either version 1.0 or (at
-your option) any later version.
diff --git a/webapps/ldapadmin/clojurescript/ldapadmin/checkouts/.gitignore b/webapps/ldapadmin/clojurescript/ldapadmin/checkouts/.gitignore
deleted file mode 100644
index 72e8ffc..0000000
--- a/webapps/ldapadmin/clojurescript/ldapadmin/checkouts/.gitignore
+++ /dev/null
@@ -1 +0,0 @@
-*
diff --git a/webapps/ldapadmin/clojurescript/ldapadmin/project.clj b/webapps/ldapadmin/clojurescript/ldapadmin/project.clj
deleted file mode 100644
index 001af8b..0000000
--- a/webapps/ldapadmin/clojurescript/ldapadmin/project.clj
+++ /dev/null
@@ -1,13 +0,0 @@
-(defproject ldapadmin "0.1.0-SNAPSHOT"
-  :description "An LDAP adminitration utility written in SBCL on the
-  server-side and ClojureScript on the client-side. This is the
-  client-side component."
-  :url "FIXME"
-  :license "public domain"
-  :dependencies [[org.clojure/clojure "LATEST"]
-                 [org.clojure/clojurescript "LATEST"]
-                 [cljs-ajax "LATEST"]
-                 [prismatic/dommy "LATEST"]
-                 [hiccups "LATEST"]]
-  :plugins [[lein-cljsbuild "LATEST"]]
-  :clean-targets ^{:protect false} [:target-path "out" "resources/public/cljs"])
diff --git a/webapps/ldapadmin/clojurescript/ldapadmin/src/core.cljs b/webapps/ldapadmin/clojurescript/ldapadmin/src/core.cljs
deleted file mode 100644
index d3f0374..0000000
--- a/webapps/ldapadmin/clojurescript/ldapadmin/src/core.cljs
+++ /dev/null
@@ -1,447 +0,0 @@
-(ns ldapadmin.core
-  (:require-macros [hiccups.core :as hiccups :refer [html]])
-  (:require [ajax.core :refer [GET POST]]
-            [dommy.core :as dommy]
-            [hiccups.runtime :as hiccupsrt]
-            [clojure.string :as str]
-            [org-ckons-cljs.notifications.core :as ck-notifications]
-            [org-ckons-cljs.form.core :as ck-form]))
-
-;; declarations
-
-(enable-console-print!)
-(def jquery (js* "$"))
-
-(declare notifications)
-(declare auth-notifications)
-(declare template-menu)
-(declare handler-menu)
-(declare render-menu)
-(declare template-home)
-(declare handler-home)
-(declare render-home)
-(declare template-login)
-(declare handler-login)
-(declare render-login)
-(declare on-login-submit-clicked)
-(declare handler-login-authenticate)
-(declare render-login-authenticate)
-(declare handler-logout)
-(declare render-logout)
-(declare template-inetorg-view)
-(declare handler-inetorg-view)
-(declare render-inetorg-view)
-(declare on-inetorg-view-search-clicked)
-(declare template-inetorg-view-search)
-(declare handler-inetorg-view-search)
-(declare render-inetorg-view-search)
-(declare template-inetorg-view-results)
-(declare handler-inetorg-view-results)
-(declare render-inetorg-view-results)
-(declare on-inetorg-modify-clicked)
-(declare template-inetorg-modify)
-(declare handler-inetorg-modify)
-(declare render-inetorg-modify)
-(declare on-inetorg-modify-submit-clicked)
-(declare handler-inetorg-modify-submit)
-(declare render-inetorg-modify-submit)
-(declare on-inetorg-delete-clicked)
-(declare template-inetorg-delete)
-(declare handler-inetorg-delete)
-(declare render-inetorg-delete)
-(declare on-inetorg-delete-submit-clicked)
-(declare handler-inetorg-delete-submit)
-(declare render-inetorg-delete-submit)
-(declare template-inetorg-add)
-(declare handler-inetorg-add)
-(declare render-inetorg-add)
-(declare on-inetorg-add-submit-clicked)
-(declare handler-inetorg-add-submit)
-(declare render-inetorg-add-submit)
-(declare on-menu-clicked)
-(declare handler-location)
-(declare goto-location)
-
-;; notifications
-
-(defn notifications [jsonobj]
-  (ck-notifications/maybe-message jsonobj)
-  (ck-notifications/maybe-error jsonobj))
-
-(defn auth-notifications [jsonobj]
-  (cond (empty? (get jsonobj "errormsg"))
-        (notifications jsonobj)
-        :else
-        (do
-          (render-home "" (get jsonobj "errormsg"))
-          (render-menu))))
-  
-;; menu
-
-(hiccups/defhtml template-menu [menuitems]
-  [:ul {:class "nav nav-pills"}
-   (for [menuitem menuitems]
-     [:li {:class "nav-item"}
-      [:a {:class (cond (= (str/upper-case (get menuitem "handler"))
-                           (str/upper-case (dommy/html (dommy/sel1 :#location))))
-                        "nav-link active"
-                        :else
-                        "nav-link")
-           :id (get menuitem "id")
-           :onclick (str (namespace ::x) ".on_menu_clicked('" (get menuitem "handler") "')")}
-       (get menuitem "label")]])])
-
-(defn handler-menu [response]
-  (let [jsonobj (js->clj (js/JSON.parse response))]
-    (dommy/set-html! (dommy/sel1 :#menu) (template-menu (get jsonobj "menuitems")))))
-
-(defn render-menu []
-  (GET "/menu" {:handler handler-menu}))
-
-;; home
-
-(hiccups/defhtml template-home [jsonobj]
-  [:h3 {:style "text-align: center"} (get jsonobj "content")])
-
-(defn handler-home [response]
-  (let [jsonobj (js->clj (js/JSON.parse response))]
-    (notifications jsonobj)
-    (dommy/set-html! (dommy/sel1 :#body) (template-home jsonobj))))
-
-(defn render-home
-  ([]
-   (GET "/home" {:handler handler-home}))
-  ([message errormsg]
-   (POST  "/home" {:format :raw
-                   :params {:message message
-                            :errormsg errormsg}
-                   :handler handler-home})))
-
-;; login
-
-(hiccups/defhtml template-login [jsonobj]
-  [:h3 {:style "text-align: center"} (get jsonobj "title")]
-  (ck-form/template-generic-form (get jsonobj "form") (namespace ::x))
-  [:div {:style "text-align: center"}])
-
-(defn handler-login [response]
-  (let [jsonobj (js->clj (js/JSON.parse response))]
-    (notifications jsonobj)
-    (dommy/set-html! (dommy/sel1 :#body) (template-login jsonobj))))
-
-(defn render-login []
-  (GET "/login" {:handler handler-login}))
-
-;; login-authenticate
-
-(defn on-login-submit-clicked []
-  (when (-> (jquery "#login-form")
-            (.get "0")
-            (.checkValidity))
-    (render-login-authenticate)))
-
-(defn handler-login-authenticate [response]
-  (let [jsonobj (js->clj (js/JSON.parse response))]
-    (cond (get jsonobj "errormsg")
-          (goto-location "/login")
-          (get jsonobj "message")
-          (do
-            (dommy/set-html! (dommy/sel1 :#location) "/inetorg/view")
-            (render-inetorg-view)
-            (render-menu)))))
-
-(defn render-login-authenticate []
-  (POST "/login/authenticate" {:format :raw
-                               :params {:dn (dommy/value (dommy/sel1 :#dn))
-                                        :password (dommy/value (dommy/sel1 :#password))}
-                               :handler handler-login-authenticate}))
-
-;; logout
-
-(defn handler-logout [response]
-  (let [jsonobj (js->clj (js/JSON.parse response))]
-    (render-home (get jsonobj "message") "")
-    (dommy/set-html! (dommy/sel1 :#location) "/home")
-    (render-menu)))
-
-(defn render-logout []
-  (GET "/logout" {:handler handler-logout}))
-
-;; inetorg-view
-
-(hiccups/defhtml template-inetorg-view [jsonobj]
-  [:h3 {:style "text-align: center"} (get jsonobj "title")]
-  [:div {:id "search"}]
-  [:div {:id "results"}]
-  [:div {:id "modify"
-         :class "modal fade"
-         :role "dialog"}
-   [:div {:class "modal-dialog modal-lg"}
-    [:div {:class "modal-content"}
-     [:div {:class "modal-header"}
-      [:button {:type "button"
-                :class "close"
-                :data-dismiss "modal"}
-       "×"]
-      [:h4 "Modify InetOrg Entry"]]
-     [:div {:id "modify-body"
-            :class "modal-body"
-            :style "height: 510px;"}]
-     [:div {:class "modal-footer"}
-      [:button {:type "submit"
-                :class "btn btn-danger btn-default"
-                :data-dismiss "modal"}
-       [:span {:class "glyphicon glyphicon-remove"}]
-       "Cancel"]]]]]
-  [:div {:id "delete"
-         :class "modal fade"
-         :role "dialog"}
-   [:div {:class "modal-dialog"}
-    [:div {:class "modal-content"}
-     [:div {:class "modal-header"}
-      [:button {:type "button"
-                :class "close"
-                :data-dismiss "modal"}
-       "×"]
-      [:h4 "Delete InetOrg Entry"]]
-     [:div {:id "delete-body"
-            :class "modal-body"}]
-     [:div {:class "modal-footer"}
-      [:button {:type "submit"
-                :class "btn btn-danger btn-default"
-                :data-dismiss "modal"}
-       [:span {:class "glyphicon glyphicon-remove"}]
-       "Cancel"]]]]])
-
-(defn handler-inetorg-view [response]
-  (let [jsonobj (js->clj (js/JSON.parse response))]
-    (auth-notifications jsonobj)
-    (dommy/set-html! (dommy/sel1 :#body) (template-inetorg-view jsonobj))
-    (render-inetorg-view-search)))
-
-(defn render-inetorg-view []
-   (GET "/inetorg/view" {:handler handler-inetorg-view}))
-
-;; inetorg-view-search
-
-(defn on-inetorg-view-search-clicked []
-  (when (-> (jquery "#inetorg-view-search-form")
-            (.get "0")
-            (.checkValidity))
-    (render-inetorg-view-results)))
-
-(hiccups/defhtml template-inetorg-view-search [jsonobj]
-  (ck-form/template-generic-form (get jsonobj "form") (namespace ::x)))
-
-(defn handler-inetorg-view-search [response]
-  (let [jsonobj (js->clj (js/JSON.parse response))]
-    (auth-notifications jsonobj)
-    (dommy/set-html! (dommy/sel1 :#search) (template-inetorg-view-search jsonobj))
-    (render-inetorg-view-results)))
-
-(defn render-inetorg-view-search []
-  (GET "/inetorg/view/search" {:handler handler-inetorg-view-search}))
-
-;; inetorg-view-results
-
-(hiccups/defhtml template-inetorg-view-results [jsonobj]
-  [:table {:class "table table-hover"}
-   [:thead
-    [:tr
-     [:th "givenName"]
-     [:th "sn"]
-     [:th "mail"]
-     [:th "postalAddress"]
-     [:th "postalCode"]
-     [:th "st"]
-     [:th "l"]
-     [:th "telephoneNumber"]
-     [:th "mobile"]
-     [:th "businessCategory"]
-     [:th "Del"]]]
-   [:tbody
-    (for [ldap-user (get jsonobj "results")]
-      (let* [cn (str (get ldap-user "givenname") " " (get ldap-user "sn"))
-             onclick (str (namespace ::x) ".on_inetorg_modify_clicked('" cn "')")]
-        [:tr
-         [:td {:onclick onclick} (get ldap-user "givenname")]
-         [:td {:onclick onclick} (get ldap-user "sn")]
-         [:td {:onclick onclick} (get ldap-user "mail")]
-         [:td {:onclick onclick} (get ldap-user "postaladdress")]
-         [:td {:onclick onclick} (get ldap-user "postalcode")]
-         [:td {:onclick onclick} (get ldap-user "st")]
-         [:td {:onclick onclick} (get ldap-user "l")]
-         [:td {:onclick onclick} (get ldap-user "telephonenumber")]
-         [:td {:onclick onclick} (get ldap-user "mobile")]
-         [:td {:onclick onclick} (get ldap-user "businesscategory")]
-         [:td [:img {:src "/static/images/edit-delete.png"
-                     :onclick (str (namespace ::x) ".on_inetorg_delete_clicked('" cn "')")}]]]))]])
-
-(defn handler-inetorg-view-results [response]
-  (let [jsonobj (js->clj (js/JSON.parse response))]
-    (auth-notifications jsonobj)
-    (dommy/set-html! (dommy/sel1 :#results) (template-inetorg-view-results jsonobj))))
-
-(defn render-inetorg-view-results []
-  (POST "/inetorg/view/results" {:format :raw
-                                 :params {:givenname (dommy/value (dommy/sel1 :#view-givenname))
-                                          :sn (dommy/value (dommy/sel1 :#view-sn))
-                                          :mail (dommy/value (dommy/sel1 :#view-mail))
-                                          :postaladdress (dommy/value (dommy/sel1 :#view-postaladdress))
-                                          :postalcode (dommy/value (dommy/sel1 :#view-postalcode))
-                                          :st (dommy/value (dommy/sel1 :#view-st))
-                                          :l (dommy/value (dommy/sel1 :#view-l))
-                                          :telephonenumber (dommy/value (dommy/sel1 :#view-telephonenumber))
-                                          :mobile (dommy/value (dommy/sel1 :#view-mobile))
-                                          :businesscategory (dommy/value (dommy/sel1 :#view-businesscategory))}
-                                 :handler handler-inetorg-view-results}))
-
-;; inetorg-modify
-
-(defn on-inetorg-modify-clicked [cn]
-  (render-inetorg-modify cn))
-
-(hiccups/defhtml template-inetorg-modify [jsonobj]
-  (ck-form/template-generic-form (get jsonobj "form") (namespace ::x)))
-
-(defn handler-inetorg-modify [response]
-  (let [jsonobj (js->clj (js/JSON.parse response))
-        jquery (js* "$")]
-    (auth-notifications jsonobj)
-    (dommy/set-html! (dommy/sel1 :#modify-body) (template-inetorg-modify jsonobj))
-    (doseq [[name value] (get jsonobj "ldapUserValues")]
-      (dommy/set-value! (dommy/sel1 (keyword (str "#modify-" name))) value))
-    (.modal (jquery "#modify"))))
-
-(defn render-inetorg-modify [cn]
-  (POST "/inetorg/modify" {:format :raw
-                           :params {:cn cn}
-                           :handler handler-inetorg-modify}))
-
-;; inetorg-modify-submit
-
-(defn on-inetorg-modify-submit-clicked []
-  (.modal (jquery "#modify") "hide")
-  (render-inetorg-modify-submit))
-
-(defn handler-inetorg-modify-submit [response]
-  (let [jsonobj (js->clj (js/JSON.parse response))]
-    (auth-notifications jsonobj)
-    (on-menu-clicked "/inetorg/view")))
-
-(defn render-inetorg-modify-submit []
-  (POST "/inetorg/modify/submit" {:format :raw
-                                  :params {:givenname (dommy/value (dommy/sel1 :#modify-givenname))
-                                           :sn (dommy/value (dommy/sel1 :#modify-sn))
-                                           :mail (dommy/value (dommy/sel1 :#modify-mail))
-                                           :postaladdress (dommy/value (dommy/sel1 :#modify-postaladdress))
-                                           :postalcode (dommy/value (dommy/sel1 :#modify-postalcode))
-                                           :st (dommy/value (dommy/sel1 :#modify-st))
-                                           :l (dommy/value (dommy/sel1 :#modify-l))
-                                           :telephonenumber (dommy/value (dommy/sel1 :#modify-telephonenumber))
-                                           :mobile (dommy/value (dommy/sel1 :#modify-mobile))
-                                           :businesscategory (dommy/value (dommy/sel1 :#modify-businesscategory))}
-                                  :handler handler-inetorg-modify-submit}))
-
-;; inetrog-delete
-
-(defn on-inetorg-delete-clicked [cn]
-  (render-inetorg-delete cn))
-
-(hiccups/defhtml template-inetorg-delete [jsonobj]
-  [:p (str "Are you sure you want to delete the InetOrg entry: " (get jsonobj "cn"))]
-  [:p "This action cannot be undone."]
-  [:button {:type "button"
-            :data-dismiss "modal"
-            :onclick (str (namespace ::x) ".on_inetorg_delete_submit_clicked('" (get jsonobj "cn") "')")}
-   "Delete InetOrg Entry"])
-
-(defn handler-inetorg-delete [response]
-  (let [jsonobj (js->clj (js/JSON.parse response))
-        jquery (js* "$")]
-    (auth-notifications jsonobj)
-    (dommy/set-html! (dommy/sel1 :#delete-body) (template-inetorg-delete jsonobj))
-    (.modal (jquery "#delete"))))
-
-(defn render-inetorg-delete [cn]
-  (POST "/inetorg/delete" {:format :raw
-                           :params {:cn cn}
-                           :handler handler-inetorg-delete}))
-
-;; inetrog-delete-submit
-
-(defn on-inetorg-delete-submit-clicked [cn]
-  (render-inetorg-delete-submit cn))
-
-(defn handler-inetorg-delete-submit [response]
-  (let [jsonobj (js->clj (js/JSON.parse response))]
-    (auth-notifications jsonobj)
-    (on-menu-clicked "/inetorg/view")))
-
-(defn render-inetorg-delete-submit [cn]
-  (POST "/inetorg/delete/submit" {:format :raw
-                                  :params {:cn cn}
-                                  :handler handler-inetorg-delete-submit}))
-
-;; inetrog-add
-
-(hiccups/defhtml template-inetorg-add [jsonobj]
-  (ck-form/template-generic-form (get jsonobj "form") (namespace ::x)))
-
-(defn handler-inetorg-add [response]
-  (let [jsonobj (js->clj (js/JSON.parse response))]
-    (auth-notifications jsonobj)
-    (dommy/set-html! (dommy/sel1 :#body) (template-inetorg-add jsonobj))))
-
-(defn render-inetorg-add []
-  (GET "/inetorg/add" {:handler handler-inetorg-add}))
-
-;; inetorg-add-submit
-
-(defn on-inetorg-add-submit-clicked []
-  (when (-> (jquery "#inetorg-add-form")
-            (.get "0")
-            (.checkValidity))
-    (render-inetorg-add-submit)))
-
-(defn handler-inetorg-add-submit [response]
-  (let [jsonobj (js->clj (js/JSON.parse response))]
-    (auth-notifications jsonobj)
-    (notifications jsonobj)
-    (on-menu-clicked "/inetorg/view")))
-
-(defn render-inetorg-add-submit []
-  (POST "/inetorg/add/submit" {:format :raw
-                               :params {:givenname (dommy/value (dommy/sel1 :#add-givenname))
-                                        :sn (dommy/value (dommy/sel1 :#add-sn))
-                                        :mail (dommy/value (dommy/sel1 :#add-mail))
-                                        :postaladdress (dommy/value (dommy/sel1 :#add-postaladdress))
-                                        :postalcode (dommy/value (dommy/sel1 :#add-postalcode))
-                                        :st (dommy/value (dommy/sel1 :#add-st))
-                                        :l (dommy/value (dommy/sel1 :#add-l))
-                                        :telephonenumber (dommy/value (dommy/sel1 :#add-telephonenumber))
-                                        :mobile (dommy/value (dommy/sel1 :#add-mobile))
-                                        :businesscategory (dommy/value (dommy/sel1 :#add-businesscategory))}
-                               :handler handler-inetorg-add-submit}))
-
-;; location
-
-(defn on-menu-clicked [handler]
-  (dommy/set-html! (dommy/sel1 :#location) handler)
-  (render-menu)
-  (cond (= handler "/home") (render-home)
-        (= handler "/login") (render-login)
-        (= handler "/login/authenticate") (render-login-authenticate)
-        (= handler "/logout") (render-logout)
-        (= handler "/inetorg/view") (render-inetorg-view)
-        (= handler "/inetorg/add") (render-inetorg-add)))
-
-(defn handler-location [response]
-  (let [jsonobj (js->clj (js/JSON.parse response))]
-    (on-menu-clicked (get jsonobj "location"))
-    (notifications jsonobj)))
-
-(defn goto-location [location]
-  (POST "/location" {:format :raw
-                     :params {:location location}
-                     :handler handler-location}))
diff --git a/webapps/ldapadmin/conf/.gitignore b/webapps/ldapadmin/conf/.gitignore
deleted file mode 100644
index 14fa7a6..0000000
--- a/webapps/ldapadmin/conf/.gitignore
+++ /dev/null
@@ -1 +0,0 @@
-options.lisp
diff --git a/webapps/ldapadmin/conf/options.lisp.example b/webapps/ldapadmin/conf/options.lisp.example
deleted file mode 100644
index 89f0a37..0000000
--- a/webapps/ldapadmin/conf/options.lisp.example
+++ /dev/null
@@ -1,11 +0,0 @@
-((:name "ldapadmin"
-  :url "ldapadmin.tld"
-  :document-root "ldapadmin"
-  :title "LDAP Administration Tool"
-  :meta-description "LDAP Administration Tool"
-  :ldap (:ldap-host "ldap.tld"
-         :sslflag nil
-         :username "cn=Manager,dc=tld"
-         :password "Welcome1"
-         :base-dn "dc=tld"
-         :debug-mode t)))
diff --git a/webapps/ldapadmin/site.lisp b/webapps/ldapadmin/site.lisp
deleted file mode 100644
index 5b5163a..0000000
--- a/webapps/ldapadmin/site.lisp
+++ /dev/null
@@ -1,101 +0,0 @@
-;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
-(declaim (optimize (speed 0) (safety 3) (debug 3)))
-
-(in-package :ldapadmin)
-
-(defmacro .base (&optional (onload-fn "goto_location('/home')"))
-  `(org-ckons-http::html5
-    `(html
-      (head
-       ((meta :name "viewport" :content "width=device-width, initial-scale=1"))
-       ((meta :charset "utf-8"))
-       ((title) ,(title *webapp*))
-       ,@(mapcar (lambda (css)
-                   `((link :rel "stylesheet" :href ,(getf css :href) :integrity ,(getf css :integrity) :crossorigin ,(getf css :crossorigin))))
-                 '((:href "https://maxcdn.bootstrapcdn.com/bootstrap/4.0.0/css/bootstrap.min.css" :integrity "sha384-Gn5384xqQ1aoWXA+058RXPxPg6fy4IWvTNh0E263XmFcJlSAwiGgFAW/dAiS6JXm" :crossorigin "anonymous")
-                   (:href "https://stackpath.bootstrapcdn.com/bootswatch/4.5.2/darkly/bootstrap.min.css" :integrity "sha384-nNK9n28pDUDDgIiIqZ/MiyO3F4/9vsMtReZK39klb/MtkZI3/LtjSjlmyVPS3KdN" :crossorigin "anonymous")))
-       ,@(mapcar (lambda (js)
-                   `((script :type "text/javascript" :src ,(getf js :src) :integrity ,(getf js :integrity) :crossorigin ,(getf js :crossorigin))))
-                 '((:src "https://code.jquery.com/jquery-3.2.1.slim.min.js" :integrity "sha384-KJ3o2DKtIkvYIK3UENzmM7KCkRr/rE9/Qpg6aAZGJwFDMVNA/GpGFF93hXpG5KkN" :crossorigin "anonymous")
-                   (:src "https://cdnjs.cloudflare.com/ajax/libs/popper.js/1.12.9/umd/popper.min.js" :integrity "sha384-ApNbgh9B+Y1QKtv3Rn7W3mgPxhU9K/ScQsAP7hUibX39j7fakFPskvXusvfa0b4Q" :crossorigin "anonymous")
-                   (:src "https://maxcdn.bootstrapcdn.com/bootstrap/4.0.0/js/bootstrap.min.js" :integrity "sha384-JZR6Spejh4U02d8jOt6vLEHfe/JQGiRRSQQxSfFWpi1MquVdAyjUar5+76PVCmYl" :crossorigin "anonymous")))
-       ((script :type "text/javascript" :src "/static/js/cljs/main.js")))
-      ((body :onload ,(format nil "ldapadmin.core.~a" ,onload-fn))
-       ((div :class "container-fluid")
-        ((div :class "row")
-         ((div :class "col") " ")
-         ((div :class "col")
-          ((div :class "page-header")
-           ((h2 :align "center") ,(title *webapp*))))
-         ((div :class "col") " "))
-        ((div :id "menu" :class "well"))
-        ((div :id "location" :style "display: none"))
-        ((div :id "errormsg"))
-        ((div :id "message"))
-        ((div :id "body")))))))
-
-(defmacro .location ()
-  `(location-json location))
-
-(defmacro .home-get ()
-  `(home-json))
-
-(defmacro .home-post ()
-  `(home-json message errormsg))
-
-(defmacro .menu ()
-  `(menu-json))
-
-(defmacro .login ()
-  `(login-json))
-
-(defmacro .login-authenticate ()
-  `(login-authenticate-json dn password))
-
-(defmacro .logout ()
-  `(logout-json))
-
-(defmacro .inetorg-view ()
-  `(inetorg-view-json))
-
-(defmacro .inetorg-view-search ()
-  `(inetorg-view-search-json))
-
-(defmacro .inetorg-view-results ()
-  `(inetorg-view-results-json givenname sn mail postaladdress postalcode st l telephonenumber mobile businesscategory))
-
-(defmacro .inetorg-modify ()
-  `(inetorg-modify-json cn))
-
-(defmacro .inetorg-modify-submit ()
-  `(inetorg-modify-submit-json givenname sn mail postaladdress postalcode st l telephonenumber mobile businesscategory))
-
-(defmacro .inetorg-delete ()
-  `(inetorg-delete-json cn))
-
-(defmacro .inetorg-delete-submit ()
-  `(inetorg-delete-submit-json cn))
-
-(defmacro .inetorg-add ()
-  `(inetorg-add-json))
-
-(defmacro .inetorg-add-submit ()
-  `(inetorg-add-submit-json givenname sn mail postaladdress postalcode st l telephonenumber mobile businesscategory))
-
-(define-endpoint :get "/" () .base)
-(define-endpoint :post "/location" ((location :parameter-type 'string)) .location)
-(define-endpoint :get "/home" () .home-get)
-(define-endpoint :post "/home" ((message :parameter-type 'string) (errormsg :parameter-type 'string)) .home-post)
-(define-endpoint :get "/menu" () .menu)
-(define-endpoint :get "/login" () .login)
-(define-endpoint :post "/login/authenticate" ((dn :parameter-type 'string) (password :parameter-type 'string)) .login-authenticate)
-(define-endpoint :get "/logout" () .logout)
-(define-endpoint :get "/inetorg/view" () .inetorg-view)
-(define-endpoint :get "/inetorg/view/search" () .inetorg-view-search)
-(define-endpoint :post "/inetorg/view/results" ((givenname :parameter-type 'string) (sn :parameter-type 'string) (mail :parameter-type 'string) (postaladdress :parameter-type 'string) (postalcode :parameter-type 'string) (st :parameter-type 'string) (l :parameter-type 'string) (telephonenumber :parameter-type 'string) (mobile :parameter-type 'string) (businesscategory :parameter-type 'string)) .inetorg-view-results)
-(define-endpoint :post "/inetorg/modify" ((cn :parameter-type 'string)) .inetorg-modify)
-(define-endpoint :post "/inetorg/modify/submit" ((givenname :parameter-type 'string) (sn :parameter-type 'string) (mail :parameter-type 'string) (postaladdress :parameter-type 'string) (postalcode :parameter-type 'string) (st :parameter-type 'string) (l :parameter-type 'string) (telephonenumber :parameter-type 'string) (mobile :parameter-type 'string) (businesscategory :parameter-type 'string)) .inetorg-modify-submit)
-(define-endpoint :post "/inetorg/delete" ((cn :parameter-type 'string)) .inetorg-delete)
-(define-endpoint :post "/inetorg/delete/submit" ((cn :parameter-type 'string)) .inetorg-delete-submit)
-(define-endpoint :get "/inetorg/add" () .inetorg-add)
-(define-endpoint :post "/inetorg/add/submit" ((givenname :parameter-type 'string) (sn :parameter-type 'string) (mail :parameter-type 'string) (postaladdress :parameter-type 'string) (postalcode :parameter-type 'string) (st :parameter-type 'string) (l :parameter-type 'string) (telephonenumber :parameter-type 'string) (mobile :parameter-type 'string) (businesscategory :parameter-type 'string)) .inetorg-add-submit)
diff --git a/webapps/ldapadmin/static/images/edit-delete.png b/webapps/ldapadmin/static/images/edit-delete.png
deleted file mode 100644
index b0de61d..0000000
--- a/webapps/ldapadmin/static/images/edit-delete.png
+++ /dev/null
diff --git a/webapps/ldapadmin/static/js/cljs b/webapps/ldapadmin/static/js/cljs
deleted file mode 120000
index 349848d..0000000
--- a/webapps/ldapadmin/static/js/cljs
+++ /dev/null
@@ -1 +0,0 @@
-../../clojurescript/ldapadmin/resources/public/cljs
\ No newline at end of file
diff --git a/webapps/webapp-loader.lisp b/webapps/webapp-loader.lisp
deleted file mode 100644
index 555d493..0000000
--- a/webapps/webapp-loader.lisp
+++ /dev/null
@@ -1,157 +0,0 @@
-;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
-(declaim (optimize (speed 0) (safety 3) (debug 3)))
-
-(in-package :ldapadmin)
-
-(defvar *acceptor* nil)
-(defvar *dispatch-table* '(#'dispatch-easy-handlers #'default-dispatcher))
-(defvar *webapps* (make-hash-table :test 'equal))
-(defvar *webapp* nil)
-(defparameter *port* 3006)
-(defparameter *session-timeout* 14400)
-(defparameter *server-root* (namestring (asdf:system-relative-pathname (intern (package-name #.*package*)) "./"))
-  "The location of the web server root on the filesystem.")
-
-(defclass webapp ()
-  ((name :initarg :name
-         :initform nil
-         :accessor name
-         :documentation "The name of the webapp as used in the code. A
-string used as the key to any webapp config lookup.")
-   (url :initarg :url
-        :initform nil
-        :accessor url
-        :documentation "The domain portion of the URL to the
-root of the webapp.")
-   (document-root :initarg :document-root
-                  :initform nil
-                  :accessor document-root
-                  :documentation "The absolute filesystem path to
-the webapp's top-level directory, which is inside the webapps
-folder.")
-   (title :initarg :title
-          :initform nil
-          :accessor title
-          :documentation "The default title that shows up in
-the browser title bar.")
-   (meta-description :initarg :meta-description
-          :initform nil
-          :accessor meta-description
-          :documentation "The text that goes into the META DESCRIPTION
-tag, and anywhere else we want to put this text so that it will show
-up in Google.")
-   (ldap :initarg :ldap
-         :initform nil
-         :accessor ldap))
-  (:documentation ""))
-
-(defgeneric get-site-file-path (webapp)
-  (:documentation "Builds a full filesystem path to a webapp's site
-file."))
-
-(defmethod get-site-file-path ((webapp webapp))
-  (format nil "~a/site" (document-root webapp)))
-
-(defgeneric get-pages-file-paths (webapp)
-  (:documentation ""))
-
-(defmethod get-pages-file-paths ((webapp webapp))
-  (mapcar (lambda (pages-file)
-            (ppcre:regex-replace-all "\\.lisp$" (format nil "~a" pages-file) ""))
-          (remove-if (lambda (x) (equal x "shared"))
-                     (org-ckons-core::shell-wrapper (format nil "find '~a' -maxdepth 1 -type f -iname 'pages*.lisp' |sort" (document-root webapp))))))
-
-(defun make-server-path (relative-path)
-  "Makes a relative filesystem path into a full one, using
-`*server-root*' as the base."
-  (make-document-root-path *server-root* relative-path))
-
-(defun make-document-root-path (document-root relative-path)
-  "Makes a relative filesystem path into a full one, using
-`document-root' as the base."
-  (concatenate 'string document-root relative-path))
-
-(defun make-webapp-path (relative-path)
-  "Makes an absolute filesystem path to a location in the webapps
-folder."
-  (concatenate 'string *server-root* "webapps/" relative-path))
-
-(defun get-options-files ()
-  (mapcar (lambda (webapp-directory)
-            (format nil "~a/conf/options.lisp" webapp-directory))
-          (remove-if (lambda (x) (or (org-ckons-core::match-it "webapps/$" x)
-                                     (org-ckons-core::match-it "webapps/shared$" x)
-                                     (org-ckons-core::match-it "webapps/CVS$" x)
-                                     (org-ckons-core::match-it "webapps/\\.$" x)
-                                     (org-ckons-core::match-it "webapps/\\.\\.$" x)))
-                     (org-ckons-core::shell-wrapper (format nil "find '~a' -maxdepth 1 -type d |sort" (make-webapp-path ""))))))
-
-(defun set-webapp (webapp)
-  "Sets a `webapp' object in `*webapps*'.  The lookup key is the
-webapp name.  If a webapp already exists under this key, it gets
-overwritten with the new one."
-  (setf (gethash (name webapp) *webapps*) webapp))
-
-(defun get-webapp (key)
-  "Gets the webapp object."
-  (gethash key *webapps*))
-
-(defun generate-sessionid ()
-  "Generates a unique random string to seed the
-`*session-secret*'. The string is a SHA256 hash."
-  (let ((entropic-value (make-array '(32) :element-type '(unsigned-byte 8))))
-    (with-open-file (urandom-file "/dev/urandom" :direction :input :element-type '(unsigned-byte 8))
-      (loop for i from 0 to 31 do
-           (setf (elt entropic-value i) (read-byte urandom-file))))
-    (let ((digest (ironclad:make-digest 'ironclad:sha256)))
-      (ironclad:update-digest digest entropic-value)
-      (ironclad:byte-array-to-hex-string (ironclad:produce-digest digest)))))
-
-(defun populate-webapps ()
-  (loop for options-file in (get-options-files) do
-       (with-open-file (input options-file :direction :input)
-         (let* ((form (car (read input))))
-           (set-webapp (make-instance 'webapp
-                                      :name (getf form :name)
-                                      :url (getf form :url)
-                                      :document-root (make-webapp-path (getf form :document-root))
-                                      :title (getf form :title)
-                                      :meta-description (getf form :meta-description)
-                                      :ldap (getf form :ldap)))))))
-
-(defun ldapadmin ()
-  "Call this to start the server."
-  (when (null *acceptor*)
-    (let ((package (string-downcase (package-name *package*))))
-      (populate-webapps)
-      (setf (log-manager) (make-instance 'log-manager :message-class 'formatted-message))
-      (start-messenger 'text-file-messenger :filename (format nil "/var/log/lisp/~a.log" package))
-      (setf *session-secret* (generate-sessionid))
-      (populate-webapps)
-      (setf *acceptor* (start (make-instance 'easy-acceptor
-                                             :port *port*
-                                             :document-root (make-server-path (format nil "webapps/~a/" package))
-                                             :name (format nil "~a-acceptor" package)))))))
-
-(defmacro with-request-wrapper (uri page-function)
-  ;; Assigning package outside the backquote is necessary because
-  ;; *package* resolves incorrectly to common-lisp-user inside the
-  ;; backquote.
-  (let ((package (string-downcase (package-name *package*))))
-    `(let ((*webapp* (get-webapp ,package)))
-       (org-ckons-core::logger (format nil "Page request URI: [~a]" ,uri))
-       (unless *session*
-         (start-session)
-         (setf (session-max-time *session*) *session-timeout*)
-         (setf (session-value :permissions) "anonymous"))
-       (,page-function))))
-  
-(defmacro define-endpoint (request-type uri var-list page-function)
-  "Does the grunt work of creating an `easy-handler' for each page you
-wish to publish."
-  (let ((name (gensym)))
-    `(progn
-       (org-ckons-core::logger (format nil "Publishing page. URL = [~a]" ,uri))
-       (define-easy-handler (,name :uri ,uri :default-request-type ,request-type)
-           ,var-list
-         (with-request-wrapper ,uri ,page-function)))))