Добрый день.
Имеется S8710. Настроена отсылка CDR на некий IP:PORT.
На удаленном UNIX-хосте указанный порт слушает простой скрипт и все что прилетает сбрасывает в текстовый файл.
При этом stat cdr pri - UP.
В один прекрасный момент файл на UNIX-машине перестает расти пока не сделаешь bu/rel cdr pri. И так может проработать еще несколько недель.
Подскажите как можно пофиксить.
S8710 перестают накапливатся CDR
Модератор: Administrator
-
anchor
- Постоянный участник форума
- Сообщения: 299
- Зарегистрирован: Вс 08 окт 2006, 16:44
- Откуда: Киев
- Контактная информация:
Пока нет физического доступа к каталистам с CLAN и серверу. На сервере пока нет также и tcpdump. Над этим работаю.olle писал(а):а пакетики по сетке посмотреть снифером - летают или нет в этот момент? на тот самый ип-порт. Локализовать
А пока для информации. Порт слушает простой перловый скрипт, который перенаправляет все что получает на порту в файл. Я не знаток perl, идею использования такой схемы украл на одном из форумов. Вот и собрал скриптик.
Код: Выделить всё
#!/usr/bin/perl
#
# netcat-dated.pl port output-mask
use IO::Socket;
$port = $ARGV[1];
$filename = $ARGV[0];
$server = IO::Socket::INET->new( Proto => 'tcp',
LocalPort => $port,
Listen => SOMAXCONN,
Reuse => 1) or die "Can not setup server on port $port";
($year,$mon,$mday) = (localtime)[5,4,3];
$ofile = sprintf("%s_%i_%02i_%02i.cdr", $filename, $year+1900, $mon+1, $mday);
print "Listening on $port, output to $ofile\n";
while ($client = $server->accept()) {
$client->autoflush(1);
$rec=0;
while (<$client>) {
($year,$mon,$mday) = (localtime)[5,4,3];
$ofile = sprintf("%s_%i_%02i_%02i.cdr", $filename, $year+1900, $mon+1, $mday);
open (OUT, ">>$ofile") or die "Can not open $ofile for out!\n";
print (OUT $_);
$rec++;
close (OUT);
}
close $client;
}
0;
Код: Выделить всё
display ip-services Page 3 of 4
SESSION LAYER TIMERS
Service Reliable Packet Resp Session Connect SPDU Connectivity
Type Protocol Timer Message Cntr Cntr Timer
CDR1 n 30 3 3 60