Changeset f5e593b3a2875895dd7e3f4489b4435f7712c831 for buildtools

Timestamp:

05/14/09 14:12:39 (4 years ago)

Author:

Theo Schlossnagle <jesus@omniti.com>

git-committer:

Theo Schlossnagle <jesus@omniti.com> 1242310359 +0000

git-parent:

[88a71780101cbf23034aa0cb840f9f0368fda2dd]

git-author:

Theo Schlossnagle <jesus@omniti.com> 1242310359 +0000

Message:

make the license check support include pattern or exclude pattern and default to include 'unknown', refs #126

Files:

• buildtools/license-audit (modified) (2 diffs)

buildtools/license-audit

@@ -1 +1 @@
-#!/usr/bin/perl
-
+use Getopt::Long;
-use File::Find;
-use strict;
+
+my $include_re = undef;
+my $exclude_re = undef;
+
+GetOptions("i=s" => \$include_re,
+           "x=s" => \$exclude_re);
+die "-i or -x, not both\n", if(defined($include_re) && defined($exclude_re));
+$exclude_re = qr/$exclude_re/ if defined($exclude_re);
+$include_re ||= 'unknown' unless defined($exclude_re);
+$include_re = qr/$include_re/ if defined($include_re);
-
-my %licenses = (
@@ -220 +231 @@
-  if($fname =~ /\.(?:c|h|java|cpp|hpp|C|s|lua)$/) {
-    my $license = detect_license($fname);
-
+
+
+
+
-  }
-  return 1;