#!/usr/bin/perl

#  Developers: Use $debug to keep all svn ci activity from occuring, messages will then be printed. All files will still be created
#              and module.xml modifications made since these can be reverted. Review carefully if you care concerned that it will
#              lose work.
#
system("which md5sum"); # typical linux format
if ($? == 0) {
		$md5_command = 'md5sum';
} else {
	system("which md5"); # OSX format
	if ($? == 0) {
		$md5_command = 'md5 -r';
	} else {
		die "no md5sum command\n";
	}
}

$debug = 0;
$checkphp = 1;
$rver = "2.4";
$fwbranch = "branches/2.4";
$framework = "framework";

my $reldir = "release/";

while ($moddir = shift @ARGV) {
	next if (!-d $moddir);
	if ($moddir =~ /$framework/) {

		# Framework module is special case. We export and pull in all the files of framework that we are going to want to udpate. For now this is
		# all files under htdocs, agi-bin and bin. We have not included astetc since such files should be done with core modules. We have also
		# temporarily chosen not to include FOP since it is likely FOP may be handled by a FOP module going forward. Othewise we will add it here.
		#
		# TODO: ADD FOP until we can get into a module
		#
		if (system("rm -rf $framework/agi-bin $framework/bin $framework/htdocs $framework/htdocs_panel $framework/upgrades $framework/libfreepbx.install.php $framework/CHANGES")) {
			die "FATAL: failed to remove previoulsly exported directories\n";
		}
		if (system("svn export http://svn.freepbx.org/freepbx/$fwbranch/amp_conf/agi-bin $framework/agi-bin")) {
			die "FATAL: failed to export agi-bin directory\n";
		}
		if (system("svn export http://svn.freepbx.org/freepbx/$fwbranch/amp_conf/bin $framework/bin")) {
			die "FATAL: failed to export bin directory\n";
		}
		if (system("svn export http://svn.freepbx.org/freepbx/$fwbranch/amp_conf/htdocs $framework/htdocs")) {
			die "FATAL: failed to export htdocs directory\n";
		}
		if (system("svn export http://svn.freepbx.org/freepbx/$fwbranch/amp_conf/htdocs_panel $framework/htdocs_panel")) {
			die "FATAL: failed to export htdocs_panel directory\n";
		}
		if (system("svn export http://svn.freepbx.org/freepbx/$fwbranch/upgrades $framework/upgrades")) {
			die "FATAL: failed to export upgrades directory\n";
		}
		# svn doesn't seem to allow for a single file to be checked out so we need to do a kludgey workaround
		# this is what we wanted:
		#
		# if (system("svn export http://svn.freepbx.org/freepbx/$fwbranch/libfreepbx.install.php $framework/libfreepbx.install.php"))
		#
		if (system("svn co --non-recursive http://svn.freepbx.org/freepbx/$fwbranch $framework/tmp")) {
			die "FATAL: failed to checkout branch with libfreepbx.install.php\n";
		}
		# Create the svnversion information for this framework snapshot
		#
		if (system("echo SVN VERSION: `svnversion $framework/tmp` > $framework/svnversion.txt")) {
			die "FATAL: svnversion failed to create svnversion.txt\n";
		}

		if (system("mv $framework/tmp/libfreepbx.install.php $framework/")) {
			die "FATAL: failed to mv libfreepbx.install.php to $framework\n";
		}
		if (system("mv $framework/tmp/CHANGES $framework/")) {
			die "FATAL: failed to mv CHANGES to $framework\n";
		}
		if (system("rm -rf $framework/tmp")) {
			die "FATAL: failed to remove $framework/tmp\n";
		}

		# Now we must remove a few files which users may have legitimately edited. For now this is the main.conf.php file which is the current
		# ARI file used for editing paramters and options.
		#
		if (system("rm -rf $framework/htdocs/recordings/includes/main.conf.php")) {
			die "FATAL: failed to trim main.conf.php ARI file\n";
		}
		
		# Remove from htdocs root mainstyle.css and index.html as these are owned by root (need to investigate why these are there
		# and change that. Also some others
		#
		# TODO: check if these are stiff there and need to be special cased
		#
		if (system("rm -rf $framework/htdocs/mainstyle.css")) {
			die "FATAL: failed to trim htdocs/mainstyle.css\n";
		}
		if (system("rm -rf $framework/htdocs/index.html")) {
			die "FATAL: failed to trim htdocs/index.html\n";
		}
		if (system("rm -rf $framework/htdocs/admin/modules/_cache")) {
			die "FATAL: failed to trim modules/_cache\n";
		}
	}

	open FH, "$moddir/module.xml"; 
	$newxml = "";
	$vers = "unset";
	$rawname = "unset";
	while (<FH>) {
		if ($vers == 'unset' && /<version>(.+)<\/version>/) { $vers = $1; }
		if (/<rawname>(.+)<\/rawname>/) { $rawname = $1; }
		$newxml .= $_;
	}
	close FH;
	die "Don't know version of $moddir" if ($vers eq "unset");
	die "Don't know rawname of $moddir" if ($rawname eq "unset");
	# Automatically check in any files that were modified but weren't checked into SVN
	chdir($moddir);
	@arr = <*>;
	$files = "";
	if ($moddir =~ /$framework/) {
		while ($x = shift @arr) {
			# Excluding module.xml which gets checked in later..
			next if ($x =~ /module.xml/);
			next if ($x =~ /agi-bin/);
			next if ($x =~ /bin/);
			next if ($x =~ /htdocs/);
			next if ($x =~ /htdocs_panel/);
			next if ($x =~ /upgrades/);
			next if ($x =~ /libfreepbx.install.php/);
			next if ($x =~ /svnversion.txt/);
			$files .= "$x ";
		}
	} else {
		while ($x = shift @arr) {
			# Excluding module.xml which gets checked in later..
			next if ($x =~ /module.xml/);
			$files .= "$x ";

			# Quick and dirty check for php syntax errors at the top level of module directories. Should probably
			# do this recursively in the future. Also - checks all files now but php -l seems to be ok with that.
			#
			if (-f $x && $checkphp) {
				if (system("php -l $x")) {
					die "FATAL: php syntax error detected in $x\n";
				}
			}
		}
	}
	if ($debug) {
		print "svn ci -m \"Auto Check-in of any outstanding patches\" $files\n";
	} else {
		system("svn ci -m \"Auto Check-in of any outstanding patches\" $files");
	}
	chdir("..");
	# Now we know the version. Create the tar.gz
	$filename = "$rawname-$vers.tgz";
	system("tar zcf $filename --exclude '.*' $rawname");
	# Update the md5 info
	open MD5, "$md5_command $filename|";
	$md5 = <MD5>;
	close MD5;
	($md5sum, $null) = split(/ /, $md5);
	$newxml =~ s/<md5sum>.+<\/md5sum>/<md5sum>$md5sum<\/md5sum>/;
	$newxml =~ s/<location>.+<\/location>/<location>$reldir$rver\/$filename<\/location>/;
	open FH, ">$moddir/module.xml";
	print FH $newxml;
	close FH;
	if ($debug) {
		print "mv $filename ../../release/$rver\n";
		print "svn add ../../release/$rver/$filename\n";
		print "svn ps svn:mime-type application/tgz ../../release/$rver/$filename\n";
		print "svn ci ../../release/$rver/$filename $rawname/module.xml -m \"Module Publish Script: $rawname $vers\"\n";
	} else {
		system("mv $filename ../../release/$rver");
		system("svn add ../../release/$rver/$filename");
		system("svn ps svn:mime-type application/tgz ../../release/$rver/$filename");
		system("svn ci ../../release/$rver/$filename $rawname/module.xml -m \"Module Publish Script: $rawname $vers\"");
	}
}