initial commit of file from CVS for smeserver-dl on Sat Sep 7 20:17:57 AEST 2024

root/etc/e-smith/db/accounts/defaults/dl/type

@@ -0,0 +1 @@
+url

root/etc/e-smith/db/configuration/defaults/dl/DbName

@@ -0,0 +1 @@
+dl

root/etc/e-smith/db/configuration/defaults/dl/DbUser

@@ -0,0 +1 @@
+dl

root/etc/e-smith/db/configuration/defaults/dl/access

@@ -0,0 +1 @@
+public

root/etc/e-smith/db/configuration/defaults/dl/status

@@ -0,0 +1 @@
+enabled

root/etc/e-smith/db/configuration/defaults/dl/type

@@ -0,0 +1 @@
+webapp

root/etc/e-smith/db/configuration/migrate/dl-database

@@ -0,0 +1,27 @@
+{
+    my $rec = $DB->get('dl')
+        || $DB->new_record('dl', {type => 'webapp'});
+    my $pw = $rec->prop('DbPassword');
+    if (not $pw or length($pw) < 57){
+        use MIME::Base64 qw(encode_base64);
+
+        $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);
+    }
+}