gtrias
commented
10 years ago Potser alguna cosa aixi hauria de funcionar....
while( (my $n) = $prot->fetchrow_array() ) {
$locations = $locations . "<Directory \"%host_dir%/%name%/httpdocs/" . $n . "\">\n";
$locations = $locations . "\t\tAuthType Basic\n";
$locations = $locations . "\t\tAuthName 'Directorio protegido'\n";
$locations = $locations . "\t\tAuthMySQL On\n";
$locations = $locations . "\t\tAuthMySQL_Host ".$config{dbcfg}{'server'}."\n";
$locations = $locations . "\t\tAuthMySQL_DB ".$config{dbcfg}{'database'}."\n";
$locations = $locations . "\t\tAuthMySQL_User ".$config{dbcfg}{'user'}."\n";
$locations = $locations . "\t\tAuthMySQL_Password ".$config{dbcfg}{'pass'}."\n";
$locations = $locations . "\t\tAuthMySQL_Password_Table httpd_user\n";
$locations = $locations . "\t\tAuthMySQL_Password_Field password\n";
$locations = $locations . "\t\tAuthMySQL_Encrypted_Passwords off\n";
$locations = $locations . "\t\tAuthMySQL_Username_Field name\n";
$locations = $locations . "\t\tAuthMySQL_Where ' AND protected_dir=\"$n\" AND httpd_host_id=$id'\n";
$locations = $locations . "\t\tAuthBasicAuthoritative Off\n";
$locations = $locations . "\t\tAuthUserFile /dev/null\n";
$locations = $locations . "\t\tRequire valid-user\n";
$locations = $locations . "\t</Directory>\n";
}
S'hauria de trobar alguna formula perque les dades de conexió generades pel perl fossin correctes per configurar els directoris protegits.