FCL/sf/os/fshell: libraries/clogger/pctools/cloggercolour.pl@849a0b46c767 (annotated)

0 7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	1	#!perl
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	2	# cloggercolour.pl
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	3	#
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	4	# Copyright (c) 2006 - 2010 Accenture. All rights reserved.
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	5	# This component and the accompanying materials are made available
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	6	# under the terms of the "Eclipse Public License v1.0"
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	7	# which accompanies this distribution, and is available
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	8	# at the URL "http://www.eclipse.org/legal/epl-v10.html".
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	9	#
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	10	# Initial Contributors:
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	11	# Accenture - Initial contribution
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	12	#
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	13
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	14	use strict;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	15	use Getopt::Long;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	16	use IO::File;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	17	use IO::Handle;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	18
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	19	sub ParseCommandLineArgs();
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	20	sub GetNextColour();
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	21
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	22	my $clogFile;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	23	my $outFile;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	24	my $plainText;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	25	my $colour = 0;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	26	my $deltaTimeStamps = 0;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	27	my $verbose;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	28
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	29	ParseCommandLineArgs();
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	30
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	31	my $logfile;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	32	my $htmlfile;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	33
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	34	if (defined $clogFile) {
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	35	print "Opening $clogFile for reading\n" if ($verbose);
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	36	$logfile = new IO::File;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	37	$logfile->open("<$clogFile") or die "ERROR: Can't open $clogFile for reading: $!\n";
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	38	} else {
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	39	print "Reading from STDIN\n" if ($verbose);
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	40	#$logfile = new IO::Handle;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	41	#$logfile->fdopen(fileno(STDIN), "r") or die "ERROR: can't open STDIN: $!\n";
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	42	$logfile = *STDIN;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	43	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	44	if (defined $outFile) {
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	45	print "Opening $outFile for writing\n" if ($verbose);
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	46	$htmlfile = new IO::File;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	47	$htmlfile->open(">$outFile") or die "ERROR: Can't open $outFile for writing: $!\n";
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	48	} else {
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	49	print "Writing to STDOUT\n" if ($verbose);
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	50	$htmlfile = *STDOUT;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	51	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	52	unless ($plainText) {
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	53	print $htmlfile "<html><body><pre>\n";
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	54	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	55
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	56	my %tagColours = {};
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	57	my $colours = 0;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	58	my $lastMillis = -1;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	59
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	60	while (my $line = <$logfile>) {
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	61	chomp $line;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	62	if ($line =~ m/^(\d{4}-\d{2}-\d{2} \d{2}\:\d{2}\:\d{2}\.\d{3})\: \[([^]]+)\] (.*)$/ ) {
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	63	my ($time, $tag, $text) = ($1, $2, $3);
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	64	my $deltaStr = "";
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	65	unless (exists $tagColours{$tag}) {
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	66	$tagColours{$tag} = GetNextColour();
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	67	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	68	if ($deltaTimeStamps) {
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	69	$time =~ m\|(\d{4})-(\d{2})-(\d{2}) (\d{2})\:(\d{2})\:(\d{2})\.(\d{3})\|;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	70	my ($year, $month, $day, $hour, $minute, $second, $millisecond) = ($1, $2, $3, $4, $5, $6, $7);
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	71	my $millis = ((((((((((($year12)+$month)31)+$day)24)+$hour)60)+$minute)60)+$second)1000)+$millisecond;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	72	my $delta = 0;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	73	if ($lastMillis != -1) {
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	74	$delta = $millis - $lastMillis;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	75	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	76	$lastMillis = $millis;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	77	$deltaStr = sprintf("(+% 4d)", $delta);
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	78	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	79
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	80	print $htmlfile "<font color=$tagColours{$tag}>" unless ($plainText) ;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	81	print $htmlfile "$time:$deltaStr [$tag] $text";
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	82	print $htmlfile "</font>" unless ($plainText);
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	83	print $htmlfile "\n";
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	84	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	85	else {
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	86	print STDERR "WARNING: could not parse line $. of $clogFile\n";
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	87	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	88	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	89
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	90
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	91	unless ($plainText) {
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	92	print $htmlfile "</pre></body></html>\n"
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	93	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	94	undef $logfile;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	95	undef $htmlfile;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	96
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	97	sub ParseCommandLineArgs() {
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	98	Getopt::Long::Configure ("bundling");
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	99	GetOptions('v+' => \$verbose, 'c' => \$colour, 'd' => \$deltaTimeStamps, 'p'=>\$plainText);
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	100	if ($#ARGV != -1) {
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	101	$clogFile = shift @ARGV;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	102	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	103	if ($#ARGV != -1) {
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	104	$outFile = shift @ARGV;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	105	} else {
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	106	if (defined $clogFile) {
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	107	$outFile = "$clogFile.html";
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	108	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	109	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	110	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	111
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	112	my $colours = 0;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	113
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	114	sub GetNextColour() {
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	115	if ($colour) {
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	116	# make a new colour
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	117	my $pattern = $colours % 6;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	118	my $newColour;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	119	++$pattern;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	120	if ($pattern > 3) {
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	121	$newColour = "#FF";
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	122	$pattern-=4;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	123	} else {
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	124	$newColour = "#00";
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	125	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	126	if ($pattern > 1) {
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	127	$newColour = "${newColour}80";
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	128	$pattern-=2;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	129	} else {
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	130	$newColour = "${newColour}00";
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	131	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	132	if ($pattern > 0) {
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	133	$newColour = "${newColour}FF";
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	134	} else {
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	135	$newColour = "${newColour}00";
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	136	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	137	++$colours;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	138	return $newColour;
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	139	} else {
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	140	return "#000000";
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	141	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	142	}
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	143
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	144	__END__
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	145
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	146	=head1 NAME
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	147
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	148	cloggerproc - Post-process clogger logs to add colour or timestamps
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	149
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	150	=head1 SYNOPSIS
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	151
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	152	cloggerproc [options] [infile [outfile]]
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	153
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	154	options:
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	155
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	156	=over 4
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	157
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	158	=item -d
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	159
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	160	Add a millisecond delta to timestamps
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	161
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	162	=item -c
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	163
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	164	Colour logging lines based on the tag
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	165
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	166	=item -v
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	167
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	168	verbose output
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	169
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	170	=item -h
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	171
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	172	Show this help
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	173
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	174	=back
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	175
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	176	=head1 DESCRIPTION
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	177
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	178
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	179	=head1 KNOWN BUGS
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	180
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	181	If the timestamp month or year rolls over during the log, the delta will be incorrect for the first logging line in the new month/year.
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	182
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	183	=head1 COPYRIGHT
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	184
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	185	Copyright (c) 2008-2010 Accenture. All rights reserved.
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	186
7f656887cf89 First submission to Symbian Foundation staging server. Tom Sutcliffe <thomas.sutcliffe@accenture.com> parents: diff changeset	187	=cut

author	Tom Sutcliffe <thomas.sutcliffe@accenture.com>
	Sun, 17 Oct 2010 18:43:12 +0100
changeset 86	849a0b46c767
parent 0	7f656887cf89
permissions	-rw-r--r--