update.php

#!/usr/bin/php
<?php
//  ------------------------------------------------------------
//  (c) 2023/2025 by WRXB288 lagmrs.com all rights reserved
//
//  Node image upgrade system. 
// -------------------------------------------------------------
// 1.9 09/18/23 added cleanup of license files and linefeeds
// 3.2.1 2/10/25  Rebuild upgrade for image
// 3.4  2/20   debugging added  
// 3.5  2/23   added update for sbin
// 3.6  2/24 Minor tweeks for new updates to menus.
// 3.7       fixes permissions on webmin service
// 3.9  3/8.25 Fix to stop upgrades to old versions. 

$verInstaller= "3.9"; $verRt="3-8-2025"; 

$changeall=false;$year = date("Y");
$docRouteP="/srv/http";        
$path  = "/etc/asterisk/local/mm-software"; 

// Load version numbers
$currentVersion = getVersionFromCSV("$path/version.txt");
$imageVersion = getVersionFromCSV("$path/version-image.txt");

$header=
"-----------------------------------------------------------------------------
System Update Module $verInstaller Release Date:$verRt
(c) 2023/$year by WRXB288 lagmrs.com all rights reserved 
-----------------------------------------------------------------------------
Running:$currentVersion   Orginal Image:$imageVersion
";



if($imageVersion=="N/A" ){
print"


   _   _   _   _   _   _  
  / \ / \ / \ / \ / \ / \ 
 ( S | T | O | P |   | 1!)
  \_/ \_/ \_/ \_/ \_/ \_/ 
  
 $header
 Can not update to a beta version [$imageVersion] please download new image.
";
 $a = readline('Enter your command: ');die;}

$test= 10.8;
if($imageVersion < $test ){
print"


   _   _   _   _   _   _  
  / \ / \ / \ / \ / \ / \ 
 ( S | T | O | P |   | 2!)
  \_/ \_/ \_/ \_/ \_/ \_/ 
  
 $header
 Can not update to a version older than [$test] you have [$imageVersion] please download new image.
";
 $a = readline('Enter your command: ');die;}

$test= 10.9;
if($imageVersion < $test ){$header= "$header \n
NOTE: this will install fake hardware clock however the next image includes
a modified version with bug fixes. This script will not install those mods.
You need to download the upgraded image.
";
                          }
                           

print "



















   _   _   _   _   _   _  
  / \ / \ / \ / \ / \ / \ 
 ( U | P | D | A | T | E )
  \_/ \_/ \_/ \_/ \_/ \_/ 









$header

This will Update the Node image to the currect release.
Be sure you have backups.  Use Win32DiskImager in read mode to make backups. 
If you want to see whats in this update the code is at github for inspection.
https://github.com/tmastersmart/gmrs_live   (certified safe)

 u) Update (any other key to abort!)

";


 $a = readline('Enter your command: ');
 if ($a <> "u"){
    chdir($pathR);
    clean_repo($pathR);// make sure we erase all if you abort
    die;
 }

$in= "check"; FakeClock ($in);
       
$repoURL= "https://raw.githubusercontent.com/tmastersmart/gmrs_live/main";  
$pathS = "$path/sounds";//if(!is_dir($pathS)){ mkdir($pathS, 0755);}
$pathR = "$path/repo"; if(!is_dir($pathR)){ mkdir($pathR, 0755);}
$pathB = "$path/backup";if(!is_dir($pathB)){ mkdir($pathB, 0755);}
$pathG = "$docRouteP/status";//if(!is_dir($pathG)){ mkdir($pathG, 0755);}
$pathGA= "$docRouteP/admin";//if(!is_dir($pathGA)){ mkdir($pathGA, 0755);}
$pathGE= "$docRouteP/images";//if(!is_dir($pathGE)){ mkdir($pathGE, 0755);}
$pathI = "$docRouteP/status/images";//if(!is_dir($pathI)){ mkdir($pathI, 0755);}
$pathSBIN = "/usr/local/sbin";
$pathF = "/usr/local/sbin/firsttime";
$pathN = "/var/lib/asterisk/sounds/rpt/nodenames";
 

print "Running Live upgrade system ...........\n";
 chdir($pathR);


if (file_exists("$pathR/version.txt")) {rename ("$pathR/version.txt", "$path/version-new.txt");}
else {print "Cant find new version info So quiting. Did we even download anything? \n";
print "Press ANY Key\n";
$a = readline('Ready: ');
die;
} 
  


 
 
 //just to be safe backup or core files.
$backupFile = "$path/backup/core-backup.tar.gz"; $command = "tar -czvf $backupFile $path/*.php";exec($command, $output, $return_var);
if ($return_var === 0) {echo "Backup core successful: $backupFile\n";}
else {echo "Backup core failed!\n";} 

 //just to be safe backup or core files.
$backupFile = "$path/backup/core-backup-csv.tar.gz"; $command = "tar -czvf $backupFile $path/*.csv";exec($command, $output, $return_var);
if ($return_var === 0) {echo "Backup csv core successful: $backupFile\n";}
else {echo "Backup core failed!\n";} 
 
// The update script is suposted to move this file it should not be here.
if (file_exists("$pathR/update.php")) {unlink ("$pathR/update.php");print "Fixing file that was not moved ....\n";} 
 
// first check for core
 if (file_exists("$pathR/core-download.zip")) { 
 print"processing core-download\n";
 exec("unzip $pathR/core-download.zip",$output,$return_var);
  
     
   foreach (glob("*.php") as $file) {
    if($file == '.' || $file == '..') continue;
    if (is_file($file)) { 
    print"Installing php file:$path/$file "; 
    if (file_exists("$path/$file")){unlink("$path/$file");print"Replacing ";}// kill existing file
    if (file_exists("$pathR/$file")){
    rename ("$pathR/$file", "$path/$file");
     exec("sudo chmod +x $path/$file",$output,$return_var); 
    } 
    print"ok\n";
    }
  }
  
   foreach (glob("*.csv") as $file) {
    if($file == '.' || $file == '..') continue;
    if (is_file($file)) { 
    print"Installing csv file:$path/$file "; 
    if (file_exists("$path/$file")){unlink("$path/$file");print"Replacing ";}// kill existing file
    if (file_exists("$pathR/$file")){rename ("$pathR/$file", "$path/$file"); } 
    print"ok\n";
    }
  }  
 
   foreach (glob("*.txt") as $file) {
    if($file == '.' || $file == '..') continue;
    if (is_file($file)) { 
    print"Installing txt file:$path/$file "; 
    if (file_exists("$path/$file")){unlink("$path/$file");print"Replacing ";}// kill existing file
    if (file_exists("$pathR/$file")){rename ("$pathR/$file", "$path/$file"); } 
    print"ok\n";
    }
  }  
 
}
//else {print "no core_download.zip found \n";}
// end of the core files. 



// sounds files
if (file_exists("$pathR/sounds.zip")){ 
// for this version we are only installing new files
// chdir($pathS); clean_repo($pathS);  
chdir($pathR); 
exec("unzip $pathR/sounds.zip",$output,$return_var);
print"processing new sounds\n"; 
 foreach (glob("*.wav") as $file) {
  if($file == '.' || $file == '..') continue;
    if (is_file($file)) {                                                
    print"Installing wav file:$pathS/$file "; 
    if (file_exists("$pathS/$file")){unlink("$pathS/$file");print"Replacing ";}// kill existing file
    if (file_exists("$pathR/$file")){rename ("$pathR/$file", "$pathS/$file");} // Move it into the SOUNDS
    print"ok\n";
    }
  }

 foreach (glob("*.ul") as $file) {
    if($file == '.' || $file == '..') continue;
    if (is_file($file)) { 
    print"Installing ul file:$pathS/$file "; 
    if (file_exists("$pathS/$file")){unlink("$pathS/$file");print"Replacing ";}// kill existing file
    if (file_exists("$pathR/$file")){rename ("$pathR/$file", "$pathS/$file");} // Move it into the SOUNDS
    print"ok\n";
    }
  }

 foreach (glob("*.gsm") as $file) {
    if($file == '.' || $file == '..') continue;
    if (is_file($file)) { 
    print"Installing gsm file:$pathS/$file "; 
    if (file_exists("$pathS/$file")){unlink("$pathS/$file");print"Replacing ";}// kill existing file
    if (file_exists("$pathR/$file")){rename ("$pathR/$file", "$pathS/$file");} // Move it into the SOUNDS
    print"ok\n";
    }
  }
}

//else {print "no sounds.zip found \n";}
// end new sounds  


// install the status page updates
if (file_exists("$pathR/status.zip")){
exec("unzip $pathR/status.zip",$output,$return_var); 
print"processing status\n";
chdir($pathR); 


 foreach (glob("*.php") as $file) {
  if($file == '.' || $file == '..') continue;
    if (is_file($file)) { 
    print"Installing php file:$pathG/$file "; 
    if (file_exists("$pathG/$file")){unlink("$pathG/$file");print"Replacing ";}// kill existing file
    if (file_exists("$pathR/$file")){rename ("$pathR/$file", "$pathG/$file");} 
    print"ok\n";
    }
  }
  
 foreach (glob("*.css") as $file) {
  if($file == '.' || $file == '..') continue;
    if (is_file($file)) { 
    print"Installing css file:$pathG/$file "; 
    if (file_exists("$pathG/$file")){unlink("$pathG/$file");print"Replacing ";}// kill existing file
    if (file_exists("$pathR/$file")){rename ("$pathR/$file", "$pathG/$file");} 
    print"ok\n";
    }
  }  
  
 foreach (glob("*.js") as $file) {
  if($file == '.' || $file == '..') continue;
    if (is_file($file)) { 
    print"Installing js file:$pathG/$file "; 
    if (file_exists("$pathG/$file")){unlink("$pathG/$file");print"Replacing ";}// kill existing file
    if (file_exists("$pathR/$file")){rename ("$pathR/$file", "$pathG/$file");} 
    print"ok\n";
    }
  } 
           
  foreach (glob("*.csv") as $file) {
  if($file == '.' || $file == '..') continue;
    if (is_file($file)) { 
    print"Installing csv file:$pathG/$file "; 
    if (file_exists("$pathG/$file")){unlink("$pathG/$file");print"Replacing ";}// kill existing file
    if (file_exists("$pathR/$file")){rename ("$pathR/$file", "$pathG/$file");} 
    print"ok\n";
    }
  } 
  
  foreach (glob("*.txt") as $file) {
  if($file == '.' || $file == '..') continue;
    if (is_file($file)) { 
    print"Installing txt file:$pathG/$file "; 
    if (file_exists("$pathG/$file")){unlink("$pathG/$file");print"Replacing ";}// kill existing file
    if (file_exists("$pathR/$file")){rename ("$pathR/$file", "$pathG/$file");} 
    print"ok\n";
    }
  } 
  
}
//else {print "no sstatus.zip found \n";}
// end of status page updates


if (file_exists("$pathR/admin.zip")){
exec("unzip $pathR/admin.zip",$output,$return_var); 
print"processing admin\n";

chdir($pathR);   


 foreach (glob("*.php") as $file) {
  if($file == '.' || $file == '..') continue;
    if (is_file($file)) { 
    print"Installing php file:$pathGA/$file "; 
    if (file_exists("$pathGA/$file")){unlink("$pathGA/$file");print"Replacing ";}// kill existing file
    if (file_exists("$pathR/$file")){rename ("$pathR/$file", "$pathGA/$file");} 
    print"ok\n";
    }
  }
  
 foreach (glob("*.css") as $file) {
  if($file == '.' || $file == '..') continue;
    if (is_file($file)) { 
    print"Installing css file:$pathGE/$file "; 
    if (file_exists("$pathGA/$file")){unlink("$pathGA/$file");print"Replacing ";}// kill existing file
    if (file_exists("$pathR/$file")){rename ("$pathR/$file", "$pathGA/$file");} 
    print"ok\n";
    }
  }  
  
 foreach (glob("*.js") as $file) {
  if($file == '.' || $file == '..') continue;
    if (is_file($file)) { 
    print"Installing js file:$pathGE/$file "; 
    if (file_exists("$pathGA/$file")){unlink("$pathGA/$file");print"Replacing ";}// kill existing file
    if (file_exists("$pathR/$file")){rename ("$pathR/$file", "$pathGA/$file");} 
    print"ok\n";
    }
  } 

 foreach (glob("*.csv") as $file) {
  if($file == '.' || $file == '..') continue;
    if (is_file($file)) { 
    print"Installing ini file:$pathGA/$file "; 
    if (file_exists("$pathGA/$file")){unlink("$pathGA/$file");print"Replacing ";}// kill existing file
    if (file_exists("$pathR/$file")){rename ("$pathR/$file", "$pathGA/$file");} 
    print"ok\n";
    }
  }            

}
//else {print "no admin.zip found \n";}
// end of admin

if (file_exists("$pathR/images-s.zip")){

exec("unzip $pathR/images-s.zip",$output,$return_var); 
print"processing images-s\n";

chdir($pathR);   
 foreach (glob("*.gif") as $file) {
  if($file == '.' || $file == '..') continue;
    if (is_file($file)) { 
    print"Installing gif file:$pathI/$file "; 
    if (file_exists("$pathI/$file")){unlink("$pathI/$file");print"Replacing ";}// kill existing file
    if (file_exists("$pathR/$file")){rename ("$pathR/$file", "$pathI/$file");} 
    print"ok\n";
    }
  }
 foreach (glob("*.jpg") as $file) {
  if($file == '.' || $file == '..') continue;
    if (is_file($file)) { 
    print"Installing jpg file:$pathI/$file "; 
    if (file_exists("$pathI/$file")){unlink("$pathI/$file");print"Replacing ";}// kill existing file
    if (file_exists("$pathR/$file")){rename ("$pathR/$file", "$pathI/$file");} 
    print"ok\n";
    }
  }
 foreach (glob("*.png") as $file) {
  if($file == '.' || $file == '..') continue;
    if (is_file($file)) { 
    print"Installing png file:$pathI/$file "; 
    if (file_exists("$pathI/$file")){unlink("$pathI/$file");print"Replacing ";}// kill existing file
    if (file_exists("$pathR/$file")){rename ("$pathR/$file", "$pathI/$file");} 
    print"ok\n";
    }
  }
  
    foreach (glob("*.ico") as $file) {
  if($file == '.' || $file == '..') continue;
    if (is_file($file)) { 
    print"Installing ico file:$pathGA/$file "; 
    if (file_exists("$pathI/$file")){unlink("$pathI/$file");print"Replacing ";}// kill existing file
    if (file_exists("$pathR/$file")){rename ("$pathR/$file", "$pathI/$file");} 
    print"ok\n";
    }
  } 
}
//else {print "no images-s.zip found \n";}
// end images  
  
if (file_exists("$pathR/images.zip")){

exec("unzip $pathR/images.zip",$output,$return_var); 
print"processing images\n";

chdir($pathR);   
 foreach (glob("*.gif") as $file) {
  if($file == '.' || $file == '..') continue;
    if (is_file($file)) { 
    print"Installing gif file:$pathI/$file "; 
    if (file_exists("$pathI2/$file")){unlink("$pathI2/$file");print"Replacing ";}// kill existing file
    if (file_exists("$pathR/$file")){rename ("$pathR/$file", "$pathI2/$file");} 
    print"ok\n";
    }
  }
 foreach (glob("*.jpg") as $file) {
  if($file == '.' || $file == '..') continue;
    if (is_file($file)) { 
    print"Installing jpg file:$pathI/$file "; 
    if (file_exists("$pathI2/$file")){unlink("$pathI2/$file");print"Replacing ";}// kill existing file
    if (file_exists("$pathR/$file")){rename ("$pathR/$file", "$pathI2/$file");} 
    print"ok\n";
    }
  }
 foreach (glob("*.png") as $file) {
  if($file == '.' || $file == '..') continue;
    if (is_file($file)) { 
    print"Installing png file:$pathI/$file "; 
    if (file_exists("$pathI2/$file")){unlink("$pathI2/$file");print"Replacing ";}// kill existing file
    if (file_exists("$pathR/$file")){rename ("$pathR/$file", "$pathI2/$file");} 
    print"ok\n";
    }
  }
  
    foreach (glob("*.ico") as $file) {
  if($file == '.' || $file == '..') continue;
    if (is_file($file)) { 
    print"Installing ico file:$pathGA/$file "; 
    if (file_exists("$pathI2/$file")){unlink("$pathI2/$file");print"Replacing ";}// kill existing file
    if (file_exists("$pathR/$file")){rename ("$pathR/$file", "$pathI2/$file");} 
    print"ok\n";
    }
  } 
}
//else {print "no images.zip found \n";}
// end images    
//======================================


// "/var/lib/asterisk/sounds/rpt/nodenames";    $pathN

if (file_exists("$pathR/nodenames.zip")){ 
exec("unzip $pathR/nodenames.zip",$output,$return_var);
 print"processing nodenames\n";
 foreach (glob("*.ul") as $file) {
    if($file == '.' || $file == '..') continue;
    if (is_file($file)) { 
    print"Installing ul file:$pathN/$file "; 
    if (file_exists("$pathN/$file")){unlink("$pathN/$file");print"Replacing ";}// kill existing file
    if (file_exists("$pathR/$file")){rename ("$pathR/$file", "$pathN/$file");print"--";} // Move it into the SOUNDS
    print"ok\n";
    }
  }
  
}
//else {print "no nodenames.zip found \n";}
// end nodenames. we wont update this very often
  
 if (file_exists("$pathR/sbin.zip")) { 
 exec("unzip $pathR/sbin.zip",$output,$return_var);
 print"processing sbin\n";
 foreach (glob("*.sh") as $file) {
    if($file == '.' || $file == '..') continue;
    if (is_file($file)) { 
    print"Installing sh file:$pathSBIN/$file "; 
    if (file_exists("$pathSBIN/$file")) {rename("$pathSBIN/$file", "$pathB/$file.bak"); print "Back up ";}
    rename("$pathR/$file", "$pathSBIN/$file");print "Replacing $file\n";
    // Change permissions only if necessary
    exec("sudo chmod 755 $pathSBIN/$file", $output, $return_var); print"CHMOD 755"; 
    print"ok\n";
    }
  }
}
//else {print "no sbin.zip found \n";}

if (file_exists("$pathR/firsttime.zip")){ 
 exec("unzip $pathR/firsttime.zip",$output,$return_var);
 print"processing firsttime\n";
 foreach (glob("*.sh") as $file) {
    if($file == '.' || $file == '..') continue;
    if (is_file($file)) { 
    print"Installing sh file:$pathF/$file "; 
    if (file_exists("$pathF/$file")) {rename("$pathF/$file", "$pathB/$file.bak"); print "Back up ";}
    rename("$pathR/$file", "$pathF/$file");print "Replacing $file\n";
    // Change permissions only if necessary
    exec("sudo chmod 755 $pathF/$file", $output, $return_var); print"CHMOD 755"; 
    print"ok\n";
    }
  }
}
//else {print "no firstime.zip found \n";}





  
// --------------------- expansion replace others at later date ----------------------- 
  

// webmin as released had wrong permissions
$file = "/usr/lib/systemd/system/webmin.service";
// Check current permissions
$perms = fileperms($file);
// Remove executable permissions if set
if ($perms & 0x0040 || $perms & 0x0008 || $perms & 0x0001) { // Check if owner, group, or others have execute permission
    echo "Fixing permissions on webmin service ...";
    exec("sudo chmod 644 $file", $output, $return_var);
    if ($return_var === 0) { echo "ok.\n";} 
    else { echo "Error: unable to fix.[$file]\n"; }
} 
 
  
 
  
$pathB = "$path/backup";

// make backups, erase the old ones to save space
$file = "$path/setup.txt";   $file2= "$pathB/setup.txt";  if (file_exists($file2)){unlink($file2);} 
copy($file, $file2);print "Backup $file2\n";
$file = "$path/mm-node.txt"; $file2= "$pathB/mm-node.txt";if (file_exists($file2)){unlink($file2);}
copy($file, $file2);print "Backup $file2\n";
$file = "$path/logs/log.txt";$file2= "$pathB/log.txt";    if (file_exists($file2)){unlink($file2);}
copy($file, $file2);print "Backup $file2\n";
$file = "/etc/asterisk/rpt.conf";$file2= "$pathB/rpt.cfg";if (file_exists($file2)){unlink($file2);}
copy($file, $file2);print "Backup $file2\n";
$file = "/etc/asterisk/iax.conf";$file2= "$pathB/iax.cfg";if (file_exists($file2)){unlink($file2);}
copy($file, $file2);print "Backup $file2\n";
$file = "/etc/asterisk/manager.conf";$file2= "$pathB/manager.cfg";    if (file_exists($file2)){unlink($file2);}
copy($file, $file2);print "Backup $file2\n";




 print "----\n";

chdir($pathR); clean_repo($pathR);
// cleanup  old unused files 
$file="$path/license-sounds.txt";if (file_exists($file)){unlink($file);}
$file="$path/license-core.txt";  if (file_exists($file)){unlink($file);}
$file="$path/license-web.txt";   if (file_exists($file)){unlink($file);}

if (file_exists("$path/version-new.txt")) {
 $file="$path/version.txt";       if (file_exists($file)){unlink($file);}
rename ("$path/version-new.txt", "$path/version.txt"); 
print "Updating version.txt\n";
}
else{print "Unknown error \n";}





print "Finished Upgrade. In most cases this is a live update. No reboot needed.!\n";
print "\n";
print "Louisiana Image its just better!\n\n";
print "Press ANY Key\n";
$a = readline('Ready: ');
die;



function clean_repo($in){
chdir($in);
$files = glob($in.'/*'); 
foreach($files as $filed) {
   if($filed == '.' || $filed == '..') continue;
   if (is_file($filed)) { unlink($filed);print"del $filed\n";  }
 }
}

function getVersionFromCSV($filename) {
    if (file_exists($filename)) {
        $file = fopen($filename, "r");
        if ($file !== false) {
            $line = fgetcsv($file); // Read first line as CSV
            fclose($file);
            return $line[0] ?? "N/A"; // Return the first column or "N/A" if empty
        }
    }
    return "N/A"; // File not found or empty
}






function FakeClock($in){

$file_path = '/etc/fake-hwclock.data';
if (!file_exists($file_path)) {shell_exec('sudo touch ' . $file_path);echo "Creating the fake-hwclock data file...\n";}
else { echo "Fake-hwclock detected.\n";return;}

$output = shell_exec('pacman -Qi fake-hwclock');
if (empty($output)) {echo "fake-hwclock is not installed. Installing...\n";shell_exec('sudo pacman -Syu --noconfirm fake-hwclock');} 
else {echo "fake-hwclock is already installed.\n";return;}

//   
// Start up the service   
shell_exec('sudo systemctl enable fake-hwclock');      shell_exec('sudo systemctl start fake-hwclock');
shell_exec('sudo systemctl enable fake-hwclock.timer');shell_exec('sudo systemctl start fake-hwclock.timer');
   
shell_exec('sudo /usr/lib/systemd/scripts/fake-hwclock.sh save');

echo "fake-hwclock service and timer are enabled and started. Data file created (if necessary).\n";
} 

?>