1 <% header('Interface added') %>
2 <SCRIPT TYPE="text/javascript">
3 window.top.location.reload();
9 unless $FS::CurrentUser::CurrentUser->access_right('Configure network monitoring');
11 my $host = $cgi->param('host');
12 die 'invalid host' unless $host =~ /^[0-9.a-zA-Z\-]+$/;
14 my $iface = $cgi->param('iface');
15 die 'invalid iface' unless $iface =~ /^[0-9A-Za-z_\-.\\\/ ]+$/;
17 my $serviceid = $cgi->param('serviceid');
18 #die 'invalid serviceid' unless $serviceid =~ /^[0-9A-Za-z_\-.\\\/ ]+$/;
19 die 'invalid serviceid' unless $serviceid =~ /^[0-9A-Za-z_]+$/;
21 my $nms = new FS::NetworkMonitoringSystem;
22 $nms->add_interface($host,$iface,$serviceid);