--- a/telephonyserverplugins/multimodetsy/group/gettxrx.pl Mon May 03 13:37:20 2010 +0300
+++ b/telephonyserverplugins/multimodetsy/group/gettxrx.pl Thu May 06 15:10:38 2010 +0100
@@ -1,43 +1,43 @@
-# Copyright (c) 2002-2009 Nokia Corporation and/or its subsidiary(-ies).
-# All rights reserved.
-# This component and the accompanying materials are made available
-# under the terms of "Eclipse Public License v1.0"
-# which accompanies this distribution, and is available
-# at the URL "http://www.eclipse.org/legal/epl-v10.html".
-#
-# Initial Contributors:
-# Nokia Corporation - initial contribution.
-#
-# Contributors:
-#
-# Description:
-# Perl script to strip out the Tx: and Rx: information from a GSMTSY.TXT log file
-#
-#
-
-my $line;
-my $txrx = 0;
-my $lastx;
-while ($line=<>)
- {
- if ($line =~ /^\d\d\.\d\d:\d\d:\d\d\d\d\d\d/)
- {
- $line = substr $line,16;
- $txrx = 0;
- if ($line =~ /^(.)x:\t/)
- {
- if ($lastx eq $1)
- {
- $line = substr $line,4;
- }
- print $line;
- $txrx = 1;
- $lastx = $1;
- }
- next;
- }
- if ($txrx)
- {
- print $line;
- }
+# Copyright (c) 2002-2009 Nokia Corporation and/or its subsidiary(-ies).
+# All rights reserved.
+# This component and the accompanying materials are made available
+# under the terms of "Eclipse Public License v1.0"
+# which accompanies this distribution, and is available
+# at the URL "http://www.eclipse.org/legal/epl-v10.html".
+#
+# Initial Contributors:
+# Nokia Corporation - initial contribution.
+#
+# Contributors:
+#
+# Description:
+# Perl script to strip out the Tx: and Rx: information from a GSMTSY.TXT log file
+#
+#
+
+my $line;
+my $txrx = 0;
+my $lastx;
+while ($line=<>)
+ {
+ if ($line =~ /^\d\d\.\d\d:\d\d:\d\d\d\d\d\d/)
+ {
+ $line = substr $line,16;
+ $txrx = 0;
+ if ($line =~ /^(.)x:\t/)
+ {
+ if ($lastx eq $1)
+ {
+ $line = substr $line,4;
+ }
+ print $line;
+ $txrx = 1;
+ $lastx = $1;
+ }
+ next;
+ }
+ if ($txrx)
+ {
+ print $line;
+ }
}
\ No newline at end of file