initial commit of file from CVS for smeserver-lemonldap-ng on Sat Sep 7 20:31:17 AEST 2024
This commit is contained in:
@@ -0,0 +1,13 @@
|
||||
{
|
||||
|
||||
my $rec = $DB->get('lemonldap')
|
||||
|| $DB->new_record('lemonldap', {type => 'service'});
|
||||
|
||||
my $pw = $rec->prop('SoapPassword');
|
||||
|
||||
if (not $pw){
|
||||
my $rand = `/usr/bin/openssl rand -base64 35 | tr -cd '[:alnum:]'`;
|
||||
$rec->set_prop('SoapPassword', "$rand");
|
||||
}
|
||||
|
||||
}
|
Reference in New Issue
Block a user