e-smith-lib/sme8/e-smith-lib-2.2.0-UniqueUid.patch

--- e-smith-lib-2.0.0/root/usr/lib/perl5/site_perl/esmith/AccountsDB.pm.bak     2009-01-28 16:13:40.000000000 +0100
+++ e-smith-lib-2.0.0/root/usr/lib/perl5/site_perl/esmith/AccountsDB.pm 2009-01-28 16:18:14.000000000 +0100
@@ -435,14 +435,17 @@
     use esmith::ConfigDB;
 
     my $id;
-    if (my $db = esmith::ConfigDB->open_ro)
+    my $db = esmith::ConfigDB->open || die "Couldn't open config db";
+
+    if ($id = $db->get('MinUid'))
+    {
+        $id = $id->value();
+    }
+    else
     {
-        if ($id = $db->get('MinUid'))
-        {
-            $id = $id->value();
-        }
+        $db->new_record('MinUid');
+        $id = 5000;
     }
-    $id ||= 5000;
 
     my $maxid = 1 << 31;
     setpwent();
@@ -454,6 +457,9 @@
     }
     endpwent();
     endgrent();
+
+    $db->set_value('MinUid', $id + 1);
+
     return $id;
 }
 
1	charliebrady	1.1	--- e-smith-lib-2.0.0/root/usr/lib/perl5/site_perl/esmith/AccountsDB.pm.bak 2009-01-28 16:13:40.000000000 +0100
2			+++ e-smith-lib-2.0.0/root/usr/lib/perl5/site_perl/esmith/AccountsDB.pm 2009-01-28 16:18:14.000000000 +0100
3			@@ -435,14 +435,17 @@
4			use esmith::ConfigDB;
5
6			my $id;
7			- if (my $db = esmith::ConfigDB->open_ro)
8			+ my $db = esmith::ConfigDB->open \|\| die "Couldn't open config db";
9			+
10			+ if ($id = $db->get('MinUid'))
11			+ {
12			+ $id = $id->value();
13			+ }
14			+ else
15			{
16			- if ($id = $db->get('MinUid'))
17			- {
18			- $id = $id->value();
19			- }
20			+ $db->new_record('MinUid');
21			+ $id = 5000;
22			}
23			- $id \|\|= 5000;
24
25			my $maxid = 1 << 31;
26			setpwent();
27			@@ -454,6 +457,9 @@
28			}
29			endpwent();
30			endgrent();
31			+
32			+ $db->set_value('MinUid', $id + 1);
33			+
34			return $id;
35			}
36