mirrors
/
Monitorix
mirror of https://github.com/mikaku/Monitorix.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

added support of Basic Authentication to Wowza graph. #100

This commit is contained in:
Jordi Sanfeliu 2015-07-23 10:56:35 +02:00
parent 1656cb0cc0
commit 309c800b75
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lib/wowza.pm
View File

@ -24,7 +24,7 @@ use strict;
use warnings; use warnings;
use Monitorix; use Monitorix;
use RRDs; use RRDs;
use LWP::UserAgent; use base 'LWP::UserAgent';
use XML::Simple; use XML::Simple;
use Exporter 'import'; use Exporter 'import';
our @EXPORT = qw(wowza_init wowza_update wowza_cgi); our @EXPORT = qw(wowza_init wowza_update wowza_cgi);
@ -250,6 +250,15 @@ sub wowza_init {
logger("$myself: Ok") if $debug; logger("$myself: Ok") if $debug;
} }
sub get_basic_credentials {
my ($self, $realm, $url) = @_;
my $user = "";
my $pass = "";
my ($auth) = ($url =~ m/^http:\/\/(\S*)@.*?$/);
return ($user, $pass) = ($auth =~ m/^(\S+):(\S+)$/) if $auth;
}
sub wowza_update { sub wowza_update {
my $myself = (caller(0))[3]; my $myself = (caller(0))[3];
my ($package, $config, $debug) = @_; my ($package, $config, $debug) = @_;
@ -270,12 +279,12 @@ sub wowza_update {
$ssl = "ssl_opts => {verify_hostname => 0}" $ssl = "ssl_opts => {verify_hostname => 0}"
if lc($config->{accept_selfsigned_certs}) eq "y"; if lc($config->{accept_selfsigned_certs}) eq "y";
my $ua = LWP::UserAgent->new(timeout => 30, $ssl); my $ua = wowza->new(timeout => 30, $ssl);
my $response = $ua->request(HTTP::Request->new('GET', $wls)); my $response = $ua->get($wls);
my $data = XMLin($response->content); my $data = XMLin($response->content);
if(!$response->is_success) { if(!$response->is_success) {
logger("$myself: ERROR: Unable to connect to '$wls'."); logger("$myself: ERROR: Unable to connect to '$wls' (" . $response->status_line . ").");
} }
# main (VHost) stats # main (VHost) stats