Initial import

Author: arpunk

.gitignore

@@ -0,0 +1,17 @@
+.rebar3
+rebar3
+_*
+.eunit
+*.o
+*.beam
+*.plt
+.erlang.cookie
+ebin
+log
+erl_crash.dump
+.rebar
+_rel
+_deps
+_plugins
+_tdeps
+logs

LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2017 Ricardo Lanziano
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

README.md

@@ -0,0 +1,33 @@
+servire
+=======
+
+Serve the current directory over SFTP.
+
+Quick and dirty escript for sharing files and directories over SFTP
+without having to add users to your system. It might improve in the
+future.
+
+You need to have Erlang and `rebar3` installed in order to compile and
+run the escript.
+
+## Build
+```sh
+$ cd servire
+$ rebar3 escriptize
+$ cp _build/default/bin/servire $YOUR_LOCAL_PATH/bin
+```
+
+## Usage
+```sh
+$ cd /tmp
+$ servire 9999
+Serving /tmp on port 9999
+```
+
+## License
+
+Copyright (c) 2017 Ricardo Lanziano
+
+This work is free. You can redistribute it and/or modify it under the
+terms of the MIT License. See the [LICENSE](LICENSE) file for more
+details.

rebar.config

@@ -0,0 +1,27 @@
+{erl_opts, [debug_info]}.
+{lfe_first_files, []}.
+
+{deps, [lfe]}.
+
+{plugins, [{'lfe-compile', "0.8.0-rc3", {pkg, rebar3_lfe_compile}}]}.
+
+{provider_hooks, [
+  {pre, [{compile, {lfe, compile}}]}
+]}.
+
+{profiles, [
+  {test, [
+    {eunit_compile_opts, [
+      {src_dirs, ["test", "src"]}
+      ]},
+    {ct_compile_opts, [
+      {src_dirs, ["test", "src"]}
+      ]},
+    {deps, [ltest]}]},
+
+  {doc, [
+    {plugins, [
+      {lodox, {git, "https://github.com/lfe-rebar3/lodox.git", {tag, "0.16.2"}}}
+      ]}
+    ]}
+  ]}.

rebar.lock

@@ -0,0 +1,6 @@
+{"1.1.0",
+[{<<"lfe">>,{pkg,<<"lfe">>,<<"1.2.0">>},0}]}.
+[
+{pkg_hash,[
+ {<<"lfe">>, <<"257708859C0A6949F174CECEE6F08BB5D6F08C0F97EC7B75C07072014723ECBC">>}]}
+].

src/servire-keys.lfe

@@ -0,0 +1,21 @@
+#|
+@doc
+  servire SSH key callback API
+@end
+|#
+
+(defmodule servire-keys
+  (behaviour ssh_server_key_api)
+  (export (host_key 2)
+          (is_auth_key 3)))
+
+;;; API
+
+(defun host_key (_type _opts)
+  (let* [(pem-file (++ (servire-utils:get-priv-dir) "/sshd.pem"))
+         (`#(ok ,pem) (file:read_file pem-file))
+         (`[,rsa] (public_key:pem_decode pem))]
+    `#(ok ,(public_key:pem_entry_decode rsa))))
+
+(defun is_auth_key (_key _user _ssh_opts)
+  'true)

src/servire-utils.lfe

@@ -0,0 +1,13 @@
+#|
+@doc
+  servire misc utils
+@end
+|#
+
+(defmodule servire-utils
+  (export all))
+
+;; Misc utils
+
+(defun get-priv-dir ()
+  (++ (os:getenv "HOME") "/.servire"))

src/servire.app.src

@@ -0,0 +1,18 @@
+{application, 'servire',
+ [{description, "Serve files via SFTP"},
+  {vsn, "0.0.1"},
+  {registered, []},
+  {applications,
+   [kernel,
+    stdlib,
+    crypto,
+    public_key,
+    ssh
+   ]},
+  {env, []},
+  {modules, []},
+
+  {contributors, ["Ricardo Lanziano"]},
+  {licenses, ["MIT"]},
+  {links, [{"GitHub", "https://github.com/arpunk/servire"}]}
+ ]}.

src/servire.lfe

@@ -0,0 +1,50 @@
+#|
+@doc
+  servire public API
+@end
+|#
+
+(defmodule servire
+  (export (main 1)))
+
+;;; API
+
+(defun main
+  ([`(,port)]
+   (application:ensure_all_started 'ssh)
+   (run (list_to_integer port)))
+  ([_] (usage)))
+
+(defun run (port)
+  (serve port)
+  (timer:sleep 'infinity))
+
+(defun serve (port)
+  (let* ([`#(ok ,root) (file:get_cwd)]
+         [opts `(#(cwd ,root) #(root ,root))]
+         [subsystem (ssh_sftpd:subsystem_spec opts)]
+         [args (default-opts subsystem)]
+         [`#(ok ,daemon-ref) (ssh:daemon port args)])
+    (io:format "Serving ~s on port ~p~n" `(,root ,port))
+    `#(ok ,daemon-ref)))
+
+(defun usage ()
+  (io:format "usage: servire port~n"))
+
+;;; Internal functions
+
+(defun default-opts (subsystem)
+  `(#(key_cb servire-keys)
+    #(subsystems (,subsystem))
+    #(parallel_login true)
+    #(shell ,(lambda (user _password) (spawn (lambda () (welcome user)))))
+    #(max_sessions 10)
+    #(id_string ,"servire")
+    #(system_dir ,(servire-utils:get-priv-dir))
+    #(pwdfun ,(lambda (_u _p) 'true))))
+
+(defun pwd-fun (_user _pass _peer _state)
+  'true)
+
+(defun welcome (user)
+  (io:format "Welcome ~s, you may now use sftp~n" `(,user)))

test/unit-servire-tests.lfe

@@ -0,0 +1,12 @@
+(defmodule unit-servire-tests
+  (behaviour ltest-unit)
+  (export all)
+  (import
+    (from ltest
+      (check-failed-assert 2)
+      (check-wrong-assert-exception 2))))
+
+(include-lib "ltest/include/ltest-macros.lfe")
+
+(deftest servire-hello-world
+  (is 'true))