Displaying 1 result from an estimated 1 matches for "env_proxy".
Did you mean:
env_probe
2005 Apr 17
0
Listener count in stream title
...use strict;
use URI::Escape;
use LWP::UserAgent;
my $mounts = '/.*';
my $user = 'source';
my $pass = 'changeme';
my $host = 'localhost:8000';
my $realm = 'Icecast2 Server';
my $maxclients = 100;
my $ua = LWP::UserAgent->new;
$ua->timeout(10);
#$ua->env_proxy;
my $res = $ua->get("http://$host/status2.xsl");
die $res->status_line unless $res->is_success;
my $content = $res->content;
$content =~ s|.*<pre>(.*)</pre>|$1|s;
foreach my $line (split(/\n/, $content)) {
if ($line =~ /^$mounts,/) {
if ($line =~ /^([^,]*)...