uml: Provide wrap script

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/psusan-uml b/psusan-uml
index 13a9ffa009f50cd4b15a2609b45ab92992ace679..7e72583632ba722d48f8914eb4d2d37b6a8da805 100755 (executable)
--- a/psusan-uml
+++ b/psusan-uml
@@ -1,11 +1,12 @@
 #!/bin/bash
+set -e
 
-rm -f q
-mkfifo -m600 q
+fifo=tmp/uml/q
+mkfifo -m600 $fifo
 
 (
  # https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=991958
- : <q
+ : <$fifo
  cat
 )                                                              |       \
  bwrap --dev-bind / / --tmpfs /dev/shm                                 \
@@ -13,7 +14,7 @@ mkfifo -m600 q
        con=fd:2,fd:2 con1=fd:0,fd:1 init=$PWD/psusan-uml-inside        |       \
 (
  read banner
- : >q
+ : >$fifo
  printf '%s\n' "$banner"
  cat
 )

diff --git a/psusan-uml-wrap b/psusan-uml-wrap
new file mode 100755 (executable)
index 0000000..f502f91
--- /dev/null
+++ b/psusan-uml-wrap
@@ -0,0 +1,7 @@
+#!/bin/bash
+
+mkdir -p tmp
+rm -rf tmp/uml
+mkdir -p -m2700 tmp/uml
+
+plink -v -v -ssh-connection -proxycmd $PWD/psusan-uml $PWD id