dot/mykermrc.in: Useful commands for dealing with server consoles.

[profile] / dot / mykermrc.in

diff --git a/dot/mykermrc.in b/dot/mykermrc.in
index d750a668f54bfe6131297befa4ae20c12d0132a7..fab7427786464fd6e733b48e29f0896d9cd8378a 100644 (file)
--- a/dot/mykermrc.in
+++ b/dot/mykermrc.in
@@ -103,6 +103,26 @@ def GUVNOR {
        set key 127 \8
        telnet guvnor.distorted.org.uk
 }
+def JUMPTS {
+       local pass
+       set host /network-type:pty ssh -enone -t \%1
+       while true {
+               input 15 \fpattern({{{password:,exit}}})
+               if fail end 1 failed to connect
+               if equal \v(inmatch) exit break
+               if equal \v(inmatch) password: {
+                       if ! def pass askq pass {password: }
+                       output \m(pass)\13
+               }
+       }
+}
+def FENDERCON {
+       set input echo off
+       jumpts mdw@ts-tfm8.jump.net.uk
+       output 1\13
+       set control prefixed 30
+       connect
+}
 
 ;; Local configuration.
 if exist \m(_dot)config take \m(_dot)config