sslug-teknik team mailing list archive

[Mogens Kjaer <mk@xxxxxx>]

Henning Wangerin wrote:
...
> Alternativer er at få adduser til automatisk at tilføje et password til
> nye brugere når de bliver oprettet.

Det kan man gøre hvis man kalder adduser, fx fra et perlscript:

$password indeholder passwordet i cleartext.
$fullname for- og efternavn
$phone tlf. nr
$homephone hjemmenr
$group den ønskede gruppe man skal tilhøre
$uid ønskede uid
$username brugernavnet.

Hvis man ønsker default værdier for gid og uid kan man bare fjerne
dem fra kaldet af adduser.

-p parameteren til adduser kræver det krypterede password:

$salt = '$1$';
$salt .= join '', ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[rand 64, rand 64, 
rand 64, rand 64, rand 64, rand 64, rand 64, rand 64];
$salt .= '$';
$cpasswordmd5 = crypt($password, $salt);

$result = system "/usr/sbin/adduser -c 
'$fullname,$office,$phone,$homephone' -g$group -G$group -p 
'$cpasswordmd5' -u$uid $username";

Mogens

--
Mogens Kjaer, Carlsberg A/S, Computer Department
Gamle Carlsberg Vej 10, DK-2500 Valby, Denmark
Phone: +45 33 27 53 25, Fax: +45 33 27 47 08
Email: mk@xxxxxx Homepage: http://www.crc.dk