# Copyright (c) 2010 Symbian Foundation Ltd.

# All rights reserved.

# This component and the accompanying materials are made available

# under the terms of the License "Eclipse Public License v1.0"

# which accompanies this distribution, and is available

# at the URL "http://www.eclipse.org/legal/epl-v10.html".

#

# Initial Contributors:

# Symbian Foundation - initial contribution.

#

# Contributors:

#

# Description: 

# Check in Mercurial for updates to files branched to make stem versions

use strict;

use Getopt::Long;

my $old_rev = "PDK_3.0.2";

my $new_rev = "PDK_3.0.4";

my $mercurial_tree = "Q:";

GetOptions(

  "old=s" => \$old_rev,             # revision which is the current basis for modified files

  "new=s" => \$new_rev,             # new revision we need to catch up to

  "hgtree=s" => \$mercurial_tree,   # location of a tree of mercurial repositories

  );

sub do_system(@)

	{

	my @args = @_;

	my $cmd = join(" ", @args);

	# print STDERR "* $cmd\n";

	my @lines = `$cmd`;

	# print STDERR join("    ", "", @lines);

	return @lines;

	}

my $line;

while ($line = <>)

	{

	chomp $line;

	my ($localdir,$repo,$path,$file) = split /\t/, $line;

	next if (!defined $file);

	my @output = do_system ("hg", "--cwd", "$mercurial_tree$repo", "status", "--rev", $old_rev, "--rev", $new_rev, "$path/$file");

	next if (!@output);	# must be unchanged

	# what's the difference?

	my @diff_output = do_system ("hg", "--cwd", "$mercurial_tree$repo", "diff", "--rev", $old_rev, "--rev", $new_rev, "$path/$file");

	next if (!@diff_output); # none

	print "\n$localdir/$file might need updating\n", @diff_output;

	}