#!/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 (C) 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 2, 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, write to the Free Software Foundation, Inc., # 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 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