#!/usr/bin/perl -w

eval 'exec /usr/bin/perl -w -S $0 ${1+"$@"}'
    if 0; # not running under some shell

###############################################################################
# A wrapper for the Krazy license checker to replace the old licensecheck     #
#                                                                             #
# Copyright 2008 by Allen Winter <winter@kde.org>                             #
#                                                                             #
# This program is free software; you can redistribute it and/or modify        #
# it under the terms of the GNU General Public License as published by        #
# the Free Software Foundation; either version 2 of the License, or           #
# (at your option) any later version.                                         #
#                                                                             #
# This program is distributed in the hope that it will be useful,             #
# but WITHOUT ANY WARRANTY; without even the implied warranty of              #
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the                #
# GNU General Public License for more details.                                #
#                                                                             #
# You should have received a copy of the GNU General Public License along     #
# with this program; if not, write to the Free Software Foundation, Inc.,     #
# 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.               #
#                                                                             #
###############################################################################

use strict;
use Env qw(PATH);
use File::Find;

my($krazyPath) = "";

# Generate an array of paths to search for plugins
my ($kp,@paths,@tmp);
for $kp ( split( /:/, $PATH ) ) {
  push( @paths, $kp ) if ( -d $kp );
}
if ($#paths >= 0) {
  @tmp = ();
  find( \&buildKList, @paths );

  sub buildKList {
    -x && !-d && $_ =~ /krazy2$/ && push(@tmp,$File::Find::name);
  }
}
for $kp (@tmp) {
  if ($kp =~ m+/bin/krazy2$+) {
    $krazyPath = $kp;
    $krazyPath =~ s+/bin/krazy2$++g;
    last;
  }
}

if ($krazyPath eq "") {
  print "Cannot find krazy2 executable in your \$PATH. Sorry.\n";
  exit 1;
}

my($licenseCheckerPath) = $krazyPath . "/lib/krazy2/krazy-plugins/c++/license";

system("$licenseCheckerPath --verbose @ARGV");


