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
87
88
89
|
#!/usr/bin/perl
# Copyright (C) 2016 Martin Thomas <mtdev@hamtam.de>
# LGPL version 2 or later.
use strict;
use warnings;
use IO::Dir;
use File::Find qw(find);
use Encode::Guess;
my ($dir, $directory, $f, $w, $tmp);
my (@files, @dirs, $file, $filename);
my $header;
my $files;
my $encoding;
my @copyright;
my @copyrightout;
my @uniqcpr;
my @output;
my $i;
$encoding = ":encoding(UTF-8)";
$encoding = "";
$directory="./";
$header = "Format: http://www.debian.org/doc/packaging-manuals/copyright-format/1.0/\n";
$header .= "Upstream-Name: uclibc-ng\n";
$header .= 'Upstream-Contact: Waldemar Brodkorb <wbx@uclibc-ng.org>'."\n";
$header .= "Source: git://uclibc-ng.org/git/uclibc-ng\n\n";
# my $emailregex='\b[[:alnum:]._%+-]+@[[:alnum:].-]+.[[:alpha:]]{2,6}\b';
sub list_dirs {
my @dirs = @_;
my @files;
find({ wanted => sub { push @files, $_ } , no_chdir => 1 }, @dirs);
return @files;
}
@files=list_dirs($directory);
foreach $file (@files) {
if ( -f $file ){
# $encoding = guess_encoding($file);
open(my $fh, "< $encoding", $file)
or die "Could not open file '$file' $!";
while (my $row = <$fh>) {
chomp $row;
if ($row =~ m/[Cc]opyright / )
{
$row =~ s/^[\s\/\*#!;.\"\\]*//; #remove leading
$row =~ s/\s+$//; #remove trailing
push @copyright, { file => $file, raw => $row};
last;
}
}
close $fh
}
}
#sort raw
@copyrightout = sort { $a->{raw} cmp $b->{raw} } @copyright;
$tmp="";
$i=-1;
foreach (@copyrightout) {
if ( $tmp eq $_->{'raw'} )
{
$output[$i]{"files"} .= "\n"." $_->{'file'}";
}
else
{
++$i;
$output[$i]{"header"} .= "Copyright: $_->{'raw'}\n";
$output[$i]{"header"} .= "License: GNU Lesser General Public License 2.1\n";
$output[$i]{"files"} .= "Files: ".$_->{'file'};
}
$tmp=$_->{'raw'};
}
print "$header";
$i=0;
foreach (@output) {
print "$output[$i]->{'files'}\n";
print "$output[$i]->{'header'}\n";
++$i;
}
|
