add copyright find script

This might be used to generate a Debian copyright file.

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;
+}
+