Сообщения

61

Perl / mod_perl

« : 10 Апреля 2006, 17:59:44 »

При компиляции апача добавь к своему конфигуре эти опции
./configure --enable-suexec \\
--suexec-caller=www \\
--suexec-docroot=/home \\
--suexec-uidmin=1000 \\
--suexec-gidmin=1000 \\

где
caller - это тот под кем будет пускаться апач
docroot - это откуда можно пускать скрипты
ну и последнее минимальный уид и гид юзера который может пускать скрипты

а в конфиге писать ниче не надо
только пиши при определение вирт. хоста
User
Group

62

Perl / mod_perl

« : 10 Апреля 2006, 17:37:55 »

Это понятно. Ты скажи, написал ли suexec что-нибудь в логах? Хоть как-то он заработал? А, вообще, помню в свое время я с suexec\'ом три дня маялся.

63

Perl / mod_perl

« : 10 Апреля 2006, 15:55:05 »

Посмотри что пишется в логах суехека.

64

Perl / mod_perl

« : 10 Апреля 2006, 15:20:22 »

Извини перепутал.
SuexecUserGroup - это во втором апаче
Тебе надо
User что-то Group что-то

65

Perl / Информация о файле

« : 10 Апреля 2006, 15:12:45 »

arto:
perldoc -f sprintf

Спасибо. Даже стыдно стало. До самого не дошло.

66

Perl / mod_perl

« : 10 Апреля 2006, 14:47:09 »

Ну, вставлять тебе его нужно в httpd.conf, но ты когда mod_perl ставишь он сам дописывается в httpd. mod_perl по всякому будет работать с апачевскими правами. Единственное что ты можешь сделать это использовать suexec. Зайди в директорию bin, где установлен apache и посмотри есть ли там suexec. Если есть введи ./suexec -V, и посмотри пути. Если пути не правельные нужно пересобрать suexec и новый поместить в bin апачевский. А потом поместить SuexecUserGroup user group в твой файл конфига виртуального сервера.

67

Perl / Информация о файле

« : 10 Апреля 2006, 14:25:05 »

Блин. Многовато кода будет пожалуй. Легче просто под никсы написать, на другие ОС забить. А что по второму вопросу?

68

Perl / mod_perl

« : 10 Апреля 2006, 14:21:13 »

Он должен стоять в апаче.
А потом в конфиге виртуального хоста прописываешь
SuexecUserGroup user group

После этого рестартишь сервер и твои скрипты на этом вирт. хосте выполняются от этого пользователя.
Если что не так, смотри в логах суехека, по дэфолту в /usr/local/logs/

69

Perl / mod_perl

« : 10 Апреля 2006, 14:14:44 »

djkostya:
И возможно ли к каждому виртуальному хосту сделать чтоб он запускался со своими правами....

suexec рулит

70

Perl / Информация о файле

« : 10 Апреля 2006, 13:43:29 »

arto:
perldoc -f getpwent

А нет универсального способа? Я так понял, что такой метод будет работать только в никсах или там где есть /etc/passwd. Может есть какой-нибудь универсальный модуль? Не хочется загромождать программу. Она и так уже очень немаленькая.

И еще вопрос. Допустим у меня в переменной находится число. Как его преобразовать в восьмеричное и записать в эту же переменную, чтобы потом, когда нужно вывести? printf печатает сразу, а нужно просто записать результат в переменную.

71

Perl / Информация о файле

« : 10 Апреля 2006, 13:19:27 »

А разве маки не в счет? Извиняюсь за лишнее сообщение. Случайно получилось.

72

Perl / Информация о файле

« : 10 Апреля 2006, 13:19:19 »

А разве в маки не в счет?

73

Perl / Информация о файле

« : 10 Апреля 2006, 12:10:46 »

Спасибо. Вижу, что копать нужно в этом направлении. Только не заработало. Может намекнешь в чем дело.

#!/usr/bin/perl -w
print "Content-type: text/html\\n\\n";
                  use File::stat;
                  use User::pwent;
$filename = "design.jpg";
                  $is_his = (stat($filename)->uid == pwent($whoever)->uid);
print"$is_his";

Говорит ошибка в $is_his = (stat($filename)->uid == pwent($whoever)->uid);

74

Perl / Информация о файле

« : 10 Апреля 2006, 11:32:28 »

Конечно можно. Но хочется сделать многоплатформенный скрипт.

75

Perl / Информация о файле

« : 10 Апреля 2006, 10:53:12 »

Здравствуйте уважаемые. Поискал по интернету. Ничего полезного не нашел. Может вы подскажете. Вопрос такой: каким способом можно узнать имя владельца и группу? Как я понял, благодаря stat можно узнать только uid,gid. А нужны имена. Заранее благодарен.