#!/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|flm)/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";+
−
+
−