smecontribs/smeserver-phpmyadmin
6
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

initial commit of file from CVS for smeserver-phpmyadmin on Sat Sep 7 20:52:31 AEST 2024

Browse Source
This commit is contained in:
Trevor Batley
2024-09-07 20:52:31 +10:00
parent 593593a214
commit ee4370dd8c
34 changed files with 1327 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
root/etc/e-smith/db/accounts/defaults/phpmyadmin/type Normal file
View File

@@ -0,0 +1 @@
reserved

1
root/etc/e-smith/db/configuration/defaults/phpmyadmin/DbName Normal file
View File

@@ -0,0 +1 @@
phpmyadmin

1
root/etc/e-smith/db/configuration/defaults/phpmyadmin/DbUser Normal file
View File

@@ -0,0 +1 @@
phpmyadmin

1
root/etc/e-smith/db/configuration/defaults/phpmyadmin/MemoryLimit Normal file
View File

@@ -0,0 +1 @@
500M

1
root/etc/e-smith/db/configuration/defaults/phpmyadmin/PostMaxSize Normal file
View File

@@ -0,0 +1 @@
100M

1
root/etc/e-smith/db/configuration/defaults/phpmyadmin/UploadMaxSize Normal file
View File

@@ -0,0 +1 @@
100M

1
root/etc/e-smith/db/configuration/defaults/phpmyadmin/access Normal file
View File

@@ -0,0 +1 @@
private

1
root/etc/e-smith/db/configuration/defaults/phpmyadmin/adminaccess Normal file
View File

@@ -0,0 +1 @@
enabled

1
root/etc/e-smith/db/configuration/defaults/phpmyadmin/multiaccess Normal file
View File

@@ -0,0 +1 @@
disabled

1
root/etc/e-smith/db/configuration/defaults/phpmyadmin/status Normal file
View File

@@ -0,0 +1 @@
enabled

1
root/etc/e-smith/db/configuration/defaults/phpmyadmin/type Normal file
View File

@@ -0,0 +1 @@
configuration

32
root/etc/e-smith/db/configuration/migrate/addBlowfishSecret Normal file
View File

@@ -0,0 +1,32 @@
{
my $rec = $DB->get('phpmyadmin')
|| $DB->new_record('phpmyadmin', {type => 'configuration'});
my $pw = $rec->prop('BlowfishSecret');
if (not $pw or length($pw) < 57){
my $pw = gen_pw();
$rec->set_prop('BlowfishSecret', $pw);
}
sub gen_pw {
use MIME::Base64 qw(encode_base64);
my $p = "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{
$p = encode_base64($buf);
chomp $p;
}
close RANDOM;
}
else{
warn "Could not open /dev/urandom: $!";
}
return $p;
}
}

37
root/etc/e-smith/db/configuration/migrate/phpmyadmin Normal file
View File

@@ -0,0 +1,37 @@
{
my $rec = $DB->get('phpmyadmin')
|| $DB->new_record('phpmyadmin', {type => 'configuration'});
my $pw = $rec->prop('DbPassword');
if (not $pw or length($pw) < 57){
my $pw = gen_pw();
$rec->set_prop('DbPassword', $pw);
}
$pw = $rec->prop('sqladminPassword');
if (not $pw or length($pw) < 57){
my $pw = gen_pw();
$rec->set_prop('sqladminPassword', $pw);
}
sub gen_pw {
use MIME::Base64 qw(encode_base64);
my $p = "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{
$p = encode_base64($buf);
chomp $p;
}
close RANDOM;
}
else{
warn "Could not open /dev/urandom: $!";
}
return $p;
}
}