extra/scripts/findC.pl

   1 #!/usr/bin/perl
   2
   3 # Copyright (C) 2016 Martin Thomas <mtdev@hamtam.de>
   4 # LGPL version 2 or later.
   5
   6 use strict;
   7 use warnings;
   8 use IO::Dir;
   9 use File::Find qw(find);
  10 use Encode::Guess;
  11
  12 my ($dir, $directory, $f, $w, $tmp);
  13 my (@files, @dirs, $file, $filename);
  14 my $header;
  15 my $files;
  16 my $encoding;
  17 my @copyright;
  18 my @copyrightout;
  19 my @ctext;
  20 my @uniqcpr;
  21 my $i;
  22
  23 $encoding = ":encoding(UTF-8)";
  24 $encoding = "";
  25
  26 $directory="./";
  27
  28 $header  = "Format: http://www.debian.org/doc/packaging-manuals/copyright-format/1.0/\n";
  29 $header .= "Upstream-Name: uclibc-ng\n";
  30 $header .= 'Upstream-Contact: Waldemar Brodkorb <wbx@uclibc-ng.org>'."\n";
  31 $header .= "Source: git://uclibc-ng.org/git/uclibc-ng\n";
  32
  33 # my $emailregex='\b[[:alnum:]._%+-]+@[[:alnum:].-]+.[[:alpha:]]{2,6}\b';
  34
  35 sub list_dirs {
  36   my @dirs = @_;
  37   my @files;
  38   find({ wanted => sub { push @files, $_ } , no_chdir => 1 }, @dirs);
  39   return @files;
  40 }
  41
  42 @files=list_dirs($directory);
  43
  44 foreach $file (@files) {
  45   if ( -f $file ){
  46 #     $encoding = guess_encoding($file);
  47     open(my $fh, "< $encoding", $file)
  48       or die "Could not open file '$file' $!";
  49     while (my $row = <$fh>) {
  50       chomp $row;
  51       if ($row =~ m/[Cc]opyright / )
  52       {
  53         $row =~ s/^[\s\/\*#!;.\"\\]*//;
  54         $row =~ s/\s+$//;
  55         push @copyright, { file => $file, text => $row};
  56         last;
  57       }
  58     }
  59     close $fh
  60   }
  61 }
  62
  63 @copyrightout = sort { $a->{text} cmp $b->{text} } @copyright;
  64
  65 $tmp="";
  66 $i=0;
  67 foreach (@copyrightout) {
  68   if ( $tmp eq $_->{'text'} )
  69   {
  70     print "       $_->{'file'}\n";
  71   }
  72   else
  73   {
  74     print "\n";
  75     print $header;
  76     print "Copyright: $_->{'text'}\n";
  77     print "License: GNU Lesser General Public License 2.1\n";
  78     print "Files: $_->{'file'}\n";
  79   }
  80   $tmp=$_->{'text'};
  81   ++$i;
  82 }
  83