diff options
Diffstat (limited to 'apps/credits.pl')
-rw-r--r-- | apps/credits.pl | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/apps/credits.pl b/apps/credits.pl index 3d3945d2ad..942a96b99f 100644 --- a/apps/credits.pl +++ b/apps/credits.pl | |||
@@ -1,10 +1,13 @@ | |||
1 | # __________ __ ___. | ||
2 | # Open \______ \ ____ ____ | | _\_ |__ _______ ___ | ||
3 | # Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ / | ||
4 | # Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < < | ||
5 | # Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \ | ||
6 | # \/ \/ \/ \/ \/ | ||
7 | # $Id$ | ||
8 | # | ||
1 | while (<STDIN>) { | 9 | while (<STDIN>) { |
2 | chomp; # strip record separator | 10 | if(($_ =~ /^([A-Z]+[\S ]+)/) && ($_ !~ /^People/)) { |
3 | my @Fld = split(' ', $_, 9999); | 11 | print "\"$1\",\n"; |
4 | if ($a && length($Fld[1])) { | ||
5 | print "\"$_\",\n"; | ||
6 | } | ||
7 | if (/Friend/) { | ||
8 | $a++; | ||
9 | } | 12 | } |
10 | } | 13 | } |