diff options
author | Gerald Carter <jerry@samba.org> | 2003-09-23 20:39:22 +0000 |
---|---|---|
committer | Gerald Carter <jerry@samba.org> | 2003-09-23 20:39:22 +0000 |
commit | 79cb5593a8a99647426d3deb70babc64f43473f8 (patch) | |
tree | 873077306a41ff8e5941c5503d97409b3f74ab63 /examples/LDAP/smbldap-tools/smbldap-groupdel.pl | |
parent | 0675d21aa83c41bca315d434923b83af762d9d2b (diff) | |
download | samba-79cb5593a8a99647426d3deb70babc64f43473f8.tar.gz samba-79cb5593a8a99647426d3deb70babc64f43473f8.tar.bz2 samba-79cb5593a8a99647426d3deb70babc64f43473f8.zip |
update smbldap-tool sscripts from Jérôme Tournier
(This used to be commit c1546a5311a4e9ad2d6566e71e11c6d5f8f120a9)
Diffstat (limited to 'examples/LDAP/smbldap-tools/smbldap-groupdel.pl')
-rwxr-xr-x | examples/LDAP/smbldap-tools/smbldap-groupdel.pl | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/examples/LDAP/smbldap-tools/smbldap-groupdel.pl b/examples/LDAP/smbldap-tools/smbldap-groupdel.pl index 3d072585b2..89d0d993ac 100755 --- a/examples/LDAP/smbldap-tools/smbldap-groupdel.pl +++ b/examples/LDAP/smbldap-tools/smbldap-groupdel.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/perl -w # This code was developped by IDEALX (http://IDEALX.org/) and # contributors (their names can be found in the CONTRIBUTORS file). @@ -23,6 +23,9 @@ # Purpose of smbldap-groupdel : group (posix) deletion use strict; +use FindBin; +use FindBin qw($RealBin); +use lib "$RealBin/"; use smbldap_tools; use smbldap_conf; @@ -48,9 +51,7 @@ if (!defined($dn_line = get_group_dn($_groupName))) { my $dn = get_dn_from_line($dn_line); -my $rc = system "$ldapdelete $dn >/dev/null"; -die "$0: error while deleting group $_groupName\n" - unless ($rc == 0); +group_del($dn); my $nscd_status = system "/etc/init.d/nscd status >/dev/null 2>&1"; |