relay.pl revision 1.1 
1#!/usr/bin/perl
2#	$OpenBSD: relay.pl,v 1.1 2013/01/03 17:36:39 bluhm Exp $
3
4# Copyright (c) 2010-2013 Alexander Bluhm <bluhm@openbsd.org>
5#
6# Permission to use, copy, modify, and distribute this software for any
7# purpose with or without fee is hereby granted, provided that the above
8# copyright notice and this permission notice appear in all copies.
9#
10# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
11# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
12# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
13# ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
14# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
15# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
16# OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
17
18use strict;
19use warnings;
20use Socket;
21use Socket6;
22
23use Client;
24use Relay;
25use Server;
26require 'funcs.pl';
27
28sub usage {
29	die "usage: relay.pl copy|splice [test-args.pl]\n";
30}
31
32my $test;
33our %args;
34if (@ARGV and -f $ARGV[-1]) {
35	$test = pop;
36	do $test
37	    or die "Do test file $test failed: ", $@ || $!;
38}
39@ARGV == 1 or usage();
40
41my $s = Server->new(
42    func		=> \&read_datagram,
43    listendomain	=> AF_INET,
44    listenaddr		=> "127.0.0.1",
45    %{$args{server}},
46    protocol            => "udp",
47);
48my $r = Relay->new(
49    forward		=> $ARGV[0],
50    idle		=> 5,
51    func		=> \&relay,
52    listendomain	=> AF_INET,
53    listenaddr		=> "127.0.0.1",
54    connectdomain	=> AF_INET,
55    connectaddr		=> "127.0.0.1",
56    connectport		=> $s->{listenport},
57    %{$args{relay}},
58    protocol            => "udp",
59);
60my $c = Client->new(
61    func		=> \&write_datagram,
62    connectdomain	=> AF_INET,
63    connectaddr		=> "127.0.0.1",
64    connectport		=> $r->{listenport},
65    %{$args{client}},
66    protocol            => "udp",
67);
68
69$s->run;
70$r->run;
71$c->run->up;
72$r->up;
73$s->up;
74
75$c->down;
76$r->down;
77$s->down;
78
79check_logs($c, $r, $s, %args);
80