1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
#!/usr/bin/perl
#
# Licensed to the Apache Software Foundation (ASF) under one or more
# contributor license agreements. See the NOTICE file distributed with
# this work for additional information regarding copyright ownership.
# The ASF licenses this file to You under the Apache License, Version 2.0
# (the "License"); you may not use this file except in compliance with
# the License. You may obtain a copy of the License at
#
# http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
#
#===================================================================
# Change the old license header to remove the copyright ASF line
# and replace it with the new "Licensed under the ..." text.
# Note that this should not be applied to the collective copyright
# in, for example, a README file that describes the work as a whole.
#===================================================================
#
# Usage: newlicense.pl *.java
# or
# find . -name .svn -prune -o -type f -print0 | xargs -0 copy2license.pl
#
sub ShowUsage {
print qq!
Usage: $0 file [ file ... ]
where:
file = a file in which to substitute license text
!;
}
#===================================================================
# ensure proper usage
if (scalar @ARGV < 1) {
ShowUsage();
exit;
}
undef $/; # slurp the whole file
$newtext = <<"EOTEXT";
<!--
* Licensed to the Apache Software Foundation (ASF) under one
* or more contributor license agreements. See the NOTICE file
* distributed with this work for additional information
* regarding copyright ownership. The ASF licenses this file
* to you under the Apache License, Version 2.0 (the
* "License"); you may not use this file except in compliance
* with the License. You may obtain a copy of the License at
*
* http://www.apache.org/licenses/LICENSE-2.0
*
* Unless required by applicable law or agreed to in writing,
* software distributed under the License is distributed on an
* "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
* KIND, either express or implied. See the License for the
* specific language governing permissions and limitations
* under the License.
-->
EOTEXT
# process each filename that was supplied
while ($filename = shift) {
open(INFILE, $filename) || die ("Cannot read from $filename, $!\n");
$wholething = <INFILE>;
close INFILE;
if ($wholething =~ s/\A(<\?xml.*\?>\n).*?-->\n/\1${newtext}/s) {
open(OUTFILE, ">$filename") || die ("Cannot write to $filename, $!\n");
print OUTFILE $wholething;
close OUTFILE;
}
}
$/ = "\n"; # reset the input record separator
exit 0;
|
