--- doc/install/fedora/install.pl	2004/10/18 19:05:34	1.6
+++ doc/install/fedora/install.pl	2005/03/24 21:42:46	1.7
@@ -2,7 +2,7 @@
 # The LearningOnline Network 
 # Fedora installation script
 #
-# $Id: install.pl,v 1.6 2004/10/18 19:05:34 matthew Exp $
+# $Id: install.pl,v 1.7 2005/03/24 21:42:46 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -35,7 +35,7 @@ my $test;
 # note: The filehandle LOG is global.
 open LOG,">>loncapa_install.log" || die "Unable to open log file.\n";
 
-print LOG '$Id: install.pl,v 1.6 2004/10/18 19:05:34 matthew Exp $'."\n";
+print LOG '$Id: install.pl,v 1.7 2005/03/24 21:42:46 matthew Exp $'."\n";
 
 # Some friendly subroutines
 sub die_if_nonempty {
@@ -218,14 +218,7 @@ sub setup_www {
 ###############################################
 ###############################################
 sub uid_of_www {
-    my $num = `grep ^www /etc/passwd | cut -d':' -f3`;
-    chomp $num;
-    if (int($num) == $num) {
-	writelog ("uid of www = $num\n");
-    } else {
-	die "Unable to determine UID of user www\n  Halting.\n";
-    }
-    print_and_log("\n");
+    my ($num) = (getpwnam('www'))[2];
     return $num;
 }