|
|
|
Nagios + check_oracle_instant
|
|||
|---|---|---|---|
|
#18+
env, Ступил. Почитал про open. Как раз там пайп нужен. Извиняюсь. Тогда для начала действительно потренируйтесь "на кошках", с выводом гарантировано работающей команды (типа ls). М.б. пайп не отрабатывает как надо. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.06.2010, 12:33 |
|
||
|
Nagios + check_oracle_instant
|
|||
|---|---|---|---|
|
#18+
env, nagios@nagios:~$ sqlplus -s system/mismatch@(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(Host=IP)(Port=1521))(CONNECT_DATA=(SID=sid))) | > > > ^C ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.06.2010, 12:49 |
|
||
|
Nagios + check_oracle_instant
|
|||
|---|---|---|---|
|
#18+
env, Не увидел вашего последнего сообщения, понял, потренируюсь. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.06.2010, 12:51 |
|
||
|
Nagios + check_oracle_instant
|
|||
|---|---|---|---|
|
#18+
questioner, Попробовал на open (LS,"id</dev/null |") or die; while ( my $res = <LS> ) { print $res; } выдал верный результат. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.06.2010, 13:10 |
|
||
|
Nagios + check_oracle_instant
|
|||
|---|---|---|---|
|
#18+
questioner, Интересно посмотреть, что отдаётся на выполнение при этом open. Возможно приколы со скобками, как вариант пробовать с явным tnsname. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.06.2010, 14:15 |
|
||
|
Nagios + check_oracle_instant
|
|||
|---|---|---|---|
|
#18+
env, в коде $qu="sqlplus system/mismatch\\@\\(DESCRIPTION=\\(ADDRESS=\\(PROTOCOL=TCP\\)\\(Host=$host\\)\\(Port=$port\\)\\)\\(CONNECT_DATA=\\(SID=$sid\\)\\)\\) </dev/null \\|"; print $qu; open (SQL,$qu) or die; выдаёт sqlplus system/mismatch@(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(Host=host)(Port=1521))(CONNECT_DATA=(SID=sid))) </dev/null вопрос только с | никак не выдаёт его ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.06.2010, 15:36 |
|
||
|
Nagios + check_oracle_instant
|
|||
|---|---|---|---|
|
#18+
questioner, Пробел после пайпа добавлять пробовали? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.06.2010, 15:45 |
|
||
|
Nagios + check_oracle_instant
|
|||
|---|---|---|---|
|
#18+
env, пробовал :( ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.06.2010, 15:56 |
|
||
|
Nagios + check_oracle_instant
|
|||
|---|---|---|---|
|
#18+
questioner, Код: plaintext 1. 2. 3. 4. 5. 6. 7. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.06.2010, 16:12 |
|
||
|
Nagios + check_oracle_instant
|
|||
|---|---|---|---|
|
#18+
env, sub logon { print "111"; open (SQL,"sqlplus -s system/mismatch@\\(DESCRIPTION=\\(ADDRESS=\\(PROTOCOL=TCP\\)\\(Host=$host\\)\\(Port=$port\\)\\)\\(CONNECT_DATA=\\(SID=$sid\\)\\)\\)</dev/null|") or die; print "222"; while ( my $res = <SQL> ) { print "Pipe or not to pipe, that is the question?"; if ($res =~ /^(ORA-\d{5})/) {return $1;} } print "444"; } Вывод: 111222444Unable to connect to sid ORACLE !!! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.06.2010, 16:34 |
|
||
|
Nagios + check_oracle_instant
|
|||
|---|---|---|---|
|
#18+
questioner, и в принт выдаёт всё также без пайпа? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.06.2010, 17:07 |
|
||
|
Nagios + check_oracle_instant
|
|||
|---|---|---|---|
|
#18+
env, да ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 09.06.2010, 08:05 |
|
||
|
Nagios + check_oracle_instant
|
|||
|---|---|---|---|
|
#18+
env, В итоге проблема решилась так: обернул perl-скрипт bash-ом #!/bin/bash # # Copyright (c) 2004 by Alpha Integrator # All rights reserved. # # Simple adding login for Baan ERP # . /home/nagios/.profile /usr/local/nagios/libexec/check_oracle_instant $1 $2 $3 $4 $5 Спасибо всем за помощь! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 09.06.2010, 09:57 |
|
||
|
|

start [/forum/topic.php?fid=25&msg=36673605&tid=1484887]: |
0ms |
get settings: |
8ms |
get forum list: |
19ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
60ms |
get topic data: |
11ms |
get forum data: |
2ms |
get page messages: |
62ms |
get tp. blocked users: |
2ms |
| others: | 209ms |
| total: | 379ms |

| 0 / 0 |
