--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/messagingfw/msgtest/targetautomation/Script/logsplit.pl	Mon Jan 18 20:36:02 2010 +0200
@@ -0,0 +1,59 @@
+# 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
+		}
+	}
+}