#!/usr/bin/perl -w
use strict;
use Fatal qw(open close);
open my $fh, '>index.html';
print { $fh } <<'END';
Public HTML
~
(Back to /)
These users have something in their ~/public_html directory:
END
my @dir = glob "/home/*/public_html/*";
my @users = keys %{ { map { (split m[/])[2] => undef } @dir } };
print { $fh } qq[- $_
\n] for sort @users;
print { $fh } <<'END';
Or open each link in a
new window. (Useful with Firefox 1.5's Preferences/Tabs/Force/NewTab
setting.)
To update this listing, run perl gen.pl in pugs/docs/feather/~
and wait for the automatic update.
END