Re: [LCFC] po-debconf://update-inetd
On Fri, May 23, 2008 at 12:28:45AM +0200, Steve Lord Flaubert wrote:
> Algunas observaciones:
> "Se encuentran múltiples entradas en ${inetdcf} para el '${service}' servicio"
> "Hay varias entradas en ${inetdcf} para el servicio ${service}"
>
> "¿Desea dejar la entrada como está y continuar sin los cambios?"
>
> Aquí me parece extraño el parámetro ${sservice} y por otro lado le
> llama ${service}
Parece una errata, pero no lo es, si buscas sservice en las fuentes sale lo
siguiente:
DebianNet.pm: ($sservice = $service) =~ s/^#([A-Za-z].*)/$1/;
DebianNet.pm: if (grep(m/^$sep$sservice\s+/,@inetd)) {
DebianNet.pm: &enable_service($sservice);
DebianNet.pm: if (grep(m/^$sservice\s+/,@inetd)) {
DebianNet.pm: if (grep(m/^$sservice\s+/,@inetd) > 1) {
DebianNet.pm: subst("update-inetd/ask-several-entries",
"service", "$sservice");
DebianNet.pm: subst("update-inetd/ask-several-entries",
"sservice", "$sservice");
DebianNet.pm: subst("update-inetd/ask-entry-present",
"service", "$sservice");
DebianNet.pm: subst("update-inetd/ask-entry-present",
"sservice",
"$sservice");
DebianNet.pm: my $lookslike =
(grep(m/^$sservice\s+/,@inetd))[0];
DebianNet.pm: } elsif (grep(m/^#\s*$sservice\s+/, @inetd) >= 1 or
DebianNet.pm: &printv("Processing service \`$sservice' ...
added\n");
Vamos, que si se utiliza.
Javier
Reply to: