\n";
@message = ( &find_value("message", $conf), [ ] );
print " $text{'message_message'} | \n";
print "\n";
print " $text{'message_path'} | \n",
"$text{'message_when'} | \n",
"$text{'message_classes'} | \n";
$i = 0;
foreach $m (@message) {
print "\n";
print " | \n";
printf " %s\n",
$m->[1] =~ /^login$/i ? 'checked' : '',
$text{'message_login'};
printf " %s\n",
$m->[1] =~ /^cwd=\*$/ ? 'checked' : '',
$text{'message_alldir'};
printf " %s\n",
$m->[1] =~ /^cwd=([^\*].*)$/ ? 'checked' : '',
$text{'message_dir'};
printf " | \n",
$m->[1] =~ /^cwd=([^\*].*)$/ ? $1 : '';
printf " | \n",
join(" ", @$m[2..@$m-1]);
print " \n";
$i++;
}
print " | \n";
print "
| \n";
@readme = ( &find_value("readme", $conf), [ ] );
print " $text{'message_readme'} | \n";
print "\n";
print " $text{'message_path'} | \n",
"$text{'message_update'} | \n",
"$text{'message_classes'} | \n";
$i = 0;
foreach $m (@readme) {
print "\n";
print " | \n";
printf " %s\n",
$m->[1] =~ /^login$/i ? 'checked' : '',
$text{'message_login'};
printf " %s\n",
$m->[1] =~ /^cwd=\*$/ ? 'checked' : '',
$text{'message_alldir'};
printf " %s\n",
$m->[1] =~ /^cwd=([^\*].*)$/ ? 'checked' : '',
$text{'message_dir'};
printf " | \n",
$m->[1] =~ /^cwd=([^\*].*)$/ ? $1 : '';
printf " | \n",
join(" ", @$m[2..@$m-1]);
print " \n";
$i++;
}
print " | \n";
print "
| \n";
$g = &find_value('greeting', $conf);
print " $text{'message_greeting'} | \n";
printf " %s\n",
$g->[0] eq 'full' || !$g->[0] ? 'checked' : '', $text{'message_full'};
printf " %s\n",
$g->[0] eq 'brief' ? 'checked' : '', $text{'message_brief'};
printf " %s | \n",
$g->[0] eq 'terse' ? 'checked' : '', $text{'message_terse'};
$b = &find_value('banner', $conf);
print " $text{'message_banner'} | \n";
printf " %s\n",
$b ? '' : 'checked', $text{'message_none'};
printf " %s\n",
$b ? 'checked' : '', $text{'message_file'};
printf " %s | \n",
$b->[0], &file_chooser_button('banner', 0);
$h = &find_value('hostname', $conf);
print " $text{'message_hostname'} | \n";
printf " %s\n",
$h ? '' : 'checked', $text{'message_hostdef'};
printf "\n",
$h ? 'checked' : '';
printf " %s | \n",
$h->[0];
$e = &find_value('email', $conf);
print " $text{'message_email'} | \n";
printf " %s\n",
$e ? '' : 'checked', $text{'default'};
printf "\n",
$e ? 'checked' : '';
printf " %s | \n",
$e->[0];
print " |