#!/usr/bin/perl

 use File::Find;
 use File::Copy;
 use File::Path;

 my @dirs = grep { -d } glob '/var/www/*';

 foreach $dir (@dirs) {

	$save = $dir.'/httpdocs/wp-content/w3tc-config';

	$f = $save.'/master.php';

	if (! -d $save) {

		mkpath($save);

	}

	if (-f $f) {

		print "Overwriting: $f\n";

	}
	else {

		print "Adding: $f\n";

	}

	copy('/master.php',$f);

	my $perf = $dir.'/httpdocs/index.php';

	if (-f $perf) {

		my $uid = (stat $perf)[4];
		my $user = (getpwuid $uid)[0];

		`chown -R $user:psacln '$dir/httpdocs/wp-content/*'`;
	}
	else {

		print "Could not locate $perf\n";

	}

 }