diff options
author | levinse <levinse> | 2011-02-07 05:20:41 +0000 |
---|---|---|
committer | levinse <levinse> | 2011-02-07 05:20:41 +0000 |
commit | 8c37ba9a0caeffdbe133968750f5b4d1e7b7fb69 (patch) | |
tree | faa7322e969cc71cdeae57b2eaf619689e28d3eb /torrus/perllib | |
parent | 3a4bf42c4385863ea83423b279b39ff6e650f79d (diff) |
torrus, UI, RT10574
Diffstat (limited to 'torrus/perllib')
-rw-r--r-- | torrus/perllib/Torrus/Freeside.pm | 7 | ||||
-rw-r--r-- | torrus/perllib/Torrus/Renderer/HTML.pm | 19 |
2 files changed, 25 insertions, 1 deletions
diff --git a/torrus/perllib/Torrus/Freeside.pm b/torrus/perllib/Torrus/Freeside.pm index 359d544..239f55f 100644 --- a/torrus/perllib/Torrus/Freeside.pm +++ b/torrus/perllib/Torrus/Freeside.pm @@ -5,6 +5,7 @@ use warnings; #Freeside use FS::Mason qw( mason_interps ); +use FS::NetworkMonitoringSystem; my $outbuf; my( $fs_interp, $rt_interp ) = mason_interps('standalone', 'outbuf'=>\$outbuf); @@ -59,5 +60,11 @@ sub freesideComponent { } +sub load_nms { + my $self = shift; + my $nms = new FS::NetworkMonitoringSystem; + $nms; +} + 1; diff --git a/torrus/perllib/Torrus/Renderer/HTML.pm b/torrus/perllib/Torrus/Renderer/HTML.pm index 4001bae..657f66f 100644 --- a/torrus/perllib/Torrus/Renderer/HTML.pm +++ b/torrus/perllib/Torrus/Renderer/HTML.pm @@ -14,7 +14,7 @@ # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA. -# $Id: HTML.pm,v 1.6 2011-02-05 06:32:36 levinse Exp $ +# $Id: HTML.pm,v 1.7 2011-02-07 05:20:41 levinse Exp $ # Stanislav Sinyagin <ssinyagin@yahoo.com> package Torrus::Renderer::HTML; @@ -120,12 +120,29 @@ sub render_html 'freesideComponent' => sub { return $self->freesideComponent(@_); }, 'uri_escape' => sub { return uri_escape(@_); }, 'matches' => sub { return $_[0] =~ $_[1]; }, + 'load_nms' => sub { return $self->load_nms; }, + 'get_serviceids' => sub { my $nms = shift; + my $router = shift; + return $nms->get_router_serviceids($router); + }, 'popup_link' => sub { my $type = shift; if($type eq 'nms-add_iface.html') { my $host = shift; my $iface = shift; + my $nms = shift; + my $serviceids = shift; + my $svc_port = ''; + + $svc_port = $nms->find_svc($serviceids->{$iface}) + if($serviceids && $serviceids->{$iface}); + + if($svc_port) { + my $url = $Torrus::Freeside::FSURL."/view/svc_port.cgi?".$svc_port->svcnum; + return "<A HREF='$url'>View Service</A>"; + } + return $self->freesideComponent('/elements/popup_link.html', 'action' => "/freeside/misc/". |