From 9b34c228bf29b5525902577cbe3f35b52a1eaf12 Mon Sep 17 00:00:00 2001
From: Wolfram Schneider <wosch@FreeBSD.org>
Date: Sat, 1 Aug 1998 09:33:57 +0000
Subject: [PATCH] Print only the full name from Gecos field. The other fields
 (phone, fax etc.) are usually out of date.

---
 data/internal/homepage.pl | 2 +-
 en/internal/homepage.pl   | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/data/internal/homepage.pl b/data/internal/homepage.pl
index 899e731351..8ebcdb5535 100644
--- a/data/internal/homepage.pl
+++ b/data/internal/homepage.pl
@@ -11,7 +11,7 @@ while(<P>) {
 	($login,$passwd,$uid,$gid,$gcos,$home,$shell) = split(/:/);
 
 	# cleanup gecos
-	$gcos =~ s/,+$//;
+	$gcos =~ s/,.*//;
 
 	# disable daemons
 	next if $uid <= 100;
diff --git a/en/internal/homepage.pl b/en/internal/homepage.pl
index 899e731351..8ebcdb5535 100644
--- a/en/internal/homepage.pl
+++ b/en/internal/homepage.pl
@@ -11,7 +11,7 @@ while(<P>) {
 	($login,$passwd,$uid,$gid,$gcos,$home,$shell) = split(/:/);
 
 	# cleanup gecos
-	$gcos =~ s/,+$//;
+	$gcos =~ s/,.*//;
 
 	# disable daemons
 	next if $uid <= 100;