#!/usr/bin/perl

use File::Find;

undef $/;

my $src = "../../src";
my $header_file = "header";

open (FILE, "$header_file");
my $header = <FILE>;
close(FILE);

find (\&update_header, $src);

sub update_header
{
   my $code;
   
   if ( $File::Find::name !~ /^.*\.java$/ )
   {
     return;
   }

   print $File::Find::name."\n";   
   open(FILE, "$_") or die "error opening file";
  
   $code = <FILE>;
   $code =~ s|(^[[:space:]]*/\*.*?\*/[[:space:]]*?\n\|^)|$header|s;
   
   close(FILE);

   open(FILE, ">$_") or die "error opening file";
   print FILE $code;
   close(FILE);
}