summaryrefslogtreecommitdiff
path: root/regress/usr.sbin/relayd/Client.pm
diff options
context:
space:
mode:
authorReyk Floeter <reyk@cvs.openbsd.org>2014-07-09 16:48:56 +0000
committerReyk Floeter <reyk@cvs.openbsd.org>2014-07-09 16:48:56 +0000
commitec1d696f4f7cd62918de61b2cab81a8e3a0d828d (patch)
tree71c7a0a44e3ef826727dda33c089aa52f1d96c60 /regress/usr.sbin/relayd/Client.pm
parent95901958f14bc08272193e1b54d8f34b9519229b (diff)
Update and extend the regress tests to use the new grammar of the
filtering rules. Some of the filenames are based on the old grammar, we keep them for now and just update the contents to have a before/after comparison of the features. Most of the work was done by Andre de Oliveira (andre@) OK bluhm@ benno@
Diffstat (limited to 'regress/usr.sbin/relayd/Client.pm')
-rw-r--r--regress/usr.sbin/relayd/Client.pm7
1 files changed, 6 insertions, 1 deletions
diff --git a/regress/usr.sbin/relayd/Client.pm b/regress/usr.sbin/relayd/Client.pm
index 5736f459ed2..37cfa40b130 100644
--- a/regress/usr.sbin/relayd/Client.pm
+++ b/regress/usr.sbin/relayd/Client.pm
@@ -1,4 +1,4 @@
-# $OpenBSD: Client.pm,v 1.5 2013/07/20 10:30:55 bluhm Exp $
+# $OpenBSD: Client.pm,v 1.6 2014/07/09 16:48:55 reyk Exp $
# Copyright (c) 2010-2012 Alexander Bluhm <bluhm@openbsd.org>
#
@@ -44,6 +44,10 @@ sub new {
sub child {
my $self = shift;
+ if ($self->{mreqs}) {
+ print STDERR "connection per request\n";
+ return;
+ }
$SSL_ERROR = "";
my $iosocket = $self->{ssl} ? "IO::Socket::SSL" : "IO::Socket::INET6";
my $cs = $iosocket->new(
@@ -55,6 +59,7 @@ sub child {
) or die ref($self), " $iosocket socket connect failed: $!,$SSL_ERROR";
print STDERR "connect sock: ",$cs->sockhost()," ",$cs->sockport(),"\n";
print STDERR "connect peer: ",$cs->peerhost()," ",$cs->peerport(),"\n";
+ print STDERR "single connection\n";
*STDIN = *STDOUT = $self->{cs} = $cs;
}