......and if you don't know how to use .htaccess use this......
#!/usr/bin/perl
print "Content-type: text/html\n\n";
$username = "USERNAME";
$password = "PASSWORD";
$path = "/PATH/TO/PROTECTED/FOLDER";
open(FILE,">$path/.htaccess") || die "Can't create .htaccess file : $!";
print FILE "AuthUserFile $path/.htpasswd";
print FILE "AuthGroupFile /dev/null";
print FILE "AuthName Protected";
print FILE "AuthType Basic";
print FILE "<Limit GET POST>";
print FILE "require valid-user";
print FILE "</Limit>";
close(FILE);
$newpass = crypt($password, "salt");
open(FILE,">$path/.htpasswd") || die "Can't create .htpasswd file : $!";
print FILE "$username:$newpass";
close(FILE);
print "$path is now protected.";
Paul
Installations:
http://wiredon.net/gt/ Support:
http://wiredon.net/forum/
