# Copyright (c) 2004-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

$count = @ARGV;
die "ERROR: Bad arguments\n\nUsage: \n\nlogsplit logfilename\n\n" if ($count!=1);

$state = 1;
while (<>) {
	if ($state==1) {
		# regular expression here searching for ---->START
		if (/=====> START /) {
			@fields = split /\[/;
			shift @fields;
			@fields = split /\]/;
			$_ = shift @fields;
			@fields = split / /;
			$filename = $fields[2];
			@fields = split /\\/, $filename;
			$filename = $fields[@fields-1];
			# open file here
			print "$filename \n";
			open LOGHANDLE, ">$filename"
				or die "FAILED: opening file $filename.\n($!)\n";
			$state=2;
		}
	}
	elsif ($state==2) {
		# regular expression here searching for ---->STOP
		if (/=====> STOP /) {
			# check that start and stop matches ?
			# close file here
			close LOGHANDLE;
			$state=1;
		}
		elsif (/=====> START /) {
			# Start found during a file...?
			close LOGHANDLE;
			die "FAILED: source file corrupt!\n\n";
		}
		else {
			print LOGHANDLE $_;
			# write line to file
		}
	}
}