make-authors-short.pl

   1 #!/usr/bin/perl -w
   2
   3 # $Id$
   4
   5 # Remove tasks from individual author entries from AUTHORS file
   6 # for use in the about dialog.
   7
   8 use strict;
   9
  10 my $subinfo=0;
  11 my $nextline;
  12
  13 while (<>) {
  14         if (/(.*){/) {
  15                 $subinfo = 1;
  16                 print "$1\n";
  17         } elsif (/}/) {
  18                 $subinfo = 0;
  19                 if (($nextline = <>) !~ /^[\s]*$/) {
  20                         print $nextline;
  21                 }
  22         } elsif ($subinfo == 1) {
  23                 next;
  24         } else {
  25                 s/^$/ /;        # Make it a verbatim paragraph
  26                 print;
  27         }
  28 }