extract the names better from the CREDITS file

git-svn-id: svn://svn.rockbox.org/rockbox/trunk@3274 a1c6a512-1295-4272-9138-f99709370657

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 @@
+#             __________               __   ___.
+#   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";
     }
 }