HLMetaModOfficial/support/versionchanger.pl

#!/usr/bin/perl

our %arguments =
(
	'config' => 'modules.versions',
	'major' => '1',
	'minor' => '0',
	'revision' => '0',
	'build' => undef,
	'path' => '',
	'buildstring' => '',
);

my $arg;
foreach $arg (@ARGV)
{
	$arg =~ s/--//;
	@arg = split(/=/, $arg);
	$arguments{$arg[0]} = $arg[1];
}

#Set up path info
if ($arguments{'path'} ne "")
{
	if (!(-d $arguments{'path'}))
	{
		die "Unable to find path: " . $arguments{'path'} ."\n";
	}
	chdir($arguments{'path'});
}

if (!open(CONFIG, $arguments{'config'}))
{
	die "Unable to open config file for reading: " . $arguments{'config'} . "\n";
}

our %modules;
my $cur_module = undef;
my $line;
while (<CONFIG>)
{
	chomp;
	$line = $_;
	if ($line =~ /^\[([^\]]+)\]$/)
	{
		$cur_module = $1;
		next;
	}
	if (!$cur_module)
	{
		next;
	}
	if ($line =~ /^([^=]+) = (.+)$/)
	{
		$modules{$cur_module}{$1} = $2;
	}
}

close(CONFIG);

#Copy global configuration options...
if (exists($modules{'PRODUCT'}))
{
	if (exists($modules{'PRODUCT'}{'major'}))
	{
		$arguments{'major'} = $modules{'PRODUCT'}{'major'};
	}
	if (exists($modules{'PRODUCT'}{'minor'}))
	{
		$arguments{'minor'} = $modules{'PRODUCT'}{'minor'};
	}
	if (exists($modules{'PRODUCT'}{'revision'}))
	{
		$arguments{'revision'} = $modules{'PRODUCT'}{'revision'};
	}
}

#Get the global SVN revision if we have none
my $rev;
if ($arguments{'build'} == undef)
{
	my ($text);
	$text = `hg identif -n -i`;
	chomp $text;
	$text =~ s/\+//g;
	my ($id,$num) = split(/ /, $text);
	$rev = "$num:$id";
} 
else 
{
	$rev = int($arguments{'build'});
}

my $major = $arguments{'major'};
my $minor = $arguments{'minor'};
my $revision = $arguments{'revision'};
my $buildstr = $arguments{'buildstring'};

#Go through everything now
my $mod_i;
while ( ($cur_module, $mod_i) = each(%modules) )
{
	#Skip the magic one
	if ($cur_module eq "PRODUCT")
	{
		next;
	}
	#Prepare path
	my %mod = %{$mod_i};
	my $infile = $mod{'in'};
	my $outfile = $mod{'out'};
	if ($mod{'folder'})
	{
		if (!(-d $mod{'folder'}))
		{
			die "Folder " . $mod{'folder'} . " not found.\n";
		}
		$infile = $mod{'folder'} . '/' . $infile;
		$outfile = $mod{'folder'} . '/' . $outfile;
	}
	if (!(-f $infile))
	{
		die "File $infile is not a file.\n";
	}
	#Start rewriting
	open(INFILE, $infile) or die "Could not open file for reading: $infile\n";
	open(OUTFILE, '>'.$outfile) or die "Could not open file for writing: $outfile\n";
	while (<INFILE>)
	{
		s/\$PMAJOR\$/$major/g;
		s/\$PMINOR\$/$minor/g;
		s/\$PREVISION\$/$revision/g;
		s/\$BUILD_ID\$/$rev/g;
		s/\$BUILD_STRING\$/$buildstr/g;
		print OUTFILE $_;
	}
	close(OUTFILE);
	close(INFILE);
}