Asterisk – Média de carga muito alta sem motivo

Question

Ok, eu descobri. Esta é apenas uma solução alternativa, mas o problema caiu para um nível aceitável para mim.

Após uma reinicialização indesejada no meio do dia, percebi que a média de carga caiu bastante! Verifiquei nosso sistema de monitoramento de servidor - LA sempre subia pouco a pouco em 3-4 horas de carga contínua (e estável). Isso foi imperceptível, porque não consegui reiniciá-lo no dia anterior.

Como eu disse, tenho alguns scripts Perl, que são chamados via AGI()aplicativo. Um deles é chamado em hextensão; ele apenas executa uma consulta simples ao banco de dados. Acontece que às vezes o banco de dados fica um pouco sobrecarregado; as consultas precisam esperar de 200 a 500 ms; O Asterisk tem que esperar até que o script Perl termine.

Então, eu usei fork()meu script Perl no início - fazendo com que a chamada AGI() retornasse sempre imediatamente. Isso ajudou muito! LA tornou-se muito estável. Esta não é uma solução completa - parece algo que ainda está corrompendo o interior do Asterisk, mas muito mais lento, isso quase não é um problema.

Para quem busca um código pronto para uso (não se esqueça de obter todas as variáveis antes de fork()ing, pois não será possível acessá-las $AGIdepois):

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';

Parece um bug - mas me pergunto por que não há outras pessoas com esse problema além de mim.

EDITAR1:Bem, o problema desapareceu completamente após a eliminação AGIdas chamadas. Eu simplesmente criei algumas ODBCfunções personalizadas ( func_odbc.conf), que apenas salvam informações para processamento assíncrono (processadas posteriormente por um daemon perl separado). LA caiu de 20-25 para 0,5-0,9 (!). Nunca pensei AGIque pudesse causar uma carga tão grande.

Answer 1