examples/LDAP/convertSambaAccount

   1 #!/usr/bin/perl  -w
   2 ##
   3 ## Convert an LDIF file containing sambaAccount entries
   4 ## to the new sambaSamAccount objectclass
   5 ##
   6 ## Copyright Gerald (Jerry) Carter      2003
   7 ##
   8 ## Usage: convertSambaAccount --sid=<Domain SID> \
   9 ##       --input=<input ldif> --output=<output ldif> \
  10 ##       --changetype=[modify|add]
  11 ##
  12 ## You can generate an input ldif file using:
  13 ## $ ldapsearch -LL -x -h ldapsrv -D cn=root,dc=company,dc=com \
  14 ##   -b dc=copmany,dc=com > /tmp/samba3.alpha23.ldif
  15 ##
  16 ## Note the "-LL" so no additional comments are generated
  17 ##
  18
  19
  20 use strict;
  21 use Net::LDAP::LDIF;
  22 use Getopt::Long;
  23
  24
  25 ##############################################################################
  26 ## local variables
  27
  28 my ( $domain, $domsid, $changetype );
  29 my ( $ldif, $ldif2 );
  30 my ( $entry, @objclasses, $obj );
  31 my ( $is_samba_account, $is_samba_group );
  32 my ( %attr_map, %group_attr_map, $key );
  33 my ( @dels, $deletion, @adds, $addition );
  34 my ( $result, %options );
  35
  36
  37 ##############################################################################
  38 ## Print the option usage
  39
  40 sub usage {
  41
  42         print "convertSambaAccount <options>\n";
  43         print "Options:\n";
  44         print "  --help         print this help message\n";
  45         print "  --input        input LDIF filename\n";
  46         print "  --output       output LDIF filename\n";
  47         print "  --sid          domain SID\n";
  48         print "  --changetype   [modify|add] (default is 'add')\n";
  49 }
  50
  51
  52 ##############################################################################
  53 ##                               MAIN DRIVER                                ##
  54 ##############################################################################
  55
  56 ##
  57 ## hashes to map old attribute names to new ones
  58 ##
  59
  60 %attr_map = (
  61         lmPassword      => 'sambaLMPassword',
  62         ntPassword      => 'sambaNTPassword',
  63         pwdLastSet      => 'sambaPwdLastSet',
  64         pwdMustChange   => 'sambaPwdMustChange',
  65         pwdCanChange    => 'sambaPwdCanChange',
  66         homeDrive       => 'sambaHomeDrive',
  67         smbHome         => 'sambaHomePath',
  68         scriptPath      => 'sambaLogonScript',
  69         profilePath     => 'sambaProfilePath',
  70         kickoffTime     => 'sambaKickoffTime',
  71         logonTime       => 'sambaLogonTime',
  72         logoffTime      => 'sambaLogoffTime',
  73         userWorkstations        => 'sambaUserWorkstations',
  74         domain          => 'sambaDomainName',
  75         acctFlags       => 'sambaAcctFlags',
  76 );
  77
  78 %group_attr_map = (
  79         ntSid           => 'sambaSID',
  80         ntGroupType     => 'sambaGroupType',
  81 );
  82
  83 ##
  84 ## process command line args
  85 ##
  86
  87 $result = GetOptions(\%options,
  88                         "help",
  89                         "input=s",
  90                         "output=s",
  91                         "sid=s",
  92                         "changetype=s");
  93
  94 if (!$result && ($#ARGV != -1)) {
  95         usage();
  96         exit 1;
  97 }
  98
  99 if ( defined($options{'help'}) ) {
 100         usage();
 101         exit 0;
 102 }
 103
 104
 105 if ( !defined( $options{'sid'} ) ) {
 106         print "You must provide a domain sid\n";
 107         exit 1;
 108 }
 109
 110 $domsid = $options{'sid'};
 111
 112 $changetype = 'add';
 113 if ( defined( $options{'changetype'} ) ) {
 114         $changetype = $options{'changetype'};
 115 }
 116
 117 ##
 118 ## open files
 119 ##
 120
 121 $ldif = Net::LDAP::LDIF->new ($options{'input'}, "r") or die $!;
 122
 123 if ( "$changetype" eq "add" ) {
 124         $ldif2 = Net::LDAP::LDIF->new ($options{'output'}, "w") or die $!;
 125 }
 126 elsif ( "$changetype" eq "modify" ) {
 127         open( OUTPUT, ">$options{'output'}" ) or die $!;
 128 }
 129 else {
 130         print "Bad changetype!\n";
 131         exit 1;
 132 }
 133
 134 ##
 135 ## process LDIF
 136 ##
 137
 138 while ( !$ldif->eof ) {
 139         undef ( $entry );
 140         $entry = $ldif->read_entry();
 141
 142         ## skip entry if we find an error
 143         if ( $ldif->error() ) {
 144                 print "Error msg: ",$ldif->error(),"\n";
 145                 print "Error lines:\n",$ldif->error_lines(),"\n";
 146                 next;
 147         }
 148
 149         ##
 150         ## check to see if we have anything to do on this
 151         ## entry.  If not just write it out
 152         ##
 153         @objclasses = $entry->get_value( "objectClass" );
 154         undef ( $is_samba_account );
 155         undef ( $is_samba_group );
 156         @adds = ();
 157         @dels = ();
 158         foreach $obj ( @objclasses ) {
 159                 if ( "$obj" eq "sambaAccount" ) {
 160                         $is_samba_account = 1;
 161                 } elsif ( "$obj" eq "sambaGroupMapping" ) {
 162                         $is_samba_group = 1;
 163                 }
 164         }
 165
 166         if ( defined ( $is_samba_account ) ) {
 167                 ##
 168                 ## start editing the sambaAccount
 169                 ##
 170
 171                 @dels = ( 'objectclass: sambaAccount', 'rid' );
 172                 @adds = ('objectclass: sambaSamAccount', "sambaSID: " .  ${domsid} . "-" . ${entry}->get_value( 'rid' ) );
 173                 $entry->delete( 'objectclass' => [ 'sambaAccount' ] );
 174                 $entry->add( 'objectclass' => 'sambaSamAccount' );
 175
 176                 $entry->add( 'sambaSID' => $domsid."-".$entry->get_value( "rid" ) );
 177                 $entry->delete( 'rid' );
 178
 179                 if ( defined($entry->get_value( "primaryGroupID" )) ) {
 180                         push @adds, "sambaPrimaryGroupSID: " . $domsid."-".$entry->get_value( "primaryGroupID" );
 181                         push @dels, "primaryGroupID";
 182                         $entry->add( 'sambaPrimaryGroupSID' => $domsid."-".$entry->get_value( "primaryGroupID" ) );
 183                         $entry->delete( 'primaryGroupID' );
 184                 }
 185
 186
 187                 foreach $key ( keys %attr_map ) {
 188                         if ( defined($entry->get_value($key)) ) {
 189                                 push @adds, "$attr_map{$key}: " . $entry->get_value($key);
 190                                 push @dels, "$key";
 191                                 $entry->add( $attr_map{$key} => $entry->get_value($key) );
 192                                 $entry->delete( $key );
 193                         }
 194                 }
 195         } elsif ( defined ( $is_samba_group ) ) {
 196                 foreach $key ( keys %group_attr_map ) {
 197                         if ( defined($entry->get_value($key)) ) {
 198                                 push @adds, "$group_attr_map{$key}: " . $entry->get_value($key);
 199                                 push @dels, "$key";
 200                                 $entry->add( $group_attr_map{$key} => $entry->get_value($key) );
 201                                 $entry->delete( $key );
 202                         }
 203                 }
 204         }
 205
 206         ## see if we should write full entries or only the changes
 207
 208         if ( "$changetype" eq "add" ) {
 209                 $ldif2->write_entry( $entry );
 210         }
 211         else {
 212                 if ( defined ( $is_samba_account ) || defined ( $is_samba_group ) ){
 213                         if ( @adds + @dels > 0 ) {
 214                                 print OUTPUT "dn: " . $entry->dn . "\n";
 215                                 foreach $addition (@adds) {
 216                                         $addition =~ /(^\w+):/;
 217                                         print OUTPUT "add: " . $1  . "\n";
 218                                         print OUTPUT "$addition\n-\n";
 219                                 }
 220                                 foreach $deletion (@dels) {
 221                                         if ( $deletion =~ /^(\w+):\s(.*)/ ) {
 222                                                 print OUTPUT "delete: $1\n$1: $2\n-\n";
 223                                         } else {
 224                                                 print OUTPUT "delete: $deletion\n-\n"
 225                                         }
 226                                 }
 227                                 print OUTPUT "\n"
 228                         }
 229                 }
 230         }
 231 }
 232
 233