Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Администрирование Web серверов и Web служб > Apache (perl ограничение на скрипт)

Автор: kosyakLA 9.6.2011, 11:05

Есть сервер апач на Win3k server.

Установлен в c:\usr\apache

Сам сервер хранится в каталоге c:\usr\home

В конфе апача есть

<Directory "/">
    Options FollowSymLinks
    AllowOverride None
    Order deny,allow
    Deny from all
</Directory>

Чтобы разрешить доступ к сайту добавил

<Directory "C:/usr/home">
    Options Indexes FollowSymLinks
    AllowOverride All
    Order allow,deny
    Allow from all
</Directory>

Всё ок работает

кидаю в home скрипт перла вида:

#!/usr/local/bin/perl
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use DBI;

print CGI::header;

opendir (DIR, "/");
@dir_read = readdir(DIR);
closedir (DIR);

print @dir_read;

получаю список корня диска с...можно как-то наложить ограничения на считывание всех папок?...и ограничить например просто c:/usr/home

?