#!/usr/local/bin/perl
#
#
#  Generates /etc/passwd entries suitable for loading into a LDAP directory
#  Password will be "mail'r'us" for all accounts.
#  this is for a generic NMS. server!

for ($user = 1; $user < 50001; $user++) {
print "dn: cn=u$user, o=Foo.COM\n";
print "cn: u$user\n";
print "sn: NS\n";
print "givenname: Test\n";
print "objectclass: top\n";
print "objectclass: person\n";
print "objectclass: organizationalPerson\n";
print "objectclass: inetorgperson\n";
print "objectclass: mailrecipient\n";
print "objectclass: nslicenseuser\n";
print "uid: u$user\n";
print "telephonenumber: +1 888 555 8888\n";
print "facsimiletelephonenumber: +1 888 555 8888\n";
print "roomnumber: 2525\n";
print "nslicensedfor: mail\n";
print "mail: u$user\@machine22.foo.bar.com\n";
print "mailalternateaddress: u$user\@machine22.foo.bar.com\n";
print "userpassword: \{SHA\}YPTCNPLD0ZXv6xfbPg6E6Zkote4\=\n";
print "maildeliveryoption: mailbox\n";
print "mailhost: machine22.foo.bar.com\n";
print "\n";

}

This is a test mail.
