Звездочка - очень высокая средняя нагрузка без причины

Question

Окей, я разобрался. Это просто обходной путь, но проблема снизилась до приемлемого для меня уровня.

После нежелательной перезагрузки в середине дня я заметил, что Load Average сильно упал! Я проверил нашу систему мониторинга сервера - LA всегда понемногу поднимался за 3-4 часа непрерывной (и стабильной) нагрузки. Это было незаметно, потому что я не мог перезагрузить его в течение дня.

Как я уже сказал, у меня есть пара скриптов Perl, которые вызываются через AGI()приложение. Один из них вызывается в hрасширении; он просто выполняет один простой запрос к БД. Оказалось, что иногда БД немного перегружается; запросы должны ждать 200-500 мс; Asterisk должен ждать, пока скрипт Perl завершится.

Итак, я привязался к fork()своему скрипту Perl при запуске - заставив вызов AGI() возвращаться всегда немедленно. Это очень помогло! LA стал намного стабильнее. Это не полное решение - похоже, что-то все еще портится внутри Asterisk, но гораздо медленнее, это почти не проблема.

Для тех, кто ищет готовый к использованию фрагмент кода (не забудьте получить все переменные перед fork()ing, так как после этого вы не сможете к ним получить доступ $AGI):

my $AGI = new Asterisk::AGI;

# get all your variables here
my $var = $AGI->get_variable('var');

undef $AGI;

if (fork) { exit 0; };
open STDIN,  '<', '/dev/null'; # dont forget to free your parent's file handles
open STDOUT, '>', '/dev/null';
open STDERR, '>&STDOUT';

Похоже на ошибку, но интересно, почему, кроме меня, нет людей с такой проблемой.

ПРАВКА1:Ну, проблема полностью исчезла после устранения AGIвызовов. Я просто сделал пару пользовательских ODBCфункций ( func_odbc.conf), которые просто сохраняют информацию для асинхронной обработки (она обрабатывалась позже отдельным демоном perl). LA упал с 20-25 до 0,5-0,9 (!). Я никогда не думал, что AGIможет вызвать такую огромную нагрузку.

Answer 1