4 Content-Type: text/html
7 <title>davenant public CVS</title>
8 <link rev="made" href="mailto:webmaster\@davenant.greenend.org.uk">
11 <h1>davenant users' public CVS</h1>
15 open UL, "/etc/userlist" or die $!;
17 next if m/^\#/ or !m/\S/;
19 next unless readlink "/home/$user/public-cgi/cvsweb"
20 eq '/usr/local/lib/cvsweb';
22 $pc= "/home/$user/public-CVS/";
23 next unless opendir D, $pc;
24 while (defined($mod= readdir D)) {
25 next unless -d "$pc/$mod";
26 next if $mod =~ m/^\./;
28 print "<li><A href=\"/ucgi/~$user/cvsweb\">$user</A>" or die $!;
29 print " (<A href=\"/~$user/\">homepage</A>)" or die $!
30 if -d "/home/$user/public-html";
36 print " <A href=\"/ucgi/~$user/cvsweb/$mod/\">$mod</A>" or die $!;
39 print "</li>\n" or die $!;
44 print <<END or die $!;
49 <A HREF="mailto:$ENV{SERVER_ADMIN}">$ENV{SERVER_ADMIN}</A>;
50 <A href="/">davenant home page</A>