off-topic: script en perl

[Cristian Othon Martinez Vera]

On Mon, 28 Aug 2000, aury wrote:

> Hola lista...
> Estoy intentando hacer un script que permita cambiar el
> password del usuario. La idea es que el password sea
> generado por un random con este script y luego se llame a
> /usr/bin/passwd para que haga las modificaciones.
> 
> La parte del random todavia no esta hecha por lo que el
> password se lo paso con una variable. Si ejecutan el script
> veran que se llama a /usr/bin/passwd pero no funciona: no
> recibe el nuevo password. 
> Que se les ocurre?
> 
> #--------------------------------------------------------
> #! /usr/bin/perl
> 
> # Autor: Aureliano
> # Fecha:
> # Descripcion:
> 
> $passwd="/usr/bin/passwd";
> print("Usuario: ");
> $user=<STDIN>;
> $newpass="ho1234la";
> open(PASSWD,"$passwd $user |") or die "No se puede ejecutar
> passwd\n";
> 
> while(<PASSWD>){
>  sleep(5);
>  print("$newpass");
> }
> #--------------------------------------------------------

 A menos que vayas a hacer cosas mas complicadas que establecer la
contraseña de un usuario, no te recomendaria perl. Con un guion 'shell' se
puede solucionar.

 Si, tienes razon. El comando passwd no acepta entrada estandard para la
contrase~a. Espera la entrada directamente de la terminal. Sin embargo,
para felicidad del administrador, en tu distribucion existe el comando
chpasswd, que SI acepta entrada estandard. Revisa su pagina de manual para
mas detalles.

					Saludos
-- 
 (o- Cristian Othon Martinez Vera <cfuga en itam.mx>  Pulchrum est paucorum
//\     http://eniac.rhon.itam.mx/~cfuga/          hominum.
v_/_

---------------------------------------------------------
para salir de la lista, enviar un mensaje con las palabras
"unsubscribe ayuda" en el cuerpo a majordomo en linux.org.mx