summaryrefslogtreecommitdiff
path: root/extra/scripts/findC.pl
diff options
context:
space:
mode:
Diffstat (limited to 'extra/scripts/findC.pl')
-rw-r--r--extra/scripts/findC.pl83
1 files changed, 83 insertions, 0 deletions
diff --git a/extra/scripts/findC.pl b/extra/scripts/findC.pl
new file mode 100644
index 000000000..555584c52
--- /dev/null
+++ b/extra/scripts/findC.pl
@@ -0,0 +1,83 @@
+#!/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 @ctext;
+my @uniqcpr;
+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";
+
+# 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\/\*#!;.\"\\]*//;
+ $row =~ s/\s+$//;
+ push @copyright, { file => $file, text => $row};
+ last;
+ }
+ }
+ close $fh
+ }
+}
+
+@copyrightout = sort { $a->{text} cmp $b->{text} } @copyright;
+
+$tmp="";
+$i=0;
+foreach (@copyrightout) {
+ if ( $tmp eq $_->{'text'} )
+ {
+ print " $_->{'file'}\n";
+ }
+ else
+ {
+ print "\n";
+ print $header;
+ print "Copyright: $_->{'text'}\n";
+ print "License: GNU Lesser General Public License 2.1\n";
+ print "Files: $_->{'file'}\n";
+ }
+ $tmp=$_->{'text'};
+ ++$i;
+}
+