#!/usr/bin/perl -w use strict; use CGI; use Apache::Htpasswd; my $htpasswd = "/etc/htsec/motion.ht"; my $method = Apache::Htpasswd->new($htpasswd); my $q = CGI->new(); my %fields; for my $field (qw( username newpw oldpw )) { $fields{$field} = $q->param($field); unless (defined($fields{$field})) { showform(); exit(); } } $method->htpasswd(@fields{ qw(username newpw oldpw) }); # print a success message sub showform { my $q = shift; print $q->header(); print < Password Administration
Username: 
Password: 
New Password: 

HTML }