diff options
author | ian <ian> | 2000-05-29 17:16:29 +0000 |
---|---|---|
committer | ian <ian> | 2000-05-29 17:16:29 +0000 |
commit | 1fb3cba0b41ae774f83c11d2a9c23b12b2c87d1a (patch) | |
tree | 44ae8b6cfc1319e937dee52e1c72cb4cf696c551 /ipif/udptunnel | |
parent | 049f3484e657dc3c2a4610776a347101ddeb32e2 (diff) | |
download | userv-utils-1fb3cba0b41ae774f83c11d2a9c23b12b2c87d1a.tar.gz |
@@ -1,6 +1,7 @@
+ * Embryonic new version of udptunnel.
Diffstat (limited to 'ipif/udptunnel')
-rwxr-xr-x | ipif/udptunnel | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/ipif/udptunnel b/ipif/udptunnel index 17b2d06..d7a0036 100755 --- a/ipif/udptunnel +++ b/ipif/udptunnel @@ -3,20 +3,26 @@ # # usage: # udptunnel -# [ -l[<local-command/arg>] ... . ] -# <public-local-host/addr>,<public-local-port> -# <public-remote-host/addr>,<public-remote-port> +# [ -l[<local-command/arg>] ... . +# -e<encryption-mech>[/<encryption-parameter>...] +# ... +# ] +# <public-local-addr>,<public-local-port> +# <public-remote-addr>,<public-remote-port> # <private-local-addr>,<private-remote-addr>,<mtu>,<proto> # <keepalive>,<timeout> # <extra-local-nets> <extra-remote-nets> # [ <remote-command> [<remote-args> ...] ] # +# +# <..-addr> may also be hostname +# # <local-public-port> may be number or `print' or `silent' # # <remote-public-port> may number or `command', in which case # <remote-command> must be specified and should run udptunnel at the # remote end; it will be invoked as -# <remote-command> <public-remote-host/addr>,print +# <remote-command> <public-remote-addr>,print # <public-local-addr>,<public-local-port> # <private-remote-addr>,<private-local-addr>,<mtu>,<proto> # <keepalive>,<timeout> @@ -63,7 +69,7 @@ sub warning ($) { warn "$progname - $hostname: $_[0]\n"; } sub eat_addr_port ($) { my ($x) = @_; - @ARGV or quit("<host/addr>,<port> missing"); + @ARGV or quit("<addr>,<port> missing"); $_= shift(@ARGV); $_ =~ m/^([^,]+)\,(\d+|$x)$/ or quit("$_: <host/addr>,<port> bad syntax"); return ($1,$2); @@ -96,7 +102,7 @@ while ($ARGV[0] =~ m/^-/) { last if $_ eq '--'; if (s/^-l//) { push @lcmd,$_ if length; - while (@ARGV && ($_= shift @ARGV) ne '-') { push @lcmd, $_; } + while (@ARGV && ($_= shift @ARGV) ne '.') { push @lcmd, $_; } } else { quit("unknown option \`$_'"); } |