Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > Помогите! Не работает exec и system тоже :(

Автор: lyl8000 4.8.2008, 09:32

В перле новичок, поэтому не очень понимаю, возможно простые вещи.

Итак, есть код:

Код


#!/usr/bin/perl

use strict;
require 'sys/syscall.ph';

$ENV{SHELL} = '/bin/bash';
$ENV{PATH} = '/bin:/usr/bin';

$0='radius_watch_dog';
fork() && exit;

close STDOUT; close STDERR; close STDIN;

chdir '/';

syscall(&SYS_setsid);

$SIG{'INT'} = $SIG{'QUIT'} = $SIG{'TERM'} = 'quit';
$SIG{'HUP'} = 'ignore';

sub quit        {
                        exit(0);
                }

open(LOG, ">/opt/watch_dog_log.log");

my ($t,$p);

while(1)
{
sleep(10);
$p=exec("/sbin/pidof radiusd");
print LOG "pid=$p\n";
print LOG " ::::: radius ok.\n";
if ($p eq 256)
        {
                $t=system("date");
                print LOG "$t ::::: radius not found. restart \n";
                exec("/etc/init.d/radius.sh restart");
        }
}

close LOG;

Вопрос такой. Если не делать fork и отключение от консоли то все работает нормально, как только ставлю форк и отключаюсь от консоли вызовы exec или system перестают работать.....

Что делать? Как быть?

Автор: sir_nuf_nuf 4.8.2008, 09:53

Привет!

В чем это выражается ?
то что после fork() перестает работать exec() - это мистика =)
Скорее всего проблема в другом. Что именно происходит не так, может не видно какого-то эффекта ?

По пути, если ты хочешь писать демона - глянь на
http://search.cpan.org/~muir/Daemon-Generic-0.51/lib/Daemon/Generic.pod
удобная штука.

Автор: korob2001 4.8.2008, 10:07

Я так понимаю нужны зомби? Может это поможет?

Код


$SIG{CHLD} = "IGNORE";

Автор: sir_nuf_nuf 4.8.2008, 10:30

ээ... подождите, а что вы вообще ожидаете получить ?

Код


$p=exec("/sbin/pidof radiusd");

Вот в этом месте ваша программа кончается. exec подменяет вашу программу (perl) на pidof.
все что написано после exec НЕ выполняется никогда (конечно если только exec не обвалится)

pidof ? я так понимаю вы хотите получить pid процесса radiusd?

тогда вам надо делать скорее так

Код


$p=`/sbin/pidof radiusd`;  # тут обратные кавычки

а вообще узнавать пид по имени - плохая затея.
каждый процесс может узнать свой пид
так:

Код


my $self_pid = getpid();

или так

Код


my $self_pid = $$;

пид дочернего процесса возвращается родителю при вызове fork():

Код


if (my $pid = fork()) {
    #in parent
    print("child forked $pid \n");
} else {
    #in child
    print("i'm a child $$ \n");
}

Автор: lyl8000 4.8.2008, 12:04

другими словами я пишу что то вроде программки, которая через определенный интервал времени проверяет заупущен ли радиус.
если его pid -1 это значит что он не запущен и его надо запустить.

вроде бы все просто.... но...

написал подругому:

Код


#!/usr/bin/perl

fork && exit;

print "i am forked\n";

close STDIN;
close STDOUT;
close STDERR;

open (FILE, '>/opt/log.log');
while(1)
    {
        sleep(5); 
        $p=`pidof radiusd`;            #получаем pid
        @m=split(" ",$p);                 #процессов несколько, поэтому их в массив запихиваем

        foreach(@m)
            {
                print FILE "$_\t";         # печатаем список ПИДов в файл (для отладки)
            }
        print FILE "\n";

        print FILE $#m."\n";            # печатаем кол-во элементов массива (для отладки)

        if (($#m+1)<1)                    # если кол-во ПИДов меньше 1 то перезапускаем радиус....
            {
                $call=`/etc/init.d/radius.sh restart`;    # перезапуск радиуса
                $t=`date`;
                print FILE "$t\t :::\t radius restart.";
            }
        print FILE "$p\n";
    }

close FILE;

ситуация следующая - тут все работает, до того момента пока я не выйду из консоли в которой запускал данный процесс.
до выхода из консоли (logout) все нормально, процесс висит и перезапускает радиус....
после выхода из консоли - только пишет в файл что пытается перезапустить его но сам радиус не перезапускается....

вот ..... помоему я чего то глобального не понимаю.... подскажите плиз :'(

Автор: GoDleSS 4.8.2008, 13:12

Цитата

Не хватает прав скорее всего.
Запущен скрипт из под пользователя такого-то, а этот пользователь в логауте.
Скрипт пытается делать вызовы внешних программ уже с другими правами.

Может и ошибаюсь, но интуиция подсказывает, что копать в указанном направлении smile

Автор: sir_nuf_nuf 4.8.2008, 13:24

выводите в лог результат выполнения `ваш скрипт`, а так же переменные $? и $^E

вот так:

Код


$call=`/etc/init.d/radius.sh restart`;    # перезапуск радиуса
$t=`date`;
print FILE "$t: \t result: '$call' \t os err: '$^E' \t script err: '$?'\n";

логи пришлите сюда.

вы уверены, что такое происходит именно при закрытии консоли?
может сам ваш скрипт останавливается ?

Автор: lyl8000 4.8.2008, 14:09

логи в студию!

Код



.......

7517 7516 7515 7514 7513 7502

7517 7516 7515 7514 7513 7502

7517 7516 7515 7514 7513 7502                                     <<<<<<<<<---------- тут вручную убиваю радиус

Mon Aug  4 14:45:12 MSD 2008
:        result: 'Starting authorize radiusd:
'        os err: 'Bad file descriptor'   script err: '0'


7585                                                                                  <<<<<<<< ------------ тут радиус меееееедленно перезапускается этим скриптом

7585

7585

7585

7585

7612 7611 7610 7609 7608 7585

7612 7611 7610 7609 7608 7585

это когда я в консоли еще.

а вот случай когда я вышел из консоли и зашел снова:

Код


7612 7611 7610 7609 7608 7585

7612 7611 7610 7609 7608 7585

7612 7611 7610 7609 7608 7585                                     <<<<<<---------тут вручную убиваю радиус

Mon Aug  4 14:46:07 MSD 2008
:        result: 'Starting authorize radiusd:                         <<<<<<<--- вот эту фразу кстати пишет скрипт /etc/init.d/radius.sh  но радиус не поднимается :(
'        os err: 'Bad file descriptor'   script err: '0'


Mon Aug  4 14:46:12 MSD 2008
:        result: 'Starting authorize radiusd:
'        os err: 'Bad file descriptor'   script err: '0'


Mon Aug  4 14:46:17 MSD 2008
:        result: 'Starting authorize radiusd:
'        os err: 'Bad file descriptor'   script err: '0'


Mon Aug  4 14:46:22 MSD 2008
:        result: 'Starting authorize radiusd:
'        os err: 'Bad file descriptor'   script err: '0'


Mon Aug  4 14:46:27 MSD 2008
:        result: 'Starting authorize radiusd:
'        os err: 'Bad file descriptor'   script err: '0'


Mon Aug  4 14:46:32 MSD 2008
:        result: 'Starting authorize radiusd:
'        os err: 'Bad file descriptor'   script err: '0'


Mon Aug  4 14:46:37 MSD 2008
:        result: 'Starting authorize radiusd:
'        os err: 'Bad file descriptor'   script err: '0'

во втором случае радиус так и не перезапустился.. причем фразу "Starting authorize radiusd:" пишет скрипт /etc/init.d/radius.sh . Таким образом получается что скрипт стартует, но радиус не поднимает ( а это, как я понимаю проблема уже из другой оперы..

все скрипты запускаю из под рута..

Автор: sir_nuf_nuf 4.8.2008, 14:25

А) хм... по пробуй не закрывать файловые дескрипторы, а перенаправлять их в /dev/null

Код


for my $handle (*STDIN *STDOUT *STDERR) {
    open($handle, "+<", "/dev/null") || die "can't reopen to /dev/null";
}

такое ощущение, что радиус что то пытается написать в закрытый дескриптор.

Б) подмени сам скрипт radiusd =)
на что то простое:

Код


#!/usr/bin/perl 
while(1) {
  open my $fh, ">/opt/log1.log";
  print $fh $$, "\n";
  close $fh;
  sleep(3);
}

т.е. перемести бинарник и на его место положи скрипт.

Автор: lyl8000 4.8.2008, 14:54

убрал вообще

close STDIN; close STDOUT; close STDERR;

ничего не поменялось...

а радиус стоит на рабочем сервере, там до 200 авторизаций в секунду )) не могу его подменить... надо вощем на кошках потренироваться. smile

потренируюсь - отпишусь.

Спасибо всем за помощь!!!!