build-aux/thanks-gen

   1 #!/usr/bin/perl -nl
   2 # Use Perl's multi-byte alignment code, via sprintf, while
   3 # performing a rudimentary check for duplicate names and
   4 # removing duplicate name,email pairs.
   5 use Encode;
   6
   7 BEGIN { my (%elide, %seen, %name) }
   8
   9 chomp;
  10 my ($name, $email) = split '\0', decode ('UTF-8', $_);
  11
  12 if ($elide{"!$name"}) {
  13 ; # ignore this author
  14 } elsif (index ($name, '!') == 0) {
  15   $elide{$name}++;
  16 } elsif ($seen{$name}++) {
  17   warn "$0: NO-THANKS: duplicate name: $name\n";
  18 } else {
  19   print encode ('UTF-8', sprintf ('%-36s', $name)), $email;
  20 }