1 2 3 4 5 6 7 8 9 10 11 12 13
<% header('Router added') %> </BODY></HTML> <%init> # XXX: access rights my $host = $cgi->param('host'); die 'invalid host' unless $host =~ /^[0-9.a-zA-Z\-]+$/; my $nms = new FS::NetworkMonitoringSystem; $nms->add_router($host); </%init>