\n";
# Display log commands option
map { $commands{$_}++ } split(/,/, $log{'commands'}->[1]);
print " $text{'log_commands'} | \n";
foreach $c ('anonymous', 'guest', 'real') {
printf " %s\n",
$commands{$c} ? 'checked' : '', $text{"log_$c"};
}
print " | \n";
# Display log transfers option
map { $transfers{$_}++ } split(/,/, $log{'transfers'}->[1]);
print " $text{'log_trans'} | \n";
foreach $c ('anonymous', 'guest', 'real') {
printf " %s\n",
$transfers{$c} ? 'checked' : '', $text{"log_$c"};
}
print " | | \n";
print "$text{'log_dir'}\n";
$d = $log{'transfers'}->[2];
printf " %s\n",
$d eq 'inbound' ? 'checked' : '', $text{'log_inbound'};
printf " %s\n",
$d eq 'outbound' ? 'checked' : '', $text{'log_outbound'};
printf " %s\n",
$d =~ /inbound/ && $d =~ /outbound/ ? 'checked' : '', $text{'log_both'};
print " | \n";
# Display log syslog option
print " $text{'log_to'} | \n";
printf " %s\n",
$log{'syslog'} ? 'checked' : '', $text{'log_syslog'};
printf " %s\n",
$log{'syslog'} || $log{'syslog+xferlog'} ? '' : 'checked',
$text{'log_xferlog'};
printf " %s | \n",
$log{'syslog+xferlog'} ? 'checked' : '', $text{'log_sysxfer'};
# Display log security option
map { $security{$_}++ } split(/,/, $log{'security'}->[1]);
print " $text{'log_security'} | \n";
foreach $c ('anonymous', 'guest', 'real') {
printf " %s\n",
$security{$c} ? 'checked' : '', $text{"log_$c"};
}
print " | \n";
print " |