Révision 17f78427
Whitespace cleanup
- remove trailing whitespace
- remove empty lines at the end of files
| plugins/teamspeak/teamspeak_user | ||
|---|---|---|
| 26 | 26 |
# CONFIG HERE! |
| 27 | 27 |
my $hostname = "localhost"; # serveraddress |
| 28 | 28 |
my $port = 10011; # querryport (default: 10011) |
| 29 |
my @serverids = (1); # array of virtualserverids (1,2,3,4,...)
|
|
| 29 |
my @serverids = (1); # array of virtualserverids (1,2,3,4,...) |
|
| 30 | 30 |
|
| 31 | 31 |
my $username = ""; # only set if the default queryuser hasn?t enough rights (should work without this) |
| 32 | 32 |
my $password = ""; |
| ... | ... | |
| 47 | 47 |
exit 0; |
| 48 | 48 |
} |
| 49 | 49 |
else |
| 50 |
{
|
|
| 51 |
my $telnet = new Net::Telnet(Timeout=>5, Errmode=>"return", Prompt=>"/\r/");
|
|
| 50 |
{
|
|
| 51 |
my $telnet = new Net::Telnet(Timeout=>5, Errmode=>"return", Prompt=>"/\r/"); |
|
| 52 | 52 |
if (!$telnet->open(Host=>$hostname, Port=>$port)) {
|
| 53 | 53 |
die exit; |
| 54 |
}
|
|
| 54 |
} |
|
| 55 | 55 |
$telnet->waitfor("/Welcome to the TeamSpeak 3 ServerQuery interface/");
|
| 56 | 56 |
foreach my $server (@serverids) |
| 57 | 57 |
{
|
| ... | ... | |
| 62 | 62 |
$telnet->waitfor("/error id=0 msg=ok/");
|
| 63 | 63 |
} |
| 64 | 64 |
$telnet->cmd("serverinfo");
|
| 65 |
|
|
| 65 |
|
|
| 66 | 66 |
my $clients = 0; |
| 67 | 67 |
my $queryclients = 0; |
| 68 | 68 |
my $line = $telnet->getline(Timeout=>5); |
| ... | ... | |
| 74 | 74 |
} |
| 75 | 75 |
$telnet->waitfor("/error id=0 msg=ok/");
|
| 76 | 76 |
print "$server.value ".($clients - $queryclients)."\n"; |
| 77 |
}
|
|
| 77 |
} |
|
| 78 | 78 |
$telnet->close; |
| 79 | 79 |
} |
| 80 | 80 |
exit; |
Formats disponibles : Unified diff