From 79cb5593a8a99647426d3deb70babc64f43473f8 Mon Sep 17 00:00:00 2001
From: Gerald Carter <jerry@samba.org>
Date: Tue, 23 Sep 2003 20:39:22 +0000
Subject: update smbldap-tool sscripts from Jérôme Tournier (This used to be
 commit c1546a5311a4e9ad2d6566e71e11c6d5f8f120a9)
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 examples/LDAP/smbldap-tools/smbldap-groupdel.pl | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'examples/LDAP/smbldap-tools/smbldap-groupdel.pl')

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";
 
-- 
cgit