| OLD | NEW |
| (Empty) |
| 1 --- licensecheck.pl.orig 2011-11-02 20:24:19.000000000 +0000 | |
| 2 +++ licensecheck.pl 2011-11-02 20:24:38.000000000 +0000 | |
| 3 @@ -241,6 +241,12 @@ | |
| 4 my @find_args = (); | |
| 5 my $files_count = @ARGV; | |
| 6 | |
| 7 +push @find_args, qw(-not ( -path */LayoutTests/* -prune ) ); | |
| 8 +push @find_args, qw(-not ( -path */out/Debug/* -prune ) ); | |
| 9 +push @find_args, qw(-not ( -path */out/Release/* -prune ) ); | |
| 10 +push @find_args, qw(-not ( -path *.git* -prune ) ); | |
| 11 +push @find_args, qw(-not ( -path *.svn* -prune ) ); | |
| 12 + | |
| 13 push @find_args, qw(-maxdepth 1) unless $opt_recursive; | |
| 14 push @find_args, qw(-follow -type f -print); | |
| 15 | |
| 16 @@ -277,10 +283,6 @@ | |
| 17 while (<F>) { | |
| 18 last if ($. > $opt_lines); | |
| 19 $content .= $_; | |
| 20 - $copyright_match = parse_copyright($_); | |
| 21 - if ($copyright_match) { | |
| 22 - $copyrights{lc("$copyright_match")} = "$copyright_match"; | |
| 23 - } | |
| 24 } | |
| 25 close(F); | |
| 26 | |
| 27 @@ -298,7 +300,6 @@ | |
| 28 | |
| 29 $license = parselicense($content); | |
| 30 print "$file: "; | |
| 31 - print "*No copyright* " unless $copyright; | |
| 32 print $license . "\n"; | |
| 33 print " [Copyright: " . $copyright . "]\n" | |
| 34 if $copyright and $opt_copyright; | |
| 35 @@ -398,15 +399,11 @@ | |
| 36 $gplver = " (v$1 or later)"; | |
| 37 } | |
| 38 | |
| 39 - if ($licensetext =~ /(?:675 Mass Ave|59 Temple Place|51 Franklin Steet|0213
9|02111-1307)/i) { | |
| 40 - $extrainfo = " (with incorrect FSF address)$extrainfo"; | |
| 41 - } | |
| 42 - | |
| 43 if ($licensetext =~ /permission (?:is (also granted|given))? to link (the c
ode of )?this program with (any edition of )?(Qt|the Qt library)/i) { | |
| 44 $extrainfo = " (with Qt exception)$extrainfo" | |
| 45 } | |
| 46 | |
| 47 - if ($licensetext =~ /(All changes made in this file will be lost|DO NOT (ED
IT|delete this file)|Generated by)/i) { | |
| 48 + if ($licensetext =~ /(All changes made in this file will be lost|DO NOT (ED
IT|delete this file)|Generated (automatically|by|from)|generated.*file)/i) { | |
| 49 $license = "GENERATED FILE"; | |
| 50 } | |
| 51 | |
| 52 @@ -414,20 +411,12 @@ | |
| 53 $license = "LGPL$gplver$extrainfo $license"; | |
| 54 } | |
| 55 | |
| 56 - if ($licensetext =~ /is free software.? you can redistribute it and\/or mod
ify it under the terms of the (GNU Affero General Public License|AGPL)/i) { | |
| 57 - $license = "AGPL$gplver$extrainfo $license"; | |
| 58 - } | |
| 59 - | |
| 60 if ($licensetext =~ /is free software.? you (can|may) redistribute it and\/
or modify it under the terms of (?:version [^ ]+ (?:\(?only\)? )?of )?the GNU Ge
neral Public License/i) { | |
| 61 $license = "GPL$gplver$extrainfo $license"; | |
| 62 - } | |
| 63 - | |
| 64 - if ($licensetext =~ /is distributed under the terms of the GNU General Publ
ic License,/ | |
| 65 + } elsif ($licensetext =~ /is distributed under the terms of the GNU General
Public License,/ | |
| 66 and length $gplver) { | |
| 67 $license = "GPL$gplver$extrainfo $license"; | |
| 68 - } | |
| 69 - | |
| 70 - if ($licensetext =~ /is distributed.*terms.*GPL/) { | |
| 71 + } elsif ($licensetext =~ /is distributed.*terms.*GPL/) { | |
| 72 $license = "GPL (unversioned/unknown version) $license"; | |
| 73 } | |
| 74 | |
| 75 @@ -437,9 +426,9 @@ | |
| 76 $license = "QPL $license"; | |
| 77 } | |
| 78 | |
| 79 - if ($licensetext =~ /http:\/\/opensource\.org\/licenses\/mit-license\.php/)
{ | |
| 80 + if ($licensetext =~ /opensource\.org\/licenses\/mit-license\.php/) { | |
| 81 $license = "MIT/X11 (BSD like) $license"; | |
| 82 - } elsif ($licensetext =~ /Permission is hereby granted, free of charge, to
any person obtaining a copy of this software and associated documentation files
\(the Software\), to deal in the Software/) { | |
| 83 + } elsif ($licensetext =~ /Permission is hereby granted, free of charge, to
any person obtaining a copy of this software and(\/or)? associated documentation
files \(the (Software|Materials)\), to deal in the (Software|Materials)/) { | |
| 84 $license = "MIT/X11 (BSD like) $license"; | |
| 85 } | |
| 86 | |
| 87 @@ -448,15 +437,21 @@ | |
| 88 } | |
| 89 | |
| 90 if ($licensetext =~ /THIS SOFTWARE IS PROVIDED .*AS IS AND ANY EXPRESS OR I
MPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERC
HANTABILITY/) { | |
| 91 - if ($licensetext =~ /All advertising materials mentioning features or us
e of this software must display the following acknowledge?ment.*This product inc
ludes software developed by/i) { | |
| 92 + if ($licensetext =~ /All advertising materials mentioning features or us
e of this software must display the following/) { | |
| 93 $license = "BSD (4 clause) $license"; | |
| 94 - } elsif ($licensetext =~ /(The name of .*? may not|Neither the names? of
.*? nor the names of (its|their) contributors may) be used to endorse or promot
e products derived from this software/i) { | |
| 95 + } elsif ($licensetext =~ /be used to endorse or promote products derived
from this software/) { | |
| 96 $license = "BSD (3 clause) $license"; | |
| 97 - } elsif ($licensetext =~ /Redistributions of source code must retain the
above copyright notice/i) { | |
| 98 + } elsif ($licensetext =~ /Redistributions of source code must retain the
above copyright notice/) { | |
| 99 $license = "BSD (2 clause) $license"; | |
| 100 } else { | |
| 101 $license = "BSD $license"; | |
| 102 } | |
| 103 + } elsif ($licensetext =~ /Use of this source code is governed by a BSD-styl
e license/) { | |
| 104 + $license = "BSD-like $license"; | |
| 105 + } elsif ($licensetext =~ /BSD terms apply/) { | |
| 106 + $license = "BSD-like $license"; | |
| 107 + } elsif ($licensetext =~ /GOVERNED BY A BSD-STYLE SOURCE LICENSE/) { | |
| 108 + $license = "BSD-like $license"; | |
| 109 } | |
| 110 | |
| 111 if ($licensetext =~ /Mozilla Public License Version ([^ ]+)/) { | |
| 112 @@ -475,7 +470,9 @@ | |
| 113 $license = "Perl $license"; | |
| 114 } | |
| 115 | |
| 116 - if ($licensetext =~ /under the Apache License, Version ([^ ]+)/) { | |
| 117 + if ($licensetext =~ /under the terms of the Apache ([^ ]+) License OR versi
on 2 of the GNU/) { | |
| 118 + $license = "Apache (v$1) GPL (v2) $license"; | |
| 119 + } elsif ($licensetext =~ /under the Apache License, Version ([^ ]+)/) { | |
| 120 $license = "Apache (v$1) $license"; | |
| 121 } | |
| 122 | |
| 123 @@ -491,11 +488,11 @@ | |
| 124 $license = "CeCILL-$1 $license"; | |
| 125 } | |
| 126 | |
| 127 - if ($licensetext =~ /under the SGI Free Software License B/) { | |
| 128 + if ($licensetext =~ /under the SGI Free Software (B License|License B)/) { | |
| 129 $license = "SGI Free Software License B $license"; | |
| 130 } | |
| 131 | |
| 132 - if ($licensetext =~ /is in the public domain/i) { | |
| 133 + if ($licensetext =~ /in the public domain/i) { | |
| 134 $license = "Public domain"; | |
| 135 } | |
| 136 | |
| 137 @@ -503,6 +500,17 @@ | |
| 138 $license = "CDDL " . ($1 ? "(v$2) " : '') . $license; | |
| 139 } | |
| 140 | |
| 141 + if ($licensetext =~ /Microsoft Permissive License \(Ms-PL\)/) { | |
| 142 + $license = "Ms-PL $license"; | |
| 143 + } | |
| 144 + | |
| 145 + if ($licensetext =~ /as defined in and that are subject to the Apple Public
Source License([ ,-]+Version ([^ ]+)?(\.))/) { | |
| 146 + $license = "APSL " . ($1 ? "(v$2) " : '') . $license; | |
| 147 + } elsif ($licensetext =~ /provided that if you redistribute the Apple Softw
are in its entirety and without modifications, you must retain this notice and t
he following text and disclaimers in all such redistributions of the Apple Softw
are/) { | |
| 148 + # https://fedoraproject.org/wiki/Licensing/Apple_MIT_License | |
| 149 + $license = "Apple MIT $license"; | |
| 150 + } | |
| 151 + | |
| 152 if ($licensetext =~ /Permission is hereby granted, free of charge, to any p
erson or organization obtaining a copy of the software and accompanying document
ation covered by this license \(the \"Software\"\)/ or | |
| 153 $licensetext =~ /Boost Software License([ ,-]+Version ([^ ]+)?(\.))/i) { | |
| 154 $license = "BSL " . ($1 ? "(v$2) " : '') . $license; | |
| 155 @@ -515,18 +523,12 @@ | |
| 156 if ($licensetext =~ /The origin of this software must not be misrepresented
.*Altered source versions must be plainly marked as such.*This notice may not be
removed or altered from any source distribution/ or | |
| 157 $licensetext =~ /see copyright notice in zlib\.h/) { | |
| 158 $license = "zlib/libpng $license"; | |
| 159 + } elsif ($licensetext =~ /This code is released under the libpng license/)
{ | |
| 160 + $license = "libpng $license"; | |
| 161 } | |
| 162 | |
| 163 - if ($licensetext =~ /Do What The Fuck You Want To Public License, Version (
[^, ]+)/i) { | |
| 164 - $license = "WTFPL (v$1)"; | |
| 165 - } | |
| 166 - | |
| 167 - if ($licensetext =~ /Do what The Fuck You Want To Public License/i) { | |
| 168 - $license = "WTFPL"; | |
| 169 - } | |
| 170 - | |
| 171 - if ($licensetext =~ /(License WTFPL|Under (the|a) WTFPL)/i) { | |
| 172 - $license = "WTFPL"; | |
| 173 + if ($licensetext =~ /under MIT license/) { | |
| 174 + $license = "MIT/X11 (BSD like) $license"; | |
| 175 } | |
| 176 | |
| 177 $license = "UNKNOWN" if (!length($license)); | |
| OLD | NEW |