-### return unless &main::loadPerlModule("IO::Socket");
-
- my $socket = new IO::Socket;
-
- socket($socket, PF_INET, SOCK_STREAM, $proto) or return "error: socket: $!";
- eval {
- alarm 15;
- connect($socket, sockaddr_in($port, inet_aton($server))) or return "error: connect: $!";
- alarm 0;
- };
-
- my @retval;
-
- if ($@ && $@ ne "alarm\n") { # failed.
- return;
- }
-
- $socket->autoflush(1); # required.
-
- print $socket "\n";
- while (<$socket>) {
- chop;
-
- s/\t//g;
- s/\s$//;
- s/\s+/ /g;
-
- next if ($_ eq "");
-
- push(@retval, $_);
- }
- close $socket;
-
- @retval;