#!/usr/local/bin/perl # Display a form for editing or adding a new CVS user require './pserver-lib.pl'; $access{'passwd'} || &error($text{'passwd_ecannot'}); &ReadParse(); if ($in{'new'}) { &ui_print_header(undef, $text{'edit_title1'}, ""); } else { &ui_print_header(undef, $text{'edit_title2'}, ""); @passwd = &list_passwords(); $user = $passwd[$in{'idx'}]; } print "
\n"; &ui_print_footer("list_passwd.cgi", $text{'passwd_return'}, "", $text{'index_return'});