[FUGSPBR] Erro ao rodar um patch

[Eduardo Augusto Cosa]

A algum tempo atrás eu questionei sobre a possibilidade de usar username com
o . (ponto) e o Edson mandou um patch para que eu rodasse no meu server.
Depois de um longo inverno :-) estou tentando implementar.... porém estou
tendo um problema no segundo bloco, que segue abaixo:

@@ -323,5 +323,5 @@
     local($name) = @_;

-    if ($name !~ /^[a-z0-9_][a-z0-9_\-]*$/ || $name eq "a-z0-9_-") {
+    if ($name !~ /^[a-z.0-9_.][a-z.0-9_\-]*$/ || $name eq "a-z.0-9_-") {
        warn "Wrong username. " .
            "Please use only lowercase characters or digits\a\n";

olhando no arquivo adduser.rej, tenho o seguinte conteudo:

**************
***318,322 ****
     local($name) = @_;

-    if ($name !~ /^[a-z0-9_][a-z0-9_\-]*$/ || $name eq "a-z0-9_-") {
        warn "Wrong username. " .
            "Please use only lowercase characters or digits\a\n";

--- 318,322 ----

     local($name) = @_;

+    if ($name !~ /^[a-z.0-9_.][a-z.0-9_\-]*$/ || $name eq "a-z.0-9_-") {
        warn "Wrong username. " .
            "Please use only lowercase characters or digits\a\n";

O que deve estar errado ????

Obrigado !!! 8-D

===

>OLa
>      Copia o arquivo abaixo para dentro do seu /usr/sbin, como o nome de
>remendo.txt.
>        depois executa:
>
># patch < remendo.txt
>
>        Como resultado voce tera um adduser que aceita "."
>        ok?
>
>Ps. Faz um backup do /usr/sbin/adduser antes por segurança :-), mas ta ok
que
>eu testei aqui.
>
>Edson
>
>
>##############Cortar aqui##############
>
>--- adduser     Tue Jul 10 15:48:35 2001
>+++ adduser.brandi      Tue Jul 10 15:53:23 2001
>@@ -310,5 +310,5 @@
>
>     while(1) {
>-       $name = &confirm_list("Enter username", 1, "a-z0-9_-", "");
>+       $name = &confirm_list("Enter username", 1, "a-z.0-9_-", "");
>        if (length($name) > 16) {
>            warn "Username is longer than 16 chars\a\n";
>@@ -323,5 +323,5 @@
>     local($name) = @_;
>
>-    if ($name !~ /^[a-z0-9_][a-z0-9_\-]*$/ || $name eq "a-z0-9_-") {
>+    if ($name !~ /^[a-z.0-9_.][a-z.0-9_\-]*$/ || $name eq "a-z.0-9_-") {
>        warn "Wrong username. " .
>            "Please use only lowercase characters or digits\a\n";
>
>#############Fim #####################
>
>[ ]'s Edson



----
Para sair da lista envie um e-mail para majordomo em fugspbr.org
com as palavras "unsubscribe fugspbr" no corpo da mensagem.