Context Navigation

source: ProjectBuilder/devel/pb/lib/ProjectBuilder/Base.pm@ 313

Last change on this file since 313 was 313, checked in by Bruno Cornec, 16 years ago
WARNING: Modifications in progress. DOES NOT WORK Addition of a different origin for pbconf WIP
File size: 33.0 KB

Rev	Line
[2]	1	#!/usr/bin/perl -w
	2	#
[74]	3	# Base subroutines for the Project-Builder project
[2]	4	#
	5	# $Id$
	6	#
	7
[18]	8	use strict;
[5]	9	use lib qw (lib);
[2]	10	use File::Basename;
[9]	11	use File::Path;
[2]	12	use File::Temp qw /tempdir/;
[8]	13	use Data::Dumper;
[2]	14
[199]	15	use ProjectBuilder::Changelog qw (pb_changelog);
	16
[49]	17	$ENV{'PBETC'} = "$ENV{'HOME'}/.pbrc";
[5]	18
[74]	19	sub pb_env_init {
[2]	20
[273]	21	my $proj=shift \|\| undef;
	22	my $pbinit=shift \|\| undef;
[5]	23	my $ver;
	24	my $tag;
[2]	25
[107]	26	# For the moment not dynamic
	27	my $debug = 0; # Debug level
	28	my $LOG = *STDOUT; # Where to log
	29
[8]	30	#
[5]	31	# Check project name
[49]	32	# Could be with env var PBPROJ
	33	# or option -p
	34	# if not define take the first in conf file
[8]	35	#
[5]	36	if ((defined $ENV{'PBPROJ'}) &&
	37	(not (defined $proj))) {
	38	$proj = $ENV{'PBPROJ'};
	39	}
[69]	40
[49]	41	#
[313]	42	# We get the pbconf file for that project
[69]	43	# and use its content
	44	#
[313]	45	my ($pbconf) = pb_conf_read("$ENV{'PBETC'}","pbconf");
	46	print "DEBUG pbconf: ".Dumper($pbconf)."\n" if ($debug >= 1);
[69]	47
[313]	48	my %pbconf = %$pbconf;
[69]	49	if (not defined $proj) {
	50	# Take the first as the default project
[313]	51	$proj = (keys %pbconf)[0];
	52	if (($debug >= 0) and (defined $proj)) {
	53	print $LOG "WARNING: using $proj as default project as none has been specified\n"
	54	print $LOG "Please create a pbconf reference for project $proj in $ENV{'PBETC'}\nif you want to use another project\n";
	55	}
[69]	56	}
[313]	57	die "No project defined - use env var PBPROJ or -p proj or a pbconf entry in $ENV{'PBETC'}" if (not (defined $proj));
[69]	58
[313]	59	# That's always the environment variable that will be used
	60	$ENV{'PBPROJ'} = $proj;
	61
	62	if (not defined ($pbconf{$ENV{'PBPROJ'}})) {
	63	die "Please create a pbconf reference for project $ENV{'PBPROJ'} in $ENV{'PBETC'}\n";
	64	}
	65
[69]	66	#
[313]	67	# Detect the root dir for hosting all the content generated with pb
[69]	68	#
[313]	69	my ($pbroot) = pb_conf_get_if("pbroot");
	70	my %pbroot = %$pbroot;
	71
	72	if (not defined $ENV{'PBROOT'}) {
	73	if (not defined ($pbroot{$ENV{'PBPROJ'}})) {
	74	print $LOG "WARNING: no pbroot defined, using /var/cache\n";
	75	print $LOG "Please create a pbroot reference for project $ENV{'PBPROJ'} in $ENV{'PBETC'}\nif you want to use another directory\n";
	76	}
	77	# That's always the environment variable that will be used
	78	$ENV{'PBROOT'} = $pbroot{$ENV{'PBPROJ'}};
[273]	79	}
[108]	80	# Expand potential env variable in it
[313]	81	eval { $ENV{'PBROOT'} =~ s/(\$ENV.+\})/$1/eeg };
[69]	82
	83	#
[313]	84	# Set delivery directory
[49]	85	#
[313]	86	$ENV{'PBDESTDIR'}="$ENV{'PBROOT'}/$ENV{'PBPROJ'}/delivery";
	87
	88	#
	89	# Removes all directory existing below the delivery dir
	90	# as they are temp dir only
	91	# Files stay and have to be cleaned up manually if needed
	92	# those files serves as communication channels between pb phases
	93	# Removing them prevents a following phase to detect what has been done before
	94	#
	95	if (-d $ENV{'PBDESTDIR'}) {
	96	opendir(DIR,$ENV{'PBDESTDIR'}) \|\| die "Unable to open directory $ENV{'PBDESTDIR'}: $!";
	97	foreach my $d (readdir(DIR)) {
	98	next if ($d =~ /^\./);
	99	next if (-f "$ENV{'PBDESTDIR'}/$d");
	100	pb_rm_rf("$ENV{'PBDESTDIR'}/$d") if (-d "$ENV{'PBDESTDIR'}/$d");
[67]	101	}
[313]	102	closedir(DIR);
[49]	103	}
[313]	104	if (! -d "$ENV{'PBDESTDIR'}") {
	105	pb_mkdir_p($ENV{'PBDESTDIR'}) \|\| die "Unable to recursively create $ENV{'PBDESTDIR'}";
	106	}
[2]	107
[8]	108	#
[313]	109	# Set build directory
[8]	110	#
[313]	111	$ENV{'PBBUILDDIR'}="$ENV{'PBROOT'}/$ENV{'PBPROJ'}/build";
	112	if (! -d "$ENV{'PBBUILDDIR'}") {
	113	pb_mkdir_p($ENV{'PBBUILDDIR'}) \|\| die "Unable to recursively create $ENV{'PBBUILDDIR'}";
	114	}
	115
	116	#
	117	# Set temp directory
	118	#
	119	if (not defined $ENV{'TMPDIR'}) {
	120	$ENV{'TMPDIR'}="/tmp";
	121	}
	122	$ENV{'PBTMP'} = tempdir( "pb.XXXXXXXXXX", DIR => $ENV{'TMPDIR'}, CLEANUP => 1 );
	123
	124	# Not sure it'll still be needed
	125	#$pbrc{$ENV{'PBPROJ'}} = $topdir."/pbrc";
	126
	127	#
	128	# Check pbconf compliance
	129	#
	130	$ENV{'PBCONF'} = "$ENV{'PBROOT'}/$ENV{'PBPROJ'}/pbconf";
	131	if (not -d "$ENV{'PBCONF'}") {
	132	pb_mkdir_p("$ENV{'PBCONF'}");
	133	}
	134
	135
[273]	136	if (defined $pbinit) {
	137	print $LOG "Creating $ENV{'PBCONF'} directory\n";
	138	pb_mkdir_p("$ENV{'PBCONF'}");
	139	}
[313]	140	die "Project $ENV{'PBPROJ'} not Project-Builder compliant. Please populate $ENV{'PBCONF'}" if ( not -d "$ENV{'PBCONF'}");
[2]	141
[74]	142	my %version = ();
[108]	143	my %defpkgdir = ();
	144	my %extpkgdir = ();
	145	my %filteredfiles = ();
[300]	146	my %supfiles = ();
[74]	147
[313]	148	if ((-f "$ENV{'PBCONF'}/$ENV{'PBPROJ'}.pb") and (not defined $pbinit)) {
[74]	149	# List of pkg to build by default (mandatory)
[313]	150	my ($defpkgdir) = pb_conf_get("defpkgdir");
[74]	151	# List of additional pkg to build when all is called (optional)
	152	# Valid version names (optional)
	153	# List of files to filter (optional)
[313]	154	# Project version and tag (optional)
	155	my ($extpkgdir, $version, $filteredfiles, $supfiles, $pkgv, $pkgt) = pb_conf_get_if("extpkgdir","version","filteredfiles","supfiles","projver","projtag");
[74]	156	print "DEBUG: defpkgdir: ".Dumper($defpkgdir)."\n" if ($debug >= 1);
	157	print "DEBUG: extpkgdir: ".Dumper($extpkgdir)."\n" if ($debug >= 1);
	158	print "DEBUG: version: ".Dumper($version)."\n" if ($debug >= 1);
	159	print "DEBUG: filteredfiles: ".Dumper($filteredfiles)."\n" if ($debug >= 1);
[300]	160	print "DEBUG: supfiles: ".Dumper($supfiles)."\n" if ($debug >= 1);
[313]	161	die "Unable to find defpkgdir in $ENV{'PBCONF'}/$ENV{'PBPROJ'}.pb" if (not defined $defpkgdir);
[74]	162	# Global
	163	%defpkgdir = %$defpkgdir;
[114]	164	%extpkgdir = %$extpkgdir if (defined $extpkgdir);
[74]	165	%version = %$version if (defined $version);
	166	%filteredfiles = %$filteredfiles if (defined $filteredfiles);
[300]	167	%supfiles = %$supfiles if (defined $supfiles);
[106]	168	#
	169	# Get global Version/Tag
	170	#
[38]	171
[106]	172	if (not defined $ENV{'PBVER'}) {
[313]	173	if ((defined $pkgv) && (defined $pkgv->{$ENV{'PBPROJ'}})) {
	174	$ENV{'PBVER'}=$pkgv->{$ENV{'PBPROJ'}};
[106]	175	} else {
[313]	176	die "No projver found in $ENV{'PBCONF'}/$ENV{'PBPROJ'}.pb";
[106]	177	}
[98]	178	}
[313]	179	die "Invalid version name $ENV{'PBVER'} in $ENV{'PBCONF'}/$ENV{'PBPROJ'}.pb" if (($ENV{'PBVER'} !~ /[0-9.]+/) && (not defined $version) && ($ENV{'PBVER'} =~ /$version{$ENV{'PBPROJ'}}/));
[106]	180
	181	if (not defined $ENV{'PBTAG'}) {
[313]	182	if ((defined $pkgt) && (defined $pkgt->{$ENV{'PBPROJ'}})) {
	183	$ENV{'PBTAG'}=$pkgt->{$ENV{'PBPROJ'}};
[106]	184	} else {
[313]	185	die "No projtag found in $ENV{'PBCONF'}/$ENV{'PBPROJ'}.pb";
[106]	186	}
[98]	187	}
[313]	188	die "Invalid tag name $ENV{'PBTAG'} in $ENV{'PBCONF'}/$ENV{'PBPROJ'}.pb" if ($ENV{'PBTAG'} !~ /[0-9.]+/);
[106]	189	} else {
[273]	190	if (defined $pbinit) {
[313]	191	open(CONF,"> $ENV{'PBCONF'}/$ENV{'PBPROJ'}.pb") \|\| die "Unable to create $ENV{'PBCONF'}/$ENV{'PBPROJ'}.pb";
[273]	192	print CONF << "EOF";
	193	#
	194	# Project Builder configuration file
[313]	195	# For project $ENV{'PBPROJ'}
[273]	196	#
	197	# \$Id\$
	198	#
	199
	200	#
	201	# Which CMS system is used (Subversion, CVS or tar file content extracted)
	202	#
[313]	203	#cms $ENV{'PBPROJ'} = svn
	204	#cms $ENV{'PBPROJ'} = cvs
	205	#cms $ENV{'PBPROJ'} = flat
[273]	206
	207	#
	208	# Packager label
	209	#
[313]	210	#packager $ENV{'PBPROJ'} = "William Porte <bill\@$ENV{'PBPROJ'}.org>"
[273]	211	#
	212
	213	# For delivery to a machine by SSH (potentially the FTP server)
	214	# Needs hostname, account and directory
	215	#
[313]	216	#sshhost $ENV{'PBPROJ'} = www.$ENV{'PBPROJ'}.org
	217	#sshlogin $ENV{'PBPROJ'} = bill
	218	#sshdir $ENV{'PBPROJ'} = /$ENV{'PBPROJ'}/ftp
	219	#sshport $ENV{'PBPROJ'} = 22
[273]	220
	221	#
	222	# For Virtual machines management
	223	# Naming convention to follow: distribution name (as per ProjectBuilder::Distribution)
	224	# followed by '_' and by release number
	225	# a .vmtype extension will be added to the resulting string
	226	# a QEMU rhel_3 here means that the VM will be named rhel_3.qemu
	227	#
[313]	228	#vmlist $ENV{'PBPROJ'} = mandrake_10.1,mandrake_10.2,mandriva_2006.0,mandriva_2007.0,mandriva_2007.1,mandriva_2008.0,redhat_7.3,redhat_9,fedora_4,fedora_5,fedora_6,fedora_7,rhel_3,rhel_4,rhel_5,suse_10.0,suse_10.1,suse_10.2,suse_10.3,sles_9,sles_10,gentoo_nover,debian_3.1,debian_4.0,ubuntu_6.06,ubuntu_7.04,ubuntu_7.10
[273]	229
	230	#
	231	# Valid values for vmtype are
	232	# qemu, (vmware, xen, ... TBD)
[313]	233	#vmtype $ENV{'PBPROJ'} = qemu
[273]	234
	235	# Hash for VM stuff on vmtype
	236	#vmntp default = pool.ntp.org
	237
	238	# We suppose we can commmunicate with the VM through SSH
[313]	239	#vmhost $ENV{'PBPROJ'} = localhost
	240	#vmlogin $ENV{'PBPROJ'} = pb
	241	#vmport $ENV{'PBPROJ'} = 2222
[273]	242
	243	# Timeout to wait when VM is launched/stopped
	244	#vmtmout default = 120
	245
	246	# per VMs needed paramaters
[313]	247	#vmopt $ENV{'PBPROJ'} = -m 384 -daemonize
	248	#vmpath $ENV{'PBPROJ'} = /home/qemu
	249	#vmsize $ENV{'PBPROJ'} = 5G
[273]	250
	251	#
	252	# Global version/tag for the project
	253	#
[313]	254	#projver $ENV{'PBPROJ'} = devel
	255	#projtag $ENV{'PBPROJ'} = 1
[273]	256
	257	# Adapt to your needs:
	258	# Optional if you need to overwrite the global values above
	259	#
	260	#pkgver pkg1 = stable
	261	#pkgtag pkg1 = 3
	262	#pkgver nil
	263	#pkgtag nil
	264
	265	# Hash of default package/package directory
	266	#defpkgdir pkg1 = pkg1dir
	267
	268	# Hash of additional package/package directory
	269	#extpkgdir pkg1-doc = pkg1-docdir
	270
	271	# Hash of valid version names
	272	#version devel
	273	#version stable
	274
	275	# List of files per pkg on which to apply filters
	276	# Files are mentioned relatively to pbroot/defpkgdir
	277	#filteredfiles pkg1 = Makefile.PL
	278	#filteredfiles pkg1-doc = configure.in
[300]	279	#supfiles pkg1 = pkg1.init
[273]	280	EOF
	281	close(CONF);
	282	pb_mkdir_p("$ENV{'PBCONF'}/pbfilter") \|\| die "Unable to create $ENV{'PBCONF'}/pbfilter";
	283	open(CONF,"> $ENV{'PBCONF'}/pbfilter/all.pbf") \|\| die "Unable to create $ENV{'PBCONF'}/pbfilter/all.pbf";
	284	print CONF << "EOF";
	285	#
	286	# \$Id\$
	287	#
	288	# Filter for all files
	289	#
	290	# PBSRC is replaced by the source package format
[313]	291	#filter PBSRC = ftp://ftp.$ENV{'PBPROJ'}.org/src/%{name}-%{version}.tar.gz
[273]	292
	293	# PBVER is replaced by the version (\$pbver in code)
	294	#filter PBVER = \$pbver
	295
	296	# PBDATE is replaced by the date (\$pbdate in code)
	297	#filter PBDATE = \$pbdate
	298
	299	# PBLOG is replaced by the changelog if value is yes
	300	#filter PBLOG = yes
	301
	302	# PBTAG is replaced by the tag (\$pbtag in code)
	303	#filter PBTAG = \$pbtag
	304
	305	# PBREV is replaced by the revision (\$pbrev in code)
	306	#filter PBREV = \$pbrev
	307
	308	# PBPKG is replaced by the package name (\$pbpkg in code)
	309	#filter PBPKG = \$pbpkg
	310
	311	# PBPACKAGER is replaced by the packager name (\$pbpackager in code)
	312	#filter PBPACKAGER = \$pbpackager
	313
	314	# PBDESC contains the description of the package
	315	#filter PBDESC = "Bla-Bla"
	316
	317	# PBURL contains the URL of the Web site of the project
[313]	318	#filter PBURL = http://www.$ENV{'PBPROJ'}.org
[273]	319	EOF
	320	close(CONF);
	321	open(CONF,"> $ENV{'PBCONF'}/pbfilter/rpm.pbf") \|\| die "Unable to create $ENV{'PBCONF'}/pbfilter/rpm.pbf";
	322	print CONF << "EOF";
	323	#
	324	# \$Id\$
	325	#
	326	# Filter for rpm build
	327	#
	328
	329	# PBGRP is replaced by the RPM group of apps
[288]	330	# Cf: http://fedoraproject.org/wiki/RPMGroups
[273]	331	#filter PBGRP = Applications/Archiving
	332
	333	# PBDEP is replaced by the list of dependencies
	334	#filter PBDEP =
	335
	336	# PBSUF is replaced by the package name (\$pbpkg in code)
	337	#filter PBSUF = \$pbsuf
	338
	339	# PBOBS is replaced by the Obsolete line
	340	#filter PBOBS =
	341
	342	EOF
	343	close(CONF);
	344	open(CONF,"> $ENV{'PBCONF'}/pbfilter/deb.pbf") \|\| die "Unable to create $ENV{'PBCONF'}/pbfilter/deb.pbf";
	345	print CONF << "EOF";
	346	#
	347	# \$Id\$
	348	#
	349	# Filter for debian build
	350	#
	351	# PBGRP is replaced by the group of apps
	352	#filter PBGRP = utils
	353
	354	# PBVER is replaced by the version (\$pbver in code)
	355	#filter PBVER = \$pbver
	356
	357	# PBDEP is replaced by the list of dependencies
	358	#filter PBDEP =
	359
	360	# PBSUG is replaced by the list of suggestions
	361	#filter PBSUG =
	362
	363	# PBREC is replaced by the list of recommandations
	364	#filter PBREC =
	365
	366	# PBLOG is replaced by the changelog if value is yes
	367	#filter PBLOG = yes
	368
	369	# PBPKG is replaced by the package name (\$pbpkg in code)
	370	#filter PBPKG = \$pbpkg
	371
	372	# PBPACKAGER is replaced by the packager name (\$pbpackager in code)
	373	#filter PBPACKAGER = \$pbpackager
	374
	375	EOF
	376	close(CONF);
	377	open(CONF,"> $ENV{'PBCONF'}/pbfilter/md.pbf") \|\| die "Unable to create $ENV{'PBCONF'}/pbfilter/md.pbf";
	378	print CONF << "EOF";
[313]	379	# Specific group for Mandriva for $ENV{'PBPROJ'}
[273]	380	filter PBGRP = Archiving/Backup
	381	EOF
	382	close(CONF);
	383	open(CONF,"> $ENV{'PBCONF'}/pbfilter/novell.pbf") \|\| die "Unable to create $ENV{'PBCONF'}/pbfilter/novell.pbf";
	384	print CONF << "EOF";
[313]	385	# Specific group for SuSE for $ENV{'PBPROJ'}
[273]	386	filter PBGRP = Productivity/Archiving/Backup
	387	EOF
	388	close(CONF);
	389	pb_mkdir_p("$ENV{'PBCONF'}/pkg1/deb") \|\| die "Unable to create $ENV{'PBCONF'}/pkg1/deb";
	390	open(CONF,"> $ENV{'PBCONF'}/pkg1/deb/control") \|\| die "Unable to create $ENV{'PBCONF'}/pkg1/deb/control";
	391	print CONF << "EOF";
	392	Source: PBPKG
	393	Section: PBGRP
	394	Priority: optional
	395	Maintainer: PBPACKAGER
	396	Build-Depends: debhelper (>= 4.2.20), PBDEP
	397	Standards-Version: 3.6.1
	398
	399	Package: PBPKG
	400	Architecture: amd64 i386 ia64
	401	Section: PBGRP
	402	Priority: optional
	403	Depends: \${shlibs:Depends}, \${misc:Depends}, PBDEP
	404	Recommends: PBREC
	405	Suggests: PBSUG
	406	Description:
	407	PBDESC
	408	.
	409	Homepage: PBURL
	410
	411	EOF
	412	close(CONF);
	413	open(CONF,"> $ENV{'PBCONF'}/pkg1/deb/copyright") \|\| die "Unable to create $ENV{'PBCONF'}/pkg1/deb/copyright";
	414	print CONF << "EOF";
	415	This package is debianized by PBPACKAGER
	416	`date`
	417
	418	The current upstream source was downloaded from
[313]	419	ftp://ftp.$ENV{'PBPROJ'}.org/src/.
[273]	420
	421	Upstream Authors: Put their name here
	422
	423	Copyright:
	424
	425	This package is free software; you can redistribute it and/or modify
	426	it under the terms of the GNU General Public License as published by
	427	the Free Software Foundation; version 2 dated June, 1991.
	428
	429	This package is distributed in the hope that it will be useful,
	430	but WITHOUT ANY WARRANTY; without even the implied warranty of
	431	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	432	GNU General Public License for more details.
	433
	434	You should have received a copy of the GNU General Public License
	435	along with this package; if not, write to the Free Software
	436	Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,
	437	MA 02110-1301, USA.
	438
	439	On Debian systems, the complete text of the GNU General
	440	Public License can be found in /usr/share/common-licenses/GPL.
	441
	442	EOF
	443	close(CONF);
	444	open(CONF,"> $ENV{'PBCONF'}/pkg1/deb/changelog") \|\| die "Unable to create $ENV{'PBCONF'}/pkg1/deb/changelog";
	445	print CONF << "EOF";
	446	PBLOG
	447	EOF
	448	close(CONF);
	449	open(CONF,"> $ENV{'PBCONF'}/pkg1/deb/compat") \|\| die "Unable to create $ENV{'PBCONF'}/pkg1/deb/compat";
	450	print CONF << "EOF";
	451	4
	452	EOF
	453	close(CONF);
	454	open(CONF,"> $ENV{'PBCONF'}/pkg1/deb/pkg1.dirs") \|\| die "Unable to create $ENV{'PBCONF'}/pkg1/deb/pkg1.dirs";
	455	print CONF << "EOF";
	456	EOF
	457	close(CONF);
	458	open(CONF,"> $ENV{'PBCONF'}/pkg1/deb/pkg1.docs") \|\| die "Unable to create $ENV{'PBCONF'}/pkg1/deb/pkg1.docs";
	459	print CONF << "EOF";
	460	INSTALL
	461	COPYING
	462	AUTHORS
	463	NEWS
	464	README
	465	EOF
	466	close(CONF);
	467	open(CONF,"> $ENV{'PBCONF'}/pkg1/deb/rules") \|\| die "Unable to create $ENV{'PBCONF'}/pkg1/deb/rules";
	468	print CONF << 'EOF';
	469	#!/usr/bin/make -f
	470	# -- makefile --
	471	# Sample debian/rules that uses debhelper.
	472	# GNU copyright 1997 to 1999 by Joey Hess.
	473	#
	474	# $Id$
	475	#
	476
	477	# Uncomment this to turn on verbose mode.
	478	#export DH_VERBOSE=1
	479
	480	# Define package name variable for a one-stop change.
	481	PACKAGE_NAME = PBPKG
	482
	483	# These are used for cross-compiling and for saving the configure script
	484	# from having to guess our platform (since we know it already)
	485	DEB_HOST_GNU_TYPE ?= $(shell dpkg-architecture -qDEB_HOST_GNU_TYPE)
	486	DEB_BUILD_GNU_TYPE ?= $(shell dpkg-architecture -qDEB_BUILD_GNU_TYPE)
	487
	488	CFLAGS = -Wall -g
	489
	490	ifneq (,$(findstring noopt,$(DEB_BUILD_OPTIONS)))
	491	CFLAGS += -O0
	492	else
	493	CFLAGS += -O2
	494	endif
	495	ifeq (,$(findstring nostrip,$(DEB_BUILD_OPTIONS)))
	496	INSTALL_PROGRAM += -s
	497	endif
	498	config.status: configure
	499	dh_testdir
	500
	501	# Configure the package.
	502	CFLAGS="$(CFLAGS)" ./configure --host=$(DEB_HOST_GNU_TYPE) --build=$(DEB_BUILD_GNU_TYPE) --prefix=/usr
	503	--mandir=\$${prefix}/share/man
	504
	505	# Build both architecture dependent and independent
	506	build: build-arch build-indep
	507
	508	# Build architecture dependent
	509	build-arch: build-arch-stamp
	510
	511	build-arch-stamp: config.status
	512	dh_testdir
	513
	514	# Compile the package.
	515	$(MAKE)
	516
	517	touch build-stamp
	518
	519	# Build architecture independent
	520	build-indep: build-indep-stamp
	521
	522	build-indep-stamp: config.status
	523	# Nothing to do, the only indep item is the manual which is available as html in original source
	524	touch build-indep-stamp
	525
	526	# Clean up
	527	clean:
	528	dh_testdir
	529	dh_testroot
	530	rm -f build-arch-stamp build-indep-stamp #CONFIGURE-STAMP#
	531	# Clean temporary document directory
	532	rm -rf debian/doc-temp
	533	# Clean up.
	534	-$(MAKE) distclean
	535	rm -f config.log
	536	ifneq "$(wildcard /usr/share/misc/config.sub)" ""
	537	cp -f /usr/share/misc/config.sub config.sub
	538	endif
	539	ifneq "$(wildcard /usr/share/misc/config.guess)" ""
	540	cp -f /usr/share/misc/config.guess config.guess
	541	endif
	542
	543	dh_clean
	544
	545	# Install architecture dependent and independent
	546	install: install-arch install-indep
	547
	548	# Install architecture dependent
	549	install-arch: build-arch
	550	dh_testdir
	551	dh_testroot
	552	dh_clean -k -s
	553	dh_installdirs -s
	554
	555	# Install the package files into build directory:
	556	# - start with upstream make install
	557	$(MAKE) install prefix=$(CURDIR)/debian/$(PACKAGE_NAME)/usr mandir=$(CURDIR)/debian/$(PACKAGE_NAME)/us
	558	r/share/man
	559	# - copy html manual to temporary location for renaming
	560	mkdir -p debian/doc-temp
	561	dh_install -s
	562
	563	# Install architecture independent
	564	install-indep: build-indep
	565	dh_testdir
	566	dh_testroot
	567	dh_clean -k -i
	568	dh_installdirs -i
	569	dh_install -i
	570
	571	# Must not depend on anything. This is to be called by
	572	# binary-arch/binary-indep
	573	# in another 'make' thread.
	574	binary-common:
	575	dh_testdir
	576	dh_testroot
	577	dh_installchangelogs ChangeLog
	578	dh_installdocs
	579	dh_installman
	580	dh_link
	581	dh_strip
	582	dh_compress
	583	dh_fixperms
	584	dh_installdeb
	585	dh_shlibdeps
	586	dh_gencontrol
	587	dh_md5sums
	588	dh_builddeb
	589
	590	# Build architecture independant packages using the common target.
	591	binary-indep: build-indep install-indep
	592	$(MAKE) -f debian/rules DH_OPTIONS=-i binary-common
	593
	594	# Build architecture dependant packages using the common target.
	595	binary-arch: build-arch install-arch
	596	$(MAKE) -f debian/rules DH_OPTIONS=-a binary-common
	597
	598	# Build architecture depdendent and independent packages
	599	binary: binary-arch binary-indep
	600	.PHONY: clean binary
	601
	602	EOF
	603	close(CONF);
	604	pb_mkdir_p("$ENV{'PBCONF'}/pkg1/rpm") \|\| die "Unable to create $ENV{'PBCONF'}/pkg1/rpm";
	605	open(CONF,"> $ENV{'PBCONF'}/pkg1/rpm/pkg1.spec") \|\| die "Unable to create $ENV{'PBCONF'}/pkg1/rpm/pkg1.spec";
	606	print CONF << 'EOF';
	607	#
	608	# $Id$
	609	#
	610
	611	Summary: bla-bla
	612	Summary(fr): french bla-bla
	613
	614	Name: PBPKG
	615	Version: PBVER
	616	Release: PBTAGPBSUF
	617	License: GPL
	618	Group: PBGRP
	619	Url: PBURL
	620	Source: PBSRC
	621	BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(id -u -n)
	622	Requires: PBDEP
	623
	624	%description
	625	PBDESC
	626
	627	%description -l fr
	628	french desc
	629
	630	%prep
	631	%setup -q
	632
	633	%build
	634	%configure
[288]	635	make %{?_smp_mflags}
[273]	636
	637	%install
	638	%{__rm} -rf $RPM_BUILD_ROOT
	639	make DESTDIR=$RPM_BUILD_ROOT install
	640
	641	%clean
	642	%{__rm} -rf $RPM_BUILD_ROOT
	643
	644	%files
	645	%defattr(-,root,root)
	646	%doc ChangeLog
	647	%doc INSTALL COPYING README AUTHORS NEWS
	648
	649	%changelog
	650	PBLOG
	651
	652	EOF
	653	close(CONF);
	654	pb_mkdir_p("$ENV{'PBCONF'}/pkg1/pbfilter") \|\| die "Unable to create $ENV{'PBCONF'}/pkg1/pbfilter";
	655
	656	print "\nDo not to forget to commit the pbconf directory in your CMS if needed\n";
	657	print "After having renamed the pkg1 directory to your package's name \n\n";
	658	} else {
[313]	659	die "Unable to open $ENV{'PBCONF'}/$ENV{'PBPROJ'}.pb";
[273]	660	}
[98]	661	}
[8]	662	umask 0022;
[313]	663	return($debug,$LOG,\%pbconf, \%filteredfiles, \%supfiles, \%defpkgdir, \%extpkgdir);
[2]	664	}
[9]	665
[74]	666	# Internal mkdir -p function
	667	sub pb_mkdir_p {
[29]	668	my @dir = @_;
	669	my $ret = mkpath(@dir, 0, 0755);
	670	return($ret);
[9]	671	}
	672
[74]	673	# Internal rm -rf function
	674	sub pb_rm_rf {
[29]	675	my @dir = @_;
	676	my $ret = rmtree(@dir, 0, 0);
	677	return($ret);
[9]	678	}
	679
[74]	680	# Internal system function
	681	sub pb_system {
[29]	682
	683	my $cmd=shift;
[30]	684	my $cmt=shift \|\| $cmd;
[29]	685
[108]	686	print "$cmt... ";
[117]	687	#system("$cmd 2>&1 > $ENV{'PBTMP'}/system.log");
[293]	688	system($cmd);
[29]	689	if ($? == -1) {
[108]	690	print "failed to execute ($cmd) : $!\n";
[106]	691	pb_display_file("$ENV{'PBTMP'}/system.log");
[29]	692	} elsif ($? & 127) {
[108]	693	printf "child ($cmd) died with signal %d, %s coredump\n", ($? & 127), ($? & 128) ? 'with' : 'without';
[106]	694	pb_display_file("$ENV{'PBTMP'}/system.log");
	695	} elsif ($? == 0) {
[108]	696	print "OK\n";
[29]	697	} else {
[106]	698	printf "child ($cmd) exited with value %d\n", $? >> 8;
	699	pb_display_file("$ENV{'PBTMP'}/system.log");
[29]	700	}
[30]	701	}
[74]	702
[106]	703	sub pb_display_file {
	704
	705	my $file=shift;
	706
[117]	707	return if (not -f $file);
	708	open(FILE,"$file");
[106]	709	while (<FILE>) {
[108]	710	print $_;
[106]	711	}
	712	close(FILE);
	713	}
	714
[242]	715	# Function which returns a pointer on a table
	716	# corresponding to a set of values queried in the conf file
[88]	717	# and test the returned vaue as they need to exist in that case
	718	sub pb_conf_get {
	719
	720	my @param = @_;
[313]	721	my @return = pb_conf_get_if(@param);
[88]	722
[313]	723	die "No params found for $ENV{'PBPROJ'}" if (not defined @return);
	724
	725	foreach my $i (0..$#param) {
	726	die "No $param[$i] defined for $ENV{'PBPROJ'}" if (not defined $return[$i]);
	727	}
	728	return(@return);
	729	}
	730
	731	# Function which returns a pointer on a table
	732	# corresponding to a set of values queried in the conf file
	733	# Those value may be undef if they do not exist
	734	sub pb_conf_get_if {
	735
	736	my @param = @_;
	737
[242]	738	# Everything is returned via ptr1
[313]	739	my @ptr1 = pb_conf_read_if("$ENV{'PBETC'}", @param);
	740	my @ptr2 = pb_conf_read_if("$ENV{'PBCONF'}/$ENV{'PBPROJ'}.pb", @param);
[89]	741
[242]	742	my $p1;
	743	my $p2;
	744
[262]	745	#print "DEBUG: param1: ".Dumper(@ptr1)."\n"; # if ($debug >= 1);
	746	#print "DEBUG: param2: ".Dumper(@ptr2)."\n"; # if ($debug >= 1);
	747
[88]	748	foreach my $i (0..$#param) {
[262]	749	$p1 = $ptr1[$i];
	750	$p2 = $ptr2[$i];
[242]	751	# Always try to take the param from the home dir conf file in priority
	752	# in order to mask what could be defined under the CMS to allow for overloading
	753	if (not defined $p2) {
	754	# No ref in CMS project conf file so use the home dir one.
	755	$p1->{$ENV{'PBPROJ'}} = $p1->{'default'} if (not defined $p1->{$ENV{'PBPROJ'}});
	756	} else {
	757	# Ref found in CMS project conf file
	758	if (not defined $p1) {
	759	# No ref in home dir project conf file so use the CMS one.
	760	$p2->{$ENV{'PBPROJ'}} = $p2->{'default'} if (not defined $p2->{$ENV{'PBPROJ'}});
	761	$p1->{$ENV{'PBPROJ'}} = $p2->{$ENV{'PBPROJ'}};
	762	} else {
	763	# Both are defined - handling the overloading
	764	if (not defined $p1->{'default'}) {
	765	if (defined $p2->{'default'}) {
	766	$p1->{'default'} = $p2->{'default'};
	767	}
	768	}
	769
	770	if (not defined $p1->{$ENV{'PBPROJ'}}) {
	771	if (defined $p2->{$ENV{'PBPROJ'}}) {
	772	$p1->{$ENV{'PBPROJ'}} = $p2->{$ENV{'PBPROJ'}};
	773	} else {
	774	$p1->{$ENV{'PBPROJ'}} = $p1->{'default'};
	775	}
	776	}
	777	}
	778	}
[262]	779	$ptr1[$i] = $p1;
	780	#print "DEBUG: param ptr1: ".Dumper(@ptr1)."\n"; # if ($debug >= 1);
[88]	781	}
[242]	782	return(@ptr1);
[88]	783	}
	784
	785	# Function which returns a pointer on a hash
[74]	786	# corresponding to a declaration (arg2) in a conf file (arg1)
[313]	787	# if that conf file doesn't exist returns undef
	788	sub pb_conf_read_if {
	789
	790	my $conffile = shift;
	791	my @param = @_;
	792
	793	open(CONF,$conffile) \|\| return((undef));
	794	close(CONF);
	795	return(pb_conf_read($conffile,@param));
	796	}
	797
	798	# Function which returns a pointer on a hash
	799	# corresponding to a declaration (arg2) in a conf file (arg1)
[74]	800	sub pb_conf_read {
	801
	802	my $conffile = shift;
	803	my @param = @_;
	804	my $trace;
	805	my @ptr;
[291]	806	my %h;
[74]	807
[108]	808	my $debug = 0;
	809
[291]	810	open(CONF,$conffile) \|\| die "Unable to open $conffile";
	811	while(<CONF>) {
	812	if (/^\s([A-z0-9-_]+)\s+([[A-z0-9-_]+)\s=\s*(.+)$/) {
	813	print "DEBUG: 1:$1 2:$2 3:$3\n" if ($debug >= 1);
	814	$h{$1}{$2}=$3;
	815	}
[74]	816	}
[291]	817	close(CONF);
[74]	818
	819	for my $param (@param) {
[291]	820	push @ptr,$h{$param};
[74]	821	}
[291]	822	print "DEBUG: h:".Dumper(%h)." param:".Dumper(@param)." ptr:".Dumper(@ptr)."\n" if ($debug >= 1);
[89]	823	return(@ptr);
[74]	824	}
	825
[313]	826	# Analyze a url passed and return protocol, account, password, server, port, path
	827	sub pb_get_url {
	828
	829	my $url = shift \|\| undef;
	830
	831	# A URL has the format protocol://ac@host[:port][path[?query][#fragment]].
	832	my $url_regex = "([a-z]+?)://([-\w]+.[-\w.])(\d+)?(/.)?";
	833
	834	my ($proto,$account,$passwd,$server,$port,$path) = ;
	835	}
	836
	837
	838	# Setup environment for CMS system for URL passed
[74]	839	sub pb_cms_init {
	840
	841	my $proj = shift \|\| undef;
	842	my $ret;
	843
[89]	844	my ($cms) = pb_conf_get("cms");
[74]	845
[88]	846	if ($cms->{$proj} eq "svn") {
[74]	847	$ENV{'PBREVISION'}=`(cd "$ENV{'PBROOT'}" ; svnversion .)`;
	848	chomp($ENV{'PBREVISION'});
	849	$ENV{'PBCMSLOGFILE'}="svn.log";
[226]	850	} elsif ($cms->{$proj} eq "flat") {
	851	$ENV{'PBREVISION'}="flat";
[227]	852	$ENV{'PBCMSLOGFILE'}="flat.log";
[88]	853	} elsif ($cms->{$proj} eq "cvs") {
[106]	854	# Way too slow
	855	#$ENV{'PBREVISION'}=`(cd "$ENV{'PBROOT'}" ; cvs rannotate -f . 2>&1 \| awk '{print \$1}' \| grep -E '^[0-9]' \| cut -d. -f2 \|sort -nu \| tail -1)`;
	856	#chomp($ENV{'PBREVISION'});
	857	$ENV{'PBREVISION'}="CVS";
[74]	858	$ENV{'PBCMSLOGFILE'}="cvs.log";
[87]	859	#
	860	# Export content if needed
	861	#
[313]	862	my ($cvsrsh) = pb_conf_get_if("cvsrsh");
[299]	863	$ENV{'CVS_RSH'} = $cvsrsh->{$proj} if (defined $cvsrsh->{$proj});
[74]	864	} else {
[88]	865	die "cms $cms->{$proj} unknown";
[74]	866	}
[106]	867	return($cms);
[74]	868	}
	869
[106]	870	sub pb_cms_export {
	871	my $cms = shift;
	872	my $pbdate = shift \|\| undef;
[108]	873	my $source = shift;
[106]	874	my $destdir = shift;
[108]	875	my $tmp;
[115]	876	my $tmp1;
[106]	877
	878	if ($cms->{$ENV{'PBPROJ'}} eq "svn") {
[108]	879	if (-d $source) {
	880	$tmp = $destdir;
	881	} else {
	882	$tmp = $destdir."/".basename($source);
	883	}
[116]	884	pb_system("svn export $source $tmp","Exporting $source from SVN to $tmp");
[226]	885	} elsif ($cms->{$ENV{'PBPROJ'}} eq "flat") {
	886	if (-d $source) {
	887	$tmp = $destdir;
	888	} else {
	889	$tmp = $destdir."/".basename($source);
	890	}
	891	pb_system("cp -a $source $tmp","Exporting $source from DIR to $tmp");
[106]	892	} elsif ($cms->{$ENV{'PBPROJ'}} eq "cvs") {
	893	my $dir=dirname($destdir);
	894	my $base=basename($destdir);
[115]	895	if (-d $source) {
	896	$tmp1 = $source;
	897	$tmp1 =~ s\|$ENV{'PBROOT'}/\|\|;
	898	} else {
	899	$tmp1 = dirname($source);
	900	$tmp1 =~ s\|$ENV{'PBROOT'}/\|\|;
	901	$tmp1 = $tmp1."/".basename($source);
	902	}
[106]	903	# CVS needs a relative path !
[310]	904	my ($cvsroot) = pb_conf_get("cvsroot");
	905	pb_system("cd $dir ; cvs -d $cvsroot->{$ENV{'PBPROJ'}} export -D \"$pbdate\" -d $base $tmp1","Exporting $source from CVS to $destdir");
[106]	906	} else {
	907	die "cms $cms->{$ENV{'PBPROJ'}} unknown";
	908	}
	909	}
	910
[285]	911
	912	sub pb_create_authors {
	913
	914	my $authors=shift;
	915	my $dest=shift;
	916	my $cms=shift;
	917
[286]	918	return if ($authors eq "/dev/null");
	919	open(SAUTH,$authors) \|\| die "Unable to open $authors";
[285]	920	open(DAUTH,"> $dest/AUTHORS") \|\| die "Unable to create $dest/AUTHORS";
	921	print DAUTH "Authors of the project are:\n";
	922	print DAUTH "===========================\n";
[286]	923	while (<SAUTH>) {
[285]	924	my ($nick,$gcos) = split(/:/);
[286]	925	chomp($gcos);
[285]	926	print DAUTH "$gcos";
[286]	927	if (defined $cms) {
	928	print DAUTH " ($nick under $cms)\n";
	929	} else {
	930	print DAUTH "\n";
	931	}
[285]	932	}
	933	close(DAUTH);
[286]	934	close(SAUTH);
[285]	935	}
	936
[106]	937	sub pb_cms_log {
	938	my $cms = shift;
	939	my $pkgdir = shift;
[285]	940	my $dest = shift;
[286]	941	my $chglog = shift;
[285]	942	my $authors = shift;
[106]	943
[285]	944	pb_create_authors($authors,$dest,$cms->{$ENV{'PBPROJ'}});
	945
[106]	946	if ($cms->{$ENV{'PBPROJ'}} eq "svn") {
[286]	947	if (! -f "$dest/ChangeLog") {
	948	if (-x "/usr/bin/svn2cl") {
	949	pb_system("/usr/bin/svn2cl --group-by-day --authors=$authors -i -o $dest/ChangeLog $pkgdir","Generating ChangeLog from SVN");
	950	} else {
	951	# To be written from pbcl
	952	pb_system("svn log -v $pkgdir > $dest/$ENV{'PBCMSLOGFILE'}","Extracting log info from SVN");
	953	}
[285]	954	}
[226]	955	} elsif ($cms->{$ENV{'PBPROJ'}} eq "flat") {
[288]	956	if (! -f "$dest/ChangeLog") {
	957	pb_system("echo ChangeLog for $pkgdir > $dest/ChangeLog","Empty ChangeLog file created");
	958	}
[106]	959	} elsif ($cms->{$ENV{'PBPROJ'}} eq "cvs") {
	960	my $tmp=basename($pkgdir);
	961	# CVS needs a relative path !
[286]	962	if (! -f "$dest/ChangeLog") {
	963	if (-x "/usr/bin/cvs2cl") {
[288]	964	pb_system("/usr/bin/cvs2cl --group-by-day -U $authors -f $dest/ChangeLog $pkgdir","Generating ChangeLog from CVS");
[286]	965	} else {
	966	# To be written from pbcl
	967	pb_system("cvs log $tmp > $dest/$ENV{'PBCMSLOGFILE'}","Extracting log info from CVS");
	968	}
[285]	969	}
[106]	970	} else {
	971	die "cms $cms->{$ENV{'PBPROJ'}} unknown";
	972	}
	973	}
	974
[204]	975	sub pb_cms_getinfo {
	976	my $cms = shift;
	977	my $url = "";
	978	my $void = "";
[106]	979
[204]	980	if ($cms->{$ENV{'PBPROJ'}} eq "svn") {
	981	open(PIPE,"LANGUAGE=C svn info $ENV{'PBROOT'} \|") \|\| die "Unable to get svn info from $ENV{'PBROOT'}";
	982	while (<PIPE>) {
[206]	983	($void,$url) = split(/^URL:/) if (/^URL:/);
[204]	984	}
	985	close(PIPE);
[205]	986	chomp($url);
[226]	987	} elsif ($cms->{$ENV{'PBPROJ'}} eq "flat") {
[204]	988	} elsif ($cms->{$ENV{'PBPROJ'}} eq "cvs") {
	989	} else {
	990	die "cms $cms->{$ENV{'PBPROJ'}} unknown";
	991	}
	992	return($url);
	993	}
	994
	995	sub pb_cms_copy {
	996	my $cms = shift;
	997	my $oldurl = shift;
	998	my $newurl = shift;
	999
	1000	if ($cms->{$ENV{'PBPROJ'}} eq "svn") {
[212]	1001	pb_system("svn copy -m \"Creation of $newurl from $oldurl\" $oldurl $newurl","Copying $oldurl to $newurl ");
[226]	1002	} elsif ($cms->{$ENV{'PBPROJ'}} eq "flat") {
[204]	1003	} elsif ($cms->{$ENV{'PBPROJ'}} eq "cvs") {
	1004	} else {
	1005	die "cms $cms->{$ENV{'PBPROJ'}} unknown";
	1006	}
	1007	}
	1008
	1009	sub pb_cms_checkout {
	1010	my $cms = shift;
	1011	my $url = shift;
	1012	my $destination = shift;
	1013
	1014	if ($cms->{$ENV{'PBPROJ'}} eq "svn") {
	1015	pb_system("svn co $url $destination","Checking $url to $destination ");
[226]	1016	} elsif ($cms->{$ENV{'PBPROJ'}} eq "flat") {
[204]	1017	} elsif ($cms->{$ENV{'PBPROJ'}} eq "cvs") {
	1018	} else {
	1019	die "cms $cms->{$ENV{'PBPROJ'}} unknown";
	1020	}
	1021	}
	1022
[208]	1023	sub pb_cms_checkin {
	1024	my $cms = shift;
	1025	my $dir = shift;
	1026
[212]	1027	my $ver = basename($dir);
[208]	1028	if ($cms->{$ENV{'PBPROJ'}} eq "svn") {
[212]	1029	pb_system("svn ci -m \"Updated to $ver\" $dir","Checking in $dir");
[208]	1030	pb_system("svn up $dir","Updating $dir");
[226]	1031	} elsif ($cms->{$ENV{'PBPROJ'}} eq "flat") {
[208]	1032	} elsif ($cms->{$ENV{'PBPROJ'}} eq "cvs") {
	1033	} else {
	1034	die "cms $cms->{$ENV{'PBPROJ'}} unknown";
	1035	}
	1036	}
	1037
[204]	1038	sub pb_cms_isdiff {
	1039	my $cms = shift;
	1040
	1041	if ($cms->{$ENV{'PBPROJ'}} eq "svn") {
	1042	open(PIPE,"svn diff $ENV{'PBROOT'} \|") \|\| die "Unable to get svn diff from $ENV{'PBROOT'}";
	1043	my $l = 0;
	1044	while (<PIPE>) {
	1045	$l++;
	1046	}
	1047	return($l);
[226]	1048	} elsif ($cms->{$ENV{'PBPROJ'}} eq "flat") {
[204]	1049	} elsif ($cms->{$ENV{'PBPROJ'}} eq "cvs") {
	1050	} else {
	1051	die "cms $cms->{$ENV{'PBPROJ'}} unknown";
	1052	}
	1053	}
	1054
[77]	1055	# Get all filters to apply
	1056	# They're cumulative from less specific to most specific
	1057	# suffix is .pbf
	1058
	1059	sub pb_get_filters {
	1060
[108]	1061	# For the moment not dynamic
	1062	my $debug = 0; # Debug level
	1063	my $LOG = *STDOUT; # Where to log
	1064
[77]	1065	my @ffiles;
[235]	1066	my ($ffile00, $ffile0, $ffile1, $ffile2, $ffile3);
	1067	my ($mfile00, $mfile0, $mfile1, $mfile2, $mfile3);
[77]	1068	my $pbpkg = shift \|\| die "No package specified";
[236]	1069	my $dtype = shift \|\| "";
	1070	my $dfam = shift \|\| "";
	1071	my $ddir = shift \|\| "";
	1072	my $dver = shift \|\| "";
[77]	1073	my $ptr; # returned value pointer on the hash of filters
[79]	1074	my %ptr;
[291]	1075	my %h;
[77]	1076
[169]	1077	# Global filter files first, then package specificities
	1078	if (-d "$ENV{'PBCONF'}/pbfilter") {
[231]	1079	$mfile00 = "$ENV{'PBCONF'}/pbfilter/all.pbf" if (-f "$ENV{'PBCONF'}/pbfilter/all.pbf");
[169]	1080	$mfile0 = "$ENV{'PBCONF'}/pbfilter/$dtype.pbf" if (-f "$ENV{'PBCONF'}/pbfilter/$dtype.pbf");
	1081	$mfile1 = "$ENV{'PBCONF'}/pbfilter/$dfam.pbf" if (-f "$ENV{'PBCONF'}/pbfilter/$dfam.pbf");
	1082	$mfile2 = "$ENV{'PBCONF'}/pbfilter/$ddir.pbf" if (-f "$ENV{'PBCONF'}/pbfilter/$ddir.pbf");
	1083	$mfile3 = "$ENV{'PBCONF'}/pbfilter/$ddir-$dver.pbf" if (-f "$ENV{'PBCONF'}/pbfilter/$ddir-$dver.pbf");
	1084
[231]	1085	push @ffiles,$mfile00 if (defined $mfile00);
[169]	1086	push @ffiles,$mfile0 if (defined $mfile0);
	1087	push @ffiles,$mfile1 if (defined $mfile1);
	1088	push @ffiles,$mfile2 if (defined $mfile2);
	1089	push @ffiles,$mfile3 if (defined $mfile3);
	1090	}
	1091
[77]	1092	if (-d "$ENV{'PBCONF'}/$pbpkg/pbfilter") {
[231]	1093	$ffile00 = "$ENV{'PBCONF'}/$pbpkg/pbfilter/all.pbf" if (-f "$ENV{'PBCONF'}/$pbpkg/pbfilter/all.pbf");
[77]	1094	$ffile0 = "$ENV{'PBCONF'}/$pbpkg/pbfilter/$dtype.pbf" if (-f "$ENV{'PBCONF'}/$pbpkg/pbfilter/$dtype.pbf");
	1095	$ffile1 = "$ENV{'PBCONF'}/$pbpkg/pbfilter/$dfam.pbf" if (-f "$ENV{'PBCONF'}/$pbpkg/pbfilter/$dfam.pbf");
	1096	$ffile2 = "$ENV{'PBCONF'}/$pbpkg/pbfilter/$ddir.pbf" if (-f "$ENV{'PBCONF'}/$pbpkg/pbfilter/$ddir.pbf");
	1097	$ffile3 = "$ENV{'PBCONF'}/$pbpkg/pbfilter/$ddir-$dver.pbf" if (-f "$ENV{'PBCONF'}/$pbpkg/pbfilter/$ddir-$dver.pbf");
	1098
[231]	1099	push @ffiles,$ffile00 if (defined $ffile00);
[77]	1100	push @ffiles,$ffile0 if (defined $ffile0);
	1101	push @ffiles,$ffile1 if (defined $ffile1);
	1102	push @ffiles,$ffile2 if (defined $ffile2);
	1103	push @ffiles,$ffile3 if (defined $ffile3);
	1104	}
	1105	if (@ffiles) {
	1106	print $LOG "DEBUG ffiles: ".Dumper(\@ffiles)."\n" if ($debug >= 1);
[79]	1107
[291]	1108	foreach my $f (@ffiles) {
	1109	open(CONF,$f) \|\| next;
	1110	while(<CONF>) {
	1111	if (/^\s([A-z0-9-_]+)\s+([[A-z0-9-_]+)\s=\s*(.+)$/) {
	1112	$h{$1}{$2}=$3;
	1113	}
[79]	1114	}
[291]	1115	close(CONF);
[79]	1116
[291]	1117	$ptr = $h{"filter"};
	1118	print $LOG "DEBUG f:".Dumper($ptr)."\n" if ($debug >= 1);
	1119	}
[77]	1120	} else {
	1121	$ptr = { };
	1122	}
[79]	1123	%ptr = %$ptr;
	1124	return(\%ptr);
[77]	1125	}
	1126
[236]	1127	# Function which applies filter on pb build files
[77]	1128	sub pb_filter_file_pb {
	1129
	1130	my $f=shift;
	1131	my $ptr=shift;
	1132	my %filter=%$ptr;
	1133	my $destfile=shift;
	1134	my $dtype=shift;
[99]	1135	my $pbsuf=shift;
[297]	1136	my $pbproj=shift;
[80]	1137	my $pbpkg=shift;
	1138	my $pbver=shift;
	1139	my $pbtag=shift;
	1140	my $pbrev=shift;
	1141	my $pbdate=shift;
[108]	1142	my $defpkgdir = shift;
	1143	my $extpkgdir = shift;
[174]	1144	my $pbpackager = shift;
[285]	1145	my $chglog = shift \|\| undef;
[77]	1146
[108]	1147	# For the moment not dynamic
	1148	my $debug = 0; # Debug level
	1149	my $LOG = *STDOUT; # Where to log
	1150
[77]	1151	print $LOG "DEBUG: From $f to $destfile\n" if ($debug >= 1);
	1152	pb_mkdir_p(dirname($destfile)) if (! -d dirname($destfile));
	1153	open(DEST,"> $destfile") \|\| die "Unable to create $destfile";
	1154	open(FILE,"$f") \|\| die "Unable to open $f: $!";
	1155	while (<FILE>) {
	1156	my $line = $_;
	1157	foreach my $s (keys %filter) {
	1158	# Process single variables
[79]	1159	print $LOG "DEBUG filter{$s}: $filter{$s}\n" if ($debug >= 1);
[77]	1160	my $tmp = $filter{$s};
	1161	next if (not defined $tmp);
	1162	# Expand variables if any single one found
[79]	1163	print $LOG "DEBUG tmp: $tmp\n" if ($debug >= 1);
[77]	1164	if ($tmp =~ /\$/) {
	1165	eval { $tmp =~ s/(\$\w+)/$1/eeg };
	1166	# special case for ChangeLog only for pb
[259]	1167	} elsif (($s =~ /^PBLOG$/) && ($line =~ /^PBLOG$/)) {
[108]	1168	my $p = $defpkgdir->{$pbpkg};
	1169	$p = $extpkgdir->{$pbpkg} if (not defined $p);
[285]	1170	pb_changelog($dtype, $pbpkg, $pbver, $pbtag, $pbsuf, $p, \*DEST, $tmp, $chglog);
[254]	1171	$tmp = "";
[77]	1172	}
	1173	$line =~ s\|$s\|$tmp\|;
	1174	}
	1175	print DEST $line;
	1176	}
	1177	close(FILE);
	1178	close(DEST);
	1179	}
	1180
	1181	# Function which applies filter on files (external call)
	1182	sub pb_filter_file {
	1183
	1184	my $f=shift;
	1185	my $ptr=shift;
	1186	my %filter=%$ptr;
	1187	my $destfile=shift;
[298]	1188	my $pbproj=shift;
[80]	1189	my $pbpkg=shift;
	1190	my $pbver=shift;
	1191	my $pbtag=shift;
	1192	my $pbrev=shift;
	1193	my $pbdate=shift;
[174]	1194	my $pbpackager=shift;
[77]	1195
[108]	1196	# For the moment not dynamic
	1197	my $debug = 0; # Debug level
	1198	my $LOG = *STDOUT; # Where to log
	1199
[77]	1200	print $LOG "DEBUG: From $f to $destfile\n" if ($debug >= 1);
	1201	pb_mkdir_p(dirname($destfile)) if (! -d dirname($destfile));
	1202	open(DEST,"> $destfile") \|\| die "Unable to create $destfile";
	1203	open(FILE,"$f") \|\| die "Unable to open $f: $!";
	1204	while (<FILE>) {
	1205	my $line = $_;
	1206	foreach my $s (keys %filter) {
	1207	# Process single variables
	1208	print $LOG "DEBUG filter{$s}: $filter{$s}\n" if ($debug > 1);
	1209	my $tmp = $filter{$s};
	1210	next if (not defined $tmp);
	1211	# Expand variables if any single one found
	1212	if ($tmp =~ /\$/) {
	1213	eval { $tmp =~ s/(\$\w+)/$1/eeg };
	1214	}
	1215	$line =~ s\|$s\|$tmp\|;
	1216	}
	1217	print DEST $line;
	1218	}
	1219	close(FILE);
	1220	close(DEST);
	1221	}
	1222
	1223
[2]	1224	1;

Note: See TracBrowser for help on using the repository browser.

Download in other formats: