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 # Copyright (C) 2012 Francesco Poli | 7 # Copyright (C) 2012 Francesco Poli |
8 # | 8 # |
9 # This program is free software; you can redistribute it and/or modify | 9 # This program is free software; you can redistribute it and/or modify |
10 # it under the terms of the GNU General Public License as published by | 10 # it under the terms of the GNU General Public License as published by |
(...skipping 578 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
589 $license = "Ms-PL $license"; | 589 $license = "Ms-PL $license"; |
590 } | 590 } |
591 | 591 |
592 if ($licensetext =~ /as defined in and that are subject to the Apple Public
Source License([ ,-]+Version ([^ ]+)?(\.))/) { | 592 if ($licensetext =~ /as defined in and that are subject to the Apple Public
Source License([ ,-]+Version ([^ ]+)?(\.))/) { |
593 $license = "APSL " . ($1 ? "(v$2) " : '') . $license; | 593 $license = "APSL " . ($1 ? "(v$2) " : '') . $license; |
594 } elsif ($licensetext =~ /provided that if you redistribute the Apple Softwa
re in its entirety and without modifications, you must retain this notice and th
e following text and disclaimers in all such redistributions of the Apple Softwa
re/) { | 594 } elsif ($licensetext =~ /provided that if you redistribute the Apple Softwa
re in its entirety and without modifications, you must retain this notice and th
e following text and disclaimers in all such redistributions of the Apple Softwa
re/) { |
595 # https://fedoraproject.org/wiki/Licensing/Apple_MIT_License | 595 # https://fedoraproject.org/wiki/Licensing/Apple_MIT_License |
596 $license = "Apple MIT $license"; | 596 $license = "Apple MIT $license"; |
597 } | 597 } |
598 | 598 |
599 if ($licensetext =~ /Permission is hereby granted, free of charge, to any pe
rson or organization obtaining a copy of the software and accompanying documenta
tion covered by this license \(the \"Software\"\)/ or | 599 if ($licensetext =~ /Permission is hereby granted, free of charge, to any pe
rson or organization obtaining a copy of the software and accompanying documenta
tion covered by this license \([\"]?the Software[\"]?\)/ or |
600 $licensetext =~ /Boost Software License([ ,-]+Version ([^ ]+)?(\.))/i) { | 600 $licensetext =~ /Boost Software License([ ,-]+Version ([^ ]+)?(\.))/i) { |
601 $license = "BSL " . ($1 ? "(v$2) " : '') . $license; | 601 $license = "BSL " . ($1 ? "(v$2) " : '') . $license; |
602 } | 602 } |
603 | 603 |
604 if ($licensetext =~ /PYTHON SOFTWARE FOUNDATION LICENSE (VERSION ([^ ]+))/i)
{ | 604 if ($licensetext =~ /PYTHON SOFTWARE FOUNDATION LICENSE (VERSION ([^ ]+))/i)
{ |
605 $license = "PSF " . ($1 ? "(v$2) " : '') . $license; | 605 $license = "PSF " . ($1 ? "(v$2) " : '') . $license; |
606 } | 606 } |
607 | 607 |
608 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 | 608 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 |
609 $licensetext =~ /see copyright notice in zlib\.h/) { | 609 $licensetext =~ /see copyright notice in zlib\.h/) { |
(...skipping 45 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
655 return $license; | 655 return $license; |
656 } | 656 } |
657 | 657 |
658 sub fatal($) { | 658 sub fatal($) { |
659 my ($pack,$file,$line); | 659 my ($pack,$file,$line); |
660 ($pack,$file,$line) = caller(); | 660 ($pack,$file,$line) = caller(); |
661 (my $msg = "$progname: fatal error at line $line:\n@_\n") =~ tr/\0//d; | 661 (my $msg = "$progname: fatal error at line $line:\n@_\n") =~ tr/\0//d; |
662 $msg =~ s/\n\n$/\n/; | 662 $msg =~ s/\n\n$/\n/; |
663 die $msg; | 663 die $msg; |
664 } | 664 } |
OLD | NEW |