From Michael Mann via https://bugs.wireshark.org/bugzilla/show_bug.cgi?id=6377, with...
[obnox/wireshark/wip.git] / doc / make-authors-short.pl
1 # $Id$
2
3 # Remove tasks from individual author entries from AUTHORS file
4 # for use in the about dialog.
5 #
6 # Must be called via perlnoutf.
7
8 use strict;
9
10 my $subinfo=0;
11 my $nextline;
12
13 $_ = <>;
14 s/\xef\xbb\xbf//;               # Skip UTF-8 byte order mark
15 print unless /^\n/;
16
17 while (<>) {
18         if (/(.*){/) {
19                 $subinfo = 1;
20                 print "$1\n";
21         } elsif (/}/) {
22                 $subinfo = 0;
23                 if (($nextline = <>) !~ /^[\s]*$/) {
24                         print $nextline;
25                 }
26         } elsif ($subinfo == 1) {
27                 next;
28         } else {
29                 print;
30         }
31 }