<%args> $pua_id $rule_id => -1 $num_actions => 1 $name => '' $contact => -1 $starttime => '' $endtime => '' $errors => '' <%once> use DBI; use Pg; % if ($num_actions < 1) { % $num_actions = 1; %} Personal User Agent
  PUA Interface - Electronic Numbering System InternetNZ  
 

 
 
<& nav.html, pua_id => $pua_id, current_page => 'pua_contacts.html' &>

New Rule

% if ($errors ne '') { % }
<% $errors %>
Rule name:
 
Contact: Time Start: (24 hr)
  Time End: (24 hr)
     
Actions:
(Either specify additional rules to try matching, or a device to connect to. The first additional rule that matches is used.)
% my $count = 0; % while ($count < $num_actions) { to device <& _device_options, pua_id => $pua_id, select_name => "device$count", selected => $ARGS{"device$count"} &>
% $count++; % }
   

 
Powered by Catalyst IT
<%init> my $n = 0; my $onload = ''; while ($n < $num_actions) { $onload .= "regenerate(document.ruleform.action$n, document.ruleform.device$n); "; $n++; } <%def _contact_options> <%args> $pua_id $selected => -1 <%init> my $dbh = DBI->connect('dbi:Pg:dbname=pua', 'pua', 'pua') or die "Couldn't connect to database: " . DBI->errstr; my $sth = $dbh->prepare("SELECT contact_id, contact_name, comment from pua_contact WHERE pua_id=$pua_id ORDER BY contact_name;"); $sth->execute or die "Execute failed: " . $sth->errstr; while (my @record = $sth->fetchrow_array) { my $sel = ''; if ($record[0] == $selected) { $sel = "selected=\"selected\""; } print "\n"; } <%def _action_options> <%args> $pua_id $selected => '' <%init> my $dbh = DBI->connect('dbi:Pg:dbname=pua', 'pua', 'pua') or die "Couldn't connect to database: " . DBI->errstr; my $sth = $dbh->prepare("SELECT rule_id, rule_name from rule WHERE pua_id=$pua_id ORDER BY rule_name;"); $sth->execute or die "Execute failed: " . $sth->errstr; while (my @record = $sth->fetchrow_array) { my $sel = ''; if ($record[1] eq $selected) { $sel = "selected=\"selected\""; } print "\n"; } <%def _device_options> <%args> $pua_id $selected => -1 $select_name <%init> my $dbh = DBI->connect('dbi:Pg:dbname=pua', 'pua', 'pua') or die "Couldn't connect to database: " . DBI->errstr; my $sth = $dbh->prepare("SELECT device_id, device_name from owner_device WHERE pua_id=$pua_id ORDER BY device_name;"); $sth->execute or die "Execute failed: " . $sth->errstr; my $rv = ''; while (my @record = $sth->fetchrow_array) { my $sel = ''; if ($record[0] == $selected) { $sel = "selected=\"selected\""; } $rv .= "\n"; } if ($rv ne '') { print ""; } else { print ": No device to connect to. Please enter one here"; }