smeserver-zabbix-server/contribs10/smeserver-zabbix-server-0.1-mysql_db_pass.patch

diff -Nur -x '*.orig' -x '*.rej' smeserver-zabbix-server-0.1/root/etc/e-smith/db/configuration/migrate/zabbix-server-database mezzanine_patched_smeserver-zabbix-server-0.1/root/etc/e-smith/db/configuration/migrate/zabbix-server-database
--- smeserver-zabbix-server-0.1/root/etc/e-smith/db/configuration/migrate/zabbix-server-database        2009-02-02 21:01:58.000000000 +0100
+++ mezzanine_patched_smeserver-zabbix-server-0.1/root/etc/e-smith/db/configuration/migrate/zabbix-server-database      2009-02-11 09:40:44.000000000 +0100
@@ -1,11 +1,33 @@
 {
-   use MIME::Base64 qw(encode_base64);
+    my $rec = $DB->get('zabbix-server')
+        || $DB->new_record('zabbix-server', {type => 'service'});
+    my $pw = $rec->prop('DbPassword');
+    if (not $pw or length($pw) < 57)
+    {   
+        use MIME::Base64 qw(encode_base64);
 
-   my $rec = $DB->get('zabbix-server') || $DB->new_record('zabbix-server', {type => 'service'});
-
-   my $pw = $rec->prop('DbPassword');
-   return "" if $pw;
-
-   $rec->set_prop('DbPassword', sprintf("%15.0f", int( (1000000000000000) * rand() )));
-}
+        $pw = "not set due to error";
+        if ( open( RANDOM, "/dev/urandom" ) )
+        {   
+            my $buf;
+            # 57 bytes is a full line of Base64 coding, and contains
+            # 456 bits of randomness - given a perfectly random /dev/random
+            if ( read( RANDOM, $buf, 57 ) != 57 )
+            {   
+                warn("Short read from /dev/random: $!");
+            }
+            else
+            {   
+                $pw = encode_base64($buf);
+                chomp $pw;
+            }
+            close RANDOM;
+        }
+        else
+        {   
+            warn "Could not open /dev/urandom: $!";
+        }
+        $rec->set_prop('DbPassword', $pw);
+    }
+}     
 
1	diff -Nur -x '.orig' -x '.rej' smeserver-zabbix-server-0.1/root/etc/e-smith/db/configuration/migrate/zabbix-server-database mezzanine_patched_smeserver-zabbix-server-0.1/root/etc/e-smith/db/configuration/migrate/zabbix-server-database
2	--- smeserver-zabbix-server-0.1/root/etc/e-smith/db/configuration/migrate/zabbix-server-database 2009-02-02 21:01:58.000000000 +0100
3	+++ mezzanine_patched_smeserver-zabbix-server-0.1/root/etc/e-smith/db/configuration/migrate/zabbix-server-database 2009-02-11 09:40:44.000000000 +0100
4	@@ -1,11 +1,33 @@
5	{
6	- use MIME::Base64 qw(encode_base64);
7	+ my $rec = $DB->get('zabbix-server')
8	+ \|\| $DB->new_record('zabbix-server', {type => 'service'});
9	+ my $pw = $rec->prop('DbPassword');
10	+ if (not $pw or length($pw) < 57)
11	+ {
12	+ use MIME::Base64 qw(encode_base64);
13
14	- my $rec = $DB->get('zabbix-server') \|\| $DB->new_record('zabbix-server', {type => 'service'});
15	-
16	- my $pw = $rec->prop('DbPassword');
17	- return "" if $pw;
18	-
19	- $rec->set_prop('DbPassword', sprintf("%15.0f", int( (1000000000000000) * rand() )));
20	-}
21	+ $pw = "not set due to error";
22	+ if ( open( RANDOM, "/dev/urandom" ) )
23	+ {
24	+ my $buf;
25	+ # 57 bytes is a full line of Base64 coding, and contains
26	+ # 456 bits of randomness - given a perfectly random /dev/random
27	+ if ( read( RANDOM, $buf, 57 ) != 57 )
28	+ {
29	+ warn("Short read from /dev/random: $!");
30	+ }
31	+ else
32	+ {
33	+ $pw = encode_base64($buf);
34	+ chomp $pw;
35	+ }
36	+ close RANDOM;
37	+ }
38	+ else
39	+ {
40	+ warn "Could not open /dev/urandom: $!";
41	+ }
42	+ $rec->set_prop('DbPassword', $pw);
43	+ }
44	+}
45