\n";
print " \n";
printf " $text{'editrpc_noassigned'}\n",
@inet ? "" : "checked";
printf " $text{'editrpc_disable'}\n",
@inet && !$inet[1] ? "checked" : "";
printf " $text{'editrpc_enable'}\n",
$inet[1] ? "checked" : "";
print " | \n";
print " $text{'editserv_program'} | \n";
print "";
if (!$config{'no_internal'}) {
printf "\n",
$inet[8] eq "internal" ? "checked" : "";
print "$text{'editserv_inetd'} | \n";
}
$qm = ($inet[8] =~ s/^\?//);
$tcpd = (-x $config{'tcpd_path'} && $inet[8] eq $config{'tcpd_path'});
print " | \n";
print "";
if (!$config{'no_internal'}) {
printf " $text{'editrpc_command'}\n",
$inet[8] ne "internal" && !$tcpd ? "checked" : "";
printf "\n",
$inet[8] ne "internal" && !$tcpd ? $inet[8] : "";
print &file_chooser_button("program", 0);
printf "$text{'editserv_args'} \n",
$inet[5] ne "internal" && !$tcpd ? $inet[9] : "";
} else {
printf " $text{'editrpc_command'}\n",
!$tcpd ? "checked" : "";
printf "\n",
!$tcpd ? $inet[8] : "";
print &file_chooser_button("program", 0);
printf "$text{'editserv_args'} \n",
!$tcpd ? $inet[9] : "";
}
if ($config{'qm_mode'}) {
print " "," " x 5;
printf " %s\n",
$qm ? "checked" : "", $text{'editserv_qm'};
}
print " | \n";
if (-x $config{'tcpd_path'}) {
print " | \n";
printf "\n",
$tcpd ? "checked" : "";
print "$text{'editserv_wrapper'}\n";
$inet[9] =~ /^(\S+)\s*(.*)$/;
printf "\n", $tcpd ? $1 : "";
printf "$text{'editserv_args'} | \n",
$tcpd ? $2 : "";
}
@op1 = split(/[:\.\/]/, $inet[6]);
@op2 = split(/[:\.\/]/, $inet[7]);
if ($inet[7] =~ /\// && $inet[7] !~ /:/) {
# class but no group!
splice(@op2, 1, 0, undef);
}
print " $text{'editrpc_waitmode'} | \n";
printf " $text{'editrpc_wait'}\n",
$op1[0] eq "wait" ? "checked" : "";
printf " $text{'editrpc_nowait'} | \n",
$op1[0] ne "wait" ? "checked" : "";
print "$text{'editrpc_execasuser'} | \n";
print " ",
&user_chooser_button("user", 0)," | \n";
if ($config{'extended_inetd'} == 1) {
# Display max per minute and group options
# This is for systems like Linux
print " $text{'editrpc_max'} | \n";
printf " $text{'editrpc_default'}\n",
@op1 < 2 ? "checked" : "";
printf " \n",
@op1 < 2 ? "" : "checked";
printf " | \n",
@op1 < 2 ? "" : $op1[1];
print "$text{'editrpc_execasgrp'} | \n";
printf " %s\n",
$op2[1] ? "" : "checked", $text{'default'};
printf "\n",
$op2[1] ? "checked" : "";
print &unix_group_input("group", $op2[1])," | \n";
}
elsif ($config{'extended_inetd'} == 2) {
# Display max child, max per minute, group and login class options
# This is for systems like FreeBSD
print " $text{'editrpc_max'} | \n";
printf " $text{'editrpc_default'}\n",
@op1 < 3 ? "checked" : "";
printf " \n",
@op1 < 3 ? "" : "checked";
printf " | \n",
@op1 < 3 ? "" : $op1[2];
print "$text{'editrpc_execasgrp'} | \n";
print " | \n";
endgrent() if ($gconfig{'os_type'} ne 'hpux');
print " $text{'editserv_maxchild'} | \n";
printf " $text{'editrpc_default'}\n",
@op1 < 2 ? "checked" : "";
printf " \n",
@op1 < 2 ? "" : "checked";
printf " | \n",
@op1 < 2 ? "" : $op1[1];
print "$text{'editserv_execlogin'} | \n";
print " | \n";
}
print " |