44 lines
1.3 KiB
Perl
Executable File
44 lines
1.3 KiB
Perl
Executable File
#!/usr/bin/perl -w
|
|
# ***********************************************************************
|
|
# * COPYRIGHT:
|
|
# * Copyright (c) 2002-2011, International Business Machines Corporation
|
|
# * and others. All Rights Reserved.
|
|
# ***********************************************************************
|
|
#
|
|
# Search for files modified this year, that need to have copyright indicating
|
|
# this current year on them.
|
|
#
|
|
use strict;
|
|
use warnings;
|
|
use Time::localtime;
|
|
use File::stat;
|
|
use File::Find;
|
|
|
|
# Add script directory to Perl PATH.
|
|
use FindBin qw($Bin);
|
|
use lib $Bin;
|
|
|
|
use Cpy;
|
|
|
|
my $icu_src = $ARGV[0] || ".";
|
|
die "Can't open ICU directory: $icu_src" unless -d $icu_src;
|
|
my $year = localtime->year + 1900;
|
|
|
|
find({
|
|
wanted => sub { # $_ is the full path to the file
|
|
return unless -f;
|
|
return if (localtime(stat($_)->mtime)->year + 1900) < $year;
|
|
return if should_ignore($_);
|
|
# file is recent and shouldn't be ignored. find copyright.
|
|
|
|
# if file contains a line with "copyright" and current year on the
|
|
# same line, we're good.
|
|
open F, "<$_" or die "Error opening '$_'.";
|
|
my $result = any { $_ =~ /copyright.*$year/i } <F>;
|
|
close F;
|
|
|
|
print "$_\n" unless $result;
|
|
},
|
|
no_chdir => 1,
|
|
}, $icu_src);
|