Start testing a few more things out of smbtorture in the build farm.
[kai/samba.git] / examples / LDAP / import_smbpasswd.pl
1 #!/usr/bin/perl
2 ##
3 ## Example script of how you could import and smbpasswd file into an LDAP
4 ## directory using the Mozilla PerLDAP module.
5 ##
6 ## writen by jerry@samba.org
7 ##
8
9 use Mozilla::LDAP::Conn;
10 use Mozilla::LDAP::Entry;
11
12 #################################################
13 ## set these to a value appropriate for your site
14 ##
15
16 $DN="ou=people,dc=plainjoe,dc=org";
17 $ROOTDN="cn=Manager,dc=plainjoe,dc=org";
18 $rootpw = "secret";
19 $LDAPSERVER="localhost";
20
21 ##
22 ## end local site variables
23 #################################################
24
25 $conn = new Mozilla::LDAP::Conn ("$LDAPSERVER", "389", $ROOTDN, $rootpw );
26 die "Unable to connect to LDAP server $LDAPSERVER" unless $conn;
27
28
29 while ( $string = <STDIN> ) {
30         chop ($string);
31
32         ## get the account information
33         @smbentry = split (/:/, $string);
34
35         ## check for the existence of the posixAccount first
36
37         ## FIXME!!  Should do a getownam() and let the NSS modules lookup the account
38         ## This way you can have a UNIX account in /etc/passwd and the smbpasswd i
39         ## entry in LDAP.
40         $result = $conn->search ("$DN", "sub", "(&(uid=$smbentry[0])(objectclass=posixAccount))");
41         if ( ! $result ) {
42                 print STDERR "uid=$smbentry[0] does not have a posixAccount entry in the directory!\n";
43                 next;
44         }
45
46         print "Updating [" . $result->getDN() . "]\n";
47
48         ## Do we need to add the 'objectclass: smbPasswordEntry' attribute?
49         if (! $result->hasValue("objectclass", "smbPasswordEntry")) {
50                 $result->addValue("objectclass", "smbPasswordEntry");
51         }
52         
53         ## Set other attribute values
54         $result->setValues ("lmPassword", $smbentry[2]);
55         $result->setValues ("ntPassword", $smbentry[3]);
56         $result->setValues ("acctFlags",  $smbentry[4]);
57         $result->setValues ("pwdLastSet", substr($smbentry[5],4));
58
59         if (! $conn->update($result)) {
60                 print "Error updating!\n";
61         }
62 }
63
64 $conn->close();
65 exit 0;