FCL/sf/os/buildtools: bldsystemtools/commonbldutils/relnotes.pl@85578ba0aa08 (annotated)

25 85578ba0aa08 Revision: 201015 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: 0 diff changeset	1	#
85578ba0aa08 Revision: 201015 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: 0 diff changeset	2	# Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies).
85578ba0aa08 Revision: 201015 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: 0 diff changeset	3	# All rights reserved.
85578ba0aa08 Revision: 201015 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: 0 diff changeset	4	# This component and the accompanying materials are made available
85578ba0aa08 Revision: 201015 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: 0 diff changeset	5	# under the terms of "Eclipse Public License v1.0"
85578ba0aa08 Revision: 201015 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: 0 diff changeset	6	# which accompanies this distribution, and is available
85578ba0aa08 Revision: 201015 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: 0 diff changeset	7	# at the URL "http://www.eclipse.org/legal/epl-v10.html".
85578ba0aa08 Revision: 201015 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: 0 diff changeset	8	#
85578ba0aa08 Revision: 201015 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: 0 diff changeset	9	# Initial Contributors:
85578ba0aa08 Revision: 201015 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: 0 diff changeset	10	# Nokia Corporation - initial contribution.
85578ba0aa08 Revision: 201015 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: 0 diff changeset	11	#
85578ba0aa08 Revision: 201015 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: 0 diff changeset	12	# Contributors:
85578ba0aa08 Revision: 201015 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: 0 diff changeset	13	#
85578ba0aa08 Revision: 201015 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: 0 diff changeset	14	# Description:
85578ba0aa08 Revision: 201015 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: 0 diff changeset	15	#
0 83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	16	#!perl
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	17
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	18	# Release notes generator
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	19	# 07/10/1999 - 18/11/99 RH
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	20
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	21	use strict;
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	22
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	23	sub PrintLines { print OUTFILE join("\n",@_),"\n"; }
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	24
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	25	if (@ARGV!=2 \|\| ! -e $ARGV[0])
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	26	{
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	27	#........1.........2.........3.........4.........5.........6.........7.....
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	28	print <<USAGE_EOF;
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	29
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	30	--------------------------------------------------------------------------
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	31	Usage
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	32	-----
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	33	perl relnotes.pl <listfile> <path>
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	34
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	35	Generates an HTML document containing release notes for each
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	36	component.
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	37
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	38	<listfile> is a file containing a list of components and locations
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	39	in the format:
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	40	COMPNAME DIRECTORY [CH#1 CH#2]
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	41	eg
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	42	AGNMODEL AGNMODEL
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	43	Release documentation is collexted for all relevant changelists
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	44	in the range specified by <CH#1> and <CH#2>.
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	45
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	46	The first line of the file must contain the default values for
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	47	<CH#1> and <CH#2> separated by spaces.
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	48
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	49	<path> is a path specifier (which may include wildcards)that,
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	50	combined with the current view and the directory information in
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	51	<listfile>, gives unambiguous access to component source on the
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	52	appropriate branch(es) in the repository.
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	53
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	54	The file name of the component list is assumed to be the same as the
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	55	name of the target product.
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	56
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	57	It is also assumed that revision specifier <CH#1> is earlier than
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	58	revision specifier <CH#2>.
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	59
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	60	Note
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	61	----
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	62	Before using this utility, you must switch to a client that gives
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	63	visibility to those branches of the repository that contain the
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	64	submissions for which you want to extract release note documentation.
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	65
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	66	Example for Crystal
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	67	-------------------
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	68	Switch to a client that gives visibility to only //EPOC/Main/generic
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	69	and //EPOC/Main/Crystal. Then type:
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	70
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	71	perl relnotes.pl crystal.dat //EPOC/Main
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	72
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	73	This generates release notes in a file named Crystal.html
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	74	--------------------------------------------------------------------------
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	75
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	76	USAGE_EOF
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	77	exit 1;
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	78	}
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	79
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	80	my $listfile = $ARGV[0];
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	81	my $srcpath = $ARGV[1];
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	82	my $productname = $listfile;
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	83
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	84	$productname =~ s#.*[\\\/]##; # lose any leading path
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	85	$productname =~ s#\.[^\.]+$##; # lose any trailing extension
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	86
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	87	$productname = ucfirst lc $productname; # capitalise only first letter
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	88	$productname =~ s/_os_/_OS_/i; # Just making sure that OS is in caps
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	89	$productname =~ s/_gt$/_GT/i; # Just making sure that GT is in caps
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	90	$productname =~ s/_tv$/_TV/i; # Just making sure that TV is in caps
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	91
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	92	$srcpath =~ s/\/\.\.\.$//; # remove trailing /..., which slows things down
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	93
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	94	open INFILE, "< $listfile" or die "ERROR: Can't read $listfile\n";
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	95
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	96
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	97	my @listfile = <INFILE>;
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	98	my $firstline = shift @listfile;
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	99
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	100	$firstline =~ m/^\s*(\d+)\s+(\d+)/;
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	101	my $default_firstchange = $1;
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	102	my $default_lastchange = $2;
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	103
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	104	if (!($default_firstchange > 0) \|\| !($default_lastchange > 0))
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	105	{
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	106	die "ERROR: First line of $listfile must contain non-zero changelist numbers only\n";
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	107	}
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	108
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	109	my ( $s, $min, $hour, $mday, $mon, $year, $w, $y, $i)= localtime(time);
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	110	$year+= 1900;
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	111	$mon++;
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	112
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	113	open OUTFILE, "> $productname.html" or die "ERROR: Can't open $productname.html for output";
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	114	print OUTFILE <<HEADING_EOF;
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	115	<html>\n\n<head>\n<title>$productname Release Notes</title>\n</head>\n\n
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	116	<body bgcolor=\"#ffffff\" text=\"#000000\" link=\"#5F9F9F\" vlink=\"5F9F9F\">\n
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	117	<font face=verdana,arial,helvetica size=4>\n\n<hr>\n\n
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	118	<a name=\"list\"><h1>$productname Release Notes</h1></a>
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	119	<p>Created - $mday/$mon/$year\n
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	120	HEADING_EOF
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	121
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	122	my @newcomponents = ();
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	123	my @nochangecomponents = ();
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	124
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	125	foreach (@listfile)
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	126	{
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	127	my $firstchange = $default_firstchange;
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	128	my $lastchange = $default_lastchange;
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	129
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	130	my $newComponent = 0;
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	131
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	132	s/\s#.$//; # remove comments
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	133	if (/^\s*$/) { next; } # ignore blank lines
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	134
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	135	if (/^\s*\S+\s+\S+\s+(\d+)\s+(\d+)/) # get any non-default changelist numbers
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	136	{
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	137	$firstchange = $1;
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	138	$lastchange = $2;
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	139
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	140	$newComponent = 1 if ($firstchange == 0);
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	141	}
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	142
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	143	if (/^\s*(\S+)\s+(\S+)/) # parse component data
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	144	{
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	145	my $compname = uc $1;
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	146	my $topdir = $2;
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	147
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	148	my $preform = 0;
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	149	my $changeCount = 0;
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	150
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	151	$firstchange++; # inc changelist number so we don't include the very first submission - it would have been picked up in the last run of this script
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	152
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	153	print "Processing $compname\n";
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	154	my @complines = ();
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	155
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	156	my $command = "p4 changes -l -s submitted $srcpath/$topdir/...\@$firstchange,$lastchange";
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	157	my @compchange = `$command`;
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	158	die "ERROR: Could not execute: $command\n" if $?;
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	159
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	160	foreach my $line (@compchange)
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	161	{
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	162	if ($line !~ /\S/) { next; } # ignore lines with no text
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	163	chomp $line;
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	164	$line =~ s/\&/&/g;
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	165	$line =~ s/\</</g;
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	166	$line =~ s/\>/>/g;
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	167	$line =~ s/\"/"/g;
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	168
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	169	if ($line =~ /^Change\s+\d+/i)
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	170	{
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	171	$changeCount+=1;
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	172	$line =~ s/\s+by .*$//;
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	173	if ($preform)
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	174	{
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	175	push @complines, "</pre>";
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	176	$preform = 0;
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	177	}
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	178	push @complines, "<p><b>$line</b>";
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	179	push @complines, "<pre>";
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	180	$preform = 1;
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	181	next;
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	182	}
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	183
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	184	$line =~ s/^\s//; # drop first leading whitespace
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	185	$line =~ s/^\t/ /; # shorten any leading tab
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	186	if ($changeCount == 0)
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	187	{
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	188	warn "WARNING: Description contains text preceding \"Change\". Printing line to output file:\n$line\n";
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	189	}
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	190	push @complines, $line;
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	191	}
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	192	if ($changeCount == 0)
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	193	{
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	194	if ($newComponent)
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	195	{
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	196	push @newcomponents, $compname;
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	197	}
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	198	else
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	199	{
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	200	push @nochangecomponents, $compname;
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	201	}
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	202	next;
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	203	}
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	204	# Component with real change descriptions
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	205	if ($preform)
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	206	{
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	207	push @complines, "</pre>";
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	208	}
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	209	&PrintLines("<h2>$compname</h2>",@complines);
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	210	}
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	211	}
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	212	close INFILE;
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	213
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	214	if (scalar @newcomponents)
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	215	{
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	216	&PrintLines("<h2>New Components</h2>", join(", ", sort @newcomponents));
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	217	}
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	218
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	219	if (scalar @nochangecomponents)
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	220	{
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	221	&PrintLines("<h2>Unchanged Components</h2>", join(", ", sort @nochangecomponents));
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	222	}
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	223
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	224	&PrintLines("</BODY></HTML>");
83f4b4db085c Revision: 201005 Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com> parents: diff changeset	225	close OUTFILE;

author	Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com>
	Fri, 16 Apr 2010 16:10:01 +0300
changeset 25	85578ba0aa08
parent 0	83f4b4db085c
permissions	-rw-r--r--