#!/usr/local/bin/perl # list_passwd.cgi # Display all the cvs server users require './pserver-lib.pl'; $access{'passwd'} || &error($text{'passwd_ecannot'}); &ui_print_header(undef, $text{'passwd_title'}, ""); print "$text{'passwd_desc'}
\n"; @passwd = &list_passwords(); @links = ( "$text{'passwd_add'}" ); if (@passwd) { print &ui_links_row(\@links); print "
$text{'passwd_header'} | ||
|
\n"; } print &ui_links_row(\@links); print "