--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/telephonyserverplugins/multimodetsy/group/gettxrx.pl	Tue Feb 02 01:41:59 2010 +0200
@@ -0,0 +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;
+		}
+	}
\ No newline at end of file