summaryrefslogtreecommitdiff
path: root/apps/credits.pl
diff options
context:
space:
mode:
Diffstat (limited to 'apps/credits.pl')
-rw-r--r--apps/credits.pl17
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#
1while (<STDIN>) { 9while (<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}