| OLD | NEW |
| 1 #!/usr/bin/perl -w | 1 #!/usr/bin/perl -w |
| 2 # This script was originally based on the script of the same name from | 2 # This script was originally based on the script of the same name from |
| 3 # the KDE SDK (by dfaure@kde.org) | 3 # the KDE SDK (by dfaure@kde.org) |
| 4 # | 4 # |
| 5 # This version is | 5 # This version is |
| 6 # Copyright (C) 2007, 2008 Adam D. Barratt | 6 # Copyright (C) 2007, 2008 Adam D. Barratt |
| 7 # | 7 # |
| 8 # This program is free software; you can redistribute it and/or modify | 8 # This program is free software; you can redistribute it and/or modify |
| 9 # it under the terms of the GNU General Public License as published by | 9 # it under the terms of the GNU General Public License as published by |
| 10 # the Free Software Foundation; either version 2 of the License, or | 10 # the Free Software Foundation; either version 2 of the License, or |
| (...skipping 374 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 385 my ($licensetext) = @_; | 385 my ($licensetext) = @_; |
| 386 | 386 |
| 387 my $gplver = ""; | 387 my $gplver = ""; |
| 388 my $extrainfo = ""; | 388 my $extrainfo = ""; |
| 389 my $license = ""; | 389 my $license = ""; |
| 390 | 390 |
| 391 if ($licensetext =~ /version ([^ ]+) (?:\(?only\)?.? )?(?:of the GNU (Affero
)?General Public License )?as published by the Free Software Foundation/i or | 391 if ($licensetext =~ /version ([^ ]+) (?:\(?only\)?.? )?(?:of the GNU (Affero
)?General Public License )?as published by the Free Software Foundation/i or |
| 392 $licensetext =~ /GNU (?:Affero )?General Public License as published by
the Free Software Foundation; version ([^ ]+) /i) { | 392 $licensetext =~ /GNU (?:Affero )?General Public License as published by
the Free Software Foundation; version ([^ ]+) /i) { |
| 393 | 393 |
| 394 $gplver = " (v$1)"; | 394 $gplver = " (v$1)"; |
| 395 } elsif ($licensetext =~ /GNU (Affero ?)General Public License, version ([^
]+?)[ .]/) { | 395 } elsif ($licensetext =~ /GNU (?:Affero ?)General Public License, version ([
^ ]+?)[ .]/) { |
| 396 $gplver = " (v$1)"; | 396 $gplver = " (v$1)"; |
| 397 } elsif ($licensetext =~ /either version ([^ ]+) of the License, or \(at you
r option\) any later version/) { | 397 } elsif ($licensetext =~ /either version ([^ ]+)(?: of the License)?, or \(a
t your option\) any later version/) { |
| 398 $gplver = " (v$1 or later)"; | 398 $gplver = " (v$1 or later)"; |
| 399 } | 399 } |
| 400 | 400 |
| 401 if ($licensetext =~ /(?:675 Mass Ave|59 Temple Place|51 Franklin Steet|02139
|02111-1307)/i) { | 401 if ($licensetext =~ /(?:675 Mass Ave|59 Temple Place|51 Franklin Steet|02139
|02111-1307)/i) { |
| 402 $extrainfo = " (with incorrect FSF address)$extrainfo"; | 402 $extrainfo = " (with incorrect FSF address)$extrainfo"; |
| 403 } | 403 } |
| 404 | 404 |
| 405 if ($licensetext =~ /permission (?:is (also granted|given))? to link (the co
de of )?this program with (any edition of )?(Qt|the Qt library)/i) { | 405 if ($licensetext =~ /permission (?:is (also granted|given))? to link (the co
de of )?this program with (any edition of )?(Qt|the Qt library)/i) { |
| 406 $extrainfo = " (with Qt exception)$extrainfo" | 406 $extrainfo = " (with Qt exception)$extrainfo" |
| 407 } | 407 } |
| (...skipping 134 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 542 return $license; | 542 return $license; |
| 543 } | 543 } |
| 544 | 544 |
| 545 sub fatal($) { | 545 sub fatal($) { |
| 546 my ($pack,$file,$line); | 546 my ($pack,$file,$line); |
| 547 ($pack,$file,$line) = caller(); | 547 ($pack,$file,$line) = caller(); |
| 548 (my $msg = "$progname: fatal error at line $line:\n@_\n") =~ tr/\0//d; | 548 (my $msg = "$progname: fatal error at line $line:\n@_\n") =~ tr/\0//d; |
| 549 $msg =~ s/\n\n$/\n/; | 549 $msg =~ s/\n\n$/\n/; |
| 550 die $msg; | 550 die $msg; |
| 551 } | 551 } |
| OLD | NEW |