elias/ark-ac-server-tools
1
0
Fork 0
mirror of https://github.com/eliasstepanik/ark-ac-server-tools.git synced 2026-01-25 15:58:27 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add server info to status output

Browse Source
This commit is contained in:
Ben Peddell 2015-07-10 22:55:26 +10:00
parent d34f2ac336
commit 120df3d0db
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
tools/arkmanager
View File

@ -436,10 +436,23 @@ printStatus(){
echo -e "$NORMAL" "Server online: " "$RED" "No" "$NORMAL" echo -e "$NORMAL" "Server online: " "$RED" "No" "$NORMAL"
else else
echo -e "$NORMAL" "Server online: " "$GREEN" "Yes" "$NORMAL" echo -e "$NORMAL" "Server online: " "$GREEN" "Yes" "$NORMAL"
perl -MSocket -e '
my $port = int($ARGV[0]);
socket(my $socket, PF_INET, SOCK_DGRAM, 0);
setsockopt($socket, SOL_SOCKET, SO_RCVTIMEO, pack("i4", 1, 0, 0, 0));
my $sockaddr = pack_sockaddr_in($port, inet_aton("127.0.0.1"));
send($socket, "\xff\xff\xff\xffTSource Engine Query\x00", 0, $sockaddr);
my $data = "";
recv($socket, $data, 1400, 0) or (print "Unable to query server\n" and exit(1));
my ($servername, $mapname, $game, $fullname, $rest) = split(/\x00/, substr($data, 6), 5);
my $players = ord(substr($rest, 2, 1));
my $maxplayers = ord(substr($rest, 3, 1));
print "Server Name: $servername\n";
print "Players: $players / $maxplayers\n";
' "${ark_QueryPort}"
fi fi
getCurrentVersion getCurrentVersion
echo -e "$NORMAL" "Server version: " "$GREEN" $instver "$NORMAL" echo -e "$NORMAL" "Server version: " "$GREEN" $instver "$NORMAL"
} }
doUpgrade() { doUpgrade() {