sub revision
{
	my $rev = shift;
	my $name;
	$name = $rev;
	$name = "Beta 5" if ( $rev == 4914 );
	$name = "RC1 Beta" if ( $rev == 5032 );
	$name = "RC1" if ( $rev == 5074 );
	$name = "RC2 Beta" if ( $rev == 5219 );
	$name = "RC2" if ( $rev == 5229 );
	$name = "RC3 Beta" if ( $rev == 5241 );
        $name = "RC3 Beta Build 2" if ( $rev == 5273 );
        $name = "RC3" if ( $rev == 5276 );
        $name = "RC4 Beta" if ( $rev == 5277 );
	$name = "Patch 1" if ( $rev == 5704 );
        $name = "Patch 1 Private" if ( $rev == 5707 );
	$name = "RC2" if ( $rev == 6426 );
	$name = "RC3" if ( $rev == 6440 );
	$name = "Final" if ( $rev == 6482 );
	$name = "Final Patch 2" if ( $rev == 6479 );
	$name = "RC1" if ( $rev == 6928 );
	
	return $name;
}