#!/usr/local/bin/perl # edit.cgi # Display a form for editing or creating a htpasswd user require './htpasswd-file-lib.pl'; &ReadParse(); if ($in{'new'}) { &ui_print_header(undef, $text{'edit_title1'}, ""); $user = { 'enabled' => 1 }; } else { &ui_print_header(undef, $text{'edit_title2'}, ""); if (!$access{'single'}) { $users = &list_users(); $user = $users->[$in{'idx'}]; } } print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
$text{'edit_header'}
\n"; if ($access{'single'}) { print "\n"; print "\n"; } else { print "\n"; if ($access{'rename'} || $in{'new'}) { printf "\n", &html_escape($user->{'user'}); } } if ($access{'enable'}) { print "\n"; printf "\n", $user->{'enabled'} ? "" : "checked", $text{'no'}; } print "\n"; print "
$text{'edit_single'}
$text{'edit_user'}
$text{'edit_enabled'} %s\n", $user->{'enabled'} ? "checked" : "", $text{'yes'}; printf " %s
$text{'edit_pass'} \n"; if (!$in{'new'}) { if (!$access{'single'}) { print " ", "$text{'edit_pass1'}
\n"; print "\n"; } if ($access{'repeat'}) { print "$text{'edit_passfrom'}\n"; print "\n"; print "$text{'edit_passto'}\n"; } else { print "$text{'edit_pass0'}\n"; } } print "
\n"; if ($in{'new'}) { print "\n"; } else { print "\n"; print "\n" if ($access{'delete'} && !$access{'single'}); } print "
\n"; if ($access{'single'}) { &ui_print_footer("/", $text{'index'}); } else { &ui_print_footer("", $text{'index_return'}); }