# 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;

		}

	}