\n";
$prog = &indexof('INTERNAL', @{$q->{'type'}}) >= 0 ? 0 :
$q->{'redirect'} ? 2 : 1;
print " $text{'serv_prog'} | \n";
printf " %s \n",
$prog == 0 ? 'checked' : '', $text{'serv_internal'};
printf " %s\n",
$prog == 1 ? 'checked' : '', $text{'serv_server'};
printf " \n",
join(" ", $q->{'server'}->[0], @{$q->{'server_args'}});
printf " %s\n",
$prog == 2 ? 'checked' : '', $text{'serv_redirect'};
printf " %s\n",
$prog == 2 ? $q->{'redirect'}->[0] : "", $text{'serv_rport'};
printf " | \n",
$prog == 2 ? $q->{'redirect'}->[1] : "";
print " $text{'serv_user'} | \n";
printf " %s | \n",
$q->{'user'}->[0], &user_chooser_button('user');
print "$text{'serv_group'} | \n";
printf " %s\n",
$q->{'group'} ? '' : 'checked', $text{'serv_group_def'};
printf "\n",
$q->{'group'} ? 'checked' : '';
printf " %s | \n",
$q->{'group'}->[0], &group_chooser_button('group');
print " $text{'serv_wait'} | \n";
printf " %s\n",
$q->{'wait'}->[0] eq 'yes' ? 'checked' : '', $text{'yes'};
printf " %s | \n",
$q->{'wait'}->[0] eq 'yes' ? '' : 'checked', $text{'no'};
$inst = uc($q->{'instances'}->[0]) eq 'UNLIMITED' ? '' : $q->{'instances'}->[0];
print "$text{'serv_inst'} | \n";
printf " %s\n",
$inst ? '' : 'checked', $text{'serv_inst_def'};
printf "\n",
$inst ? 'checked' : '';
printf " | \n",
$inst;
print " $text{'serv_nice'} | \n";
printf " %s\n",
$q->{'nice'} ? '' : 'checked', $text{'default'};
printf "\n",
$q->{'nice'} ? 'checked' : '';
printf " | \n",
$q->{'nice'}->[0];
$cps = uc($q->{'cps'}->[0]) eq 'UNLIMITED' ? '' : $q->{'cps'}->[0];
print "$text{'serv_cps0'} | \n";
printf " %s\n",
$cps ? '' : 'checked', $text{'serv_cps_def'};
printf "\n",
$cps ? 'checked' : '';
printf " %s | \n",
$cps;
print " | \n";
print "$text{'serv_cps1'} | \n";
printf " $text{'serv_sec'} | \n",
$q->{'cps'}->[1];
print " |