e-smith-lib/sme7/e-smith-lib-2.0.0-sambaRole.patch

--- e-smith-lib-2.0.0/root/usr/lib/perl5/site_perl/esmith/ConfigDB.pm.sambaRole 2005-07-19 11:13:46.000000000 -0600
+++ e-smith-lib-2.0.0/root/usr/lib/perl5/site_perl/esmith/ConfigDB.pm   2008-10-13 11:49:27.000000000 -0600
@@ -278,10 +278,10 @@
 
     return $wins_server if $wins_server;
 
-    my $domain_master = $self->get_prop( 'smb', 'DomainMaster' ) || 'no';
+    my $server_role = $self->get_prop( 'smb', 'ServerRole' ) || 'WS';
 
     return $self->get_prop( 'InternalInterface', 'IPAddress' )
-      if ( $domain_master eq 'yes' );
+      if $server_role =~ m{^(PDC|ADS)$};
 
     return undef;
 }
1	--- e-smith-lib-2.0.0/root/usr/lib/perl5/site_perl/esmith/ConfigDB.pm.sambaRole 2005-07-19 11:13:46.000000000 -0600
2	+++ e-smith-lib-2.0.0/root/usr/lib/perl5/site_perl/esmith/ConfigDB.pm 2008-10-13 11:49:27.000000000 -0600
3	@@ -278,10 +278,10 @@
4
5	return $wins_server if $wins_server;
6
7	- my $domain_master = $self->get_prop( 'smb', 'DomainMaster' ) \|\| 'no';
8	+ my $server_role = $self->get_prop( 'smb', 'ServerRole' ) \|\| 'WS';
9
10	return $self->get_prop( 'InternalInterface', 'IPAddress' )
11	- if ( $domain_master eq 'yes' );
12	+ if $server_role =~ m{^(PDC\|ADS)$};
13
14	return undef;
15	}