telephonyserverplugins/multimodetsy/group/gettxrx.pl
branchopencode
changeset 24 6638e7f4bd8f
parent 0 3553901f7fa8
--- 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