add srvtls and the corresponding tcp17020 service

2 files changed, 47 insertions, 0 deletions

diff --git a/rc/bin/service/tcp17020 b/rc/bin/service/tcp17020
new file mode 100755
index 000000000..e05556c96
--- /dev/null
+++ b/rc/bin/service/tcp17020
@@ -0,0 +1,2 @@
+#!/bin/rc
+exec tlssrv -A /bin/aux/trampoline 'net!$fs!9fs'
diff --git a/rc/bin/srvtls b/rc/bin/srvtls
new file mode 100755
index 000000000..60804c60c
--- /dev/null
+++ b/rc/bin/srvtls
@@ -0,0 +1,45 @@
+#!/bin/rc
+rfork e
+
+fn usage {
+	echo 'usage: srvtls [ -abcCnq ] [ -k keyspec ]  [net!]system[!service] [ srvname [ mtpt ] ]' >[1=2]
+	exit usage
+}
+
+mopt=()
+mtpt=()
+client=(/bin/tlsclient -a)
+
+while(~ $1 -*){
+	switch($1){
+	case -[abcCnq]*; mopt=($mopt $1)
+	case *
+		~ $#* 1 && usage
+		switch($1){
+		case -k; client=($client $1 $2)
+		case *; usage
+		}
+		shift
+	}
+	shift
+}
+
+switch($#*){
+case 1;	srv=/srv/$1
+case 2;	srv=/srv/$2
+case 3;	srv=/srv/$2; mtpt=$3
+case *;	usage
+}
+
+switch($1){
+case *!*!*; host=$1
+case *!*; host=$1!t9fs
+case *; host=net!$1!t9fs
+}
+
+fn post {
+	echo 0 >$srv
+}
+if(test -f $srv || $client $host /bin/rc -c post){
+	~ $#mtpt 0 || mount $mopt $srv $mtpt
+}