CMS Made Simple Forums

Code: Select all

#!/bin/perl
use strict;
use warnings;
use Data::Dumper;

#--------------------------------------------------------------------------------
# Script for copying diff packages to all installations (does not run db
# upgrade if needed)
#--------------------------------------------------------------------------------

die("READ THROUGH THE CODE BEFORE RUNNING!!!");

my $apply_to_version = "1.0.7";

print "finding existing installations \n";

my $base = "/var/www";
my $diff_loc = "/tmp/diff/*";

my @results =  `find $base -name version.php | xargs grep '\$CMS_VERSION = '`;

foreach(@results) {
    my ($location, $version) = split/:/;

    $location =~ s/version.php//;
    chomp($location);
    if($version =~ /(\d+\.\d+\.?\d*)/) {
        $version = $1;
    }

    ##only for 1.0.6
    if($version ne $apply_to_version) {
        print "skipping invalid version $version at $location \n";
        next;
    }

    my $command = "ls -lah ".$location."index.php";
    my $result = `$command`;

    my @fields = split(/ /, $result);

    my $owner = $fields[3];
    my $group = $fields[4];

    # setting rights of diff
    `chown -R $owner:$group $diff_loc`;

    #copy to installation
    #`cp -r -a $diff_loc $location`;

    print "upgraded installation at $location \n";
}

print "done\n";