File: licensecheck.diff

package info (click to toggle)
moin 1.9.9-1+deb9u1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster, sid, stretch
  • size: 76,024 kB
  • sloc: python: 143,896; java: 10,704; php: 2,385; perl: 1,574; xml: 371; makefile: 214; sh: 81; sed: 5
file content (86 lines) | stat: -rw-r--r-- 3,814 bytes parent folder | download | duplicates (6)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
--- /usr/bin/licensecheck	2009-11-22 19:26:47.000000000 +0100
+++ licensecheck	2009-11-29 23:57:18.000000000 +0100
@@ -270,6 +270,7 @@
     my $file = shift @files;
     my $content = '';
     my $copyright_match;
+    my $copyright_matched = '';
     my $copyright = '';
     my $license = '';
     my %copyrights;
@@ -278,9 +279,12 @@
     while (<F>) {
         last if ($. > $opt_lines);
         $content .= $_;
-	$copyright_match = parse_copyright($_);
+        $copyright_matched++ if ($copyright_match);
+	$copyright_match = parse_copyright $copyright_matched;
 	if ($copyright_match) {
 	    $copyrights{lc("$copyright_match")} = "$copyright_match";
+	} else {
+	    $copyright_matched = '';
 	}
     }
     close(F);
@@ -307,6 +311,7 @@
 }
 
 sub parse_copyright($) {
+    my $matched = shift;
     my $copyright = '';
     my $match;
 
@@ -323,6 +328,10 @@
 	|and|or                 # Part of a sentence
 	)\b';
 
+    if (($matched) and (/^\s*\d+/)) {
+	$_ = 'copyright' . $_;
+    }
+
     if (m%$copyright_indicator_regex(?::\s*|\s+)(\S.*)$%ix) {
 	$match = $1;
 
@@ -334,6 +343,27 @@
 	    $match =~ s/^\s+//;
 	    $match =~ s/\s{2,}/ /g;
 	    $match =~ s/\\@/@/g;
+
+	    $match =~ s/(MoinMoin:)?Alexander ?Schremmer( [<(][^>)]*[>)])?/Alexander Schremmer <alex\@alexanderweb.de>/gi;
+	    $match =~ s/(MoinMoin:)?Dmitri..? ?Mili?aj?evs?( [<(][^>)]*[>)])?/Dmitrijs Milajevs <dimazest\@gmail.com>/gi;
+	    $match =~ s/(MoinMoin:)?Eugene ?Syromyatnikov( [<(][^>)]*[>)])?/Eugene Syromyatnikov <evgsyr\@gmail.com>/gi;
+	    $match =~ s/(MoinMoin:)?Florian ?Festi( [<(][^>)]*[>)])?/Florian Festi <florian\@festi.info>/gi;
+	    $match =~ s/(MoinMoin:)?Florian ?Krupicka( [<(][^>)]*[>)])?/Florian Krupicka <florian.krupicka\@googlemail.com>/gi;
+	    $match =~ s/(MoinMoin:)?Forrest ?Voight( [<(][^>)]*[>)])?/Forrest Voight <voights\@gmail.com>/gi;
+	    $match =~ s/(MoinMoin:)?Franz ?Pletz( [<(][^>)]*[>)])?/Franz Pletz <fpletz\@franz-pletz.org>/gi;
+	    $match =~ s/(MoinMoin:)?Johannes ?Berg( [<(][^>)]*[>)])?/Johannes Berg <johannes\@sipsolutions.net>/gi;
+	    $match =~ s/(MoinMoin:)?J.?.?rgen ?Hermann( [<(][^>)]*[>)])?/Juergen Hermann <jh\@web.de>/gi;
+	    $match =~ s/(MoinMoin:)?Karol ?Nowak( [<(][^>)]*[>)])?/Karol Nowak <grywacz\@gmail.com>/gi;
+	    $match =~ s/(MoinMoin:)?Melita ?Mihaljevic( [<(][^>)]*[>)])?/Melita Mihaljevic <melita.mihaljevic\@gmail.com>/gi;
+	    $match =~ s/(MoinMoin:)?Nir ?Soffer( [<(][^>)]*[>)])?/Nir Soffer <nirs\@freeshell.org>/gi;
+	    $match =~ s/(MoinMoin:)?Petr ?Pytelka( [<(][^>)]*[>)])?/Petr Pytelka <pyta\@lightcomp.com>/gi;
+	    $match =~ s/(MoinMoin:)?Radomir ?Dopieralski( [<(][^>)]*[>)])?/Radomir Dopieralski <moinmoin\@sheep.art.pl>/gi;
+	    $match =~ s/(MoinMoin:)?Reimar ?Bauer( [<(][^>)]*[>)])?/Reimar Bauer <rb.proj\@googlemail.com>/gi;
+	    $match =~ s/(MoinMoin:)?Richard ?Liao( [<(][^>)]*[>)])?/Richard Liao <richard.liao.i\@gmail.com>/gi;
+	    $match =~ s/(MoinMoin:)?Thomas ?Pfaff/Thomas Pfaff/gi;
+	    $match =~ s/(MoinMoin:)?Thomas ?Waldmann( [<(][^>)]*[>)])?/Thomas Waldmann <tw-public\@gmx.de>/gi;
+	    $match =~ s/(\d+ )by /$1/g;
+
 	    $copyright = $match;
 	}
     }
@@ -432,6 +462,14 @@
 	$license = "GPL (unversioned/unknown version) $license";
     }
 
+    if ($licensetext =~ /GPL, see COPYING/) {
+#	$license = "GPL (unversioned/unknown version) $license";
+	$license = "GPL-2+ $license";
+    }
+    if ($licensetext =~ /GNU GENERAL PUBLIC LICENSE Version ([^ ]+)\./) {
+	$license = "GPL (v$1) $license";
+    }
+
     if ($licensetext =~ /This file is part of the .*Qt GUI Toolkit. This file may be distributed under the terms of the Q Public License as defined/) {
 	$license = "QPL (part of Qt) $license";
     } elsif ($licensetext =~ /may be distributed under the terms of the Q Public License as defined/) {