diff options
author | ivan <ivan> | 2011-02-27 19:20:37 +0000 |
---|---|---|
committer | ivan <ivan> | 2011-02-27 19:20:37 +0000 |
commit | 71c4c439c4a5b414802802beabc8060986d4a065 (patch) | |
tree | 6e1a097ec47289237249d2546c85a67a051115a4 /FS/FS/NetworkMonitoringSystem | |
parent | 0f73a9a9ff4a9bbb48e29eb8874155da3587390b (diff) |
torrus virtual ports, RT#10574
Diffstat (limited to 'FS/FS/NetworkMonitoringSystem')
-rw-r--r-- | FS/FS/NetworkMonitoringSystem/Torrus_Internal.pm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/FS/FS/NetworkMonitoringSystem/Torrus_Internal.pm b/FS/FS/NetworkMonitoringSystem/Torrus_Internal.pm index b55d0aa..1cc5d2a 100644 --- a/FS/FS/NetworkMonitoringSystem/Torrus_Internal.pm +++ b/FS/FS/NetworkMonitoringSystem/Torrus_Internal.pm @@ -7,8 +7,9 @@ use IO::File; use File::Slurp qw(slurp); use Date::Format; use XML::Simple; +use FS::Record qw(qsearch qsearchs dbh); use FS::svc_port; -use FS::Record qw(qsearch dbh); +use FS::torrus_srvderive_component; use Torrus::ConfigTree; #$DEBUG = 0; @@ -94,6 +95,14 @@ sub find_svc { return $svc_port[0]; } +sub find_torrus_srvderive_component { + my $self = shift; + my $serviceid = shift; + return '' unless $serviceid =~ /^[0-9A-Za-z_\-.\\\/ ]+$/; + + qsearchs('torrus_srvderive_component', { 'serviceid' => $serviceid }); +} + sub report { my $self = shift; |