#!/usr/bin/env perl
my $masterhost = 'play.redeclipse.net';
my $masterport = 28800;
use IO::Socket::INET;
$| =1;
my $socket = new IO::Socket::INET (
PeerHost => $masterhost,
PeerPort => $masterport,
Proto => 'tcp',
Timeout => 4,
) or die "Failed to contact master server: $!\n";
#print <$socket>;
print "Connected to master server\n";
my $post = 'update';
print $socket "$post\n";
while (<$socket>)
{
if( $_ =~ m/addserver\ (\d+).(\d+).(\d+).(\d+)\ (\d+)/)
{
print "$1.$2.$3.$4:$5\n";
}
}
$socket->close();