\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{'editrpc_version'} | \n";
if ($inet[3] =~ /^[^\/]+\/([0-9]+)\-([0-9]+)$/) {
$vfrom = $1; $vto = $2;
}
elsif ($inet[3] =~ /^[^\/]+\/([0-9]+)$/) {
$vfrom = $1; $vto = $1;
}
else { $vfrom = $vto = ""; }
print " -\n";
print " | \n";
print "$text{'editrpc_socket'} | \n";
print " | \n";
print " $text{'editrpc_protocol'} | \n";
$inet[5] =~ /^[^\/]+\/(.*)$/;
if ($1 eq "*") { @usedpr = split(/\s+/, $config{'rpc_protocols'}); }
else { @usedpr = split(/,/, $1); }
print "\n";
foreach $upr (split(/\s+/, $config{rpc_protocols})) {
printf "".
" $upr\n", &indexof($upr,@usedpr)<0?"":"checked";
}
print " |
\n";
$qm = ($inet[8] =~ s/^\?//);
print " $text{'editrpc_server'} | \n";
if (!$config{'no_internal'}) {
printf " $text{'editrpc_internal'}\n",
$inet[8] eq "internal" ? "checked" : "";
printf "\n",
$inet[8] ne "internal" || !@inet ? "checked" : "";
printf "\n",
$inet[8] ne "internal" || !@inet ? $inet[8] : "";
} else {
printf " | \n";
printf "\n",
@inet ? $inet[8] : "";
}
print &file_chooser_button("program", 0);
if ($config{'qm_mode'}) {
print " "," " x 5;
printf " %s\n",
$qm ? "checked" : "", $text{'editserv_qm'};
}
print " |
\n";
print " $text{'editrpc_command'} | \n";
if (!$config{'no_internal'}) {
printf " |
\n",
$inet[8] eq "internal" ? "" : $inet[9];
} else {
printf " \n",
$inet[9];
}
if ($inet[6] =~ /^(\S+)\.(\d+)$/) { $waitmode = $1; $permin = $2; }
else { $waitmode = $inet[6]; $permin = -1; }
if ($inet[7] =~ /^(\S+)\.(\S+)$/) { $user = $1; $group = $2; }
else { $user = $inet[7]; undef($group); }
print " $text{'editrpc_waitmode'} | \n";
printf " $text{'editrpc_wait'}\n",
$waitmode eq "wait" || !@inet ? "checked" : "";
printf " $text{'editrpc_nowait'} | \n",
$waitmode eq "nowait" ? "checked" : "";
print "$text{'editrpc_execasuser'} | \n";
print " ",
&user_chooser_button("user", 0)," |
\n";
if ($config{extended_inetd}) {
print " $text{'editrpc_max'} | \n";
printf " $text{'editrpc_default'}\n",
$permin<0 ? "checked" : "";
printf " \n",
$permin<0 ? "" : "checked";
printf " | \n",
$permin<0 ? "" : $permin;
print "$text{'editrpc_execasgrp'} | \n";
print " |
\n";
endgrent() if ($gconfig{'os_type'} ne 'hpux');
}
print "