mirror of
https://git.FreeBSD.org/ports.git
synced 2024-11-26 00:55:14 +00:00
0f865b7b6d
- Bump PORTREVISION PR: 110575 Submitted by: Alexander Logvinov <ports@logvinov.com> (maintainer)
143 lines
2.8 KiB
Plaintext
143 lines
2.8 KiB
Plaintext
--- libexec/kx-td1232.lib.orig Sun Mar 4 17:48:54 2007
|
|
+++ libexec/kx-td1232.lib Tue Mar 20 20:08:42 2007
|
|
@@ -10,70 +10,81 @@
|
|
# TESTLOG: Panasonic KX-TDA600.txt
|
|
#
|
|
sub parsecurcalls() {
|
|
- while ($str=<PBX_DATA>)
|
|
- {
|
|
- $stringnumber++;
|
|
- if ($str =~ /(\d{2})\/(\d{2})\/(\d{2}) (\d{2})\:(\d{2})(.{2}) (.{5}) (\d{2}) (.{25}).{5} (\d{2}):(\d{2})\'(\d{2}) (.{10}) (.{2})/){
|
|
- unitecurcalls();
|
|
- }else{
|
|
- if ($vars{debug} =~ /yes/i){
|
|
- if ($str !~ /^\s*$/){
|
|
- print $str;
|
|
+ while ($str=<PBX_DATA>)
|
|
+ {
|
|
+ $stringnumber++;
|
|
+ if ($str =~ /(\d{2})\/(\d{2})\/(\d{2}) (\d{2})\:(\d{2})(.{2}) (.{5}) (\d{2}) (.{25}).{5} (\d{2}):(\d{2})\'(\d{2}) (.{10}) (.{2})/){
|
|
+ unitecurcalls();
|
|
+ }else{
|
|
+ if ($vars{debug} =~ /yes/i){
|
|
+ if ($str !~ /^\s*$/){
|
|
+ print $str;
|
|
+ };
|
|
+ };
|
|
};
|
|
- };
|
|
- };
|
|
- };
|
|
+ };
|
|
};
|
|
|
|
sub unitecurcalls() {
|
|
-
|
|
- my $Month = $1;
|
|
- my $Day=$2;
|
|
- my $Year=$3+2000;
|
|
- my $code=$13;
|
|
-
|
|
- my $CallHour=&AmPmTo24($4,$6);
|
|
-
|
|
- if($14 eq 'FW' or $14 eq 'TR'){
|
|
- $forwarded =1;
|
|
- }else{
|
|
- $forwarded =0;
|
|
- };
|
|
-
|
|
- $CallMinute=$5;
|
|
-
|
|
- $internally=$7;
|
|
-
|
|
- $co=$8;
|
|
-
|
|
- $duration = (($10*60*60)+($11*60)+$12);
|
|
- $forIncoming=$9;
|
|
-
|
|
- $earlyIncoming=$10;
|
|
-
|
|
- $timeofcall = "$Year-$Month-$Day $CallHour\:$CallMinute\:00";
|
|
-
|
|
- if($forIncoming =~ /<I(NCOMING)?>\s*/i){
|
|
- $way='1';
|
|
- if ($forIncoming=~/(\d+)/)
|
|
- {
|
|
- $number=$1;
|
|
+ my $Day='';my $Month='';
|
|
+ # TDA600 has dd/mm/yy format
|
|
+ if($vars{model} eq 'KX-TDA600'){
|
|
+ $Day=$1;
|
|
+ $Month = $2;
|
|
}
|
|
- else {
|
|
- $number=0;
|
|
+ else { # 1232 has mm/dd/yy format
|
|
+ $Month = $1;
|
|
+ $Day=$2;
|
|
}
|
|
- }else{
|
|
- $way='2';
|
|
- $number=$forIncoming;
|
|
- $forIncoming =~ s/\D+//;
|
|
- $number = substr($forIncoming,0,100);
|
|
- };
|
|
-
|
|
- if ($timeofcall ne ""){
|
|
- $callsCount++;
|
|
- }
|
|
- #print("$stringnumber $timeofcall $forwarded $internally $co $way $number $duration\n");
|
|
- WriteRecord($timeofcall, $forwarded, $internally, $co, $way, $number, $duration);
|
|
+ my $Year=$3+2000;
|
|
+
|
|
+ my $code=$13;
|
|
+
|
|
+ my $CallHour=&AmPmTo24($4,$6);
|
|
+
|
|
+ if($14 eq 'FW' or $14 eq 'TR'){
|
|
+ $forwarded =1;
|
|
+ }else{
|
|
+ $forwarded =0;
|
|
+ };
|
|
+
|
|
+ $CallMinute=$5;
|
|
+
|
|
+ $internally=$7;
|
|
+
|
|
+ $co=$8;
|
|
+
|
|
+ $duration = (($10*60*60)+($11*60)+$12);
|
|
+ $forIncoming=$9;
|
|
+
|
|
+ $earlyIncoming=$10;
|
|
+
|
|
+ $timeofcall = "$Year-$Month-$Day $CallHour\:$CallMinute\:00";
|
|
+
|
|
+ if($forIncoming =~ /<I(NCOMING)?>\s*/i){
|
|
+ $way='1';
|
|
+ if ($forIncoming=~/(\d+)/)
|
|
+ {
|
|
+ $number=$1;
|
|
+ }
|
|
+ else {
|
|
+ $number=0;
|
|
+ }
|
|
+ }else{
|
|
+ $way='2';
|
|
+ $number=$forIncoming;
|
|
+ if ($forIncoming=~/([\d*#P]+)/)
|
|
+ {
|
|
+ $number=$1;
|
|
+ }
|
|
+
|
|
+ };
|
|
+
|
|
+ if ($timeofcall ne ""){
|
|
+ $callsCount++;
|
|
+ }
|
|
+ #print("$stringnumber $timeofcall $forwarded $internally $co $way $number $duration\n");
|
|
+ WriteRecord($timeofcall, $forwarded, $internally, $co, $way, $number, $duration);
|
|
}
|
|
|
|
1;
|