Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/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();
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement