59 lines
1.5 KiB
Clojure
59 lines
1.5 KiB
Clojure
#!/usr/bin/env sh
|
|
:$(); # -*- mode: clojure -*-
|
|
:$(); exit=0
|
|
:$(); bb --init "$0" -- "$@" || exit=$?
|
|
:$(); exit $exit
|
|
(ns vpn-tools
|
|
(:require [babashka.cli :as cli]
|
|
[babashka.process :as p]
|
|
[babashka.http-client :as http])
|
|
(:import [clojure.lang ExceptionInfo]))
|
|
|
|
(defn adorn-with-help-option [spec]
|
|
(letfn [(fn-with-help [opts]
|
|
;; TODO: Implement
|
|
((:fn spec) opts))]
|
|
(-> spec
|
|
(assoc-in [:spec :help]
|
|
{:help {:coerce :bool}})
|
|
(assoc :fn fn-with-help))))
|
|
|
|
(defn help [opts]
|
|
(prn 'help))
|
|
|
|
(defn vpn-shell [opts]
|
|
(let [cmd (or (:args opts) ["bash"])
|
|
user (System/getenv "USER")
|
|
namespace (-> opts :opts :namespace)
|
|
ip-cmd (concat ["sudo" "ip" "netns" "exec"
|
|
namespace "sudo" "-u" user]
|
|
cmd)]
|
|
(apply println "$" ip-cmd)
|
|
(-> (apply p/shell ip-cmd)
|
|
:exit System/exit)))
|
|
|
|
(defn test-mullvad [_opts]
|
|
(p/shell "curl https://am.i.mullvad.net/connected"))
|
|
|
|
(def namespace-option
|
|
{:namespace {:coerce :string
|
|
:alias :n
|
|
:default "wg"
|
|
:ref "NAMESPACE"}})
|
|
|
|
(def cli-table
|
|
(map adorn-with-help-option
|
|
[{:cmds ["shell"]
|
|
:fn vpn-shell
|
|
:spec namespace-option}
|
|
{:cmds ["test-mullvad"]
|
|
:fn test-mullvad}
|
|
{:cmds []
|
|
:fn help}]))
|
|
|
|
(defn -main [& args]
|
|
(cli/dispatch cli-table args))
|
|
|
|
#_
|
|
(apply -main *command-line-args*)
|