From 8cc69d8080ac707b6b204282bb62f9351b213dbb Mon Sep 17 00:00:00 2001
From: Daniel Stenberg <daniel@haxx.se>
Date: Sat, 15 Feb 2003 17:37:23 +0000
Subject: [PATCH] extract the names better from the CREDITS file

git-svn-id: svn://svn.rockbox.org/rockbox/trunk@3274 a1c6a512-1295-4272-9138-f99709370657
---
 apps/credits.pl | 17 ++++++++++-------
 1 file 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 @@
+#             __________               __   ___.
+#   Open      \______   \ ____   ____ |  | _\_ |__   _______  ___
+#   Source     |       _//  _ \_/ ___\|  |/ /| __ \ /  _ \  \/  /
+#   Jukebox    |    |   (  <_> )  \___|    < | \_\ (  <_> > <  <
+#   Firmware   |____|_  /\____/ \___  >__|_ \|___  /\____/__/\_ \
+#                     \/            \/     \/    \/            \/
+# $Id$
+#
 while (<STDIN>) {
-    chomp;	# strip record separator
-    my @Fld = split(' ', $_, 9999);
-    if ($a && length($Fld[1])) {
-	print "\"$_\",\n";
-    }
-    if (/Friend/) {
-	$a++;
+    if(($_ =~ /^([A-Z]+[\S ]+)/) && ($_ !~ /^People/)) {
+	print "\"$1\",\n";
     }
 }