#!/usr/bin/perl # cvsweb-list # This little program produces a web page listing the cvs repositories # available by ucgi cvsweb. It doesn't really separate code and # configuration, so it's not installed by default with chiark-utils. # This file is part of chiark-utils, a collection of useful programs # used on chiark.greenend.org.uk. # # This file is: # Copyright 2001 Ian Jackson # # This is free software; you can redistribute it and/or modify it under the # terms of the GNU General Public License as published by the Free Software # Foundation; either version 3, or (at your option) any later version. # # This is distributed in the hope that it will be useful, but WITHOUT ANY # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS # FOR A PARTICULAR PURPOSE. See the GNU General Public License for more # details. # # You should have received a copy of the GNU General Public License along # with this program; if not, consult the Free Software Foundation's # website at www.fsf.org, or the GNU Project website at www.gnu.org. print < chiark public CVS

chiark users' public CVS

$user" or die $!; print " (homepage)" or die $! if -d "/home/$user/public-html"; print ":" or die $!; $hd= 1; } else { print "," or die $!; } print " $mod" or die $!; } next unless $hd; print "

maintained by $ENV{SERVER_ADMIN}; chiark home page

END exit 0