File indexing completed on 2024-11-17 05:08:36

 #!/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");