import HEAD into svn+ssh://svn.samba.org/home/svn/samba/trunk
[metze/old/v3-2-winbind-ndr.git] / examples / LDAP / smbldap-tools / smbldap-groupadd.pl
1 #!/usr/bin/perl -w
2
3 #  This code was developped by IDEALX (http://IDEALX.org/) and
4 #  contributors (their names can be found in the CONTRIBUTORS file).
5 #
6 #                 Copyright (C) 2001-2002 IDEALX
7 #
8 #  This program is free software; you can redistribute it and/or
9 #  modify it under the terms of the GNU General Public License
10 #  as published by the Free Software Foundation; either version 2
11 #  of the License, or (at your option) any later version.
12 #
13 #  This program is distributed in the hope that it will be useful,
14 #  but WITHOUT ANY WARRANTY; without even the implied warranty of
15 #  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16 #  GNU General Public License for more details.
17 #
18 #  You should have received a copy of the GNU General Public License
19 #  along with this program; if not, write to the Free Software
20 #  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
21 #  USA.
22
23 # Purpose of smbldap-groupadd : group (posix) add
24
25 use strict;
26 use FindBin;
27 use FindBin qw($RealBin);
28 use lib "$RealBin/";
29 use smbldap_tools;
30 use smbldap_conf;
31 use Getopt::Std;
32 my %Options;
33
34 my $ok = getopts('ag:or:s:t:p?', \%Options);
35 if ( (!$ok) || (@ARGV < 1) || ($Options{'?'}) ) {
36   print "Usage: $0 [-agorst?] groupname\n";
37   print "  -a   add automatic group mapping entry\n";
38   print "  -g   gid\n";
39   print "  -o   gid is not unique\n";
40   print "  -r   group-rid\n";
41   print "  -s   group-sid\n";
42   print "  -t   group-type\n";
43   print "  -p   print the gidNumber to stdout\n";
44   print "  -?   show this help message\n";
45   exit (1);
46 }
47
48 my $_groupName = $ARGV[0];
49
50 if (defined(get_group_dn($_groupName))) {
51   warn "$0: group $_groupName exists\n";
52   exit (6);
53 }
54
55 my $_groupGidNumber = $Options{'g'};
56 if (! defined ($_groupGidNumber = group_add($_groupName, $_groupGidNumber, $Options{'o'}))) {
57   warn "$0: error adding group $_groupName\n";
58   exit (6);
59 }
60
61 my $group_sid;
62 my $tmp;
63 if ($tmp= $Options{'s'}) {
64   if ($tmp =~ /^S-(?:\d+-)+\d+$/) {
65     $group_sid = $tmp;
66   } else {
67     warn "$0: illegal group-rid $tmp\n";
68     exit(7);
69   }
70 } elsif ($Options{'r'} || $Options{'a'}) {
71   my $group_rid;
72   if ($tmp= $Options{'r'}) {
73     if ($tmp =~ /^\d+$/) {
74       $group_rid = $tmp;
75     } else {
76       warn "$0: illegal group-rid $tmp\n";
77       exit(7);
78     }
79   } else {
80     # algorithmic mapping
81     $group_rid = 2*$_groupGidNumber+1001;
82   }
83   $group_sid = $SID.'-'.$group_rid;
84 }
85
86 if ($Options{'r'} || $Options{'a'} || $Options{'s'}) {
87   # let's test if this SID already exist
88   my $test_exist_sid=does_sid_exist($group_sid,$groupsdn);
89   if ($test_exist_sid->count == 1) {
90         warn "Group SID already owned by\n";
91         # there should not exist more than one entry, but ...
92         foreach my $entry ($test_exist_sid->all_entries) {
93           my $dn= $entry->dn;
94           chomp($dn);
95           warn "$dn\n";
96         }
97         exit(7);
98   }
99 }
100
101 if ($group_sid) {
102   my $group_type;
103   my $tmp;
104   if ($tmp= $Options{'t'}) {
105     unless (defined($group_type = &group_type_by_name($tmp))) {
106       warn "$0: unknown group type $tmp\n";
107       exit(8);
108     }
109   } else {
110     $group_type = group_type_by_name('domain');
111   }
112   my $ldap_master=connect_ldap_master();
113   my $modify = $ldap_master->modify ( "cn=$_groupName,$groupsdn",
114                                                                           add => {
115                                                                                           'objectClass' => 'sambaGroupMapping',
116                                                                                           'sambaSID' => $group_sid,
117                                                                                           'sambaGroupType' => $group_type
118                                                                                          }
119                                                                         );
120   $modify->code && warn "failed to delete entry: ", $modify->error ;
121   # take down session
122   $ldap_master->unbind
123 }
124
125 if ($Options{'p'}) {
126   print STDOUT "$_groupGidNumber";
127 }
128 exit(0);
129
130 ########################################
131
132 =head1 NAME
133
134        smbldap-groupadd.pl - Create a new group
135
136 =head1 SYNOPSIS
137
138        smbldap-groupadd.pl [-g gid [-o]] group
139
140 =head1 DESCRIPTION
141        The smbldap-groupadd.pl command creates a new group account using
142        the values specified on the command line and the default values
143        from the system. The new group will be entered into the system
144        files as needed. The options which apply to the groupadd command are
145
146        -g gid The numerical value of the group's ID. This value must be
147               unique, unless the -o option is used. The value must be non-
148               negative. The default is to use the smallest ID value greater
149               than 1000 and greater than every other group.
150
151 =head1 SEE ALSO
152
153        groupadd(1)
154
155 =cut
156
157 #'
158