Version
4.0
foreach my $f ( @rules ) {
if( $f >{name} eq $rule ) {
$f >{enabled} = 1;
$found = 1;
}
}
if( !$found ) {
# Add a new rule to the start of the list
unshift @rules, {
name => $rule,
enabled => 1,
run_frequency => only_first
};
}
$res = $conn >setRules( [ $vsName ], [ [ @rules ] ] );
41