diff options
-rw-r--r-- | en_US.ISO8859-1/htdocs/internal/homepage.pl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/en_US.ISO8859-1/htdocs/internal/homepage.pl b/en_US.ISO8859-1/htdocs/internal/homepage.pl index 6bf4f88b38..957f06d38e 100644 --- a/en_US.ISO8859-1/htdocs/internal/homepage.pl +++ b/en_US.ISO8859-1/htdocs/internal/homepage.pl @@ -1,11 +1,12 @@ #!/usr/bin/perl -$passwd = '/etc/passwd'; +# $FreeBSD$ + $homepagedir = 'public_html'; @index = ('index.html', 'index.cgi'); $noindex = '.noindex'; -open(P, 'ypcat passwd |') || die "open $passwd: $!\n"; +open(P, 'getent passwd |') || die "getent passwd: $!\n"; undef @pages; while(<P>) { ($login,$password,$uid,$gid,$gcos,$home,$shell) = split(/:/); @@ -14,7 +15,7 @@ while(<P>) { $gcos =~ s/,.*//; # disable daemons - next if $uid <= 100; + next if $uid < 500; next if $login eq 'nobody'; next if $shell =~ ~ m%/(pppd|sliplogin|nologin|nonexistent)$%; |