From 948049fdec658dde9a09aef434002859f59f87dd Mon Sep 17 00:00:00 2001 From: timo Date: Sun, 4 Nov 2007 04:08:17 +0000 Subject: [PATCH] ... git-svn-id: https://zerowing.idsoftware.com/svn/radiant/GtkRadiant/branches/ZeroRadiant.ab@189 8a3a26a2-13c4-0310-b231-cf6edde360e5 --- tools/quake3/q3map2/listen.pl | 92 +++++++++++++++++------------------ 1 file changed, 46 insertions(+), 46 deletions(-) diff --git a/tools/quake3/q3map2/listen.pl b/tools/quake3/q3map2/listen.pl index 20001360..6101a767 100644 --- a/tools/quake3/q3map2/listen.pl +++ b/tools/quake3/q3map2/listen.pl @@ -1,46 +1,46 @@ -#!/usr/bin/perl -w - -use IO::Socket; -use Net::hostent; - -my $port = shift || 13131; - -my $server = IO::Socket::INET->new( - Proto => 'tcp', - LocalPort => $port, - Listen => SOMAXCONN, - Reuse => 1 ) - || die "can't setup server"; -print "[Q3Map2 listener $0 is now active on port $port]\n"; - -while( $client = $server->accept() ) -{ - - $client->autoflush( 1 ); - - $hostinfo = gethostbyaddr( $client->peeraddr ); - printf "[Connect from %s]\n\n", $hostinfo ? $hostinfo->name : $client->peerhost; - - #ask the client for a command - print $client "[server]\$"; - my $text = ""; - while( <$client> ) - { - $text .= $_; - while( $text =~ s|]*>([^<]+)|| ) - { - my $msg = $1; - - # fix xml ents - $msg =~ s|<|<|g; - $msg =~ s|>|>|g; - $msg =~ s|"|"|g;#" - $msg =~ s|'|'|g;#' - - print $msg; - } - } - - printf "\n[Disconnected: %s]\n\n", $hostinfo ? $hostinfo->name : $client->peerhost; - close $client; -} +#!/usr/bin/perl -w + +use IO::Socket; +use Net::hostent; + +my $port = shift || 13131; + +my $server = IO::Socket::INET->new( + Proto => 'tcp', + LocalPort => $port, + Listen => SOMAXCONN, + Reuse => 1 ) + || die "can't setup server"; +print "[Q3Map2 listener $0 is now active on port $port]\n"; + +while( $client = $server->accept() ) +{ + + $client->autoflush( 1 ); + + $hostinfo = gethostbyaddr( $client->peeraddr ); + printf "[Connect from %s]\n\n", $hostinfo ? $hostinfo->name : $client->peerhost; + + #ask the client for a command + print $client "[server]\$"; + my $text = ""; + while( <$client> ) + { + $text .= $_; + while( $text =~ s|]*>([^<]+)|| ) + { + my $msg = $1; + + # fix xml ents + $msg =~ s|<|<|g; + $msg =~ s|>|>|g; + $msg =~ s|"|"|g;#" + $msg =~ s|'|'|g;#' + + print $msg; + } + } + + printf "\n[Disconnected: %s]\n\n", $hostinfo ? $hostinfo->name : $client->peerhost; + close $client; +} -- 2.39.2