(perl) выполнение system() из браузера

[HRonik]

Добрый день.
cgi скрипт на perl из командной строки выполняется на ура...
Да и из браузера работает почти все, только упорно отказывается выполнять sh команду, и с помощью system() и с помощью кавычек ``.
В чем могут быть грабли?
Подскажите пожалуйста...
ЗЫ права на скрипты 777.

[Хостинг 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/

[zg]

пути

[HRonik]

пути

system('/var/www/stat/usertraf.sh $user');
полные...
из командной строки работает.

[zg]

пути в /var/www/stat/usertraf.sh

[HRonik]

пути в /var/www/stat/usertraf.sh

я об этом тоже сразу же подумал
перенес скрипт в папку /data с правами 777 , ноль эмоций =\

[HRonik]

Причем system() возвращает код 0, что означает успешное выполнение команды, однако команда то не выполнилась %)

[ProFTP]

покажи тч оты выполняешь...!!

[zg]

Причем system() возвращает код 0, что означает успешное выполнение команды, однако команда то не выполнилась %)

значит выполнилась

перенес скрипт в папку /data с правами 777 , ноль эмоций =\

))) ну дак пути никто ж не менял чего ты от него хочешь

давай, выкладывай свой секретный usertraf.sh, никто его ломать не будет

[ProFTP]

во-первых по-моиму надо так

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

system("/var/www/stat/usertraf.sh $user");

[zingel]

да и 755 а не 777

[HRonik]

Всем спасибо за ответы, сейчас попробую разобрать их.

Причем system() возвращает код 0, что означает успешное выполнение команды, однако команда то не выполнилась %)

значит выполнилась

перенес скрипт в папку /data с правами 777 , ноль эмоций =\

))) ну дак пути никто ж не менял чего ты от него хочешь
давай, выкладывай свой секретный usertraf.sh, никто его ломать не будет

Пути я естественно поменял

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

system("/data/usertraf.sh", $user);

Скрипт usertraf.sh объяснять долго, хотя он и не большой, но он возвращает число (трафик за день) в файл с именем /tmp/stat/$user.tmp.
Потом этот файл открывается и считывается... такое извращение пришлось делать, потому что при выводе числа в STDOUT команда

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

$var=`/var/www/stat/usertraf $user`;

опять же из консоли работала правильно , а из браузера отказывалась выполняться.
Дак вот, файл /tmp/stat/$user.tmp просто не создается , хотя system() возвращает 0....
Если нужен полный код usaertraf.sh (строчек 7) могу привести.

во-первых по-моиму надо так

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

system("/var/www/stat/usertraf.sh $user");

Без разницы ему, из консоли выполняет , и так , и сяк...

да и 755 а не 777

поэтому может не пускать ? О_о
ну вам виднее сейчас попробую....

[zingel]

так уж повелось, что если не 755, то premature end of sript headers

[zg]

Скрипт usertraf.sh объяснять долго, хотя он и не большой

чего его объяснять, просто выложи и всё

Если нужен полный код usaertraf.sh (строчек 7) могу привести.

давно пора

[HRonik]

Вот я лох та:)

HRonik писал(а):Скрипт usertraf.sh объяснять долго, хотя он и не большой

ты был невероятно прав))
дело оказалось пустяком, просто я вчера видимо до конца отупел, а с утра на свежий ум все решилось
Скрипт вызывал скрипт, который обращался к маленькому файлу, который (собака) лежал в недоступной директории.
Всем спасибо.

[Alex Keda]

вот за это - перл в топку.
неумение внятно ругаться на ошибки - это дебилизм...

[zg]

всё он умеет, просто его неправильно используют.

[Alex Keda]

ну так покажи чтобы ругался так же внятно как php

[zg]

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

zg# cat 1.sh
#!/usr/bin/perl -w

system('asdasda');
system('echo hello');

zg# ./1.sh
Can't exec "asdasda": No such file or directory at ./1.sh line 3.
hello

[Alex Keda]

ага.
а теперь чёнить посложней на пару килобайт?
Желательно с ошибками типа забытая скобка, точка с запятой и прочие часто распространённые.

[zg]

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

zg# cat 1.sh
#!/usr/bin/perl -w
asdasdasd
asdasdasd
asdasd
system('asdasda');
system('echo hello');

zg# ./1.sh
Unquoted string "asdasd" may clash with future reserved word at ./1.sh line 5.
syntax error at ./1.sh line 5, near "asdasd
system"
Execution of ./1.sh aborted due to compilation errors.
zg#

[Alex Keda]

хм... перл чтоли стал умнее....
а аналог var_dump() там появился? чтоб массив могло красиво показать?

[zg]

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

zg# cat 1.sh 
#!/usr/bin/perl -w
use Data::Dumper;
my @array = ({gander => 'goose', fox => 'vixen'}, 48,
[ 39, 'steps', 'movie' ]);
print Dumper(\@array);

zg# ./1.sh 
$VAR1 = [
          {
            'fox' => 'vixen',
            'gander' => 'goose'
          },
          48,
          [
            39,
            'steps',
            'movie'
          ]
        ];
zg# 

[HRonik]

А если perl скрипт из браузера запускать, как сделать чтоб он ошибки на странице показывал?

[Alex Keda]

мда.
походу я действительно его готовить не умею

[zg]

А если perl скрипт из браузера запускать, как сделать чтоб он ошибки на странице показывал?

http://forum.lissyara.su/viewtopic.php?p=94740#p94740

мда.
походу я действительно его готовить не умею