From: Devrim SERAL (devrim@tef.gazi.edu.tr)
Date: Mon 16 Oct 2000 - 15:44:16 EEST
On Mon, 16 Oct 2000, Emre KUNT wrote:
> merhaba,
>
> yaklasik 1000 kullaniciya mail hesabi acmak ve yine bu kullanicilarin
> hepsine birden farkli sifreler vermek istiyorum.
> yardimci olursaniz sevinirim.
Selamlar,
Asagidaki gibi bir script isinizi gorur
----------------Cut here --------------------------------
#!/usr/bin/perl
@s_key=((0..9),(a..z),(A..Z));
open(fp,"userlist.txt");
@arr=<fp>;
close (fp);
foreach $satir (@arr) {
@sut = split (":" , $satir ) ;
$salt = $s_key[int(rand(57))].$s_key[int(rand(57))];
$cmd = "adduser -g users -c".@sut[2]." -m -p
".crypt(@sut[0],$salt)." ".sut[0];
system ($cmd);
}
---------------------------------------------------------------
Bu sekilde userlist.txt icinde
devrim:sifre1:Devrim SERAL,Gazi University
deneme:sifre2:Deneme User
Olacak
iyi calismalar
dS
Listeden cikmak icin:
unsub linux
mesajini listeci@bilkent.edu.tr adresine gonderiniz.
Lutfen Listeci icin MIME / HTML / Turkce Aksan kullanmayin.
Listeci arayuzu: http://listweb.bilkent.edu.tr/yardim/bilkent/linux.html
Liste arsivinin adresi: http://listweb.bilkent.edu.tr/