perl + system()

И всё прочее, что касается HTML
Правила форума
Убедительная просьба юзать теги [code] при оформлении листингов.
Сообщения не оформленные должным образом имеют все шансы быть незамеченными.
Аватара пользователя
lymar
мл. сержант
Сообщения: 117
Зарегистрирован: 2008-02-03 11:54:20
Откуда: Україна
Контактная информация:

perl + system()

Непрочитанное сообщение lymar » 2008-09-05 0:22:53

Помогите решить проблему system не обробатывет даную команду .. сама команда для создания почтовго юзера работает ..

Код: Выделить всё

system("pw adduser xxxx -g mail -s /sbin/nologin -c xxxx xxx");

Хостинговая компания Host-Food.ru
Хостинг HostFood.ru
 

Услуги хостинговой компании Host-Food.ru

Хостинг HostFood.ru

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

Аватара пользователя
hizel
дядя поня
Сообщения: 9032
Зарегистрирован: 2007-06-29 10:05:02
Откуда: Выборг

Re: perl + system()

Непрочитанное сообщение hizel » 2008-09-05 0:35:00

под рутом перл пускаем?
хорошобы писать полный путь до pw
В дурацкие игры он не играет. Он просто жуткий, чу-чу, паровозик, и зовут его Блейн. Блейн --- это Боль.

Аватара пользователя
lymar
мл. сержант
Сообщения: 117
Зарегистрирован: 2008-02-03 11:54:20
Откуда: Україна
Контактная информация:

Re: perl + system()

Непрочитанное сообщение lymar » 2008-09-05 0:43:49

1. да
2. не помогает (

zg
полковник
Сообщения: 5845
Зарегистрирован: 2007-12-07 13:51:33
Откуда: Верх-Нейвинск

Re: perl + system()

Непрочитанное сообщение zg » 2008-09-05 6:08:37

Код: Выделить всё

system("echo xxx:mail:::::... | pw -f");
суть такая - pw может добавлять пользователей из файла, файлом служит echo, просто пароль в pw нужно указвать с клавиатуры, из скриптов я всегда юзаю так.

Аватара пользователя
lymar
мл. сержант
Сообщения: 117
Зарегистрирован: 2008-02-03 11:54:20
Откуда: Україна
Контактная информация:

Re: perl + system()

Непрочитанное сообщение lymar » 2008-09-05 11:57:43

..а как по другому можно решить даную проблемму? .. дело в том, что я сделал страничку для регистрации почтовых ящиков пользователей .. т.е. есть поля: ФИО, логин и кн. зарегистрировать. :(

zg
полковник
Сообщения: 5845
Зарегистрирован: 2007-12-07 13:51:33
Откуда: Верх-Нейвинск

Re: perl + system()

Непрочитанное сообщение zg » 2008-09-05 12:03:25

Код: Выделить всё

man 5 passwd
там рсаписан формат полей и их порядок, эти поля указываеются через двоеточие, а потом перенаправляются в pw

вечером проверю, если что скажу

Аватара пользователя
Alex Keda
стреляли...
Сообщения: 35418
Зарегистрирован: 2004-10-18 14:25:19
Откуда: Made in USSR
Контактная информация:

Re: perl + system()

Непрочитанное сообщение Alex Keda » 2008-09-05 13:19:09

Код: Выделить всё

echo '$1$xxxxxxxxxxxxxxxxx' | /usr/sbin/pw useradd andy -d /usr/home/andy -G wheel -L russian -c 'Andrey Vedischev' -m -s /bin/csh -H 0
пароль уже криптованный.
Убей их всех! Бог потом рассортирует...

Аватара пользователя
lymar
мл. сержант
Сообщения: 117
Зарегистрирован: 2008-02-03 11:54:20
Откуда: Україна
Контактная информация:

Re: perl + system()

Непрочитанное сообщение lymar » 2008-09-05 14:38:44

Пробовал так:

Код: Выделить всё

system("echo '$1$xxxxxxxxxxxxxxxxx' | /usr/sbin/pw useradd andy -d /usr/home/andy -G wheel -L russian -c 'Andrey Vedischev' -m -s /bin/csh -H 0");
всеравно учетка не создаеться :(
сам cgi приклагаю..
Вложения
mail.cgi.txt
(2.22 КБ) 24 скачивания

zg
полковник
Сообщения: 5845
Зарегистрирован: 2007-12-07 13:51:33
Откуда: Верх-Нейвинск

Re: perl + system()

Непрочитанное сообщение zg » 2008-09-05 15:26:14

я был неправ и гнал пургу :-D исправляюсь

Код: Выделить всё

echo zg::wheel:russian::::::parol | adduser -f
о как у меня было сделано :cf:

Аватара пользователя
lymar
мл. сержант
Сообщения: 117
Зарегистрирован: 2008-02-03 11:54:20
Откуда: Україна
Контактная информация:

Re: perl + system()

Непрочитанное сообщение lymar » 2008-09-08 7:57:59

Всеравно не создает юзера :cry: . Если к примеру просто пишу

Код: Выделить всё

system("cp /etc/passwd /home");
то выполняет.

zg
полковник
Сообщения: 5845
Зарегистрирован: 2007-12-07 13:51:33
Откуда: Верх-Нейвинск

Re: perl + system()

Непрочитанное сообщение zg » 2008-09-08 8:03:47

а просто из коммандной строки добавляет?

Аватара пользователя
lymar
мл. сержант
Сообщения: 117
Зарегистрирован: 2008-02-03 11:54:20
Откуда: Україна
Контактная информация:

Re: perl + system()

Непрочитанное сообщение lymar » 2008-09-08 8:21:38

да

zg
полковник
Сообщения: 5845
Зарегистрирован: 2007-12-07 13:51:33
Откуда: Верх-Нейвинск

Re: perl + system()

Непрочитанное сообщение zg » 2008-09-08 9:33:12

значит дело в перле, либо в путях, вобщем надо курить маны

кстати, чего выводит

Код: Выделить всё

system('echo $PATH');

Аватара пользователя
zingel
beastie
Сообщения: 6204
Зарегистрирован: 2007-10-30 3:56:49
Откуда: Moscow
Контактная информация:

Re: perl + system()

Непрочитанное сообщение zingel » 2008-09-08 9:37:15

а если через

Код: Выделить всё

my $sys = `/bin/cp /etc/passwd /home`;
кавычки обратные то есть если юзать вместо system?
Z301171463546 - можно пожертвовать мне денег

zg
полковник
Сообщения: 5845
Зарегистрирован: 2007-12-07 13:51:33
Откуда: Верх-Нейвинск

Re: perl + system()

Непрочитанное сообщение zg » 2008-09-08 9:39:03

zingel писал(а):кавычки обратные то есть если юзать вместо system?
а в чём разница? по-моему это просто алиас либо для exec либо для system

Аватара пользователя
zingel
beastie
Сообщения: 6204
Зарегистрирован: 2007-10-30 3:56:49
Откуда: Moscow
Контактная информация:

Re: perl + system()

Непрочитанное сообщение zingel » 2008-09-08 9:41:02

zg писал(а):
zingel писал(а):кавычки обратные то есть если юзать вместо system?
а в чём разница? по-моему это просто алиас либо для exec либо для system
эт да, ну тогда запустить скрипт по

Код: Выделить всё

perl -d /path/to/sript.pl 
да и посмотреть, что скажет дебаг....
Z301171463546 - можно пожертвовать мне денег