[bcn-pm] Extra

[Christof Damian]

On Thu, 09 Feb 2006, Jose Pedro Andres Garcia wrote:
> Buenas:
>     Me he encontrado con un error muy raro, y no se si es tema de perl, 
> o si es problema de Debian.
> Os cuento:
>     Intento validar usuarios del sistema, cojiendo el password 
> encriptado y el uid con la funcion getpwnam.
>     El codigo de ejemplo seria este:
> 
> foreach ( 'root', 'macklus' ) {
>         if ( getpwnam ( $_ ) ) {

try this instead:

          if ( defined getpwnam ( $_ ) ) {

or change maybe even better:

foreach ( 'root', 'macklus' ) {
        if ( my ($upass,$uid) = (getpwnam( $_ ))[1,2] ) {
                print "RECIBO: $upass, $uid\n";
        } else {
                print "ERROR: Usuario $_ no se devuelve !\n";
        }
}

you will see the encrypted password entry usually only if you are
root, because it is stored in the shadow file.

christof

(sorry about my lack of spanish)
-- 
Christof Damian         
christof at damian.net