Chromium Code Reviews
chromiumcodereview-hr@appspot.gserviceaccount.com (chromiumcodereview-hr) | Please choose your nickname with Settings | Help | Chromium Project | Gerrit Changes | Sign out
(788)

Side by Side Diff: third_party/devscripts/licensecheck.pl

Issue 10310044: Match ISC license with optional phrase ("and its documentation") used by dnspython. (Closed) Base URL: svn://svn.chromium.org/chrome/trunk/src
Patch Set: Created 8 years, 7 months ago
Use n/p to move between diff chunks; N/P to move between comments. Draft comments are only viewable by you.
Jump to:
View unified diff | Download patch | Annotate | Revision Log
« no previous file with comments | « no previous file | no next file » | no next file with comments »
Toggle Intra-line Diffs ('i') | Expand Comments ('e') | Collapse Comments ('c') | Show Comments Hide Comments ('s')
OLDNEW
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 416 matching lines...) Expand 10 before | Expand all | Expand 10 after
427 } 427 }
428 428
429 if ($licensetext =~ /opensource\.org\/licenses\/mit-license\.php/) { 429 if ($licensetext =~ /opensource\.org\/licenses\/mit-license\.php/) {
430 $license = "MIT/X11 (BSD like) $license"; 430 $license = "MIT/X11 (BSD like) $license";
431 } elsif ($licensetext =~ /Permission is hereby granted, free of charge, to a ny person obtaining a copy of this software and(\/or)? associated documentation files \(the (Software|Materials)\), to deal in the (Software|Materials)/) { 431 } elsif ($licensetext =~ /Permission is hereby granted, free of charge, to a ny person obtaining a copy of this software and(\/or)? associated documentation files \(the (Software|Materials)\), to deal in the (Software|Materials)/) {
432 $license = "MIT/X11 (BSD like) $license"; 432 $license = "MIT/X11 (BSD like) $license";
433 } elsif ($licensetext =~ /Permission is hereby granted, without written agre ement and without license or royalty fees, to use, copy, modify, and distribute this software and its documentation for any purpose/) { 433 } elsif ($licensetext =~ /Permission is hereby granted, without written agre ement and without license or royalty fees, to use, copy, modify, and distribute this software and its documentation for any purpose/) {
434 $license = "MIT/X11 (BSD like) $license"; 434 $license = "MIT/X11 (BSD like) $license";
435 } 435 }
436 436
437 if ($licensetext =~ /Permission to use, copy, modify, and(\/or)? distribute this software for any purpose (with or )?without fee is hereby granted, provide d.*(copyright|entire) notice.*all copies/) { 437 if ($licensetext =~ /Permission to use, copy, modify, and(\/or)? distribute this software (and its documentation )?for any purpose (with or )?without fee i s hereby granted, provided.*(copyright|entire) notice.*all copies/) {
438 $license = "ISC $license"; 438 $license = "ISC $license";
439 } 439 }
440 440
441 if ($licensetext =~ /THIS SOFTWARE IS PROVIDED .*AS IS AND ANY EXPRESS OR IM PLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCH ANTABILITY/) { 441 if ($licensetext =~ /THIS SOFTWARE IS PROVIDED .*AS IS AND ANY EXPRESS OR IM PLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCH ANTABILITY/) {
442 if ($licensetext =~ /All advertising materials mentioning features or us e of this software must display the following/) { 442 if ($licensetext =~ /All advertising materials mentioning features or us e of this software must display the following/) {
443 $license = "BSD (4 clause) $license"; 443 $license = "BSD (4 clause) $license";
444 } elsif ($licensetext =~ /be used to endorse or promote products derived from this software/) { 444 } elsif ($licensetext =~ /be used to endorse or promote products derived from this software/) {
445 $license = "BSD (3 clause) $license"; 445 $license = "BSD (3 clause) $license";
446 } elsif ($licensetext =~ /Redistributions of source code must retain the above copyright notice/) { 446 } elsif ($licensetext =~ /Redistributions of source code must retain the above copyright notice/) {
447 $license = "BSD (2 clause) $license"; 447 $license = "BSD (2 clause) $license";
(...skipping 94 matching lines...) Expand 10 before | Expand all | Expand 10 after
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 }
OLDNEW
« no previous file with comments | « no previous file | no next file » | no next file with comments »

Powered by Google App Engine
This is Rietveld 408576698