diff options
Diffstat (limited to 'torrus/perllib/Torrus/Renderer/HTML.pm')
| -rw-r--r-- | torrus/perllib/Torrus/Renderer/HTML.pm | 19 |
1 files changed, 18 insertions, 1 deletions
diff --git a/torrus/perllib/Torrus/Renderer/HTML.pm b/torrus/perllib/Torrus/Renderer/HTML.pm index 4001baeed..657f66f00 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/". |