ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexey Maltzev                       2:5020/400     14 Sep 2005  20:02:49
 To : All
 Subject : Подскажите
 -------------------------------------------------------------------------------- 
 

 Вобщем есть проблема.
 Есть сервер Win4 на нем установлен perl и web server - liteserve.
 
 ГРУБО говоря, вот таким скриптом можно получить доступ к большинству папок
 на сервере:
 
 opendir(RE,"$dirf") or $qwe="NO ACCESS THIS IS DIRECTORY";
 @FILES=grep(!^\.\.?$, readdir RE);
 closedir(RE);
 
  foreach $str (@FILES){
   if ($str =~/\./){push (@file,$str);}
     else {push (@dir,$str);}
  }
 
 где $dirf "отправной каталог", и соответственно в массивах @dir и @file
 содержатся списки каталогов и файлов. Далее что с этим делать я думаю все
 ясно. Скрипт грубый, поэтому не придирайтесь что каталоги и файлы
 отличаются по разделительной точке между именем и расширением.
 
 Соответствено вопрос: как запретить perl показывать списки каталогов и
 файлов (а также их читать) на сервере. Конечно можно запустить web server
 от имени другого пользователя, но все равно папка самого web сервера
 остается открытой.
 
 Hет возможности перехода на Apach, FreeBSD, Linux и пр. из той же оперы.
 
 Вобщем направьте на путь истинный.
 
 Alexey Maltzev
 --- ifmail v.2.15dev5.3
  * Origin: Step (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Подскажите   Alexey Maltzev   14 Sep 2005 20:02:49   Re: Подскажите   Artem Chuprina   15 Sep 2005 11:11:16