##
22: $method->htpasswd($formdata{username}, $formdata{newpw}, $formdata{oldpw});
##
##
if ($ENV{'REQUEST_METHOD'} eq 'GET') {
@pairs = split(/&/, $ENV{'QUERY_STRING'});
} elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
##
##
if ($formdata{username}) {
$method->htpasswd($formdata{username}, $formdata{newpw}, $formdata{oldpw});
}