Hallo Alain
Den Spass werde ich haben (hoffe ich) ;-).
Ich hab noch schnell ein Beispiel generiert. Ich hab's mal auf der Kommadozeile getestet. Läuft tadellos.
--------- Begin of htpasswd.pl -------------------------------
#!/usr/bin/perl
use Apache::Htpasswd;
$filename = ".htpasswd";
if ( -e $filename )
{ print "file ' " . $filename . " already exist"; }
else
{ exec("touch " . $filename); }
$htpasswd = new Apache::Htpasswd($filename);
Add an entry
$htpasswd->htpasswd("daniel", "12345");
Add an entry
$htpasswd->htpasswd("test", "test");
Delete entry
$htpasswd->htDelete("test");
--------- End of htpasswd.pl -------------------------------
Gruss
Daniel