#!/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.*?package /${newtext}package /s) {
      open(OUTFILE, ">$filename") || die ("Cannot write to $filename, $!\n");
      print OUTFILE $wholething;
      close OUTFILE;
  }
}

$/ = "\n"; # reset the input record separator

exit 0;