sub addrule
{
&Header::openbox('100%', 'center', $Lang::tr{'Add Rule'});
- if ($outfwsettings{'EDIT'} eq 'no') { $selected{'ENABLED'} = 'checked'; }
+ if ($outfwsettings{'ENABLED'} eq 'on') { $selected{'ENABLED'} = 'checked'; }
$selected{'TIME_FROM'}{$outfwsettings{'TIME_FROM'}} = "selected='selected'";
$selected{'TIME_TO'}{$outfwsettings{'TIME_TO'}} = "selected='selected'";
print <<END
;
my @ipgroups = qx(ls $configpath/ipgroups/);
foreach (sort @ipgroups){
- print "\t\t\t\t\t<option value='$_' $selected{'SNET'}{'$_'}>$_</option>\n";
+ chomp($_);
+ print "\t\t\t\t\t<option value='$_' $selected{'SNET'}{$_}>$_</option>\n";
}
print <<END
</optgroup>
;
my @macgroups = qx(ls $configpath/macgroups/);
foreach (sort @macgroups){
- print "\t\t\t\t\t<option value='$_' $selected{'SNET'}{'$_'}>$_</option>\n";
+ chomp($_);
+ print "\t\t\t\t\t<option value='$_' $selected{'SNET'}{$_}>$_</option>\n";
}
print <<END
</optgroup>
}
&Header::closebigbox();
-&Header::closepage();
\ No newline at end of file
+&Header::closepage();