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

initial commit of file from CVS for smeserver-freepbx on Sat Sep 7 20:25:35 AEST 2024

Browse Source
This commit is contained in:
Trevor Batley
2024-09-07 20:25:35 +10:00
parent bd24175623
commit 190a3e0d7a
80 changed files with 3092 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
root/etc/e-smith/db/configuration/migrate/freepbx Normal file
View File

@@ -0,0 +1,46 @@
{
my $freepbx = $DB->get('freepbx') || $DB->new_record('freepbx', {type => 'service'});
my $dbpass = $freepbx->prop('DbPassword') ||
$freepbx->set_prop('DbPassword', `/usr/bin/openssl rand -base64 40 | /usr/bin/tr -c -d '[:graph:]'`);
my $managerpass = $freepbx->prop('ManagerPassword') ||
$freepbx->set_prop('ManagerPassword', `/usr/bin/openssl rand -base64 10 | /usr/bin/tr -c -d '[:alnum:]'`);
my $aripass = $freepbx->prop('AriPassword') ||
$freepbx->set_prop('AriPassword', `/usr/bin/openssl rand -base64 10 | /usr/bin/tr -c -d '[:alnum:]'`);
# FOP not compatible with latest astersisk
my $fop = $DB->get("fop");
$fop->delete if $fop;
# with freepbx 13, we have a new port
my $UDPPorts = $freepbx->prop('UDPPorts') || '5060,5061,5160,5161,4569,10000:20000';
my @UDPlist= split(',',$UDPPorts);
unless ('5061' ~~ @UDPlist){
$UDPPorts = "$UDPPorts,5061";
$freepbx->set_prop('UDPPorts',$UDPPorts);
}
unless ('5160' ~~ @UDPlist){
$UDPPorts = "$UDPPorts,5160";
$freepbx->set_prop('UDPPorts',$UDPPorts);
}
unless ('5161' ~~ @UDPlist){
$UDPPorts = "$UDPPorts,5161";
$freepbx->set_prop('UDPPorts',$UDPPorts);
}
if ('10000-20000' ~~ @UDPlist){
$UDPPorts =~ s/,10000-20000//;
$UDPPorts = "$UDPPorts,10000:20000";
$freepbx->set_prop('UDPPorts',$UDPPorts);
}
if ('1000-2000' ~~ @UDPlist){
$UDPPorts =~ s/,1000-2000//;
$freepbx->set_prop('UDPPorts',$UDPPorts);
}
}
#remove DeviceAndUser property
my $DeviceAndUser = $freepbx->prop('DeviceAndUser');
$frepbx->delete_prop('DeviceAndUser') if defined $DeviceAndUser;