#!/usr/bin/perl
# edit_authuser.cgi
# Display a form for editing a user from a text file
require './htaccess-lib.pl';
require './auth-lib.pl';
&ReadParse();
$desc = &text('authu_header', "$in{'file'}");
if (defined($in{'user'})) {
# editing an existing user
&ui_print_header($desc, $text{'authu_edit'}, "");
$u = &get_authuser($in{'file'}, $in{'user'});
$user = $u->{'user'};
$pass = $u->{'pass'};
$new = 0;
}
else {
# creating a new user
&ui_print_header($desc, $text{'authu_create'}, "");
$new = 1;
}
print "\n";
&ui_print_footer($in{'url'}, $text{'authu_return'});