4 Content-Type: text/html
7 <title>chiark public CVS</title>
8 <link rev="made" href="mailto:webmaster\@chiark.greenend.org.uk">
11 <h1><img src="/chiark/icon90.gif" border="0" width="128" height="64"
12 alt=""> chiark users' public CVS</h1>
16 open UL, "/etc/userlist" or die $!;
18 next if m/^\#/ or !m/\S/;
20 next unless readlink "/home/$user/public-cgi/cvsweb"
21 eq '/usr/local/lib/cvsweb';
23 $pc= "/home/$user/public-CVS/";
24 next unless opendir D, $pc;
25 while (defined($mod= readdir D)) {
26 next unless -d "$pc/$mod";
27 next if $mod =~ m/^\./;
29 print "<li><A href=\"/ucgi/~$user/cvsweb\">$user</A>" or die $!;
30 print " (<A href=\"/~$user/\">homepage</A>)" or die $!
31 if -d "/home/$user/public-html";
37 print " <A href=\"/ucgi/~$user/cvsweb/$mod/\">$mod</A>" or die $!;
40 print "</li>\n" or die $!;
45 print <<END or die $!;
50 <A HREF="mailto:$ENV{SERVER_ADMIN}">$ENV{SERVER_ADMIN}</A>;
51 <A href="/">chiark home page</A>