e-smith-samba/sme8/e-smith-samba-2.2.0-remove-domains.patch

diff -up e-smith-samba-2.2.0/createlinks.remove-domains e-smith-samba-2.2.0/createlinks
--- e-smith-samba-2.2.0/createlinks.remove-domains     2010-10-28 08:45:52.000000000 -0600
+++ e-smith-samba-2.2.0/createlinks   2010-10-28 08:45:17.000000000 -0600
@@ -83,6 +83,7 @@
 
 $event = "workgroup-update";
 event_link("update-domain-group-maps", $event, "56");
+event_link("cleanup-domains", $event, "65");
 safe_symlink("sigterm", "root/etc/e-smith/events/$event/services2adjust/dhcpd");
 safe_symlink("sigterm", "root/etc/e-smith/events/$event/services2adjust/smbd");
 safe_symlink("sigterm", "root/etc/e-smith/events/$event/services2adjust/nmbd");
diff -up e-smith-samba-2.2.0/root/etc/e-smith/events/actions/cleanup-domains.remove-domains e-smith-samba-2.2.0/root/etc/e-smith/events/actions/cleanup-domains
--- e-smith-samba-2.2.0/root/etc/e-smith/events/actions/cleanup-domains.remove-domains  2010-11-02 09:51:35.000000000 -0600
+++ e-smith-samba-2.2.0/root/etc/e-smith/events/actions/cleanup-domains 2010-11-02 10:07:43.000000000 -0600
@@ -0,0 +1,56 @@
+#!/usr/bin/perl -w
+
+package esmith;
+
+use strict;
+use Errno;
+use esmith::ConfigDB;
+use esmith::util;
+use Net::LDAP;
+
+my $c = esmith::ConfigDB->open_ro;
+
+# Don't attempt to update ldap unles master
+exit(0) unless ($c->get('ldap')->prop('Authentication') || 'disabled') eq 'enabled';
+
+my $l = $c->get('ldap');
+my $status = $l->prop('status') || "disabled";
+unless ($status eq "enabled" )
+{
+    warn "Not running action script $0, LDAP service not enabled!\n";
+    exit(0);
+}
+
+my $domain = $c->get('DomainName')
+|| die("Couldn't determine domain name");
+$domain = $domain->value;
+
+my $base = esmith::util::ldapBase ($domain);
+my $pw = esmith::util::LdapPassword();
+
+my $ldap = Net::LDAP->new('localhost')
+    or die "$@";
+
+$ldap->bind(
+    dn => "cn=root,$base",
+    password => $pw
+);
+
+my $smb = $c->get('smb');
+my $domName = $smb->prop('Workgroup') || 'mitel-network';
+if ( ($smb->prop('ServerRole') || 'WS') eq 'WS' )
+{
+    $domName = $smb->prop('ServerName') || 'e-smith-server';
+}
+
+my $result = $ldap->search( base => $base, 
+    filter => "(&(objectClass=sambaDomain)(!(sambaDomainName=$domName)))", 
+    scope => 'one' 
+);
+die "failed looking up sambaDomainName entry: ", $result->error if $result->code;
+
+foreach ($result->entries)
+{
+    $_->delete;
+    $_->update($ldap);
+}
1	slords	1.1	diff -up e-smith-samba-2.2.0/createlinks.remove-domains e-smith-samba-2.2.0/createlinks
2			--- e-smith-samba-2.2.0/createlinks.remove-domains 2010-10-28 08:45:52.000000000 -0600
3			+++ e-smith-samba-2.2.0/createlinks 2010-10-28 08:45:17.000000000 -0600
4			@@ -83,6 +83,7 @@
5
6			$event = "workgroup-update";
7			event_link("update-domain-group-maps", $event, "56");
8			+event_link("cleanup-domains", $event, "65");
9			safe_symlink("sigterm", "root/etc/e-smith/events/$event/services2adjust/dhcpd");
10			safe_symlink("sigterm", "root/etc/e-smith/events/$event/services2adjust/smbd");
11			safe_symlink("sigterm", "root/etc/e-smith/events/$event/services2adjust/nmbd");
12			diff -up e-smith-samba-2.2.0/root/etc/e-smith/events/actions/cleanup-domains.remove-domains e-smith-samba-2.2.0/root/etc/e-smith/events/actions/cleanup-domains
13			--- e-smith-samba-2.2.0/root/etc/e-smith/events/actions/cleanup-domains.remove-domains 2010-11-02 09:51:35.000000000 -0600
14			+++ e-smith-samba-2.2.0/root/etc/e-smith/events/actions/cleanup-domains 2010-11-02 10:07:43.000000000 -0600
15			@@ -0,0 +1,56 @@
16			+#!/usr/bin/perl -w
17			+
18			+package esmith;
19			+
20			+use strict;
21			+use Errno;
22			+use esmith::ConfigDB;
23			+use esmith::util;
24			+use Net::LDAP;
25			+
26			+my $c = esmith::ConfigDB->open_ro;
27			+
28			+# Don't attempt to update ldap unles master
29			+exit(0) unless ($c->get('ldap')->prop('Authentication') \|\| 'disabled') eq 'enabled';
30			+
31			+my $l = $c->get('ldap');
32			+my $status = $l->prop('status') \|\| "disabled";
33			+unless ($status eq "enabled" )
34			+{
35			+ warn "Not running action script $0, LDAP service not enabled!\n";
36			+ exit(0);
37			+}
38			+
39			+my $domain = $c->get('DomainName')
40			+\|\| die("Couldn't determine domain name");
41			+$domain = $domain->value;
42			+
43			+my $base = esmith::util::ldapBase ($domain);
44			+my $pw = esmith::util::LdapPassword();
45			+
46			+my $ldap = Net::LDAP->new('localhost')
47			+ or die "$@";
48			+
49			+$ldap->bind(
50			+ dn => "cn=root,$base",
51			+ password => $pw
52			+);
53			+
54			+my $smb = $c->get('smb');
55			+my $domName = $smb->prop('Workgroup') \|\| 'mitel-network';
56			+if ( ($smb->prop('ServerRole') \|\| 'WS') eq 'WS' )
57			+{
58			+ $domName = $smb->prop('ServerName') \|\| 'e-smith-server';
59			+}
60			+
61			+my $result = $ldap->search( base => $base,
62			+ filter => "(&(objectClass=sambaDomain)(!(sambaDomainName=$domName)))",
63			+ scope => 'one'
64			+);
65			+die "failed looking up sambaDomainName entry: ", $result->error if $result->code;
66			+
67			+foreach ($result->entries)
68			+{
69			+ $_->delete;
70			+ $_->update($ldap);
71			+}