--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tools/fshell_copyright.pl	Wed Jun 23 15:52:26 2010 +0100
@@ -0,0 +1,152 @@
+#!/usr/bin/perl
+# fshell_copyright.pl
+# 
+# Copyright (c) 2010 Accenture. All rights reserved.
+# This component and the accompanying materials are made available
+# under the terms of the "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:
+# Accenture - Initial contribution
+#
+
+use strict;
+use File::Copy;
+use File::Path;
+
+my $debug = 0;
+
+my $notice = << 'ENDTEXT';
+// FILENAME
+// 
+// Copyright (c) COPYRIGHTYEAR Accenture. All rights reserved.
+// This component and the accompanying materials are made available
+// under the terms of the "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:
+// Accenture - Initial contribution
+//
+ENDTEXT
+
+my @errorfiles = ();
+
+sub update_copyright($$)
+  {
+  my ($file, $name) = @_;
+  
+  open FILE, "<$file" or print "ERROR: Cannot open $file: $!\n" and return "Cannot open";
+  if ($debug) { print "Processing $file\n"; }
+  my @lines = <FILE>;
+  close FILE;
+  
+  my $start = 1;
+  my $copyrightyear = "2010";
+  my $updated = 0;
+  my @newlines = ();
+  
+  my $commentstart = "//";
+  if ($name =~ /\.(pl|pm|script|pod|ini|idf|esk|mk|cif)/i || !($name =~ /\./))
+	{
+	# Need to use # instead of //
+	# Second part of conditional is for perl scripts that don't specify any ending
+	$commentstart = "#";
+	}
+  elsif ($name =~ /\.(bat)/)
+	{
+	$commentstart = '@REM';
+	}
+  elsif ($name =~ /\.(pkg)/)
+	{
+	$commentstart = ";";
+	}
+	
+  while (my $line = shift @lines)
+    { 
+	if ($start == 1)
+		{
+		if ($line =~ /^$commentstart Copyright ?\(c\) [a-zA-Z .]*(20..|19..)/)
+			{
+			# Some evil things put Copyright Symbian Software Ltd 2009 rather than putting the date first. The [a-zA-Z] bit is to skip that without causing a longest prefix match to pick up the end date instead of the start
+			$copyrightyear = $1;
+			
+			if ($line =~ /Nokia Corporation/)
+				{
+				# Leave well alone, not ours to change the headers on
+				push @newlines, $line;
+				$start = 0;
+				}
+			}
+		elsif ($line =~ /^#!/)
+			{
+			# Leave shebang lines alone!
+			push @newlines, $line;
+			}
+		elsif ($line =~ /^$commentstart/)
+			{
+			# Comment we're not interested in
+			}
+		else
+			{
+			# Reached the end of initial comment
+			my $filecopyrightnotice = $notice;
+			if ($copyrightyear ne "2010") { $copyrightyear = "$copyrightyear - 2010"; }
+			$filecopyrightnotice =~ s/\/\//$commentstart/g; # Change '//' to '#' if needed
+			$filecopyrightnotice =~ s/http:$commentstart/http:\/\//g; # I don't know why putting a ^ before the above pattern doesn't work, my brain is hurting
+			$filecopyrightnotice =~ s/COPYRIGHTYEAR/$copyrightyear/;
+			$filecopyrightnotice =~ s/FILENAME/$name/;
+
+			push @newlines, $filecopyrightnotice;
+			push @newlines, $line;
+			$start = 0;
+			}
+		next;
+		}
+    push @newlines, $line;
+    }
+
+  #return if (!$updated);
+
+ 
+  
+  open NEWFILE, ">$file" or die("Cannot overwrite $file: $!\n");
+  print NEWFILE @newlines, @lines;
+  close NEWFILE or die("Failed to update $file: $!\n");
+  print "* updated $file\n";
+  }
+
+# Process tree
+
+sub scan_directory($)
+  {
+  my ($path) = @_;
+  
+  return if $path =~ /\.hg/ ; # Don't go inside mercurial dir
+
+  opendir DIR, $path;
+  my @files = grep !/^\.\.?$/, readdir DIR;
+  closedir DIR;
+  
+  foreach my $file (@files)
+    {
+    my $newpath = "$path/$file";
+    
+    if (-d $newpath)
+      {
+      scan_directory($newpath);
+      next;
+      }
+    next if (-B $newpath);  # ignore binary files
+	next if ($newpath =~ /\.(pod|def|txt|src|index|clw|dsp|dsw|plg|rc|svg|css|esk)$/i); # ignore stuff that we're not copyrighting
+    
+    update_copyright($newpath, $file);
+    }
+  }
+
+scan_directory(".");
+
+printf "%d problem files\n", scalar @errorfiles;
+print "\t", join("\n\t", @errorfiles), "\n";
+