#!/bin/perl
$file = @ARGV[0];
open(FILE, "<$file") || die "unable to open $file";

@lines = <FILE>;
if(!(@lines[0] =~ /^<\?php\s*\n/ &&
     @lines[1] eq "/**\n" &&
     @lines[2] eq " * Piwik - Open source web analytics\n" &&
     @lines[3] =~ /^ \*\s*\n/ &&
     @lines[4] eq " * \@link http://piwik.org\n" &&
     @lines[5] eq " * \@license http://www.gnu.org/licenses/gpl-3.0.html Gpl v3 or later\n" &&
     @lines[6] =~ /^ \* \@version \$Id: .*?\$/ &&
     @lines[7] =~ /^ \*\s*\n/)) {
  # print name of files which don't have a matching header
  print "$file\n";
}

close(FILE);