Révision 17f78427
Whitespace cleanup
- remove trailing whitespace
- remove empty lines at the end of files
| plugins/shoutcast/shoutcast2_multi | ||
|---|---|---|
| 200 | 200 |
foreach my $sid (sort keys %{$sidDataRef}) {
|
| 201 | 201 |
print "multigraph shoutcast2_active.active_sid_$sid\n"; |
| 202 | 202 |
foreach my $dsrc (@{$graphsRef->{sid_active}->{datasrc}}) {
|
| 203 |
print "$dsrc->{name}.value $sidDataRef->{$sid}->{$dsrc->{xmlkey}}\n";
|
|
| 203 |
print "$dsrc->{name}.value $sidDataRef->{$sid}->{$dsrc->{xmlkey}}\n";
|
|
| 204 | 204 |
if ($sidDataRef->{$sid}->{$dsrc->{xmlkey}} == 1) {
|
| 205 | 205 |
$globalActive = 1; |
| 206 | 206 |
} |
| ... | ... | |
| 216 | 216 |
=head2 print_listener_data |
| 217 | 217 |
|
| 218 | 218 |
This subroutine prints out the listener graph values for each stream and ultimately |
| 219 |
adds all of the current users together to show that against the maxserver count in
|
|
| 219 |
adds all of the current users together to show that against the maxserver count in |
|
| 220 | 220 |
the global graph. Clicking on the global graph will reveal a bit more information |
| 221 | 221 |
about the users on a stream by stream basis. |
| 222 | 222 |
|
| ... | ... | |
| 228 | 228 |
foreach my $sid (sort keys %{$sidDataRef}) {
|
| 229 | 229 |
print "multigraph shoutcast2_listeners.listeners_sid_$sid\n"; |
| 230 | 230 |
foreach my $dsrc (@{$graphsRef->{sid_listeners}->{datasrc}}) {
|
| 231 |
print "$dsrc->{name}.value $sidDataRef->{$sid}->{$dsrc->{xmlkey}}\n";
|
|
| 231 |
print "$dsrc->{name}.value $sidDataRef->{$sid}->{$dsrc->{xmlkey}}\n";
|
|
| 232 | 232 |
if ($dsrc->{name} eq 'currlisteners') {
|
| 233 | 233 |
$globalListeners += $sidDataRef->{$sid}->{$dsrc->{xmlkey}};
|
| 234 | 234 |
} |
| ... | ... | |
| 283 | 283 |
} |
| 284 | 284 |
print_active_config($sidDataRef); |
| 285 | 285 |
print_listener_config($sidDataRef); |
| 286 |
return;
|
|
| 286 |
return; |
|
| 287 | 287 |
} |
| 288 | 288 |
|
| 289 | 289 |
=head2 print_active_config |
| ... | ... | |
| 409 | 409 |
my $response = $ua->get($url); |
| 410 | 410 |
if ($response->is_success) {
|
| 411 | 411 |
my $returnRef = XMLin($response->decoded_content); |
| 412 |
return (1, $returnRef);
|
|
| 412 |
return (1, $returnRef); |
|
| 413 | 413 |
} else {
|
| 414 | 414 |
return (0, $response->status_line); |
| 415 | 415 |
} |
| ... | ... | |
| 431 | 431 |
if ($response->is_success) {
|
| 432 | 432 |
my $returnRef = XMLin($response->decoded_content); |
| 433 | 433 |
if (($returnRef->{STREAMCONFIGS}->{TOTALCONFIGS} > 0) && (defined($returnRef->{STREAMCONFIGS}->{STREAMCONFIG}))) {
|
| 434 |
return (1, $returnRef);
|
|
| 434 |
return (1, $returnRef); |
|
| 435 | 435 |
} else {
|
| 436 | 436 |
return (0, 'Unable to Detect any Stream Configurations'); |
| 437 | 437 |
} |
Formats disponibles : Unified diff