torrus virtual ports, RT#10574

[freeside.git] / FS / FS / NetworkMonitoringSystem / Torrus_Internal.pm

diff --git a/FS/FS/NetworkMonitoringSystem/Torrus_Internal.pm b/FS/FS/NetworkMonitoringSystem/Torrus_Internal.pm
index b55d0aa..1cc5d2a 100644 (file)
--- 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;