# the sub that will delete usernames from the file!
sub delete_username {

open(DEL, ".htpasswd") || die &error("Unable to open .htpasswd file. Reason : $!");
@check = <DEL>;
close(DEL) || die &error("Unable to close .htpasswd. Reason: $!");

foreach $line (@check)
{
my ($username, $password) = split(/:/, $line);
if ($username eq $delusername) { $status = "ok"; last; } else { $status = "not found"; }
} # end foreach loop

if ($status eq "not found") { &error("Username not found! You can only edit an existing username!"); }

# If we get to here then the username exits, so we need to do the foreach loop to add all usernames and possword EXCEPT this one!

open(DEL, ">.htpasswd") || die &error("Unable to open .htpassd. Reason: $!");

foreach $line (@check) {

my ($username, $password) = split(/:/, $line);

if ($username eq $delusername) { } else { print DEL "$username:$password"; }

} # end foreach loop

close(DEL) || &error("Unable to close .htpasswd after username deletion. Reason:L $!");


print "Username $delusername was deleted successfully!";

} # end the delete sub

sub delete_user {
my ($user, $found) = (shift, 0);
open (HTPW, ".htpasswd") or die $!;
open (TMP, ">pass.tmp") or die $!;
flock (TMP, 2) or die $!;
(/^\Q$user:/ ? $found++ : print TMP) while (<HTPW>);
close TMP;
close HTPW;
rename("pass.tmp", ".htpasswd") or die $!;
print $found ? "user deleted successfully" : "user not found";
}

unless ($username eq $delusername) {
print DEL "$username:$password";
}

open F, ".htpasswd" or die $!;
my $string = do { local $/; <F> };
close F;

$string =~ s/\Q$some_user\E:.*?\n//;

open F, ">.htpasswd" or die $!;
flock(F, 2) unless $^O eq 'MSWin32';
print F $string;
close F;