e-smith-lib/sme9/e-smith-lib-2.4.0.set-secret_password-creation.patch

diff -Nur e-smith-lib-2.4.0.old.8943/root/usr/share/perl5/vendor_perl/esmith/util.pm e-smith-lib-2.4.0.8943/root/usr/share/perl5/vendor_perl/esmith/util.pm
--- e-smith-lib-2.4.0.old.8943/root/usr/share/perl5/vendor_perl/esmith/util.pm  2015-06-18 21:51:44.062723966 +0200
+++ e-smith-lib-2.4.0.8943/root/usr/share/perl5/vendor_perl/esmith/util.pm      2015-06-22 03:04:11.449937443 +0200
@@ -21,7 +21,7 @@
 use File::Basename;
 use File::stat;
 use FileHandle;
-
+use Data::UUID;
 =pod
 
 =head1 NAME
@@ -901,6 +901,55 @@
 
 =pod
 
+=head2 set_secret()
+
+Shortcut method to create and set a password property on a record without having to extract the record first.
+
+The password creation is based on an UID of 64 bits (Data::UUID). If the optional type option is passed, 
+it will be used to create the record if it does not already exist. Otherwise, a default 'service' type 
+will be used to create the record.
+
+The $DB is expected to be an already open esmith::DB object, so that an open DB in the caller can be re-used. 
+Therefore in a migrate fragment you could just use $DB.
+
+         esmith::util::set_secret($DB, '$key','$property'[,type=>'$type']);
+
+For example in /etc/e-smith/db/configuration/migrate/90roundcube
+     {
+         esmith::util::set_secret($DB, 'foo','DbPassword',type=>'service');
+     }
+
+The password will be generated to the property 'DbPassword' in the 'foo' key.
+
+If you want to change the database then you must open another esmith::DB objet
+     {
+         my $database = esmith::ConfigDB->open('accounts') or
+                die esmith::DB->error;
+         esmith::util::set_secret($database, 'foo','DbPassword',type=>'user');
+     }
+
+=cut
+
+sub set_secret
+
+{
+    my ($db, $key, $prop, %options) = @_;
+    %options = (type => 'service', %options);
+
+    my $record = $db->get($key) ||
+                 $db->new_record($key, \%options) or
+                 die "Error creating new record";
+
+    return if $db->get_prop($key,$prop);
+
+    $record->merge_props(%options, $prop =>
+       Data::UUID->new->create_b64());
+}
+
+
+
+=pod
+
 =head1 HIGH LEVEL PASSWORD UTILITIES
 
 High-level password-changing utilities. These utilities
@@ -1324,6 +1373,7 @@
     return 1;
 }
 
+
 =head1 AUTHOR
 
 Mitel Networks Corp.
1	diff -Nur e-smith-lib-2.4.0.old.8943/root/usr/share/perl5/vendor_perl/esmith/util.pm e-smith-lib-2.4.0.8943/root/usr/share/perl5/vendor_perl/esmith/util.pm
2	--- e-smith-lib-2.4.0.old.8943/root/usr/share/perl5/vendor_perl/esmith/util.pm 2015-06-18 21:51:44.062723966 +0200
3	+++ e-smith-lib-2.4.0.8943/root/usr/share/perl5/vendor_perl/esmith/util.pm 2015-06-22 03:04:11.449937443 +0200
4	@@ -21,7 +21,7 @@
5	use File::Basename;
6	use File::stat;
7	use FileHandle;
8	-
9	+use Data::UUID;
10	=pod
11
12	=head1 NAME
13	@@ -901,6 +901,55 @@
14
15	=pod
16
17	+=head2 set_secret()
18	+
19	+Shortcut method to create and set a password property on a record without having to extract the record first.
20	+
21	+The password creation is based on an UID of 64 bits (Data::UUID). If the optional type option is passed,
22	+it will be used to create the record if it does not already exist. Otherwise, a default 'service' type
23	+will be used to create the record.
24	+
25	+The $DB is expected to be an already open esmith::DB object, so that an open DB in the caller can be re-used.
26	+Therefore in a migrate fragment you could just use $DB.
27	+
28	+ esmith::util::set_secret($DB, '$key','$property'[,type=>'$type']);
29	+
30	+For example in /etc/e-smith/db/configuration/migrate/90roundcube
31	+ {
32	+ esmith::util::set_secret($DB, 'foo','DbPassword',type=>'service');
33	+ }
34	+
35	+The password will be generated to the property 'DbPassword' in the 'foo' key.
36	+
37	+If you want to change the database then you must open another esmith::DB objet
38	+ {
39	+ my $database = esmith::ConfigDB->open('accounts') or
40	+ die esmith::DB->error;
41	+ esmith::util::set_secret($database, 'foo','DbPassword',type=>'user');
42	+ }
43	+
44	+=cut
45	+
46	+sub set_secret
47	+
48	+{
49	+ my ($db, $key, $prop, %options) = @_;
50	+ %options = (type => 'service', %options);
51	+
52	+ my $record = $db->get($key) \|\|
53	+ $db->new_record($key, \%options) or
54	+ die "Error creating new record";
55	+
56	+ return if $db->get_prop($key,$prop);
57	+
58	+ $record->merge_props(%options, $prop =>
59	+ Data::UUID->new->create_b64());
60	+}
61	+
62	+
63	+
64	+=pod
65	+
66	=head1 HIGH LEVEL PASSWORD UTILITIES
67
68	High-level password-changing utilities. These utilities
69	@@ -1324,6 +1373,7 @@
70	return 1;
71	}
72
73	+
74	=head1 AUTHOR
75
76	Mitel Networks Corp.