wifi authenticator

gistfile1.clj

(ns epam-auth.core
  (:import (com.gargoylesoftware.htmlunit WebClient))
  (:gen-class :main true)))

(def client (doto (WebClient.)
              (.setUseInsecureSSL true)
              (.setJavaScriptEnabled true)))

(defn login-form []
  (let [page (.getPage client "http://duckduckgo.com")
        login-page (.click (.getElementByName page "login"))
        forms (.getForms login-page)]
    (first forms)))

(defn authenticate
  [user pwd]
  (let [login-form (login-form)
        username-input (.getInputByName login-form "username")
        password-input (.getInputByName login-form "password")
        login-element  (.getInputByName login-form "Login")]
    (.setValueAttribute username-input user)
    (.setValueAttribute password-input pwd)
    (.click login-element)))

(defn -main
  [& args]
  (let [[user pwd _] args]
    (authenticate user pwd)))