\n";
$rate = &find("rate", $io);
print " $text{'karma_rate'} | \n";
printf " %s\n",
$rate ? "" : "checked", $text{'karma_rate_def'};
printf "\n",
$rate ? "checked" : "";
print &text('karma_rate_sel',
"",
""),
" | \n";
$mode = $karma ? 3 : -1;
for($i=0; $i<@karma_presets; $i++) {
local $kp = $karma_presets[$i];
local $different = 0;
foreach $k (keys %$kp) {
local $v = &find_value($k, $karma);
if ($v != $kp->{$k}) {
$different++;
last;
}
}
if (!$different) {
$mode = $i;
last;
}
}
print " $text{'karma_mode'} | \n";
print "
\n";
print " $text{'karma_heartbeat'} | \n";
printf " | \n",
&find_value("heartbeat", $karma);
print "$text{'karma_init'} | \n";
printf " | \n",
&find_value("init", $karma);
print " $text{'karma_max'} | \n";
printf " | \n",
&find_value("max", $karma);
print "$text{'karma_dec'} | \n";
printf " | \n",
&find_value("dec", $karma);
$p = &find_value("penalty", $karma);
print " $text{'karma_penalty'} | \n";
printf " | \n",
defined($p) ? $p * -1 : undef;
print "$text{'karma_restore'} | \n";
printf " | \n",
&find_value("restore", $karma);
print " | \n";
print " |