diff options
author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-05-05 11:19:16 +0000 |
---|---|---|
committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-07-24 09:53:24 +0000 |
commit | b5f8ee61a7f7e9bd291dd26b0585d03eb686c941 (patch) | |
tree | d4d31289c39fc00da064a825df13a0b98ce95b10 /web/server/h2o/libh2o/misc/p5-Server-Starter/t/01-starter-echod.pl | |
parent | Adding upstream version 1.44.3. (diff) | |
download | netdata-b5f8ee61a7f7e9bd291dd26b0585d03eb686c941.tar.xz netdata-b5f8ee61a7f7e9bd291dd26b0585d03eb686c941.zip |
Adding upstream version 1.46.3.
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to '')
-rwxr-xr-x | web/server/h2o/libh2o/misc/p5-Server-Starter/t/01-starter-echod.pl | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/web/server/h2o/libh2o/misc/p5-Server-Starter/t/01-starter-echod.pl b/web/server/h2o/libh2o/misc/p5-Server-Starter/t/01-starter-echod.pl deleted file mode 100755 index f35d200d9..000000000 --- a/web/server/h2o/libh2o/misc/p5-Server-Starter/t/01-starter-echod.pl +++ /dev/null @@ -1,35 +0,0 @@ -#! /usr/bin/perl - -use strict; -use warnings; - -use lib qw(blib/lib lib); - -use IO::Socket::INET; -use Server::Starter qw(server_ports); - -my $sigfn = shift @ARGV; -open my $sigfh, '>', $sigfn - or die "could not open file:$sigfn:$!"; - -$SIG{TERM} = $SIG{USR1} = sub { - my $signame = shift; - print $sigfh $signame; - sleep 2; - exit 0; -}; - -my $listener = IO::Socket::INET->new( - Proto => 'tcp', -); -$listener->fdopen((values %{server_ports()})[0], 'w') - or die "failed to bind listening socket:$!"; - -while (1) { - if (my $conn = $listener->accept) { - my $buf; - while ($conn->sysread($buf, 1048576) > 0) { - $conn->syswrite("$$:$buf"); - } - } -} |