MCL/sf/os/usb: usbmgmt/usbmgrtest/automation/processLogs.pl@c9bc50fca66e (annotated)

0 c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	1	# Copyright (c) 2004-2009 Nokia Corporation and/or its subsidiary(-ies).
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	2	# All rights reserved.
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	3	# This component and the accompanying materials are made available
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	4	# under the terms of "Eclipse Public License v1.0"
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	5	# which accompanies this distribution, and is available
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	6	# at the URL "http://www.eclipse.org/legal/epl-v10.html".
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	7	#
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	8	# Initial Contributors:
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	9	# Nokia Corporation - initial contribution.
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	10	#
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	11	# Contributors:
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	12	#
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	13	# Description:
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	14	#
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	15
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	16	$suite = "";
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	17	$verbose = 1;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	18
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	19	$numtests = $ARGV[0];
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	20
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	21	open TESTS, $ARGV[1] or die "Cannot open $ARGV[1]";
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	22	%config = (tdlogs => "", logdir => "", mainlog => "");
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	23	CONFIG: while (<TESTS>) {
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	24	last CONFIG if /\[tests\]/i;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	25	next CONFIG if /^\n/;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	26	chomp;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	27	($var, $value) = split /=/, $_;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	28	if (exists $config{$var}) {
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	29	$config{$var} = $value;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	30	}
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	31	}
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	32	close TESTS;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	33
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	34	@rundirs = &find_rundirs;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	35	@sorted = sort {
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	36	$a =~ /RunNo([0-9]+)/;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	37	$l = $1;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	38	$b =~ /RunNo([0-9]+)/;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	39	$r = $1;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	40	$r <=> $l;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	41	} @rundirs;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	42
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	43	open MAIN, ">".$config{"mainlog"} or die "Can't open ".$config{"mainlog"}.": $!";
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	44	print MAIN <<EOT;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	45	<html>
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	46	<head>
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	47	<title>$suite Log</title></head>
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	48	<style type="text/css">
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	49	.pass { color: green; }
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	50	.fail { color: red; }
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	51	</style>
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	52	<body>
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	53	EOT
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	54	print "Number of test dirs to process: $numtests\n";
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	55	my @dirlist;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	56	for ($i = 0; $i < $numtests; $i++) {
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	57	$dirlist[$i] = $sorted[$i];
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	58	}
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	59	@dirlist = reverse @dirlist;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	60	for ($i = 0; $i < $numtests; $i++) {
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	61	&process_dir($dirlist[$i], "");
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	62	}
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	63	print MAIN "</body></html>";
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	64	close MAIN;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	65
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	66	sub find_rundirs {
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	67	my @rundirs;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	68	opendir(RESDIR, $config{"tdlogs"}) or die "Can't open ".$config{"tdlogs"}.": $!\n";
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	69	my @dirs = grep { /^[^.]/ } readdir(RESDIR);
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	70	close RESDIR;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	71	my $highest = 0;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	72	my $highDir = "";
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	73	for my $dir (@dirs) {
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	74	opendir(SUBDIR, $config{"tdlogs"}."\\$dir") or die "Can't open ".$config{"tdlogs"}."\\$dir: $!\n";
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	75	@subdirs = grep { /[^.]/ } readdir(SUBDIR);
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	76	for my $subdir (@subdirs) {
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	77	push @rundirs, $config{"tdlogs"}."\\$dir\\$subdir";
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	78	# print "Found ".$config{"tdlogs"}."\\$dir\\$subdir\n"
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	79	#$subdir =~ /RunNo([0-9]+)/;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	80	#if ($1 > $highest) {
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	81	# $highest = $1;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	82	# $highDir = $config{"tdlogs"}."\\$dir\\$subdir";
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	83	#}
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	84	}
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	85	close SUBDIR;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	86	}
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	87	#return $highDir;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	88	return @rundirs;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	89	}
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	90
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	91	sub process_dir {
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	92	my ($tdlogdir, $currdir) = @_;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	93	print "Processing $tdlogdir$currdir\n" if $verbose;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	94	chdir("$tdlogdir$currdir");
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	95	#Find all log files that match the ones retrieved from the board and process them.
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	96	while (<*.htm>) {
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	97	/(.*)\.htm/;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	98	my $htmlog = $_;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	99	my $txtlog = "";
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	100	print "Looking for ".$config{"logdir"}."\\$suite$currdir\\$1.txt\n" if $verbose;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	101	if (-e $config{"logdir"}."\\$suite$currdir\\$1.txt") {
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	102	print "found $1.txt\n" if $verbose;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	103	$txtlog = $config{"logdir"}."\\$suite$currdir\\$1.txt";
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	104	}
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	105	&process_logs($1, $txtlog, $htmlog);
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	106	}
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	107
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	108	#Process subdirectories
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	109	opendir(DIR, "$tdlogdir$currdir") or die "Can't open $tdlogdir$currdir: $!\n";
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	110	my @dirs = grep { /^[^.]/ } readdir(DIR);
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	111	close DIR;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	112	for my $dir (@dirs) {
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	113	if (-d "$tdlogdir$currdir\\$dir") {
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	114	&process_dir($tdlogdir, "$currdir\\$dir");
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	115	}
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	116	}
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	117	}
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	118
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	119	sub process_logs {
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	120	my ($name, $txtlog, $htmlog) = @_;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	121	print MAIN "<b>$name Log</b><br/><br/>";
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	122	my $fail = 0;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	123	$fail += &process_txt_log($txtlog) unless $txtlog eq "";
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	124	$fail += &process_htm_log($htmlog);
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	125	if ($fail > 0) {
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	126	print MAIN "<b>$name: </b><span class=\"fail\"><b>$fail step(s) failed</b></span><br/>";
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	127	} else {
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	128	print MAIN "<b>$name: </b><span class=\"pass\"><b>All steps passed</b></span><br/>";
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	129	}
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	130	}
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	131
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	132	sub process_txt_log {
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	133	open LOG, $_[0] or die "Can't open".$_[0].": $!\n";
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	134	my $fail = 0;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	135	while (<LOG>) {
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	136	print MAIN "Command $_ : ";
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	137	$_ = <LOG>;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	138	print MAIN "<span class=\"pass\">PASS" if /pass/i;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	139	do { print MAIN "<span class=\"fail\">FAIL"; $fail++ } if /fail/i;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	140	print MAIN "</span><br/>";
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	141	}
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	142	close LOG;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	143	return $fail;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	144	}
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	145
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	146	sub process_htm_log {
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	147	open LOG, $_[0] or die "Can't open".$_[0].": $!\n";
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	148	print MAIN "<pre>\n";
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	149	my $fail = 0;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	150	LINE: while (<LOG>) {
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	151	next LINE if /<\/?html>/;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	152	if (/(FAIL\|ABORT\|PANIC\|INCONCLUSIVE\|UNKNOWN\|UNEXECUTED) = ([0-9]+)/) {
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	153	$fail += $2;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	154	}
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	155	print MAIN;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	156	}
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	157	print MAIN "</pre>\n";
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	158	return $fail;
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	159	}
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	160
c9bc50fca66e Revision: 201001 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	161

author	Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com>
	Tue, 02 Feb 2010 02:02:59 +0200
changeset 0	c9bc50fca66e
permissions	-rw-r--r--