#!/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"; print "\n"; print "\n"; print "\n"; print "\n"; print "
$text{'edit_header'}
\n"; print "\n"; printf "\n", $user->{'user'}; print "\n"; printf "\n"; print "\n"; printf "\n"; print "
$text{'edit_user'}
$text{'edit_pass'} %s\n", $user->{'pass'} ? "" : "checked", $text{'edit_pass2'}; if ($in{'new'}) { printf " %s\n", $text{'edit_pass3'} if (&foreign_check("useradmin")); } else { printf " %s\n", $user->{'pass'} ? "checked" : "", $text{'edit_pass1'} if ($user->{'pass'}); } printf " %s\n", $text{'edit_pass0'}; print "
$text{'edit_unix'} %s\n", $user->{'unix'} ? "" : "checked", $text{'edit_unixdef'}; printf "\n", $user->{'unix'} ? "checked" : ""; print &unix_user_input("unix", $user->{'unix'}),"
\n"; if ($in{'new'}) { print "\n"; } else { print "\n"; print "\n"; } print "
\n"; &ui_print_footer("list_passwd.cgi", $text{'passwd_return'}, "", $text{'index_return'});