|
|
|
|
|||
HEADER
if ( $section eq "add_user" )
{
$heading = "Addition of a user";
$comment = "The following user has been added to the list of users allowed to access your password protected directory:";
} elsif ( $section eq "delete_user" ) {
$heading = "Deletion of a user";
$comment = "The following user has been deleted from the list of users allowed to access your password protected directory:";
} elsif ( $section eq "change_password" ) {
$heading = "Change of a user's password";
$comment = "The following user's password has been changed, details below:";
} else {
print "An error has occured - exiting...
";
exit;
}
print "$heading
$comment
";
print "User: $user
";
if ( $password ne "" )
{
# this means that we are adding a user or changing its password - either way we run the same command
system "htpasswd -m -b $htpasswdfile $user $password";
print "Password: $password
";
} else {
# this means we delete the user
@ammended_user_list = ();
$searchstring = "^$user\:";
open (HTPASS, $htpasswdfile) || die "Couldn't open the file $htpasswdfile: $!";
while (
";
print NEWFILE $ammended_user_list[$i];
}
close (NEWFILE);
system "mv $tmphtpasswdfile $htpasswdfile";
}
print<
