e-smith-base/sme10/e-smith-base-5.8.0-PasswordSet.patch

diff -Nur e-smith-base-5.8.0.old/root/etc/e-smith/events/actions/init-passwords e-smith-base-5.8.0/root/etc/e-smith/events/actions/init-passwords
--- e-smith-base-5.8.0.old/root/etc/e-smith/events/actions/init-passwords       2008-03-26 12:49:00.000000000 -0400
+++ e-smith-base-5.8.0/root/etc/e-smith/events/actions/init-passwords   2016-04-13 12:02:50.381000000 -0400
@@ -24,6 +24,10 @@
 
 use strict;
 use Errno;
+use esmith::ConfigDB;
+
+my $c = esmith::ConfigDB->open or die "Could not open accounts db";
+my $PasswordSet = $c->get('PasswordSet');
 
 #------------------------------------------------------------
 # Lock passwords for administrative accounts.
@@ -36,4 +40,6 @@
 system("/usr/bin/smbpasswd", "-a", "-d", "-s", "admin") and
     warn("Could not lock admin account");
 
+$PasswordSet->set_value('no') or warn("Could not set PasswordSet to no");
+
 exit (0);
1	diff -Nur e-smith-base-5.8.0.old/root/etc/e-smith/events/actions/init-passwords e-smith-base-5.8.0/root/etc/e-smith/events/actions/init-passwords
2	--- e-smith-base-5.8.0.old/root/etc/e-smith/events/actions/init-passwords 2008-03-26 12:49:00.000000000 -0400
3	+++ e-smith-base-5.8.0/root/etc/e-smith/events/actions/init-passwords 2016-04-13 12:02:50.381000000 -0400
4	@@ -24,6 +24,10 @@
5
6	use strict;
7	use Errno;
8	+use esmith::ConfigDB;
9	+
10	+my $c = esmith::ConfigDB->open or die "Could not open accounts db";
11	+my $PasswordSet = $c->get('PasswordSet');
12
13	#------------------------------------------------------------
14	# Lock passwords for administrative accounts.
15	@@ -36,4 +40,6 @@
16	system("/usr/bin/smbpasswd", "-a", "-d", "-s", "admin") and
17	warn("Could not lock admin account");
18
19	+$PasswordSet->set_value('no') or warn("Could not set PasswordSet to no");
20	+
21	exit (0);