--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tools/check_for_mercurial_updates.pl	Wed Nov 10 17:16:02 2010 +0000
@@ -0,0 +1,54 @@
+# 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;
+	}
+