🚀 go-pugleaf

Ignacio Arenaza escribi�:
 
> >>>>> "kurtsik" == kurtsik  <merlinaztia*stopspam*@mixmail.com> writes:
> 
>     kurtsik> Mi problema es que no se como pasar los valores de las
>     kurtsik> variables a las entradas de adduser y smbpasswd.  Podeis
>     kurtsik> ayudarme?  Estoy empezando con esto de la programacion,
>     kurtsik> asi que, por favor intentad adecuaros a mi nivel (o a mi
>     kurtsik> falta de nivel mejor dicho ;-) ) Gracias
> 
> Hola Kurtsik,
> 
> En realidad es muy facil. Basta con que uses la funcion system(). Algo
> como esto:
> 
>         system ("adduser --home $home $user");
>         system ("smpasswd -b $user $password");
> 
> sera suficiente ($home, $pass, etc. son las variables de tu script
> perl donde estaran los valores que quieres usar).
> 
> Saludos. I�aki.
> 


Me permito un a�adido a lo de I�aki:

$password = "kurtsik";
$contrase�a_encriptada = crypt( $password , "ku" );
system ("useradd -d $home -p $contrase�a_encriptada $user");
system ("smpasswd -b $user $password");

Te crear�a el usuario $user, con el directorio $home y con la
contrase�a "kurtsik", por ejemplo.
(Vale si usas las "shadow passwords". Si usas el algoritmo md5 para
encriptar las contrase�as, en vez de crypt() deber�s utilizar md5() o
alguna funci�n similar -esto �ltimo ya no lo he probado-).

En la p�gina man de useradd vienen bastantes m�s opciones
interesantes.

Un saludo.

David Asorey �lvarez