#!/usr/bin/perl

my $machine = `uname`;
chomp $machine;

$machine =~ /^(.*?)$/
	or die "Unable to parse machine name";
my $arch = $1;

my $version = `$ENV{'REAL_CONFIG'} --version`
	or die "Unable to determine target version";
chomp $version;
$version =~ s/^(\d+)\.(\d+)\..*/$1.$2/;
my $minVersion = $version;
my $maxVersion = $version.".0.*";

my $in_filename = "install.rdf.in";

my $targetPlaforms = "";
my @platforms;
if (opendir(PLATFORMS,"platform"))
{
	while(my $entry = readdir(PLATFORMS))
	{
		if (-d "platform/$entry" && $entry ne '..' && $entry ne '.')
		{
			$targetPlatforms .= "<em:targetPlatform>$entry</em:targetPlatform>$/";
		}
	}
	closedir(PLATFORMS);
}

open(IN, "<$in_filename")
	or die $!;
open(OUT, ">install.rdf")
	or die $!;
while(<IN>)
{
	s/%minVersion%/$minVersion/g;
	s/%maxVersion%/$maxVersion/g;
	s/%targetPlatforms%/$targetPlatforms/g;
	print(OUT)
		or die $!;
}
close(IN);
close(OUT);