1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
#!/usr/bin/perl
# $OpenBSD: remote.pl,v 1.1.1.1 2013/01/03 17:36:39 bluhm Exp $
# Copyright (c) 2010-2013 Alexander Bluhm <bluhm@openbsd.org>
#
# Permission to use, copy, modify, and distribute this software for any
# purpose with or without fee is hereby granted, provided that the above
# copyright notice and this permission notice appear in all copies.
#
# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
# ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
# OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
use strict;
use warnings;
use File::Basename;
use File::Copy;
use Socket;
use Socket6;
use Client;
use Relay;
use Server;
use Remote;
require 'funcs.pl';
sub usage {
die <<"EOF";
usage:
remote.pl localport remoteaddr remoteport [test-args.pl]
Run test with local client and server. Remote relay
forwarding from remoteaddr remoteport to server localport
has to be started manually.
remote.pl copy|splice listenaddr connectaddr connectport [test-args.pl]
Only start remote relay.
remote.pl copy|splice localaddr remoteaddr remotessh [test-args.pl]
Run test with local client and server. Remote relay is
started automatically with ssh on remotessh.
EOF
}
my $test;
our %args;
if (@ARGV and -f $ARGV[-1]) {
$test = pop;
do $test
or die "Do test file $test failed: ", $@ || $!;
}
my $mode =
@ARGV == 3 && $ARGV[0] =~ /^\d+$/ && $ARGV[2] =~ /^\d+$/ ? "manual" :
@ARGV == 4 && $ARGV[1] !~ /^\d+$/ && $ARGV[3] =~ /^\d+$/ ? "relay" :
@ARGV == 4 && $ARGV[1] !~ /^\d+$/ && $ARGV[3] !~ /^\d+$/ ? "auto" :
usage();
my $r;
if ($mode eq "relay") {
$r = Relay->new(
forward => $ARGV[0],
logfile => dirname($0)."/remote.log",
func => \&relay,
%{$args{relay}},
listendomain => AF_INET,
listenaddr => $ARGV[1],
connectdomain => AF_INET,
connectaddr => $ARGV[2],
connectport => $ARGV[3],
);
open(my $log, '<', $r->{logfile})
or die "Remote log file open failed: $!";
$SIG{__DIE__} = sub {
die @_ if $^S;
copy($log, \*STDERR);
warn @_;
exit 255;
};
copy($log, \*STDERR);
$r->run;
copy($log, \*STDERR);
$r->up;
copy($log, \*STDERR);
$r->down;
copy($log, \*STDERR);
exit;
}
my $s = Server->new(
func => \&read_stream,
oobinline => 1,
%{$args{server}},
listendomain => AF_INET,
listenaddr => ($mode eq "auto" ? $ARGV[1] : undef),
listenport => ($mode eq "manual" ? $ARGV[0] : undef),
);
if ($mode eq "auto") {
$r = Remote->new(
forward => $ARGV[0],
logfile => "relay.log",
testfile => $test,
%{$args{relay}},
remotessh => $ARGV[3],
listenaddr => $ARGV[2],
connectaddr => $ARGV[1],
connectport => $s->{listenport},
);
$r->run->up;
}
my $c = Client->new(
func => \&write_stream,
oobinline => 1,
%{$args{client}},
connectdomain => AF_INET,
connectaddr => ($mode eq "manual" ? $ARGV[1] : $r->{listenaddr}),
connectport => ($mode eq "manual" ? $ARGV[2] : $r->{listenport}),
);
$s->run;
$c->run->up;
$s->up;
$c->down;
$r->down if $r;
$s->down;
check_logs($c, $r, $s, %args);
|
