Re: ATSlog
Добавлено: 2012-04-11 11:29:30
Будьте добры, подскажите, какие параметры смотреть. php.ini вроде как дефолтный (скопированный из php.ini-recommended)iskiteamec писал(а):а в настойках php как с временем?
Каждые 14 миллиардов лет учёные запускают андронный коллайдер
https://forum.lissyara.su/
Будьте добры, подскажите, какие параметры смотреть. php.ini вроде как дефолтный (скопированный из php.ini-recommended)iskiteamec писал(а):а в настойках php как с временем?
Код: Выделить всё
Tue Apr 17 05:38:43 NOVT 2012 atslogd[28082]: Connected to 192.168.0.156:1001
Tue Apr 17 05:39:53 NOVT 2012 atslogd[28082]: Connection with remote peer 192.168.0.156:1001 has been closed
Tue Apr 17 05:39:53 NOVT 2012 atslogd[28082]: Reconnect
Tue Apr 17 05:39:53 NOVT 2012 atslogd[28082]: Connected to 192.168.0.156:1001
Tue Apr 17 05:41:03 NOVT 2012 atslogd[28082]: Connection with remote peer 192.168.0.156:1001 has been closed
Tue Apr 17 05:41:03 NOVT 2012 atslogd[28082]: Reconnect
Tue Apr 17 05:41:03 NOVT 2012 atslogd[28082]: Connected to 192.168.0.156:1001
Tue Apr 17 05:42:13 NOVT 2012 atslogd[28082]: Connection with remote peer 192.168.0.156:1001 has been closed
Tue Apr 17 05:42:13 NOVT 2012 atslogd[28082]: Reconnect
Tue Apr 17 05:42:13 NOVT 2012 atslogd[28082]: Connected to 192.168.0.156:1001
Tue Apr 17 05:42:13 NOVT 2012 atslogd[28082]: Can't open CDR file '/var/log/atslog_td/calls.log': Too many open files
Tue Apr 17 06:38:56 NOVT 2012 atslogmaster_td: file /var/log/atslog_td/currentcalls.log does not have any data!
Wed Apr 18 06:49:10 NOVT 2012 atslogmaster_td: file /var/log/atslog_td/currentcalls.log does not have any data!
Thu Apr 19 06:36:10 NOVT 2012 atslogmaster_td: file /var/log/atslog_td/currentcalls.log does not have any data!
Thu Apr 19 11:22:05 NOVT 2012 atslogmaster_td: Не доступен PID процесса либо демон не запущен.
Thu Apr 19 11:22:05 NOVT 2012 atslogd[21501]: Starting
Thu Apr 19 11:22:05 NOVT 2012 atslogd[21501]: Connected to 192.168.0.156:1001
Thu Apr 19 11:23:15 NOVT 2012 atslogd[21501]: Connection with remote peer 192.168.0.156:1001 has been closed
Thu Apr 19 11:23:15 NOVT 2012 atslogd[21501]: Reconnect
Thu Apr 19 11:23:15 NOVT 2012 atslogd[21501]: Connected to 192.168.0.156:1001
Thu Apr 19 11:24:22 NOVT 2012 atslogd_td[21501]: остановлен
Thu Apr 19 11:24:22 NOVT 2012 atslogd[21501]: Closing CDR stream
Thu Apr 19 11:24:22 NOVT 2012 atslogd[21501]: Exiting on signal 15
Thu Apr 19 11:24:22 NOVT 2012 atslogd[21533]: Starting
Thu Apr 19 11:24:22 NOVT 2012 atslogd[21533]: Connected to 192.168.0.156:1001
Thu Apr 19 11:25:32 NOVT 2012 atslogd[21533]: Connection with remote peer 192.168.0.156:1001 has been closed
Thu Apr 19 11:25:32 NOVT 2012 atslogd[21533]: Reconnect
Thu Apr 19 11:25:32 NOVT 2012 atslogd[21533]: Connected to 192.168.0.156:1001
Thu Apr 19 11:26:42 NOVT 2012 atslogd[21533]: Connection with remote peer
DeN_238 писал(а):Будьте добры, подскажите, какие параметры смотреть. php.ini вроде как дефолтный (скопированный из php.ini-recommended)iskiteamec писал(а):а в настойках php как с временем?
Всемогущий олл, подскажи, в какую сторону копать???DeN_238 писал(а):ЗЫ Оказывается, по какой-то причине, в отчет стали попадать данные ГОДОВОЙ давности, этого-же отчётного периода.
Код: Выделить всё
Tue May 08 10:14:47 EEST 2012 atslogd[92873]: Connected to 192.168.0.20:33333
Tue May 08 10:19:05 EEST 2012 atslogd[92873]: Closing CDR stream
Tue May 08 10:19:05 EEST 2012 atslogd[92873]: Exiting on signal 15
Tue May 8 10:19:05 EEST 2012 atslogd[92873]: stopped
Tue May 08 10:19:05 EEST 2012 atslogd[93329]: Starting
Tue May 08 10:19:05 EEST 2012 atslogd[93329]: Connected to 192.168.0.20:2300
Tue May 08 10:37:56 EEST 2012 atslogd[93329]: Closing CDR stream
Tue May 08 10:37:56 EEST 2012 atslogd[93329]: Exiting on signal 15
Tue May 8 10:37:56 EEST 2012 atslogd[93329]: stopped
Tue May 08 10:37:56 EEST 2012 atslogd[97894]: Starting
Tue May 08 10:37:56 EEST 2012 atslogd[97894]: Connected to 192.168.0.20:2300
Код: Выделить всё
-
-
Ну что тут скажешь, патчить и слать в порты, чтоб помочь остальным, ну или наконец найти автора и форкнуть.MASSER писал(а):после обновления PHP до версии 5.4 веб-морда atslog не работает из-за удаления функции import_request_variables() из новой версии PHP.
отправил баг-репорт мантейнеру, автор по-видимому уже не поддерживает свою программу.f_andrey писал(а):Ну что тут скажешь, патчить и слать в порты, чтоб помочь остальным, ну или наконец найти автора и форкнуть.
может кто возьмётся исправить...MASSER писал(а):отправил баг-репорт мантейнеру, автор по-видимому уже не поддерживает свою программу.f_andrey писал(а):Ну что тут скажешь, патчить и слать в порты, чтоб помочь остальным, ну или наконец найти автора и форкнуть.
только не ругайте, я не очено в php силён... но всёже, если заменитьFreeOwl писал(а):может кто возьмётся исправить...MASSER писал(а):отправил баг-репорт мантейнеру, автор по-видимому уже не поддерживает свою программу.f_andrey писал(а):Ну что тут скажешь, патчить и слать в порты, чтоб помочь остальным, ну или наконец найти автора и форкнуть.
придраться не к чему, разве что подчеркивание в конце префиксаFreeOwl писал(а):только не ругайте, я не очено в php силён... но всёже, если заменитьFreeOwl писал(а):может кто возьмётся исправить...MASSER писал(а):отправил баг-репорт мантейнеру, автор по-видимому уже не поддерживает свою программу.f_andrey писал(а):Ну что тут скажешь, патчить и слать в порты, чтоб помочь остальным, ну или наконец найти автора и форкнуть.
import_request_variables("gPc", "rvar_");
на
extract($_REQUEST, EXTR_PREFIX_ALL|EXTR_REFS, 'rvar');
в
../atslog/users/index.html - 22 строка
../atslog/settings/index.html - 42 строка
../atslog/phonebook/index.html - 21 строка
../atslog/lines/index.html - 23 строка
../atslog/intern/index.html - 23 строка
../atslog/include/set/functions.php -118 строка
../atslog/include/set/commonData.php - 7 строка
то вроде как работает
Код: Выделить всё
diff -ru work/atslog-2.1.1/www/include/set/commonData.php new/atslog-2.1.1/www/include/set/commonData.php
--- work/atslog-2.1.1/www/include/set/commonData.php 2006-12-06 18:45:04.000000000 +0300
+++ new/atslog-2.1.1/www/include/set/commonData.php 2012-06-15 12:56:55.000000000 +0400
@@ -4,6 +4,29 @@
// ПЮАНРНИ Б ПЕФХЛЕ register_globals
// ------------------------------------------------------------------------------------------------------
//
+$_rvar = array('day','mon','year','day2','mon2','year2',
+ 'cDay','cMon','cYear','cDay2','cMon2','cYear2','cRows',
+ 'order','sortBy','type','co','int','toprint','incoming','CityLine','MobLine','TrunkLine','NationalLine','cacheflush',
+ 'debug','newStatus','search','rows','page','export','lang','color','baseOrder','diatype'
+);
+foreach($_rvar as $_rvar_name){
+ if (!empty($_COOKIE[$_rvar_name]) {
+ $$_rvar_name = translateHtml($_COOKIE[$_rvar_name]);
+ } else if (!empty($_POST[$_rvar_name]) {
+ $$_rvar_name = translateHtml($_POST[$_rvar_name]);
+ } else if (!empty($_GET[$_rvar_name]) {
+ $$_rvar_name = translateHtml($_GET[$_rvar_name]);
+ }
+}
+if (isset($_COOKIE['num']) {
+ $num = translateHtml($_COOKIE['num']);
+} else if (isset($_POST['num']) {
+ $num = translateHtml($_POST['num']);
+} else if (isset($_GET['num']) {
+ $num = translateHtml($_GET['num']);
+}
+
+/*
import_request_variables("gPc", "rvar_");
if (!empty($rvar_day)) $day=translateHtml($rvar_day);
if (!empty($rvar_mon)) $mon=translateHtml($rvar_mon);
@@ -44,7 +67,7 @@
if (!empty($rvar_color)) $color=translateHtml($rvar_color);
if (!empty($rvar_baseOrder)) $baseOrder=translateHtml($rvar_baseOrder);
if (!empty($rvar_diatype)) $diatype=translateHtml($rvar_diatype);
-
+ */
// Export
if($export=="excel") {
include("../include/export/2excel.php");
@@ -155,4 +178,4 @@
if(empty($from_date)) $from_date=sprintf("%04d-%02d-%02d 00:00:00",$year,$mon,$day);
if(empty($to_date)) $to_date=sprintf("%04d-%02d-%02d 23:59:59",$year2,$mon2,$day2);
-?>
\ No newline at end of file
+?>
diff -ru work/atslog-2.1.1/www/include/set/functions.php new/atslog-2.1.1/www/include/set/functions.php
--- work/atslog-2.1.1/www/include/set/functions.php 2006-12-21 10:00:00.000000000 +0300
+++ new/atslog-2.1.1/www/include/set/functions.php 2012-06-15 12:47:15.000000000 +0400
@@ -114,9 +114,17 @@
echo $GUI_LANG['PCRESupportIsDisabled'];
exit();
}
-
-import_request_variables("gPc","rvar_");
-if(!empty($rvar_debug)) $debug=translateHtml($rvar_debug); else $debug=0;
+if (!empty($_COOKIE['debug']) {
+ $debug = translateHtml($_COOKIE['debug']);
+} else if (!empty($_POST['debug']) {
+ $debug = translateHtml($_POST['debug']);
+} else if (!empty($_GET['debug']) {
+ $debug= translateHtml($_GET['debug']);
+} else {
+ $debug=0;
+}
+//import_request_variables("gPc","rvar_");
+//if(!empty($rvar_debug)) $debug=translateHtml($rvar_debug); else $debug=0;
include('../include/adodb/adodb.inc.php'); // load code common to ADOdb
// яНГДЮДХЛ ЙЮРЮКНЦ ДКЪ ЙЕЬХПНБЮМХЪ ГЮОПНЯНБ.
if(!file_exists($ADODB_CACHE_DIR)) mkdir($ADODB_CACHE_DIR, 0777);
diff -ru work/atslog-2.1.1/www/intern/index.html new/atslog-2.1.1/www/intern/index.html
--- work/atslog-2.1.1/www/intern/index.html 2007-01-10 23:43:48.000000000 +0300
+++ new/atslog-2.1.1/www/intern/index.html 2012-06-15 12:42:18.000000000 +0400
@@ -20,13 +20,24 @@
// нАПЮАНРЮЕЛ ОЕПЕДЮБЮЕЛШЕ ЯЙПХОРС ОЕПЕЛЕММШЕ МЮ РЕЛС АЕГНОЮЯМНЯРХ Х ЯНБЛЕЯРХЛНЯРХ Я
// ПЮАНРНИ Б ПЕФХЛЕ register_globals
//
+$_rvar = array('debug','lang','color','msg','cacheflush');
+foreach($_rvar as $_rvar_name){
+ if (!empty($_COOKIE[$_rvar_name]) {
+ $$_rvar_name = translateHtml($_COOKIE[$_rvar_name]);
+ } else if (!empty($_POST[$_rvar_name]) {
+ $$_rvar_name = translateHtml($_POST[$_rvar_name]);
+ } else if (!empty($_GET[$_rvar_name]) {
+ $$_rvar_name = translateHtml($_GET[$_rvar_name]);
+ }
+}
+/*
import_request_variables("gPc", "rvar_");
if (!empty($rvar_debug)) $debug = translateHtml($rvar_debug);
if (!empty($rvar_lang)) $lang = translateHtml($rvar_lang);
if (!empty($rvar_color)) $color=translateHtml($rvar_color);
if (!empty($rvar_msg)) $msg=translateHtml($rvar_msg);
if (!empty($rvar_cacheflush)) $cacheflush=translateHtml($rvar_cacheflush);
-
+*/
// Load language
LanguageSetup($lang);
diff -ru work/atslog-2.1.1/www/lines/index.html new/atslog-2.1.1/www/lines/index.html
--- work/atslog-2.1.1/www/lines/index.html 2007-01-10 23:43:48.000000000 +0300
+++ new/atslog-2.1.1/www/lines/index.html 2012-06-15 12:41:50.000000000 +0400
@@ -20,13 +20,24 @@
// нАПЮАНРЮЕЛ ОЕПЕДЮБЮЕЛШЕ ЯЙПХОРС ОЕПЕЛЕММШЕ МЮ РЕЛС АЕГНОЮЯМНЯРХ Х ЯНБЛЕЯРХЛНЯРХ Я
// ПЮАНРНИ Б ПЕФХЛЕ register_globals
//
+$_rvar = array('debug','lang','color','msg','cacheflush');
+foreach($_rvar as $_rvar_name){
+ if (!empty($_COOKIE[$_rvar_name]) {
+ $$_rvar_name = translateHtml($_COOKIE[$_rvar_name]);
+ } else if (!empty($_POST[$_rvar_name]) {
+ $$_rvar_name = translateHtml($_POST[$_rvar_name]);
+ } else if (!empty($_GET[$_rvar_name]) {
+ $$_rvar_name = translateHtml($_GET[$_rvar_name]);
+ }
+}
+/*
import_request_variables("gPc", "rvar_");
if (!empty($rvar_debug)) $debug = translateHtml($rvar_debug);
if (!empty($rvar_lang)) $lang = translateHtml($rvar_lang);
if (!empty($rvar_color)) $color=translateHtml($rvar_color);
if (!empty($rvar_msg)) $msg=translateHtml($rvar_msg);
if (!empty($rvar_cacheflush)) $cacheflush=translateHtml($rvar_cacheflush);
-
+*/
// Load language
LanguageSetup($lang);
diff -ru work/atslog-2.1.1/www/phonebook/index.html new/atslog-2.1.1/www/phonebook/index.html
--- work/atslog-2.1.1/www/phonebook/index.html 2007-01-10 23:43:48.000000000 +0300
+++ new/atslog-2.1.1/www/phonebook/index.html 2012-06-15 12:41:04.000000000 +0400
@@ -18,6 +18,17 @@
// нАПЮАНРЮЕЛ ОЕПЕДЮБЮЕЛШЕ ЯЙПХОРС ОЕПЕЛЕММШЕ МЮ РЕЛС АЕГНОЮЯМНЯРХ Х ЯНБЛЕЯРХЛНЯРХ Я
// ПЮАНРНИ Б ПЕФХЛЕ register_globals
//
+$_rvar = array('debug','lang','color','onlyme','msg','new','export','cacheflush');
+foreach($_rvar as $_rvar_name){
+ if (!empty($_COOKIE[$_rvar_name]) {
+ $$_rvar_name = translateHtml($_COOKIE[$_rvar_name]);
+ } else if (!empty($_POST[$_rvar_name]) {
+ $$_rvar_name = translateHtml($_POST[$_rvar_name]);
+ } else if (!empty($_GET[$_rvar_name]) {
+ $$_rvar_name = translateHtml($_GET[$_rvar_name]);
+ }
+}
+/*
import_request_variables("gPc", "rvar_");
if (!empty($rvar_debug)) $debug = translateHtml($rvar_debug);
if (!empty($rvar_lang)) $lang = translateHtml($rvar_lang);
@@ -27,7 +38,7 @@
if (!empty($rvar_new)) $new=translateHtml($rvar_new);
if (!empty($rvar_export)) $export=translateHtml($rvar_export);
if (!empty($rvar_cacheflush)) $cacheflush=translateHtml($rvar_cacheflush);
-
+*/
// Load language
LanguageSetup($lang);
diff -ru work/atslog-2.1.1/www/settings/index.html new/atslog-2.1.1/www/settings/index.html
--- work/atslog-2.1.1/www/settings/index.html 2007-01-10 23:43:48.000000000 +0300
+++ new/atslog-2.1.1/www/settings/index.html 2012-06-15 12:35:56.000000000 +0400
@@ -39,14 +39,24 @@
// нАПЮАНРЮЕЛ ОЕПЕДЮБЮЕЛШЕ ЯЙПХОРС ОЕПЕЛЕММШЕ МЮ РЕЛС АЕГНОЮЯМНЯРХ Х ЯНБЛЕЯРХЛНЯРХ Я
// ПЮАНРНИ Б ПЕФХЛЕ register_globals
//
-import_request_variables("gPc", "rvar_");
-if (!empty($rvar_debug)) $debug = translateHtml($rvar_debug);
-if (!empty($rvar_lang)) $lang = translateHtml($rvar_lang);
-if (!empty($rvar_color)) $color=translateHtml($rvar_color);
-if (!empty($rvar_baseOrder)) $baseOrder=translateHtml($rvar_baseOrder);
+$_rvar = array('debug','lang','color','baseOrder','cRows','rows');
+foreach($_rvar as $_rvar_name){
+ if (!empty($_COOKIE[$_rvar_name]) {
+ $$_rvar_name = translateHtml($_COOKIE[$_rvar_name]);
+ } else if (!empty($_POST[$_rvar_name]) {
+ $$_rvar_name = translateHtml($_POST[$_rvar_name]);
+ } else if (!empty($_GET[$_rvar_name]) {
+ $$_rvar_name = translateHtml($_GET[$_rvar_name]);
+ }
+}
+//import_request_variables("gPc", "rvar_");
+//if (!empty($rvar_debug)) $debug = translateHtml($rvar_debug);
+//if (!empty($rvar_lang)) $lang = translateHtml($rvar_lang);
+//if (!empty($rvar_color)) $color=translateHtml($rvar_color);
+//if (!empty($rvar_baseOrder)) $baseOrder=translateHtml($rvar_baseOrder);
if(!empty($_POST['baseOrder'])) $baseOrder=$_POST['baseOrder'];
-if (!empty($rvar_cRows)) $cRows=translateHtml($rvar_cRows);
-if (!empty($rvar_rows)) $rows=translateHtml($rvar_rows);
+//if (!empty($rvar_cRows)) $cRows=translateHtml($rvar_cRows);
+//if (!empty($rvar_rows)) $rows=translateHtml($rvar_rows);
if(!isset($baseOrder) || $baseOrder!="ASC") $baseOrder="DESC";
if(!empty($cRows)) $rows = $cRows;
if(empty($rows)) $rows="100";
diff -ru work/atslog-2.1.1/www/users/index.html new/atslog-2.1.1/www/users/index.html
--- work/atslog-2.1.1/www/users/index.html 2007-01-10 23:43:48.000000000 +0300
+++ new/atslog-2.1.1/www/users/index.html 2012-06-15 12:39:21.000000000 +0400
@@ -19,13 +19,24 @@
// нАПЮАНРЮЕЛ ОЕПЕДЮБЮЕЛШЕ ЯЙПХОРС ОЕПЕЛЕММШЕ МЮ РЕЛС АЕГНОЮЯМНЯРХ Х ЯНБЛЕЯРХЛНЯРХ Я
// ПЮАНРНИ Б ПЕФХЛЕ register_globals
//
+$_rvar = array('debug','lang','color','msg','cacheflush');
+foreach($_rvar as $_rvar_name){
+ if (!empty($_COOKIE[$_rvar_name]) {
+ $$_rvar_name = translateHtml($_COOKIE[$_rvar_name]);
+ } else if (!empty($_POST[$_rvar_name]) {
+ $$_rvar_name = translateHtml($_POST[$_rvar_name]);
+ } else if (!empty($_GET[$_rvar_name]) {
+ $$_rvar_name = translateHtml($_GET[$_rvar_name]);
+ }
+}
+/*
import_request_variables("gPc", "rvar_");
if (!empty($rvar_debug)) $debug=translateHtml($rvar_debug);
if (!empty($rvar_lang)) $lang=translateHtml($rvar_lang);
if (!empty($rvar_color)) $color=translateHtml($rvar_color);
if (!empty($rvar_msg)) $msg=translateHtml($rvar_msg);
if (!empty($rvar_cacheflush)) $cacheflush=translateHtml($rvar_cacheflush);
-
+ */
// Load language
LanguageSetup($lang);
FreeBSD.orgFreeBSP писал(а):сие надо кому?
Код: Выделить всё
# ATSlog version 2.1.1 build 664 www.atslog.com
sub parsecurcalls()
{
while($str=<PBX_DATA>)
{
$stringnumber++;
if($str =~ /^(\d{4})\/(\d{2})\/(\d{2})\s+(\d{2})\:(\d{2})\:(\d{2})\,(\d{2})\:(\d{2
})\:(\d{2})\,(\d+)\,(\d+)\,(\w{1})\,(\d+)\,(\d+)\,\,(\d+)\,(\d+)\,(\d+)\,(\w+)\,(\w+)\,(\w
+)\,(\w+)\s+(\d{1}).*$/)
{
print("$1 $2 $3 $4 $5 $6 $7 $8 $9 $10 $11 $12 $13 $14 $15 $16 $17 $18 $19 $20
$21 $22\n");
unitecurcalls();
}
else
{
print("$stringnumber\n");
if ($vars{debug} =~ /yes/i)
{
if ($str !~ /^$/)
{
print $str;
};
};
};
};
};
sub unitecurcalls()
{
# Data i vremya YYYY-MM-DD HH:MM:SS
$timeofcall = "$1-$2-$3 $4:$5:$6";
# Naprovlenie
if($12 =~ /I/) {$forwarded = 1;}
else {$forwarded = 0;};
$internally = $11; # Kto zvonit
# Line
# if($21 =~ /Line 1/) {$co = 1;}
# elsif($21 =~ /Line 2/) {$co = 2;}
# elsif($21 =~ /Line 3/) {$co = 3;}
# elsif($21 =~ /Line 4/) {$co = 4;}
# else {$co = 0;};
if($22 =~ /1/ or /2/ or /3/ or/4/) {$co = $22;}
else {$co = 0;};
$way = 2; # ??? 1 or 2
$number = $13; # Kuda zvonyat
#Vremya razgovora
$duration = (($7 * 3600) + ($8 * 60) + $9);
if ($timeofcall ne "")
{
$callsCount++;
}
print("$timeofcall , $forwarded , $internally , $co , $way , $number , $duration\n");
WriteRecord($timeofcall, $forwarded, $internally, $co, $way, $number, $duration);
};
1;
Код: Выделить всё
2012 10 19 10 49 57 00 00 26 4 310 O 312 312 1 1003322 0 E310 Extn310 E312 Extn312
2012-10-19 10:49:57 , 0 , 310 , 0 , 2 , 312 , 26
19
2012/10/19 11:20:12,00:00:04,0,,I,#AA:AA01,,,0,1003340,1,T9001,Line 1.0,V9542,VM Channel 42,1,0,,,,,,,,,,,,,
20
2012/10/19 11:20:15,00:00:00,1,,O,318,318,,1,1003341,1,E318,Extn318,V8000,U12 0.0,0,0,,,,,,,,,,,,,
21
2012/10/19 11:20:15,00:00:00,1,,O,318,318,,1,1003341,0,E318,Extn318,V8000,U12 0.0,0,0,,,,,,,,,,,,,
22
2012/10/19 11:20:24,00:00:00,16,103,I,327,327,,0,1003342,0,E103,Extn103,E327,Extn327,0,0,,,,,,,,,,,,,
23
2012/10/19 11:20:12,00:00:35,2,,I,#AA:AA01,,,0,1003340,0,E318,Extn318,T9001,Line 1.0,0,0,,,,,,,,,,,,,
24
2012/10/19 11:21:54,00:00:08,0,,I,#AA:AA01,,,0,1003344,1,T9001,Line 1.0,V9542,VM Channel 42,1,0,,,,,,,,,,,,,
25
2012/10/19 11:22:01,00:00:00,1,,O,302,302,,1,1003345,1,E302,Extn302,V8000,U12 0.0,0,0,,,,,,,,,,,,,
26
2012/10/19 11:22:01,00:00:00,1,,O,302,302,,1,1003345,0,E302,Extn302,V8000,U12 0.0,0,0,,,,,,,,,,,,,
27
2012/10/19 11:19:49,00:02:55,6,308,O,102,102,,0,1003339,0,E308,Extn308,E102,п•xtn102,0,0,,,,,,,,,,,,,
28
2012/10/19 11:20:42,00:03:18,4,103,I,312,312,,0,1003343,0,E103,Extn103,E312,Extn312,0,0,,,,,,,,,,,,,
29
2012/10/19 11:21:54,00:02:31,3,,I,#AA:AA01,,,0,1003344,0,E302,Extn302,T9001,Line 1.0,0,0,,,,,,,,,,,,,
30
2012/10/19 11:24:53,00:01:10,5,100,I,300,300,,0,1003347,0,E100,Ext100,E300,Extn300,0,0,,,,,,,,,,,,,
А откуда гадость в имени пользователя?mooonx писал(а):А если попадается такая гадость ,п•xtn102, вместо ,Extn102,
w d s понятно, а как обозначить непонятные символы ?
Код: Выделить всё
# ATSlog version 2.2.0 build 688 www.atslog.com
#
# VENDOR: Avaya
# MODELS: IPOffice
sub parsecurcalls()
{
while($str=<PBX_DATA>)
{
$stringnumber++;
if($str =~ /^(\d{4})\/(\d{2})\/(\d{2})\s+(\d{2})\:(\d{2})\:(\d{2})\,(\d{2})\:(\d{2})\:(\d{2})\,(\d+)\,(\d*)\,(\w{1})\,([\w|\d|*|#]*)\,([\w|\d|*|#]*)\,([\w|\d]*)\,(\d+)\,(\d+)\,(\d+)\,([\w|\s|\d|.]+)\,([\w|\s|\d|.]+)\,([\w|\s|\d|.]+)\,([\w|\s|\d|.]+)\,(\d+)\,(\d+)\,(\d*)\,(\d*)\,(\d*)\,(\d*)\,(\d*)\,(\d*)\,(\d*)\,(\d*)\,(\d*)\,(\d*)\,([\w|\s|\d|.]*)\,([\w|\s|\d|.]*)\,(\d*)/)
{
print("$1 $2 $3 $4 $5 $6 $7 $8 $9 $10 $11 $12 $13 $14 $15 $16 $17 $18 $19 $20 $21 $22 $23 $24 $25 $26 $27 $28 $29 $30 $31 $32 $33 $34 $35 $36 $37\n");
unitecurcalls();
}
else
{
print("$stringnumber\n");
if ($vars{debug} =~ /yes/i)
{
if ($str !~ /^$/)
{
print $str;
};
};
};
};
};
sub unitecurcalls()
{
my $calltype = $16;
my $callers_number = $11;
my $sent_number=$13;
my $colinenum = 0;
# 1.Запуск вызова YYYY-MM-DD HH:MM:SS
$timeofcall = "$1-$2-$3 $4:$5:$6";
# 3.Время звонка
$duration = (($7 * 3600) + ($8 * 60) + $9);
#11. Продолжительность.
$forwarded = $18; # 1 Если для этого ID вызова существуют другие записи, 0 в ином случае
# 9.Внутренний
if ($calltype = 1) {
return; # Внутренний вызов!
}
# Номер CO линии
if ($21=~(/T9(\d{3})/)) { # 14. Устройство абонента 2
$colinenum=$1;
}
# 5.Направление
if($12 =~ /O/) {
$way=2; # outgoing
$internally=$callers_number; # 4.Вызывающий абонент
$number=$sent_number; #6. Набираемый номер, Исходящие вызовы: Набранные цифры.
$co=$colinenum;
} else {
$way=1; # incoming
$internally=$callers_number; # 4.Вызывающий абонент
$number=$sent_number; #6. Набираемый номер, Входящие вызовы: Целевой добавочный номер для вызова.
$co=$colinenum;
}
if ($timeofcall ne "")
{
$callsCount++;
}
print("$timeofcall , $forwarded , $internally , $co , $way , $number , $duration\n");
WriteRecord($timeofcall, $forwarded, $internally, $co, $way, $number, $duration);
};
1;
точкаmooonx писал(а):а как обозначить непонятные символы ?