Context Navigation

source: ProjectBuilder/devel/pb/bin/pb@ 1559

Last change on this file since 1559 was 1559, checked in by Bruno Cornec, 12 years ago
pb: Fix deb repo so that we will re-generate package information for all existing architectures so that if we generate slightly different _all packages (e.g. from the date being included), all of the architectures will be able to download the package generated by any of the builds. (Eric Anderson) pb: Be more verbose when the $ENV{HOME} in the VE case is not found, and split the 2 cases (VE vs non-VE) (Eric Anderson)
Property svn:executable set to ``*
File size: 148.0 KB

Rev	Line
[5]	1	#!/usr/bin/perl -w
	2	#
	3	# Project Builder main application
	4	#
	5	# $Id$
	6	#
[1248]	7	# Copyright B. Cornec 2007-2011
[5]	8	# Provided under the GPL v2
	9
[22]	10	# Syntax: see at end
[9]	11
[18]	12	use strict 'vars';
[1107]	13
	14	# The modules mentioned here are required by pb when used both
[1176]	15	# locally or inside a VE/VM/RM
[1107]	16	# Additional required modules only used locally are called with a require
	17	# in their respective section
[331]	18	use Getopt::Long qw(:config auto_abbrev no_ignore_case);
[1558]	19	use Carp qw/confess cluck/;
[9]	20	use Data::Dumper;
	21	use English;
[16]	22	use File::Basename;
[26]	23	use File::Copy;
[395]	24	use File::stat;
	25	use File::Temp qw(tempdir);
[872]	26	use File::Find;
[547]	27	use Time::localtime qw(localtime);
[13]	28	use POSIX qw(strftime);
[17]	29	use lib qw (lib);
[329]	30	use ProjectBuilder::Version;
[318]	31	use ProjectBuilder::Base;
[512]	32	use ProjectBuilder::Display;
[405]	33	use ProjectBuilder::Conf;
	34	use ProjectBuilder::Distribution;
[1469]	35	use ProjectBuilder::VCS;
[405]	36	use ProjectBuilder::CMS;
[416]	37	use ProjectBuilder::Env;
[405]	38	use ProjectBuilder::Filter;
[473]	39	use ProjectBuilder::Changelog;
[1348]	40	use ProjectBuilder::VE;
[473]	41
[397]	42	# Global variables
[1537]	43	$Global::pb_stop_on_error = 1;
[5]	44	my %opts; # CLI Options
[9]	45	my $action; # action to realize
[320]	46	my $test = "FALSE"; # Not used
[748]	47	my $pbforce = 0; # Force VE/VM rebuild
[968]	48	my $pbsnap = 0; # Do not use snapshot mode for VM/VE by default
[1425]	49	my $pbkeep = 0; # keep temporary directory at the end
[320]	50	my $option = ""; # Not used
	51	my @pkgs; # list of packages
[95]	52	my $pbtag; # Global Tag variable
	53	my $pbver; # Global Version variable
[141]	54	my $pbscript; # Name of the script
[77]	55	my %pbver; # per package
	56	my %pbtag; # per package
[53]	57	my $pbrev; # Global REVISION variable
[1176]	58	my $pbaccount; # Login to use to connect to the VM/RM
[1401]	59	my $pbtarget = undef; # Target os-ver-arch you want to build for
[1176]	60	my $pbport; # Port to use to connect to the VM/RM
[199]	61	my $newver; # New version to create
[792]	62	my $iso = undef; # ISO image for the VM to create
[5]	63
[320]	64	my @date = pb_get_date();
	65	my $pbdate = strftime("%Y-%m-%d", @date);
[5]	66
[331]	67	=pod
	68
	69	=head1 NAME
	70
	71	pb, aka project-builder.org - builds packages for your projects
	72
	73	=head1 DESCRIPTION
	74
	75	pb helps you build various packages directly from your project sources.
	76	Those sources could be handled by a CMS (Configuration Management System)
[748]	77	such as Subversion, CVS, Git, Mercurial... or being a simple reference to a compressed tar file.
[331]	78	It's based on a set of configuration files, a set of provided macros to help
	79	you keeping build files as generic as possible. For example, a single .spec
	80	file should be required to generate for all rpm based distributions, even
	81	if you could also have multiple .spec files if required.
	82
	83	=head1 SYNOPSIS
	84
[1401]	85	pb [-vhSq][-r pbroot][-p project][[-s script -a account -P port][-t [os-ver-arch]][-m os-ver-arch[,...]]][-g][-i iso] <action> [<pkg1> ...]
[331]	86
[1401]	87	pb [--verbose][--help][--man][--quiet][--snapshot][--revision pbroot][--project project][[--script script --account account --port port][--target [os-ver-arch]][--machine os-ver-arch[,...]]][--nographic][--iso iso][--rebuild] <action> [<pkg1> ...]
[331]	88
	89	=head1 OPTIONS
	90
	91	=over 4
	92
	93	=item B<-v\|--verbose>
	94
	95	Print a brief help message and exits.
	96
	97	=item B<-q\|--quiet>
	98
	99	Do not print any output.
	100
	101	=item B<-h\|--help>
	102
	103	Print a brief help message and exits.
	104
[748]	105	=item B<-S\|--snapshot>
	106
	107	Use the snapshot mode of VMs or VEs
	108
[331]	109	=item B<--man>
	110
	111	Prints the manual page and exits.
	112
[1120]	113	=item B<-t\|--target os-ver-arch>
[331]	114
[1120]	115	Name of the target system you want to build for.
	116	All if none precised.
	117
	118	=item B<-m\|--machine os-ver-arch[,os-ver-arch,...]>
	119
[1176]	120	Name of the Virtual Machines (VM), Virtual Environments (VE) or Remote Machines (RM)
[1552]	121	you want to build on (comma separated).
[331]	122	All if none precised (or use the env variable PBV).
	123
	124	=item B<-s\|--script script>
	125
[1176]	126	Name of the script you want to execute on the related VMs/VEs/RMs.
[331]	127
[1158]	128	=item B<-g\|--nographic>
[1124]	129
	130	Do not launch VMs in graphical mode.
	131
[331]	132	=item B<-i\|--iso iso_image>
	133
	134	Name of the ISO image of the distribution you want to install on the related VMs.
	135
	136	=item B<-a\|--account account>
	137
[1176]	138	Name of the account to use to connect on the related VMs/RMs.
[331]	139
	140	=item B<-P\|--port port_number>
	141
[1176]	142	Port number to use to connect on the related VMs/RMs.";
[331]	143
	144	=item B<-p\|--project project_name>
	145
	146	Name of the project you're working on (or use the env variable PBPROJ)
	147
	148	=item B<-r\|--revision revision>
	149
	150	Path Name of the project revision under the CMS (or use the env variable PBROOT)
	151
	152	=item B<-V\|--version new_version>
	153
	154	New version of the project to create based on the current one.
	155
[1425]	156	=item B<-k\|--keep>
	157
	158	Keep the temporary dir where files have been created in or der to help debug
	159
[1386]	160	=item B<--rebuild>
	161
	162	Only valid with the checkssh action, it alllows to automatically relaunch the build of the failed packages
	163
[1537]	164	=item B<--no-stop-on-error>
	165
	166	Continue through errors with best effort.
	167
[331]	168	=back
	169
	170	=head1 ARGUMENTS
	171
	172	<action> can be:
	173
	174	=over 4
	175
[1097]	176	=item B<sbx2build>
	177
	178	Create tar files for the project under your CMS.
	179	Current state of the exported content is taken.
	180	CMS supported are SVN, SVK, CVS, Git and Mercurial
	181	parameters are packages to build
	182	if not using default list
	183
[331]	184	=item B<cms2build>
	185
	186	Create tar files for the project under your CMS.
[1097]	187	Current state of the CMS is taken.
	188	CMS supported are SVN, SVK, CVS, Git and Mercurial
[331]	189	parameters are packages to build
	190	if not using default list
	191
	192	=item B<build2pkg>
	193
	194	Create packages for your running distribution
	195
	196	=item B<cms2pkg>
	197
	198	cms2build + build2pkg
	199
[1097]	200	=item B<sbx2pkg>
	201
	202	sbx2build + build2pkg
	203
[331]	204	=item B<build2ssh>
	205
	206	Send the tar files to a SSH host
	207
[1097]	208	=item B<sbx2ssh>
	209
	210	sbx2build + build2ssh
	211
[331]	212	=item B<cms2ssh>
	213
	214	cms2build + build2ssh
	215
	216	=item B<pkg2ssh>
	217
	218	Send the packages built to a SSH host
	219
	220	=item B<build2vm>
	221
	222	Create packages in VMs, launching them if needed
	223	and send those packages to a SSH host once built
[1176]	224	VM type supported are QEMU and KVM
[331]	225
	226	=item B<build2ve>
	227
	228	Create packages in VEs, creating it if needed
	229	and send those packages to a SSH host once built
	230
[1176]	231	=item B<build2rm>
	232
	233	Create packages in RMs, which should pre-exist,
	234	and send those packages to a SSH host once built
	235	RM means Remote Machine, and could be a physical or Virtual one.
	236	This is one buildfarm integration for pb.
	237
[1097]	238	=item B<sbx2vm>
	239
	240	sbx2build + build2vm
	241
	242	=item B<sbx2ve>
	243
	244	sbx2build + build2ve
	245
[1176]	246	=item B<sbx2rm>
	247
	248	sbx2build + build2rm
	249
[331]	250	=item B<cms2vm>
	251
	252	cms2build + build2vm
	253
	254	=item B<cms2ve>
	255
	256	cms2build + build2ve
	257
[1176]	258	=item B<cms2rm>
	259
	260	cms2build + build2rm
	261
[331]	262	=item B<launchvm>
	263
	264	Launch one virtual machine
	265
	266	=item B<launchve>
	267
	268	Launch one virtual environment
	269
	270	=item B<script2vm>
	271
	272	Launch one virtual machine if needed
	273	and executes a script on it
	274
	275	=item B<script2ve>
	276
	277	Execute a script in a virtual environment
	278
[1176]	279	=item B<script2rm>
	280
	281	Execute a script on a remote machine
	282
[331]	283	=item B<newvm>
	284
	285	Create a new virtual machine
	286
	287	=item B<newve>
	288
	289	Create a new virtual environment
	290
[346]	291	=item B<setupvm>
	292
	293	Setup a virtual machine for pb usage
	294
	295	=item B<setupve>
	296
	297	Setup a virtual environment for pb usage
	298
[1176]	299	=item B<setuprm>
	300
	301	Setup a remote machine for pb usage
	302
[1140]	303	=item B<sbx2setupvm>
	304
	305	Setup a virtual machine for pb usage using the sandbox version of pb instead of the latest stable
	306	Reserved to dev team.
	307
	308	=item B<sbx2setupve>
	309
	310	Setup a virtual environment for pb usage using the sandbox version of pb instead of the latest stable
	311	Reserved to dev team.
	312
[1176]	313	=item B<sbx2setuprm>
	314
	315	Setup a remote machine for pb usage using the sandbox version of pb instead of the latest stable
	316	Reserved to dev team.
	317
[748]	318	=item B<snapvm>
	319
	320	Snapshot a virtual machine for pb usage
	321
	322	=item B<snapve>
	323
	324	Snapshot a virtual environment for pb usage
	325
[1111]	326	=item B<updatevm>
	327
	328	Update the distribution in the virtual machine
	329
	330	=item B<updateve>
	331
	332	Update the distribution in the virtual environment
	333
[1176]	334	=item B<updaterm>
	335
	336	Update the distribution in the remote machine
	337
[783]	338	=item B<test2pkg>
	339
	340	Test a package locally
	341
[772]	342	=item B<test2vm>
	343
	344	Test a package in a virtual machine
	345
	346	=item B<test2ve>
	347
	348	Test a package in a virtual environment
	349
[1176]	350	=item B<test2rm>
	351
	352	Test a package in a remote machine
	353
[1386]	354	=item B<checkssh>
	355
	356	Check the delivery of the packages on the repository
	357
[331]	358	=item B<newver>
	359
	360	Create a new version of the project derived
	361	from the current one
	362
	363	=item B<newproj>
	364
	365	Create a new project and a template set of
	366	configuration files under pbconf
	367
[471]	368	=item B<announce>
	369
	370	Announce the availability of the project through various means
	371
[1117]	372	=item B<sbx2webssh>
[557]	373
[1117]	374	Create tar files for the website under your CMS.
	375	Current state of the exported content is taken.
	376	Deliver the content to the target server using ssh from the exported dir.
[557]	377
[1117]	378	=item B<cms2webssh>
	379
	380	Create tar files for the website from your CMS.
	381	Deliver the content to the target server using ssh from the DVCS.
	382
	383	=item B<sbx2webpkg>
	384
	385	Create tar files for the website under your CMS.
	386	Current state of the exported content is taken.
	387
	388	=item B<cms2webpkg>
	389
	390	Create tar files for the website under your CMS.
	391
[1495]	392	=item B<getconf>
	393
	394	Print the full configuration parameters as found in the various configuration files. help to debug conf issues.
	395
[739]	396	=item B<clean>
	397
	398	Purge the build and delivery directories related to the current project
	399
[1392]	400	=item B<cleanssh>
	401
	402	Purge the ssh server of its packages (only for testver and test packages)
	403
	404	=back
	405
[331]	406	<pkgs> can be a list of packages, the keyword 'all' or nothing, in which case the default list of packages is taken (corresponding to the defpkgdir list of arguments in the configuration file).
	407
	408	=head1 WEB SITES
	409
	410	The main Web site of the project is available at L<http://www.project-builder.org/>. Bug reports should be filled using the trac instance of the project at L<http://trac.project-builder.org/>.
	411
	412	=head1 USER MAILING LIST
	413
	414	None exists for the moment.
	415
	416	=head1 CONFIGURATION FILES
	417
	418	Each pb user may have a configuration in F<$HOME/.pbrc>. The values in this file may overwrite any other configuration file value.
	419
	420	Here is an example of such a configuration file:
	421
	422	#
	423	# Define for each project the URL of its pbconf repository
	424	# No default option allowed here as they need to be all different
	425	#
	426	# URL of the pbconf content
	427	# This is the format of a classical URL with the extension of additional schema such as
	428	# svn+ssh, cvs+ssh, ...
	429	#
	430	pbconfurl linuxcoe = cvs+ssh://:ext:bcornec@linuxcoe.cvs.sourceforge.net:/cvsroot/linuxcoe/pbconf
	431
	432	# This is normaly defined in the project's configuration file
	433	# Url of the project
	434	#
	435	pburl linuxcoe = cvs+ssh://:ext:bcornec@linuxcoe.cvs.sourceforge.net:/cvsroot/linuxcoe
	436
	437	# All these URLs needs to be defined here as the are the entry point
	438	# for how to build packages for the project
	439	#
	440	pbconfurl pb = svn+ssh://svn.project-builder.org/mondo/svn/pb/pbconf
	441	pbconfurl mondorescue = svn+ssh://svn.project-builder.org/mondo/svn/project-builder/mondorescue/pbconf
	442	pbconfurl collectl = svn+ssh://bruno@svn.mondorescue.org/mondo/svn/project-builder/collectl/pbconf
	443	pbconfurl netperf = svn+ssh://svn.mondorescue.org/mondo/svn/project-builder/netperf/pbconf
	444
	445	# Under that dir will take place everything related to pb
	446	# If you want to use VMs/chroot/..., then use $ENV{'HOME'} to make it portable
	447	# to your VMs/chroot/...
	448	# if not defined then /var/cache
	449	pbdefdir default = $ENV{'HOME'}/project-builder
	450	pbdefdir pb = $ENV{'HOME'}
	451	pbdefdir linuxcoe = $ENV{'HOME'}/LinuxCOE/cvs
	452	pbdefdir mondorescue = $ENV{'HOME'}/mondo/svn
	453
	454	# pbconfdir points to the directory where the CMS content of the pbconfurl is checked out
	455	# If not defined, pbconfdir is under pbdefdir/pbproj/pbconf
	456	pbconfdir linuxcoe = $ENV{'HOME'}/LinuxCOE/cvs/pbconf
	457	pbconfdir mondorescue = $ENV{'HOME'}/mondo/svn/pbconf
	458
	459	# pbdir points to the directory where the CMS content of the pburl is checked out
	460	# If not defined, pbdir is under pbdefdir/pbproj
	461	# Only defined if we have access to the dev of the project
	462	pbdir linuxcoe = $ENV{'HOME'}/LinuxCOE/cvs
	463	pbdir mondorescue = $ENV{'HOME'}/mondo/svn
	464
	465	# -daemonize doesn't work with qemu 0.8.2
	466	vmopt default = -m 384
	467
[1537]	468	=head1 COMMAND DETAILS
	469
	470	=head2 newproj
	471
	472	The newproj command creates a new project-builder project. To run this command you first need to define two variables in your ~/.pbrc file:
	473
	474	pbconfurl I<project> = file:///home/anderse/.git/project-builder-config/I<project>
	475	pbdefdir default = $ENV{HOME}/cache-project-builder
	476
	477	The first line defines the version controlled configuration information and the second defines the root directory for project-builder to use.
	478
	479	You can then run the command:
	480
[1554]	481	% pb -p I<$project> -r I<$version> newproj I<$pkg>
[1537]	482
[1554]	483	to create the new project. Running the newproj command will then generate the file $pbdefdir/$project/pbconf/$version/$project.pb, and the directory $pbdefdir/$project/pbconf/$version/$pkg. You will need to edit those files to make the later commands work.
[1537]	484
	485	=head2 cms2build
	486
[1554]	487	The cms2build command takes your files from the content management system and makes the two tar files that are necessary for building files. You need to have run the newproj command first. Then there are several steps for running this command:
[1537]	488
[1554]	489	=over 4
	490
	491	=item Update your $project.pb configuration file.
	492
[1555]	493	You need to set the pburl, pbrepo, pbwf, pbpackager, projver, projtag, testver, delivery, and defpkgdir lines as described in the configuration file. The pburl entry is used to find the source for your package. The pbrepo entry is used to build the .repo or .sources.list files for use by downloaders of the package. The pbwf entry indicates that the source tar file is named by I<package-name>-I<version>. The pbpackager entry will be stored in the packages and should be you or your team. The projver/projtag entries indicate the version of the software and the version of the packaging scripts. The testver entry when true indicates that the package is in a test version, so no log file is computed (can be long), and version is made up using a timstamp. The delivery entry gives the subdirectory under which the packages will be delivered on the repository, and the defpkgdir entry corresponds to the local subdirectory hosting the package content.
[1554]	494
[1555]	495	For example:
	496
[1554]	497	pburl Lintel = file:///home/anderse/projects/Lintel-0.2012.02.28.tar.gz
	498	pbrepo Lintel = http://tesla.hpl.hp.com/opensource
	499	pbwf Lintel = 1
	500	pbpackager Lintel = Eric Anderson <eric.anderson4@hp.com>
	501	projver Lintel = 0.2012.02.28
	502	projtag Lintel = 1
	503	testver Lintel = false
	504	delivery Lintel = production
	505	defpkgdir Lintel = Lintel-0.2012.02.28
	506
	507	=item Create the build .tar.gz files:
	508
	509	Then you need to take those files and create the initial tar files. Run a command like:
	510
[1537]	511	% pb -p $project -r $version cms2build
	512
	513	To create the $pbdefdir/$project/delivery/$project-$version.{,pbconf}.tar.gz files, the $version-$projtag.pb and pbrc files in the same directory.
	514
[1554]	515	=back
	516
[1537]	517	=head2 build2pkg
	518
[1549]	519	The build2pkg command takes the tar files created in the cms2build step and attempts to build binary packages for your current operating system. There are two steps:
[1537]	520
[1549]	521	=over 4
	522
	523	=item Update your filters and build files.
	524
	525	You probably need to edit the files describing the build steps in one of the $pbdefdir/$project/pbconf/$version/$project/{deb,rpm,pkg} directories and the filters in $pbdefdir/$project/pbconf/$version/pbfilter. Note that you can define additional filters and transforms in the .pbf files. The build files will be filtered by the filters defined in the .pbf files to generate the inputs to the build step. Therefore, if you change those files, you need to re-run the cms2build step.
	526
	527	=item Build the package.
	528
	529	Then you can run a command like:
	530
[1542]	531	% pb -p $project -r $version build2pkg
[1537]	532
[1542]	533	To create the files in $project/build that comprise your binary package(s).
	534
[1549]	535	=back
	536
[1542]	537	=head2 newve
	538
	539	The newve command creates a new virtual environment, i.e. a chrooted OS for building packages. Using a virtual environment is an efficient way to build packages on a related set of operating systems. The OS's have to be related because the kernel will be shared. Steps:
	540
	541	=over 4
	542
	543	=item Update ~/.pbrc
	544
	545	Update your ~/.pbrc file to specify the vepath, velist, velogin, and vetype variables, e.g.:
	546
	547	vepath default = $ENV{HOME}/cache-project-builder/chroot
	548	velist default = debian-6.0-i386
	549	velogin default = pb
	550	vetype default = chroot
	551
[1549]	552	If you are building for rpm style OS's, update the verpmtype option, and install the appropriate tool.
	553
	554	verpmtype default = rpmbootstrap
	555
[1542]	556	You may also choose to specify a mirror for the OS packages, and optionally http/ftp proxies. You can specify the proxies either through environment variables ($http_proxy/$ftp_proxy) or in the configuration file. The configuration file will be used if no corresponding environment variable has been set. For example, for debian and with a local squid proxy:
	557
	558	rbsmirrorsrv debian = http://mirrors1.kernel.org/debian/
	559	http_proxy default = http://localhost:3128/
	560	ftp_proxy default = http://localhost:3128/
	561
	562	=item Run the cms2build command
	563
	564	If you have deleted your $package/delivery directory, re-run the cms2build command as in the earlier step. This step is necessary to generate the I<package>/delivery/pbrc file.
	565
	566	=item Create the new virtual environment
	567
	568	Initialize the new operating system. This step will install the core OS packages for the virtual environment, e.g.:
	569
	570	% pb -v -p $project -m debian-6.0-i386 newve
	571
	572	=back
	573
	574	=head2 setupve
	575
[1545]	576	The setupve command prepares a virtual environment for use by project builder. In particular it installs project-builder from the packages into the virtual environment. Two sub-steps are necessary:
[1542]	577
[1545]	578	=over 4
	579
	580	=item Update $project.pb
	581
	582	You need to have a sshhost entry for setupve to work, so add one, even an invalid one, e.g.:
	583
	584	sshhost $project = foo.example.org
	585
	586	=item Setup the virtual environment
	587
[1542]	588	% pb -v -p $project -m debian-6.0-i386 setupve
	589
	590	If you prefer to install the current SVN version of project builder, you can substitute the setupve option by the sbx2setupv one.
	591
[1545]	592	=back
	593
	594	=head2 build2ve
	595
	596	The build2ve command is similar to the build2pkg command in that it will take the sources created by cms2build and turn them into binary packages. The command has two differences. First, it creates the packages in a virtual environment, i.e. the one made by an earlier setupve setup. Second it copies the resulting packages to a repository and builds the repository meta-data needed.
	597
[1549]	598	Three sub-steps are needed:
[1545]	599
	600	=over 4
	601
	602	=item Update $project.pb
	603
	604	You need to have a valid sshdir and sshhost entry for build2ve to work, so add them. Note that you need to be able to ssh from the host you run the command on to the repository host, preferably without needing to type in a password, so using ssh-agent or having a special passwordless project-builder ssh key will make this step easier.
	605
	606	sshhost $project = localhost
	607	sshdir $project = $home/cache-project-builder/repos
	608
[1549]	609	You may also need to specify additional repository files to use or rpms to install. Note the URL for repositories is not the URL of the repository, but the URL of a file that can be put in the yum.repos.d or apt.sources.d directory.
	610
	611	addrepo centos-5-i386 = http://localhost/pb/centos-extras.repo,http://mirror.centos.org/centos/5/extras/i386/RPMS/chrpath-0.13-3.el5.centos.i386.rpm
	612
	613	=item Update your filters and build files
	614
	615	You may need to update your filter files (*.pbf) as in the build2pkg step if you are building for a new OS or architecture.
	616
[1545]	617	=item Build the packages and copy them to the repository
	618
	619	% pb -v -p $project -m debian-6.0-i386 build2ve
	620
	621	=back
	622
	623	Debugging: If the build fails (and you did not specify the --no-stop-on-error) option, then the virtual environment and scripts should still be present and configured to build the package. You can run a command like 'sudo setarch i386 chroot $path bash' in order to get into the environment. In your log you should see a command like that. From there you can go into the /home/pb directory as the pb user and run the same style of pb commands as you did when doing build2pkg. This will help you figure out what has gone wrong in the build in the virtual environment.
	624
[331]	625	=head1 AUTHORS
	626
	627	The Project-Builder.org team L<http://trac.project-builder.org/> lead by Bruno Cornec L<mailto:bruno@project-builder.org>.
	628
	629	=head1 COPYRIGHT
	630
	631	Project-Builder.org is distributed under the GPL v2.0 license
	632	described in the file C<COPYING> included with the distribution.
	633
	634	=cut
	635
	636	# ---------------------------------------------------------------------------
	637
[75]	638	my ($projectbuilderver,$projectbuilderrev) = pb_version_init();
[974]	639	my $appname = "pb";
[331]	640
[397]	641	# Initialize the syntax string
	642
[974]	643	pb_syntax_init("$appname (aka project-builder.org) Version $projectbuilderver-$projectbuilderrev\n");
[397]	644
[331]	645	GetOptions("help\|?\|h" => \$opts{'h'},
	646	"man" => \$opts{'man'},
	647	"verbose\|v+" => \$opts{'v'},
[748]	648	"snapshot\|S" => \$opts{'S'},
[331]	649	"quiet\|q" => \$opts{'q'},
	650	"log-files\|l=s" => \$opts{'l'},
	651	"force\|f" => \$opts{'f'},
	652	"account\|a=s" => \$opts{'a'},
	653	"revision\|r=s" => \$opts{'r'},
	654	"script\|s=s" => \$opts{'s'},
	655	"machines\|mock\|m=s" => \$opts{'m'},
[1401]	656	"target\|t:s" => \$opts{'t'},
[1158]	657	"nographic\|g" => \$opts{'g'},
[331]	658	"port\|P=i" => \$opts{'P'},
	659	"project\|p=s" => \$opts{'p'},
[1386]	660	"rebuild" => \$opts{'rebuild'},
[331]	661	"iso\|i=s" => \$opts{'i'},
[815]	662	"version\|V=s" => \$opts{'V'},
[1425]	663	"keep\|k" => \$opts{'k'},
[1537]	664	"stop-on-error!" => \$Global::pb_stop_on_error,
[331]	665	) \|\| pb_syntax(-1,0);
	666
[21]	667	if (defined $opts{'h'}) {
[331]	668	pb_syntax(0,1);
[21]	669	}
[331]	670	if (defined $opts{'man'}) {
	671	pb_syntax(0,2);
	672	}
[21]	673	if (defined $opts{'v'}) {
[495]	674	$pbdebug = $opts{'v'};
[21]	675	}
[320]	676	if (defined $opts{'f'}) {
[748]	677	$pbforce=1;
[320]	678	}
[21]	679	if (defined $opts{'q'}) {
[495]	680	$pbdebug=-1;
[21]	681	}
[748]	682	if (defined $opts{'S'}) {
	683	$pbsnap=1;
	684	}
[1425]	685	if (defined $opts{'k'}) {
	686	$pbkeep=1;
	687	}
[22]	688	if (defined $opts{'l'}) {
[495]	689	open(pbLOG,"> $opts{'l'}") \|\| die "Unable to log to $opts{'l'}: $!";
	690	$pbLOG = \*pbLOG;
	691	$pbdebug = 0 if ($pbdebug == -1);
[22]	692	}
[495]	693	pb_log_init($pbdebug, $pbLOG);
	694	pb_display_init("text","");
[315]	695
[67]	696	# Handle root of the project if defined
	697	if (defined $opts{'r'}) {
[340]	698	$ENV{'PBROOTDIR'} = $opts{'r'};
[67]	699	}
[91]	700	# Handle virtual machines if any
	701	if (defined $opts{'m'}) {
[320]	702	$ENV{'PBV'} = $opts{'m'};
[91]	703	}
[141]	704	if (defined $opts{'s'}) {
	705	$pbscript = $opts{'s'};
	706	}
[152]	707	if (defined $opts{'a'}) {
	708	$pbaccount = $opts{'a'};
[347]	709	die "option -a requires a -s script option" if (not defined $pbscript);
[152]	710	}
[162]	711	if (defined $opts{'P'}) {
	712	$pbport = $opts{'P'};
	713	}
[199]	714	if (defined $opts{'V'}) {
	715	$newver = $opts{'V'};
	716	}
[262]	717	if (defined $opts{'i'}) {
	718	$iso = $opts{'i'};
	719	}
[1120]	720	if (defined $opts{'t'}) {
	721	$pbtarget = $opts{'t'};
	722	}
[108]	723
	724	# Get Action
	725	$action = shift @ARGV;
[331]	726	die pb_syntax(-1,1) if (not defined $action);
[108]	727
[314]	728	my ($filteredfiles, $supfiles, $defpkgdir, $extpkgdir);
[273]	729	my $pbinit = undef;
	730	$pbinit = 1 if ($action =~ /^newproj$/);
[108]	731
[59]	732	# Handles project name if any
[108]	733	# And get global params
[1425]	734	($filteredfiles, $supfiles, $defpkgdir, $extpkgdir) = pb_env_init($opts{'p'},$pbinit,$action,$pbkeep);
[59]	735
[982]	736	#
	737	# Check for command requirements
	738	#
[1126]	739	my ($req,$opt,$pbpara) = pb_conf_get_if("oscmd","oscmdopt","pbparallel");
[1128]	740	pb_check_requirements($req,$opt,$appname);
[982]	741
[1125]	742	#
	743	# Check if we can launch some actions in // with Parallel::ForkManager
	744	#
[1126]	745	my $pbparallel = $pbpara->{$appname} if (defined $pbpara);
	746	if (not defined $pbparallel) {
	747	eval
	748	{
	749	require Sys::CPU;
	750	Sys::CPU->import();
	751	};
	752	if ($@) {
	753	# Sys::CPU not found, defaulting to 1
[1153]	754	pb_log(1,"ADVISE: Install Sys::CPU to benefit from automatic parallelism optimization.\nOr use pbparallel in your pb.conf file\nOnly 1 process at a time for the moment\n");
[1126]	755	$pbparallel = 1;
	756	} else {
	757	# Using the number of cores
	758	$pbparallel = Sys::CPU::cpu_count();
[1153]	759	pb_log(1,"Using parallel mode with $pbparallel processes\n");
[1126]	760	}
	761	}
	762
[1125]	763	eval
	764	{
	765	require Parallel::ForkManager;
	766	Parallel::ForkManager->import();
	767	};
	768	# Parallel::ForkManager not found so no // actions
	769	if ($@) {
	770	$pbparallel = undef;
[1153]	771	pb_log(1,"ADVISE: Install Parallel::ForkManager to benefit from automatic parallelism optimization.\nOnly 1 process at a time for the moment\n");
[1125]	772	}
	773
[315]	774	pb_log(0,"Project: $ENV{'PBPROJ'}\n");
	775	pb_log(0,"Action: $action\n");
[9]	776
	777	# Act depending on action
	778	if ($action =~ /^cms2build$/) {
[1097]	779	pb_cms2build("CMS");
	780	} elsif ($action =~ /^sbx2build$/) {
	781	pb_cms2build("SandBox");
[77]	782	} elsif ($action =~ /^build2pkg$/) {
	783	pb_build2pkg();
	784	} elsif ($action =~ /^cms2pkg$/) {
[1097]	785	pb_cms2build("CMS");
[77]	786	pb_build2pkg();
[1097]	787	} elsif ($action =~ /^sbx2pkg$/) {
	788	pb_cms2build("SandBox");
	789	pb_build2pkg();
[88]	790	} elsif ($action =~ /^build2ssh$/) {
	791	pb_build2ssh();
[220]	792	} elsif ($action =~ /^cms2ssh$/) {
[1097]	793	pb_cms2build("CMS");
[220]	794	pb_build2ssh();
[1102]	795	} elsif ($action =~ /^sbx2ssh$/) {
[1097]	796	pb_cms2build("SandBox");
	797	pb_build2ssh();
[88]	798	} elsif ($action =~ /^pkg2ssh$/) {
	799	pb_pkg2ssh();
[1176]	800	} elsif ($action =~ /^build2rm$/) {
	801	pb_build2v("rm","build");
[320]	802	} elsif ($action =~ /^build2ve$/) {
[772]	803	pb_build2v("ve","build");
[91]	804	} elsif ($action =~ /^build2vm$/) {
[772]	805	pb_build2v("vm","build");
[1176]	806	} elsif ($action =~ /^cms2rm$/) {
	807	pb_cms2build("CMS");
	808	pb_build2v("rm","build");
[320]	809	} elsif ($action =~ /^cms2ve$/) {
[1097]	810	pb_cms2build("CMS");
[772]	811	pb_build2v("ve","build");
[1176]	812	} elsif ($action =~ /^sbx2rm$/) {
	813	pb_cms2build("SandBox");
	814	pb_build2v("rm","build");
[1097]	815	} elsif ($action =~ /^sbx2ve$/) {
	816	pb_cms2build("SandBox");
	817	pb_build2v("ve","build");
[91]	818	} elsif ($action =~ /^cms2vm$/) {
[1097]	819	pb_cms2build("CMS");
[772]	820	pb_build2v("vm","build");
[1097]	821	} elsif ($action =~ /^sbx2vm$/) {
	822	pb_cms2build("SandBox");
	823	pb_build2v("vm","build");
[141]	824	} elsif ($action =~ /^launchvm$/) {
[320]	825	pb_launchv("vm",$ENV{'PBV'},0);
	826	} elsif ($action =~ /^launchve$/) {
	827	pb_launchv("ve",$ENV{'PBV'},0);
[142]	828	} elsif ($action =~ /^script2vm$/) {
[320]	829	pb_script2v($pbscript,"vm");
	830	} elsif ($action =~ /^script2ve$/) {
	831	pb_script2v($pbscript,"ve");
[1176]	832	} elsif ($action =~ /^script2rm$/) {
	833	pb_script2v($pbscript,"rm");
[199]	834	} elsif ($action =~ /^newver$/) {
	835	pb_newver();
[320]	836	} elsif ($action =~ /^newve$/) {
	837	pb_launchv("ve",$ENV{'PBV'},1);
[262]	838	} elsif ($action =~ /^newvm$/) {
[320]	839	pb_launchv("vm",$ENV{'PBV'},1);
[909]	840	pb_log(0, "Please ensure that sshd is running in your VM by default\n");
	841	pb_log(0, "and that it allows remote root login (PermitRootLogin yes in /etc/ssh/sshd_config)\n");
[1105]	842	pb_log(0, "Also ensure that network is up, firewalling correctly configured\n");
	843	pb_log(0, "and perl, sudo, ntpdate and scp/ssh installed\n");
[1072]	844	pb_log(0, "You should then be able to login with ssh -p VMPORT root\@localhost (if VM started with pb)\n");
[1176]	845	} elsif ($action =~ /^setuprm$/) {
	846	pb_setup2v("rm");
[346]	847	} elsif ($action =~ /^setupve$/) {
[772]	848	pb_setup2v("ve");
[346]	849	} elsif ($action =~ /^setupvm$/) {
[772]	850	pb_setup2v("vm");
[1176]	851	} elsif ($action =~ /^sbx2setuprm$/) {
	852	die "This feature is limited to the pb project" if ($ENV{'PBPROJ'} ne $appname);
	853	pb_cms2build("SandBox");
	854	pb_setup2v("rm","SandBox");
[1140]	855	} elsif ($action =~ /^sbx2setupve$/) {
	856	die "This feature is limited to the pb project" if ($ENV{'PBPROJ'} ne $appname);
	857	pb_cms2build("SandBox");
	858	pb_setup2v("ve","SandBox");
	859	} elsif ($action =~ /^sbx2setupvm$/) {
	860	die "This feature is limited to the pb project" if ($ENV{'PBPROJ'} ne $appname);
	861	pb_cms2build("SandBox");
	862	pb_setup2v("vm","SandBox");
[1176]	863	} elsif ($action =~ /^updaterm$/) {
	864	pb_update2v("rm");
[1111]	865	} elsif ($action =~ /^updateve$/) {
	866	pb_update2v("ve");
	867	} elsif ($action =~ /^updatevm$/) {
	868	pb_update2v("vm");
[748]	869	} elsif ($action =~ /^snapve$/) {
[772]	870	pb_snap2v("ve");
[748]	871	} elsif ($action =~ /^snapvm$/) {
[772]	872	pb_snap2v("vm");
[783]	873	} elsif ($action =~ /^test2pkg$/) {
	874	pb_test2pkg();
[1176]	875	} elsif ($action =~ /^test2rm$/) {
	876	pb_build2v("rm","test");
[772]	877	} elsif ($action =~ /^test2ve$/) {
	878	pb_build2v("ve","test");
	879	} elsif ($action =~ /^test2vm$/) {
	880	pb_build2v("vm","test");
[273]	881	} elsif ($action =~ /^newproj$/) {
	882	# Nothing to do - already done in pb_env_init
[1495]	883	} elsif ($action =~ /^getconf$/) {
	884	my $pbos = pb_distro_get_context();
	885	pb_conf_print();
[106]	886	} elsif ($action =~ /^clean$/) {
[739]	887	pb_clean();
[471]	888	} elsif ($action =~ /^announce$/) {
[498]	889	# For announce only. Require avoids the systematic load of these modules
	890	require DBI;
[557]	891	require DBD::SQLite;
[498]	892
[1386]	893	pb_announce("Announce");
[1392]	894	} elsif ($action =~ /^cleanssh$/) {
	895	pb_announce("Clean");
[1386]	896	} elsif ($action =~ /^checkssh$/) {
	897	pb_announce("Check");
[1117]	898	} elsif ($action =~ /^sbx2webpkg$/) {
[547]	899	require DBI;
[557]	900	require DBD::SQLite;
[547]	901
[1117]	902	pb_cms2build("SandBox","Web");
	903	} elsif ($action =~ /^sbx2webssh$/) {
	904	require DBI;
	905	require DBD::SQLite;
	906
	907	pb_cms2build("SandBox","Web");
[556]	908	pb_send2target("Web");
[1117]	909	} elsif ($action =~ /^cms2webpkg$/) {
	910	require DBI;
	911	require DBD::SQLite;
	912
	913	pb_cms2build("CMS","Web");
	914	} elsif ($action =~ /^cms2webssh$/) {
	915	require DBI;
	916	require DBD::SQLite;
	917
	918	pb_cms2build("CMS","Web");
	919	pb_send2target("Web");
[77]	920	} else {
[315]	921	pb_log(0,"\'$action\' is not available\n");
[331]	922	pb_syntax(-2,1);
[77]	923	}
	924
	925	sub pb_cms2build {
	926
[556]	927	my $param = shift \|\| undef;
[1117]	928	my $web = shift \|\| undef;
[556]	929
	930	my $pkg;
	931	my @pkgs;
[557]	932	my $webdir;
[556]	933
[557]	934	my %pkgs;
[1186]	935	my $pb; # Structure to store conf info
[557]	936
[1117]	937	die "pb_cms2build requires a parameter: SandBox or CMS" if (not defined $param);
[1097]	938
[556]	939	# If Website, then pkg is only the website
[1117]	940	if (defined $web) {
[557]	941	($webdir) = pb_conf_get("webdir");
	942	pb_log(2,"webdir: ".Dumper($webdir)."\n");
	943	$pkgs[0] = $webdir->{$ENV{'PBPROJ'}};
[556]	944	$extpkgdir = $webdir;
[557]	945	pb_log(0,"Package: $pkgs[0]\n");
[556]	946	} else {
	947	$pkg = pb_cms_get_pkg($defpkgdir,$extpkgdir);
	948	@pkgs = @$pkg;
	949	}
	950
[1097]	951	my ($scheme, $uri) = pb_cms_init($pbinit,$param);
[331]	952
[898]	953	# We need 2 lines here
	954	my ($pkgv, $pkgt, $testver) = pb_conf_get_if("pkgver","pkgtag","testver");
[174]	955
[429]	956	# declare packager and repo for filtering
	957	my ($tmp1, $tmp2) = pb_conf_get("pbpackager","pbrepo");
	958	$ENV{'PBPACKAGER'} = $tmp1->{$ENV{'PBPROJ'}};
	959	$ENV{'PBREPO'} = $tmp2->{$ENV{'PBPROJ'}};
[1203]	960	my ($delivery) = pb_conf_get_if("delivery");
	961	$delivery->{$ENV{'PBPROJ'}} = "" if (not defined $delivery->{$ENV{'PBPROJ'}});
[174]	962
[1432]	963	# If we deal with a test dir, we want to keep the date in tar file and dir name
	964	my $pbextdir = "";
	965	if ((defined $testver) && (defined $testver->{$ENV{'PBPROJ'}}) && ($testver->{$ENV{'PBPROJ'}} =~ /true/i)) {
	966	$pbextdir = strftime("%Y%m%d%H%M%S", @date);
	967	}
	968
[27]	969	foreach my $pbpkg (@pkgs) {
[115]	970	$ENV{'PBPKG'} = $pbpkg;
[728]	971
[98]	972	if ((defined $pkgv) && (defined $pkgv->{$pbpkg})) {
	973	$pbver = $pkgv->{$pbpkg};
[9]	974	} else {
[353]	975	$pbver = $ENV{'PBPROJVER'};
[9]	976	}
[1432]	977	# If it's a test version, then tag == 0
[897]	978	if ((defined $testver) && (defined $testver->{$ENV{'PBPROJ'}}) && ($testver->{$ENV{'PBPROJ'}} =~ /true/i)) {
[1432]	979	$pbtag = "0";
[728]	980	$ENV{'PBPROJTAG'} = $pbtag;
	981	} elsif ((defined $pkgt) && (defined $pkgt->{$pbpkg})) {
[98]	982	$pbtag = $pkgt->{$pbpkg};
[9]	983	} else {
[353]	984	$pbtag = $ENV{'PBPROJTAG'};
[9]	985	}
[95]	986
[16]	987	$pbrev = $ENV{'PBREVISION'};
[319]	988	pb_log(0,"\n");
	989	pb_log(0,"Management of $pbpkg $pbver-$pbtag (rev $pbrev)\n");
[9]	990	die "Unable to get env var PBDESTDIR" if (not defined $ENV{'PBDESTDIR'});
[539]	991
[1432]	992	my $dest = "$ENV{'PBDESTDIR'}/$pbpkg-$pbver$pbextdir";
[1173]	993	# Create the structure if needed
	994	pb_mkdir_p($dest);
[16]	995	# Clean up dest if necessary. The export will recreate it
[74]	996	pb_rm_rf($dest) if (-d $dest);
[9]	997
	998	# Export CMS tree for the concerned package to dest
	999	# And generate some additional files
	1000	$OUTPUT_AUTOFLUSH=1;
[29]	1001
[9]	1002	# computes in which dir we have to work
[113]	1003	my $dir = $defpkgdir->{$pbpkg};
	1004	$dir = $extpkgdir->{$pbpkg} if (not defined $dir);
[1117]	1005	$dir = $webdir->{$ENV{'PBPROJ'}} if (defined $web);
	1006	die "Variable \$dir not defined. Please report to dev team with log of a verbose run and this info ".Dumper($webdir) if (not defined $dir);
[1260]	1007	pb_log(2,"def:".Dumper($defpkgdir)."ext: ".Dumper($extpkgdir)."dir: $dir\n");
[9]	1008
[537]	1009	# Exporting content from CMS
[1097]	1010	my $sourcedir = undef;
	1011	my $sourceuri = $uri;
	1012	if ($param eq "SandBox") {
	1013	# Point to the local instance
	1014	$sourcedir = "$ENV{'PBDIR'}/$dir";
	1015	} else {
	1016	# Get it from a subdir of the URI with same version as localy but different root
[1174]	1017	# Only if using a real CMS
	1018	my ($scheme, $account, $host, $port, $path) = pb_get_uri($uri);
	1019	if (($scheme !~ /^file/) && ($scheme !~ /^(ht\|f)tp/)) {
	1020	$sourceuri = "$ENV{'PBDIR'}/$dir";
[1260]	1021	$sourceuri =~ s\|^$ENV{'PBPROJDIR'}/\|$uri/\|;
[1174]	1022	}
[1097]	1023	}
[1469]	1024	my $preserve = pb_vcs_export($sourceuri,$sourcedir,$dest);
[315]	1025
[435]	1026	# Generated fake content for test versions to speed up stuff
	1027	my $chglog;
[285]	1028
[448]	1029	# Get project info on authors and log file
[1185]	1030	# TODO: Make it CMS aware
[448]	1031	$chglog = "$ENV{'PBROOTDIR'}/$pbpkg/pbcl";
	1032	$chglog = "$ENV{'PBROOTDIR'}/pbcl" if (! -f $chglog);
	1033	$chglog = undef if (! -f $chglog);
[285]	1034
[1185]	1035	# TODO: Make it CMS aware
[448]	1036	my $authors = "$ENV{'PBROOTDIR'}/$pbpkg/pbauthors";
	1037	$authors = "$ENV{'PBROOTDIR'}/pbauthors" if (! -f $authors);
	1038	$authors = "/dev/null" if (! -f $authors);
[435]	1039
[448]	1040	# Extract cms log history and store it
	1041	if ((defined $chglog) && (! -f "$dest/NEWS")) {
	1042	pb_log(2,"Generating NEWS file from $chglog\n");
	1043	copy($chglog,"$dest/NEWS") \|\| die "Unable to create $dest/NEWS";
[285]	1044	}
[448]	1045	pb_cms_log($scheme,"$ENV{'PBDIR'}/$dir",$dest,$chglog,$authors,$testver);
[29]	1046
[21]	1047	my %build;
[865]	1048	# We want to at least build for the underlying distro
[1120]	1049	# except if a target was given, in which case we only build for it
[1401]	1050	# if -t was passed without target then build for the native distro.
[1177]	1051	my $pbos = pb_distro_get_context($pbtarget);
[1282]	1052	my $tmpl = pb_get_distros($pbos,$pbtarget);
[1120]	1053
[1186]	1054	# Setup $pb structure to allow filtering later on, on files using that structure
	1055	$pb->{'tag'} = $pbtag;
	1056	$pb->{'rev'} = $pbrev;
	1057	$pb->{'ver'} = $pbver;
	1058	$pb->{'pkg'} = $pbpkg;
[1192]	1059	$pb->{'suf'} = $pbos->{'suffix'};
[1186]	1060	$pb->{'realpkg'} = $pbpkg;
	1061	$pb->{'date'} = $pbdate;
	1062	$pb->{'defpkgdir'} = $defpkgdir;
	1063	$pb->{'extpkgdir'} = $extpkgdir;
	1064	$pb->{'chglog'} = $chglog;
[1432]	1065	$pb->{'extdir'} = $pbextdir;
[1186]	1066	$pb->{'packager'} = $ENV{'PBPACKAGER'};
	1067	$pb->{'proj'} = $ENV{'PBPROJ'};
[1200]	1068	$pb->{'repo'} = "$ENV{'PBREPO'}/$delivery->{$ENV{'PBPROJ'}}";
[1186]	1069	$pb->{'patches'} = ();
	1070	$pb->{'sources'} = ();
[556]	1071
[1185]	1072	my $tmpd = "$ENV{'PBTMP'}/cms.$$";
	1073	pb_mkdir_p($tmpd) if (defined $pbparallel);
	1074
	1075	# Get only all.pbf filter at this stage for pbinit
	1076	my $ptr = pb_get_filters($pbpkg);
	1077
[556]	1078	# Do not do that for website
[1117]	1079	if (not defined $web) {
[665]	1080	my %virt;
[1176]	1081	# De-duplicate similar VM/VE/RM
[556]	1082	foreach my $d (split(/,/,$tmpl)) {
[766]	1083	# skip ill-formatted vms (name-ver-arch)
	1084	next if ($d !~ /-/);
[665]	1085	$virt{$d} = $d;
	1086	}
	1087
[1125]	1088	# Try to use // processing here
[1550]	1089	my $all_ok = 1;
[1350]	1090	my $pm = new Parallel::ForkManager($pbparallel) if (defined $pbparallel);
[1550]	1091	$pm->run_on_finish(sub { my ($pid, $code, $id, $signal, $dump) = @_;
[1558]	1092	$all_ok = 0 unless (($code == 0) && ($signal == 0) && ($dump == 0)); }) if (defined $pbparallel);
[1125]	1093
[1189]	1094	pb_log(0,"Preparing delivery ...\n");
[1177]	1095	foreach my $v (keys %virt) {
[1125]	1096	$pm->start and next if (defined $pbparallel);
[1177]	1097
	1098	# Distro context
	1099	my $pbos = pb_distro_get_context($v);
[1207]	1100
[1186]	1101	$pb->{'pbos'} = $pbos;
[1189]	1102	$pb->{'suf'} = $pbos->{'suffix'};
[1186]	1103	pb_log(3,"DEBUG: pb: ".Dumper($pb)."\n");
[1185]	1104
	1105	# Get all filters to apply
[1192]	1106	$ptr = pb_get_filters($pbpkg,$pbos);
[1185]	1107
[556]	1108	pb_log(2,"DEBUG Filtering PBDATE => $pbdate, PBTAG => $pbtag, PBVER => $pbver\n");
	1109
	1110	# We need to compute the real name of the package
[1177]	1111	my $pbrealpkg = pb_cms_get_real_pkg($pbpkg,$pbos->{'type'});
[1186]	1112	$pb->{'realpkg'} = $pbrealpkg;
[1177]	1113	pb_log(1,"Virtual package $pbpkg has a real package name of $pbrealpkg on $pbos->{'name'}-$pbos->{'version'}\n") if ($pbrealpkg ne $pbpkg);
[556]	1114
	1115	# Filter build files from the less precise up to the most with overloading
	1116	# Filter all files found, keeping the name, and generating in dest
	1117
	1118	# Find all build files first relatively to PBROOTDIR
	1119	# Find also all specific files referenced in the .pb conf file
	1120	my %bfiles = ();
	1121	my %pkgfiles = ();
[1185]	1122	# Used in Filter.pm by pb_filter_file
	1123
[1363]	1124	$build{$v} = "no";
[1185]	1125	if (-d "$ENV{'PBROOTDIR'}/$pbpkg/$pbos->{'os'}") {
	1126	pb_list_bfiles("$ENV{'PBROOTDIR'}/$pbpkg/$pbos->{'os'}",$pbpkg,\%bfiles,\%pkgfiles,$supfiles);
[1363]	1127	$build{$v} = "yes";
	1128	}
	1129	if (-d "$ENV{'PBROOTDIR'}/$pbpkg/$pbos->{'type'}") {
[1177]	1130	pb_list_bfiles("$ENV{'PBROOTDIR'}/$pbpkg/$pbos->{'type'}",$pbpkg,\%bfiles,\%pkgfiles,$supfiles);
[1363]	1131	$build{$v} = "yes";
	1132	}
	1133	if (-d "$ENV{'PBROOTDIR'}/$pbpkg/$pbos->{'family'}") {
[1177]	1134	pb_list_bfiles("$ENV{'PBROOTDIR'}/$pbpkg/$pbos->{'family'}",$pbpkg,\%bfiles,\%pkgfiles,$supfiles);
[1363]	1135	$build{$v} = "yes";
	1136	}
	1137	if (-d "$ENV{'PBROOTDIR'}/$pbpkg/$pbos->{'name'}") {
[1177]	1138	pb_list_bfiles("$ENV{'PBROOTDIR'}/$pbpkg/$pbos->{'name'}",$pbpkg,\%bfiles,\%pkgfiles,$supfiles);
[1363]	1139	$build{$v} = "yes";
	1140	}
	1141	if (-d "$ENV{'PBROOTDIR'}/$pbpkg/$pbos->{'name'}-$pbos->{'version'}") {
[1177]	1142	pb_list_bfiles("$ENV{'PBROOTDIR'}/$pbpkg/$pbos->{'name'}-$pbos->{'version'}",$pbpkg,\%bfiles,\%pkgfiles,$supfiles);
[1363]	1143	$build{$v} = "yes";
	1144	}
	1145	if (-d "$ENV{'PBROOTDIR'}/$pbpkg/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}") {
[1177]	1146	pb_list_bfiles("$ENV{'PBROOTDIR'}/$pbpkg/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}",$pbpkg,\%bfiles,\%pkgfiles,$supfiles);
[1363]	1147	$build{$v} = "yes";
[500]	1148	}
[1186]	1149	pb_log(2,"DEBUG($v) bfiles: ".Dumper(\%bfiles)."\n");
[556]	1150
[1185]	1151	if ($build{$v} ne "no") {
	1152	# Apply now all the filters on all the files concerned
	1153	# destination dir depends on the type of file
[556]	1154	# For patch support
[1185]	1155	# TODO: Make it CMS aware
[1186]	1156	$pb->{'patches'} = pb_list_sfiles("$ENV{'PBROOTDIR'}/$pbpkg/pbpatch", $pb->{'patches'}, $pbos, "$ENV{'PBROOTDIR'}/$pbpkg/pbextpatch");
	1157	pb_log(2,"DEBUG($v) patches: ".Dumper($pb->{'patches'})."\n");
[1185]	1158	# TODO: Make it CMS aware
[1186]	1159	$pb->{'sources'} = pb_list_sfiles("$ENV{'PBROOTDIR'}/$pbpkg/pbsrc", $pb->{'sources'}, $pbos, "$ENV{'PBROOTDIR'}/$pbpkg/pbextsrc");
	1160	pb_log(2,"DEBUG($v) sources: ".Dumper($pb->{'sources'})."\n");
[1185]	1161
[1186]	1162	if (defined $pb->{'patches'}->{$v}) {
[1185]	1163	# Filter potential patches (local + remote)
	1164	pb_mkdir_p("$dest/pbconf/$v/pbpatch");
[1367]	1165	# If Debian based distribution, then prepare what will be done at build time
	1166	my ($patchcmd,$patchopt);
	1167	if ($pbos->{'type'} eq "deb") {
	1168	($patchcmd,$patchopt) = pb_distro_get_param($pbos,pb_conf_get_if("ospatchcmd","ospatchopt"));
	1169	open(SCRIPT,"> $dest/pbconf/$v/pbpatch/pbapplypatch") \|\| die "Unable to create $dest/pbconf/$v/pbpatch/pbapplypatch";
	1170	print SCRIPT "#!/bin/bash\n";
	1171	print SCRIPT "set -x\n" if ($pbdebug gt 1);
	1172	}
[1186]	1173	foreach my $pf (split(/,/,$pb->{'patches'}->{$v})) {
[1185]	1174	my $pp = basename($pf);
[1469]	1175	pb_vcs_export($pf,undef,"$dest/pbconf/$v/pbpatch");
[1186]	1176	pb_filter_file_inplace($ptr,"$dest/pbconf/$v/pbpatch/$pp",$pb);
[1185]	1177	pb_system("gzip -9f $dest/pbconf/$v/pbpatch/$pp","","quiet");
[1367]	1178	if ($pbos->{'type'} eq "deb") {
	1179	# If Debian based distribution, then prepare what will be done at build time
	1180	# by applying the patches that will be available under the debian/patches dir
	1181	print SCRIPT "$patchcmd $patchopt \< debian/patches/$pp\n";
	1182	}
[1185]	1183	}
[1367]	1184	if ($pbos->{'type'} eq "deb") {
	1185	close(SCRIPT);
	1186	chmod 0755,"$dest/pbconf/$v/pbpatch/pbapplypatch";
	1187	}
	1188	#pb_system("cat $dest/pbconf/$v/pbpatch/pbapplypatch","APPLY","verbose");
[1185]	1189	}
[1186]	1190	if (defined $pb->{'sources'}->{$v}) {
[1185]	1191	pb_mkdir_p("$dest/pbconf/$v/pbsrc");
[1186]	1192	foreach my $pf (split(/,/,$pb->{'sources'}->{$v})) {
[1185]	1193	my $pp = basename($pf);
[1469]	1194	pb_vcs_export($pf,undef,"$dest/pbconf/$v/pbsrc");
[1186]	1195	pb_filter_file_inplace($ptr,"$dest/pbconf/$v/pbsrc/$pp",$pb);
[1185]	1196	}
	1197	}
[1186]	1198	# Filter build files at the end, as they depend on patches and sources
[1363]	1199	foreach my $f (keys %bfiles) {
	1200	pb_filter_file("$ENV{'PBROOTDIR'}/$bfiles{$f}",$ptr,"$dest/pbconf/$v/$f",$pb);
[1186]	1201	}
[1363]	1202	foreach my $f (keys %pkgfiles) {
	1203	pb_filter_file("$ENV{'PBROOTDIR'}/$pkgfiles{$f}",$ptr,"$dest/pbconf/$v/$f",$pb);
	1204	}
[556]	1205	}
[1130]	1206
[1185]	1207	if (defined $pbparallel) {
	1208	# Communicate results back to parent
	1209	my $str = "";
	1210	$str .= "build $v = $build{$v}\n" if (defined $build{$v});
[1186]	1211	$str .= "patches $v = $pb->{'patches'}->{$v}\n" if (defined $pb->{'patches'}->{$v});
	1212	$str .= "sources $v = $pb->{'sources'}->{$v}\n" if (defined $pb->{'sources'}->{$v});
[1185]	1213	pb_set_content("$tmpd/$$","$str");
	1214	$pm->finish;
	1215	}
[15]	1216	}
[1185]	1217	# In the parent, we need to get the result from the children
[1125]	1218	$pm->wait_all_children if (defined $pbparallel);
[1550]	1219	die "Aborting, one or more of the children failed." if ((not $all_ok) && ($Global::pb_stop_on_error));
[1185]	1220	my $made = "";
	1221	my %h = ();
	1222	my %tmp;
[1186]	1223	my %tmp2;
[1185]	1224	my $pt;
	1225	my $k;
	1226
	1227	foreach $k (<$tmpd/*>) {
	1228	$made .= pb_get_content($k);
[556]	1229	}
[1185]	1230	pb_rm_rf($tmpd);
	1231	pb_log(3,"MADE:\n$made");
[500]	1232
[1185]	1233	# Rebuild local hashes
	1234	foreach $k (split(/\n/,$made)) {
	1235	if ($k =~ /^\s([A-z0-9-_]+)\s+([[A-z0-9-_.]+)\s=\s*(.+)$/) {
	1236	$h{$1}->{$2}=$3;
	1237	}
	1238	}
[1186]	1239	pb_log(2,"HASH: ".Dumper(%h));
[236]	1240
[1185]	1241	# Patches
	1242	pb_log(0,"Delivered and compressed patches ");
	1243	$pt = $h{'patches'};
[1186]	1244	foreach $k (keys %$pt) {
	1245	foreach my $v1 (split(/,/,$pt->{$k})) {
	1246	$tmp{$v1} = "";
	1247	}
[1185]	1248	}
[1186]	1249	if (keys %tmp) {
	1250	foreach $k (keys %tmp) {
	1251	pb_log(0,"$k ");
	1252	}
	1253	} else {
	1254	pb_log(0,"N/A");
[1185]	1255	}
	1256	pb_log(0,"\n");
[236]	1257
[1185]	1258	# Sources
	1259	pb_log(0,"Delivered additional sources ");
	1260	$pt = $h{'sources'};
[1186]	1261	foreach $k (keys %$pt) {
	1262	foreach my $v1 (split(/,/,$pt->{$k})) {
	1263	$tmp2{$v1} = "";
	1264	}
[236]	1265	}
[1186]	1266	if (keys %tmp2) {
	1267	foreach $k (keys %tmp2) {
	1268	pb_log(0,"$k ");
	1269	}
	1270	} else {
	1271	pb_log(0,"N/A");
[1185]	1272	}
	1273	pb_log(0,"\n");
[236]	1274
[1185]	1275	# Build files
	1276	my @found;
	1277	my @notfound;
	1278	$pt = $h{'build'};
	1279	foreach my $b (keys %$pt) {
	1280	push @found,$b if ($pt->{$b} =~ /yes/);
	1281	push @notfound,$b if ($pt->{$b} =~ /no/);
	1282	}
	1283	pb_log(0,"Build files have been generated for ... ".join(',',sort(@found))."\n") if (@found);
	1284	pb_log(0,"No Build files found for ".join(',',sort(@notfound))."\n") if (@notfound);
	1285
[556]	1286	} else {
	1287	# Instead call News generation
	1288	pb_web_news2html($dest);
[559]	1289	# And create an empty pbconf
	1290	pb_mkdir_p("$dest/pbconf");
[560]	1291	# And prepare the pbscript to execute remotely
[1138]	1292	open(SCRIPT,"> $ENV{'PBTMP'}/pbscript") \|\| die "Unable to create $ENV{'PBTMP'}/pbscript";
[560]	1293	print SCRIPT "#!/bin/bash\n";
	1294	print SCRIPT "#set -x\n";
	1295	print SCRIPT "echo ... Extracting Website content\n";
[1461]	1296	print SCRIPT "find . -type f \| grep -Ev '^./$pbpkg-$pbver$pbextdir.tar.gz\|^./pbscript' \| xargs rm -f non-existent\n";
[560]	1297	print SCRIPT "find * -type d -depth \| xargs rmdir 2> /dev/null \n";
[1461]	1298	print SCRIPT "tar xfz $pbpkg-$pbver$pbextdir.tar.gz\n";
	1299	print SCRIPT "mv $pbpkg-$pbver$pbextdir/* .\n";
	1300	print SCRIPT "rm -f $pbpkg-$pbver$pbextdir.tar.gz\n";
	1301	print SCRIPT "rmdir $pbpkg-$pbver$pbextdir\n";
[1484]	1302	print SCRIPT "find . -type f -print0 \| xargs -0 chmod 644\n";
	1303	print SCRIPT "find . -type d -print0 \| xargs -0 chmod 755\n";
[560]	1304	close(SCRIPT);
[1165]	1305	chmod 0755,"$ENV{'PBTMP'}/pbscript";
[499]	1306	}
	1307
[1259]	1308	# Apply filters to the non-build files
	1309	my $liste ="";
	1310	if (defined $filteredfiles->{$pbpkg}) {
	1311	foreach my $f (split(/,/,$filteredfiles->{$pbpkg})) {
	1312	pb_filter_file_inplace($ptr,"$dest/$f",$pb);
	1313	$liste = "$f $liste";
	1314	}
	1315	}
	1316	pb_log(2,"Files ".$liste."have been filtered\n");
	1317
	1318	# TODO: Make it CMS aware
	1319	# Execute the pbinit script if any
	1320	if (-x "$ENV{'PBROOTDIR'}/$pbpkg/pbinit") {
	1321	pb_filter_file("$ENV{'PBROOTDIR'}/$pbpkg/pbinit",$ptr,"$ENV{'PBTMP'}/pbinit",$pb);
	1322	chmod 0755,"$ENV{'PBTMP'}/pbinit";
	1323	pb_system("cd $dest ; $ENV{'PBTMP'}/pbinit","Executing init script from $ENV{'PBROOTDIR'}/$pbpkg/pbinit under $dest","verbose");
	1324	}
	1325
	1326	# Do we have additional script to run to prepare the environement for the project ?
	1327	# Then include it in the pbconf delivery
	1328	foreach my $pbvf (<$ENV{'PBROOTDIR'}/pbv.pre>,<$ENV{'PBROOTDIR'}/pbv.post>, <$ENV{'PBROOTDIR'}/pbtest*>) {
	1329	if (-x "$pbvf") {
	1330	my $target = "$ENV{'PBDESTDIR'}/".basename($pbvf);
	1331	pb_filter_file("$pbvf",$ptr,$target,$pb);
	1332	chmod 0755,"$target";
	1333	}
	1334	}
	1335
[265]	1336	# Prepare the dest directory for archive
[69]	1337	chdir "$ENV{'PBDESTDIR'}" \|\| die "Unable to change dir to $ENV{'PBDESTDIR'}";
[537]	1338	if (defined $preserve) {
	1339	# In that case we want to preserve the original tar file for checksum purposes
	1340	# The one created is btw equivalent in that case to this one
	1341	# Maybe check basename of both to be sure they are the same ?
	1342	pb_log(0,"Preserving original tar file ");
[1432]	1343	move("$preserve","$pbpkg-$pbver$pbextdir.tar.gz");
[537]	1344	} else {
	1345	# Possibility to look at PBSRC to guess more the filename
[1432]	1346	pb_system("tar cfz $pbpkg-$pbver$pbextdir.tar.gz --exclude=$pbpkg-$pbver$pbextdir/pbconf $pbpkg-$pbver$pbextdir","Creating $pbpkg tar files compressed");
[537]	1347	}
[1432]	1348	pb_log(0,"Under $ENV{'PBDESTDIR'}/$pbpkg-$pbver$pbextdir.tar.gz\n");
	1349	pb_system("tar cfz $pbpkg-$pbver$pbextdir.pbconf.tar.gz $pbpkg-$pbver$pbextdir/pbconf","Creating pbconf tar files compressed");
	1350	pb_log(0,"Under $ENV{'PBDESTDIR'}/$pbpkg-$pbver$pbextdir.pbconf.tar.gz\n");
[83]	1351
[357]	1352	# Keep track of version-tag per pkg
	1353	$pkgs{$pbpkg} = "$pbver-$pbtag";
[83]	1354
[288]	1355	# Final cleanup
	1356	pb_rm_rf($dest) if (-d $dest);
[9]	1357	}
[357]	1358
	1359	# Keep track of per package version
	1360	pb_log(2,"DEBUG pkgs: ".Dumper(%pkgs)."\n");
	1361	open(PKG,"> $ENV{'PBDESTDIR'}/$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}.pb") \|\| die "Unable to create $ENV{'PBDESTDIR'}/$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}.pb";
[539]	1362	foreach my $pbpkg (keys %pkgs) {
[357]	1363	print PKG "pbpkg $pbpkg = $pkgs{$pbpkg}\n";
	1364	}
	1365	close(PKG);
	1366
	1367	# Keep track of what is generated by default
	1368	# We need to store the dir and info on version-tag
	1369	# Base our content on the existing .pb file
	1370	copy("$ENV{'PBROOTDIR'}/$ENV{'PBPROJ'}.pb","$ENV{'PBDESTDIR'}/pbrc");
	1371	open(LAST,">> $ENV{'PBDESTDIR'}/pbrc") \|\| die "Unable to create $ENV{'PBDESTDIR'}/pbrc";
	1372	print LAST "pbroot $ENV{'PBPROJ'} = $ENV{'PBROOTDIR'}\n";
[702]	1373	print LAST "projver $ENV{'PBPROJ'} = $ENV{'PBPROJVER'}\n";
	1374	print LAST "projtag $ENV{'PBPROJ'} = $ENV{'PBPROJTAG'}\n";
[357]	1375	print LAST "pbpackager $ENV{'PBPROJ'} = $ENV{'PBPACKAGER'}\n";
[1432]	1376	print LAST "pbextdir $ENV{'PBPROJ'} = $pbextdir\n";
[357]	1377	close(LAST);
[77]	1378	}
[22]	1379
[772]	1380	sub pb_test2pkg {
	1381	# Get the running distro to test on
[1177]	1382	my $pbos = pb_distro_get_context();
[772]	1383
	1384	# Get list of packages to test
	1385	# Get content saved in cms2build
	1386	my $ptr = pb_get_pkg();
	1387	@pkgs = @$ptr;
	1388
	1389	# Additional potential repo
[1177]	1390	pb_distro_setuprepo($pbos);
[772]	1391	foreach my $pbpkg (@pkgs) {
	1392	# We need to install the package to test, and deps brought with it
[1177]	1393	pb_distro_installdeps(undef,$pbos,$pbpkg);
[772]	1394	pb_system("$ENV{'PBDESTDIR'}/pbtest","Launching test for $pbpkg","verbose");
	1395	}
	1396	}
	1397
[77]	1398	sub pb_build2pkg {
	1399
[1552]	1400	pb_log(0,"INFO: ------ Starting to build package ------\n");
[22]	1401	# Get the running distro to build on
[1177]	1402	my $pbos = pb_distro_get_context();
[22]	1403
[1137]	1404	# If needed we may add repository to the build env
[1177]	1405	pb_distro_setuprepo($pbos);
[1137]	1406
[353]	1407	# Get list of packages to build
	1408	my $ptr = pb_get_pkg();
	1409	@pkgs = @$ptr;
	1410
[898]	1411	# Get content saved in cms2build
[353]	1412	my ($pkg) = pb_conf_read("$ENV{'PBDESTDIR'}/$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}.pb","pbpkg");
[83]	1413	$pkg = { } if (not defined $pkg);
[1432]	1414	my $pbextdir = pb_get_extdir();
[83]	1415
[1212]	1416	pb_mkdir_p("$ENV{'PBBUILDDIR'}") if (! -d "$ENV{'PBBUILDDIR'}");
[1208]	1417	chdir "$ENV{'PBBUILDDIR'}" \|\| die "Unable to chdir to $ENV{'PBBUILDDIR'}";
[126]	1418	my $made = ""; # pkgs made during build
[1176]	1419	my $pm;
[1545]	1420	my $all_ok = 1;
[1137]	1421
[1545]	1422	if (defined $pbparallel) {
	1423	$pm = new Parallel::ForkManager($pbparallel);
	1424	$pm->run_on_finish(sub { my ($pid, $code, $id, $signal, $dump) = @_;
	1425	$all_ok = 0 unless (($code == 0) && ($signal == 0) && ($dump == 0)); });
	1426	}
	1427
[1137]	1428	# We need to communicate info back from the children if parallel so prepare a dir for that
	1429	my $tmpd = "$ENV{'PBTMP'}/build.$$";
	1430	pb_mkdir_p($tmpd) if (defined $pbparallel);
	1431
[27]	1432	foreach my $pbpkg (@pkgs) {
[1137]	1433	$pm->start and next if (defined $pbparallel);
	1434
[88]	1435	my $vertag = $pkg->{$pbpkg};
[1459]	1436	pb_log(2,"Vertag: $vertag\n");
[77]	1437	# get the version of the current package - maybe different
	1438	($pbver,$pbtag) = split(/-/,$vertag);
	1439
[1432]	1440	my $src="$ENV{'PBDESTDIR'}/$pbpkg-$pbver$pbextdir.tar.gz";
	1441	my $src2="$ENV{'PBDESTDIR'}/$pbpkg-$pbver$pbextdir.pbconf.tar.gz";
[315]	1442	pb_log(2,"Source file: $src\n");
[493]	1443	pb_log(2,"Pbconf file: $src2\n");
[25]	1444
[315]	1445	pb_log(2,"Working directory: $ENV{'PBBUILDDIR'}\n");
[1177]	1446	if ($pbos->{'type'} eq "rpm") {
[25]	1447	foreach my $d ('RPMS','SRPMS','SPECS','SOURCES','BUILD') {
[28]	1448	if (! -d "$ENV{'PBBUILDDIR'}/$d") {
[1212]	1449	pb_mkdir_p("$ENV{'PBBUILDDIR'}/$d");
[28]	1450	}
[25]	1451	}
	1452
[315]	1453	# Remove in case a previous link/file was there
[301]	1454	unlink "$ENV{'PBBUILDDIR'}/SOURCES/".basename($src);
[188]	1455	symlink "$src","$ENV{'PBBUILDDIR'}/SOURCES/".basename($src) \|\| die "Unable to symlink $src in $ENV{'PBBUILDDIR'}/SOURCES";
[25]	1456	# We need to first extract the spec file
[1432]	1457	my @specfile = pb_extract_build_files($src2,"$pbpkg-$pbver$pbextdir/pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/","$ENV{'PBBUILDDIR'}/SPECS","spec");
[25]	1458
[493]	1459	# We need to handle potential patches to upstream sources
[1432]	1460	pb_extract_build_files($src2,"$pbpkg-$pbver$pbextdir/pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/pbpatch/","$ENV{'PBBUILDDIR'}/SOURCES","patch");
[493]	1461
[1219]	1462	# We need to handle potential additional sources to upstream sources
[1432]	1463	pb_extract_build_files($src2,"$pbpkg-$pbver$pbextdir/pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/pbsrc/","$ENV{'PBBUILDDIR'}/SOURCES","src");
[1219]	1464
[315]	1465	pb_log(2,"specfile: ".Dumper(\@specfile)."\n");
[25]	1466	# set LANGUAGE to check for correct log messages
	1467	$ENV{'LANGUAGE'}="C";
[459]	1468	# Older Redhat use _target_platform in %configure incorrectly
	1469	my $specialdef = "";
[1177]	1470	if (($pbos->{'name'} eq "redhat") \|\| (($pbos->{'name'} eq "rhel") && ($pbos->{'version'} eq "2.1"))) {
[459]	1471	$specialdef = "--define \'_target_platform \"\"\'";
	1472	}
[702]	1473
[28]	1474	foreach my $f (@specfile) {
	1475	if ($f =~ /\.spec$/) {
[1137]	1476	# This could cause an issue in // mode
[1177]	1477	pb_distro_installdeps($f,$pbos);
[1085]	1478	pb_system("rpmbuild $specialdef --define \"packager $ENV{'PBPACKAGER'}\" --define \"_topdir $ENV{'PBBUILDDIR'}\" -ba $f","Building package with $f under $ENV{'PBBUILDDIR'}","verbose");
[28]	1479	last;
	1480	}
	1481	}
[540]	1482	# Get the name of the generated packages
[1137]	1483	open(LOG,"$ENV{'PBTMP'}/system.$$.log") \|\| die "Unable to open $ENV{'PBTMP'}/system.$$.log";
[540]	1484	while (<LOG>) {
[572]	1485	chomp($_);
[540]	1486	next if ($_ !~ /^Wrote:/);
	1487	s\|./([S]RPMS.*)\|$1\|;
[572]	1488	$made .=" $_";
[540]	1489	}
[541]	1490	close(LOG);
[540]	1491
[1177]	1492	} elsif ($pbos->{'type'} eq "deb") {
[274]	1493	pb_system("tar xfz $src","Extracting sources");
[493]	1494	pb_system("tar xfz $src2","Extracting pbconf");
[149]	1495
[1432]	1496	chdir "$pbpkg-$pbver$pbextdir" \|\| die "Unable to chdir to $pbpkg-$pbver$pbextdir";
[310]	1497	pb_rm_rf("debian");
[1546]	1498	my $confdir = "pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}";
[1548]	1499	die "Configuration directory $confdir is not a directory\nIs os description listed in your {ve,vm,rm}list values?" if (not -d $confdir);
[1546]	1500	symlink "$confdir","debian" \|\| die "Unable to symlink 'debian' to $confdir";
[199]	1501	chmod 0755,"debian/rules";
[544]	1502
[1359]	1503	# We need to handle potential patches to upstream sources
[1363]	1504	pb_mkdir_p("debian/patches");
[1432]	1505	my @f = pb_extract_build_files($src2,"$pbpkg-$pbver$pbextdir/pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/pbpatch/","debian/patches","patch");
[1363]	1506
[1367]	1507	# By default we use format 1.0 - Cf man dpkg-source
	1508	my $debsrcfmt = "1.0";
	1509	my $debsrcfile = "debian/source/format";
	1510	if (-f $debsrcfile) {
	1511	$debsrcfmt = pb_get_content($debsrcfile);
	1512	}
[1546]	1513
[1367]	1514	if ($debsrcfmt =~ /^3.*quilt/) {
	1515	# If we use quilt to manage patches, we then setup the env correctly
	1516	# as per http://pkg-perl.alioth.debian.org/howto/quilt.html
	1517	# Generate Debian patch series for quilt
	1518	open(SERIE,"> debian/patches/series") \|\| die "Unable to write in debian/patches/series";
	1519	$ENV{'QUILT_PATCHES'}="debian/patches";
	1520	} else {
	1521	# If we use dpatch to manage patches, we then setup the 00list file as well
	1522	open(SERIE,"> debian/patches/00list") \|\| die "Unable to write in debian/patches/00list";
	1523	}
[1363]	1524	foreach my $f (sort @f) {
[1367]	1525	# Skip the script made to apply the patches to the Debian tree
	1526	next if ($f =~ /pbapplypatch/);
	1527	# We also need to uncompress them
	1528	pb_system("gzip -d $f","","quiet");
	1529	$f =~ s/\.gz$//;
[1359]	1530	print SERIE "$f\n";
	1531	}
	1532	close(SERIE);
[1367]	1533	if (@f) {
[1432]	1534	# We have patches...
[1537]	1535	my $patch_file = "debian/patches/pbapplypatch";
	1536	if (($debsrcfmt =~ /^1.*/) && (-x $patch_file)) {
[1432]	1537	# In that case we need to apply the patches ourselves locally
[1537]	1538	pb_system("cat $patch_file","APPLY","verbose");
	1539	pb_system("$patch_file","Applying patches to $pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'} tree");
[1432]	1540	}
	1541	# ...so modify the name of files to be Debian compliant
	1542	move("../$src","../$pbpkg-$pbver$pbextdir.orig.tar.gz");
[1367]	1543	}
[1359]	1544
	1545	# We need to handle potential additional sources to upstream sources
[1432]	1546	#pb_extract_build_files($src2,"$pbpkg-$pbver$pbextdir/pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/pbsrc/","$ENV{'PBBUILDDIR'}/debian","src");
[1359]	1547
[1177]	1548	pb_distro_installdeps("debian/control",$pbos);
[544]	1549	pb_system("dpkg-buildpackage -us -uc -rfakeroot","Building package","verbose");
	1550	# Get the name of the generated packages
[1137]	1551	open(LOG,"$ENV{'PBTMP'}/system.$$.log") \|\| die "Unable to open $ENV{'PBTMP'}/system.$$.log";
[1545]	1552	my $tmp = "";
[544]	1553	while (<LOG>) {
	1554	chomp();
[1545]	1555	next unless (/^dpkg-deb.:\s+building\s+package\s+.\s+in\s+\`\.\.\/(\S+)\'\./o);
	1556	$tmp = $1;
	1557	die "Missing file $tmp" if (not -f $tmp);
	1558	$made = "$made $tmp";
[448]	1559	}
[544]	1560	close(LOG);
[1545]	1561	open(CTRL,"debian/control") or die "Unable to open debian/control: $!";
	1562	#$made="$made $tmp.dsc $tmp.tar.gz $tmp"."_.deb $tmp"."_.changes";
	1563	while (<CTRL>) {
	1564	next unless (/^Source: (\S+)/o);
	1565	foreach my $glob (("$1\_.changes", "$1\_.dsc", "$1\_*.tar.gz")) {
	1566	my @file = glob($glob);
	1567	die "Missing file for $glob" unless @file > 0;
	1568	die "Too many files for $glob" if @file > 1;
	1569	die "Missing file $file[0]" if (not -f $file[0]);
	1570	$made .= " $file[0]";
	1571	}
	1572	}
	1573	close(CTRL);
	1574	pb_display_file("$ENV{'PBTMP'}/system.$$.log");
	1575
[1234]	1576	chdir ".." \|\| die "Unable to chdir to parent dir";
[1424]	1577	pb_rm_rf("$pbpkg-$pbver");
[1177]	1578	} elsif ($pbos->{'type'} eq "ebuild") {
[149]	1579	my @ebuildfile;
	1580	# For gentoo we need to take pb as subsystem name
[295]	1581	# We put every apps here under sys-apps. hope it's correct
[435]	1582	# We use pb's home dir in order to have a single OVERLAY line
[1185]	1583	my $tmpe = "$ENV{'HOME'}/portage/pb/sys-apps/$pbpkg";
	1584	pb_mkdir_p($tmpe) if (! -d "$tmpe");
[295]	1585	pb_mkdir_p("$ENV{'HOME'}/portage/distfiles") if (! -d "$ENV{'HOME'}/portage/distfiles");
[149]	1586
[295]	1587	# We need to first extract the ebuild file
[1432]	1588	@ebuildfile = pb_extract_build_files($src2,"$pbpkg-$pbver$pbextdir/pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/","$tmpe","ebuild");
[149]	1589
	1590	# Prepare the build env for gentoo
	1591	my $found = 0;
[295]	1592	my $pbbd = $ENV{'HOME'};
[150]	1593	$pbbd =~ s\|/\|\\/\|g;
[295]	1594	if (-r "/etc/make.conf") {
	1595	open(MAKE,"/etc/make.conf");
	1596	while (<MAKE>) {
	1597	$found = 1 if (/$pbbd\/portage/);
	1598	}
	1599	close(MAKE);
[149]	1600	}
	1601	if ($found == 0) {
[295]	1602	pb_system("sudo sh -c 'echo PORTDIR_OVERLAY=\"$ENV{'HOME'}/portage\" >> /etc/make.conf'");
[149]	1603	}
[295]	1604	#$found = 0;
	1605	#if (-r "/etc/portage/package.keywords") {
	1606	#open(KEYW,"/etc/portage/package.keywords");
	1607	#while (<KEYW>) {
	1608	#$found = 1 if (/portage\/pb/);
	1609	#}
	1610	#close(KEYW);
	1611	#}
	1612	#if ($found == 0) {
	1613	#pb_system("sudo sh -c \"echo portage/pb >> /etc/portage/package.keywords\"");
	1614	#}
[149]	1615
	1616	# Build
	1617	foreach my $f (@ebuildfile) {
	1618	if ($f =~ /\.ebuild$/) {
[1177]	1619	pb_distro_installdeps($f,$pbos);
[1185]	1620	move($f,"$tmpe/$pbpkg-$pbver.ebuild");
	1621	pb_system("cd $tmpe ; ebuild $pbpkg-$pbver.ebuild clean ; ebuild $pbpkg-$pbver.ebuild digest ; ebuild $pbpkg-$pbver.ebuild package","verbose");
[295]	1622	# Now move it where pb expects it
	1623	pb_mkdir_p("$ENV{'PBBUILDDIR'}/portage/pb/sys-apps/$pbpkg");
[1432]	1624	if ($pbtag eq 0) {
	1625	# This is assumed to be a test version
	1626	my $nver = substr($pbver,0,-14);
	1627	my $ntag = substr($pbver,-14);
	1628	my $ebtg = "portage/pb/sys-apps/$pbpkg/$pbpkg-$nver"."_p$ntag.ebuild";
	1629	move("$tmpe/$pbpkg-$pbver.ebuild","$ENV{'PBBUILDDIR'}/$ebtg");
	1630	$made="$made $ebtg";
[1174]	1631	} else {
[1432]	1632	my $ebtg = "portage/pb/sys-apps/$pbpkg/$pbpkg-$pbver-r$pbtag.ebuild";
	1633	move("$tmpe/$pbpkg-$pbver.ebuild","$ENV{'PBBUILDDIR'}/$ebtg");
	1634	$made="$made $ebtg";
[1174]	1635	}
[149]	1636	}
	1637	}
	1638
[1177]	1639	} elsif ($pbos->{'type'} eq "tgz") {
[437]	1640	# Slackware family
[435]	1641	$made="$made $pbpkg/$pbpkg-$pbver-*-$pbtag.tgz";
	1642
	1643	pb_system("tar xfz $src","Extracting sources");
[493]	1644	pb_system("tar xfz $src2","Extracting pbconf");
[1432]	1645	chdir "$pbpkg-$pbver$pbextdir" \|\| die "Unable to chdir to $pbpkg-$pbver$pbextdir";
[1177]	1646	symlink "pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}","install" \|\| die "Unable to symlink to pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}";
[435]	1647	if (-x "install/pbslack") {
[1177]	1648	pb_distro_installdeps("./install/pbslack",$pbos);
[872]	1649	pb_system("./install/pbslack","Building software");
[529]	1650	pb_system("sudo /sbin/makepkg -p -l y -c y $pbpkg","Packaging $pbpkg","verbose");
[435]	1651	}
[1234]	1652	chdir ".." \|\| die "Unable to chdir to parent dir";
[1432]	1653	pb_rm_rf("$pbpkg-$pbver$pbextdir");
[1177]	1654	} elsif ($pbos->{'type'} eq "pkg") {
[872]	1655	# Solaris
[916]	1656	$made="$made $pbpkg-$pbver-$pbtag.pkg.gz";
[873]	1657	my $pkgdestdir="$ENV{'PBBUILDDIR'}/install";
[872]	1658
	1659	# Will host resulting packages
[1177]	1660	pb_mkdir_p("$pbos->{'type'}");
[878]	1661	pb_mkdir_p("$pkgdestdir/delivery");
[873]	1662	pb_system("tar xfz $src","Extracting sources under $ENV{'PBBUILDDIR'}");
	1663	pb_system("tar xfz $src2","Extracting pbconf under $ENV{'PBBUILDDIR'}");
[1242]	1664	# We need to handle potential patches to upstream sources
[1432]	1665	pb_extract_build_files($src2,"$pbpkg-$pbver$pbextdir/pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/pbpatch/","$ENV{'PBBUILDDIR'}","patch");
[1242]	1666
	1667	# We need to handle potential additional sources to upstream sources
[1432]	1668	pb_extract_build_files($src2,"$pbpkg-$pbver$pbextdir/pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/pbsrc/","$ENV{'PBBUILDDIR'}","src");
[1242]	1669
[1432]	1670	chdir "$pbpkg-$pbver$pbextdir" \|\| die "Unable to chdir to $pbpkg-$pbver$pbextdir";
[1177]	1671	if (-f "pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/pbbuild") {
	1672	chmod 0755,"pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/pbbuild";
[872]	1673	# pkginfo file is mandatory
[1177]	1674	die "Unable to find pkginfo file in pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}" if (! -f "pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/pkginfo");
[872]	1675	# Build
[1177]	1676	pb_system("pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/pbbuild $pkgdestdir/delivery","Building software and installing under $pkgdestdir/delivery");
[872]	1677	# Copy complementary files
[1177]	1678	if (-f "pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/prototype") {
	1679	copy("pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/prototype", $pkgdestdir)
[872]	1680	} else {
	1681	# No prototype provided, calculating it
[878]	1682	open(PROTO,"> $pkgdestdir/prototype") \|\| die "Unable to create prototype file";
[872]	1683	print PROTO "i pkginfo\n";
[1177]	1684	print PROTO "i depend\n" if (-f "pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/depend");
[879]	1685	$ENV{'PBSOLDESTDIR'} = "$pkgdestdir/delivery";
	1686	find(\&create_solaris_prototype, "$pkgdestdir/delivery");
[872]	1687	}
[1177]	1688	copy("pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/depend", $pkgdestdir) if (-f "pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/depend");
	1689	copy("pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/pkginfo", $pkgdestdir);
	1690	pb_system("cd $pkgdestdir/delivery ; pkgmk -o -f ../prototype -r $pkgdestdir/delivery -d $ENV{'PBBUILDDIR'}/$pbos->{'type'}","Packaging $pbpkg","verbose");
	1691	pb_system("cd $ENV{'PBBUILDDIR'}/$pbos->{'type'} ; echo \"\" \| pkgtrans -o -n -s $ENV{'PBBUILDDIR'}/$pbos->{'type'} $ENV{'PBBUILDDIR'}/$pbpkg-$pbver-$pbtag.pkg all","Transforming $pbpkg","verbose");
[916]	1692	pb_system("cd $ENV{'PBBUILDDIR'} ; gzip -9f $pbpkg-$pbver-$pbtag.pkg","Compressing $pbpkg-$pbver-$pbtag.pkg","verbose");
[913]	1693	} else {
[1177]	1694	pb_log(0,"No pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/pbbuild file found for $pbpkg-$pbver in \n");
[872]	1695	}
[874]	1696	chdir ".." \|\| die "Unable to chdir to parent dir";
[1432]	1697	pb_rm_rf("$pbpkg-$pbver$pbextdir","$ENV{'PBBUILDDIR'}/$pbos->{'type'}","$pkgdestdir");
[1177]	1698	} elsif ($pbos->{'type'} eq "hpux") {
[1174]	1699	# HP-UX
	1700	pb_system("tar xfz $src","Extracting sources");
	1701	pb_system("tar xfz $src2","Extracting pbconf");
	1702
[1432]	1703	chdir "$pbpkg-$pbver$pbextdir" \|\| die "Unable to chdir to $pbpkg-$pbver$pbextdir";
[1174]	1704	pb_system("buildpackage ","Building package","verbose");
	1705	# Get the name of the generated packages
	1706	open(LOG,"$ENV{'PBTMP'}/system.$$.log") \|\| die "Unable to open $ENV{'PBTMP'}/system.$$.log";
	1707	while (<LOG>) {
	1708	chomp();
	1709	my $tmp = $_;
	1710	next if ($tmp !~ /^SD BUILD.*:/);
	1711	$tmp =~ s\|.../(.)_(.).sd.\|$1\|;
[1279]	1712	$made = "$made $tmp"."_*.sd";
[1174]	1713	}
	1714	close(LOG);
	1715	$made="$made $pbpkg-$pbver-$pbtag.sd";
	1716
[1234]	1717	chdir ".." \|\| die "Unable to chdir to parent dir";
[1432]	1718	pb_rm_rf("$pbpkg-$pbver$pbextdir");
[87]	1719	} else {
[1177]	1720	die "Unknown OS type format $pbos->{'type'}";
[87]	1721	}
[1137]	1722	if (defined $pbparallel) {
	1723	# Communicate results back to parent
	1724	pb_set_content("$tmpd/$$",$made);
	1725	$pm->finish;
	1726	}
[87]	1727	}
[1137]	1728	if (defined $pbparallel) {
	1729	# In the parent, we need to get the result from the children
	1730	$pm->wait_all_children;
	1731	foreach my $f (<$tmpd/*>) {
	1732	$made .= " ".pb_get_content($f);
	1733	}
[1550]	1734	die "Aborting, one or more of the children failed." if ((not $all_ok) && ($Global::pb_stop_on_error));
[1137]	1735	pb_rm_rf($tmpd);
	1736	}
	1737
[1278]	1738	# Sign packages
	1739	pb_sign_pkgs($pbos,$made);
	1740
[1109]	1741	# Find the appropriate check cmd/opts
[1177]	1742	my ($chkcmd,$chkopt) = pb_distro_get_param($pbos,pb_conf_get_if("oschkcmd","oschkopt"));
[1109]	1743
[541]	1744	# Packages check if needed
[1177]	1745	if ($pbos->{'type'} eq "rpm") {
	1746	if ((defined $chkcmd) && (-x $chkcmd)) {
	1747	my $cmd = "$chkcmd";
	1748	$cmd .= " $chkopt" if (defined $chkopt);
	1749	$cmd .= " $made";
[1539]	1750	my $ret = pb_system("$cmd","Checking validity of rpms with $chkcmd","verbose",1);
	1751	pb_log(0,"ERROR: when checking packages validity\n") if ($ret ne 0);
[541]	1752	}
[1098]	1753	my $rpms ="";
	1754	my $srpms ="";
	1755	foreach my $f (split(/ /,$made)) {
	1756	$rpms .= "$ENV{'PBBUILDDIR'}/$f " if ($f =~ /^RPMS\//);
	1757	$srpms .= "$ENV{'PBBUILDDIR'}/$f " if ($f =~ /^SRPMS\//);
	1758	}
	1759	pb_log(0,"SRPM packages generated: $srpms\n");
	1760	pb_log(0,"RPM packages generated: $rpms\n");
[1177]	1761	} elsif ($pbos->{'type'} eq "deb") {
[572]	1762	my $made2 = "";
[971]	1763	foreach my $f (split(/ /,$made)) {
[1234]	1764	$made2 .= "$f " if ($f =~ /\.deb$/);
[971]	1765	}
[1109]	1766	if (-x $chkcmd) {
[1539]	1767	my $ret = pb_system("$chkcmd $chkopt $made2","Checking validity of debs with $chkcmd","verbose",1);
	1768	pb_log(0,"ERROR: when checking packages validity\n") if ($ret ne 0);
[541]	1769	}
[1234]	1770	pb_log(0,"deb packages generated: $made2\n");
[541]	1771	} else {
[1177]	1772	pb_log(0,"No check done for $pbos->{'type'} yet\n");
[572]	1773	pb_log(0,"Packages generated: $made\n");
[541]	1774	}
	1775
[1176]	1776	# Keep track of what is generated so that we can get them back from VMs/RMs
[1545]	1777	my $pbkeep = "$ENV{'PBBUILDDIR'}/pbgen-$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}-$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}";
	1778	open(KEEP,"> $pbkeep") \|\| die "Unable to create $pbkeep: $!";
[118]	1779	print KEEP "$made\n";
	1780	close(KEEP);
[1552]	1781	pb_log(0,"INFO: ------ Finished building package ------\n");
[87]	1782	}
	1783
[874]	1784	sub create_solaris_prototype {
[872]	1785
[873]	1786	my $uidgid = "bin bin";
[877]	1787	my $pkgdestdir = $ENV{'PBSOLDESTDIR'};
[872]	1788
[878]	1789	return if ($_ =~ /^$pkgdestdir$/);
[875]	1790	if (-d $_) {
	1791	my $n = $File::Find::name;
	1792	$n =~ s~$pkgdestdir/~~;
	1793	print PROTO "d none $n 0755 $uidgid\n";
[877]	1794	} elsif (-x $_) {
[875]	1795	my $n = $File::Find::name;
	1796	$n =~ s~$pkgdestdir/~~;
	1797	print PROTO "f none $n 0755 $uidgid\n";
[872]	1798	} elsif (-f $_) {
[875]	1799	my $n = $File::Find::name;
	1800	$n =~ s~$pkgdestdir/~~;
	1801	print PROTO "f none $n 0644 $uidgid\n";
[872]	1802	}
	1803	}
	1804
[88]	1805	sub pb_build2ssh {
[320]	1806	pb_send2target("Sources");
[1374]	1807	pb_send2target("CPAN");
[90]	1808	}
[87]	1809
[90]	1810	sub pb_pkg2ssh {
[320]	1811	pb_send2target("Packages");
[90]	1812	}
	1813
[108]	1814	# By default deliver to the the public site hosting the
[1176]	1815	# ftp structure (or whatever) or a VM/VE/RM
[320]	1816	sub pb_send2target {
[90]	1817
	1818	my $cmt = shift;
[320]	1819	my $v = shift \|\| undef;
[142]	1820	my $vmexist = shift \|\| 0; # 0 is FALSE
[200]	1821	my $vmpid = shift \|\| 0; # 0 is FALSE
[748]	1822	my $snapme = shift \|\| 0; # 0 is FALSE
[320]	1823
[444]	1824	pb_log(2,"DEBUG: pb_send2target($cmt,".Dumper($v).",$vmexist,$vmpid)\n");
[320]	1825	my $host = "sshhost";
	1826	my $login = "sshlogin";
	1827	my $dir = "sshdir";
	1828	my $port = "sshport";
	1829	my $conf = "sshconf";
[883]	1830	my $tmout = undef;
	1831	my $path = undef;
[772]	1832	if ($cmt =~ /^VM/) {
[320]	1833	$login = "vmlogin";
[322]	1834	$dir = "pbdefdir";
[320]	1835	# Specific VM
[883]	1836	$tmout = "vmtmout";
	1837	$path = "vmpath";
[320]	1838	$host = "vmhost";
	1839	$port = "vmport";
[1176]	1840	} elsif ($cmt =~ /^RM/) {
	1841	$login = "rmlogin";
	1842	$dir = "pbdefdir";
	1843	# Specific RM
	1844	$tmout = "rmtmout";
	1845	$path = "rmpath";
	1846	$host = "rmhost";
	1847	$port = "rmport";
[772]	1848	} elsif ($cmt =~ /^VE/) {
[320]	1849	$login = "velogin";
[322]	1850	$dir = "pbdefdir";
[320]	1851	# Specific VE
	1852	$path = "vepath";
[986]	1853	$conf = "rbsconf";
[556]	1854	} elsif ($cmt eq "Web") {
	1855	$host = "websshhost";
	1856	$login = "websshlogin";
	1857	$dir = "websshdir";
	1858	$port = "websshport";
[1374]	1859	} elsif ($cmt eq "CPAN") {
	1860	$host = "cpanpause";
	1861	$login = "";
	1862	$dir = "cpandir";
	1863	$port = "";
[320]	1864	}
[158]	1865	my $cmd = "";
[471]	1866	my $src = "";
[1374]	1867	my $cpanpkg = 0;
[1177]	1868	my $pbos;
[90]	1869
[1432]	1870	my $pbextdir = pb_get_extdir();
	1871
[471]	1872	if ($cmt ne "Announce") {
[898]	1873	# Get list of packages to build
[471]	1874	my $ptr = pb_get_pkg();
	1875	@pkgs = @$ptr;
[87]	1876
[471]	1877	# Get the running distro to consider
[1177]	1878	$pbos = pb_distro_get_context($v);
[87]	1879
[471]	1880	# Get content saved in cms2build
	1881	my ($pkg) = pb_conf_read("$ENV{'PBDESTDIR'}/$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}.pb","pbpkg");
	1882	$pkg = { } if (not defined $pkg);
[87]	1883
[1212]	1884	pb_mkdir_p("$ENV{'PBBUILDDIR'}") if (! -d "$ENV{'PBBUILDDIR'}");
[1208]	1885	chdir "$ENV{'PBBUILDDIR'}" \|\| die "Unable to chdir to $ENV{'PBBUILDDIR'}";
[471]	1886	foreach my $pbpkg (@pkgs) {
	1887	my $vertag = $pkg->{$pbpkg};
	1888	# get the version of the current package - maybe different
[1459]	1889	pb_log(2,"Vertag: $vertag\n");
[471]	1890	($pbver,$pbtag) = split(/-/,$vertag);
[87]	1891
[1179]	1892	if (($cmt eq "Sources") \|\| ($cmt =~ /(V[EM]\|RM)build/)) {
[1432]	1893	$src = "$src $ENV{'PBDESTDIR'}/$pbpkg-$pbver$pbextdir.tar.gz $ENV{'PBDESTDIR'}/$pbpkg-$pbver$pbextdir.pbconf.tar.gz";
[471]	1894	if ($cmd eq "") {
[1432]	1895	$cmd = "ln -sf $pbpkg-$pbver$pbextdir.tar.gz $pbpkg-latest.tar.gz";
[471]	1896	} else {
[1432]	1897	$cmd = "$cmd ; ln -sf $pbpkg-$pbver$pbextdir.tar.gz $pbpkg-latest.tar.gz";
[471]	1898	}
[560]	1899	} elsif ($cmt eq "Web") {
[1432]	1900	$src = "$src $ENV{'PBDESTDIR'}/$pbpkg-$pbver$pbextdir.tar.gz"
[166]	1901	}
[1374]	1902
	1903	# Do we have one perl package
	1904	my @nametype = pb_conf_get_if("namingtype");
	1905	my $type = $nametype[0]->{$pbpkg};
	1906	if ((defined $type) && ($type eq "perl")) {
	1907	$cpanpkg = 1;
	1908	}
[118]	1909	}
[471]	1910	# Adds conf file for availability of conf elements
	1911	pb_conf_add("$ENV{'PBROOTDIR'}/$ENV{'PBPROJ'}.pb");
[118]	1912	}
[1374]	1913	my ($rbsconf,$testver,$delivery) = pb_conf_get_if($conf,"testver","delivery");
	1914	if ($cmt =~ /CPAN/) {
	1915	# Do not deliver on Pause if this is a test version
[1384]	1916	return if (not defined $testver);
[1374]	1917	return if ($testver =~ /true/);
	1918	# Do not deliver on Pause if this is not a perl package
	1919	return if ($cpanpkg == 0);
	1920	}
[417]	1921
[1176]	1922	if ($cmt =~ /(V[EM]\|RM)build/) {
[1138]	1923	$src="$src $ENV{'PBROOTDIR'}/$ENV{'PBPROJ'}.pb $ENV{'PBDESTDIR'}/$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}.pb $ENV{'PBETC'} $ENV{'PBDESTDIR'}/pbrc $ENV{'PBDESTDIR'}/pbscript.$$";
[1176]	1924	} elsif ($cmt =~ /(V[EM]\|RM)Script/) {
[1138]	1925	$src="$src $ENV{'PBDESTDIR'}/pbscript.$$";
[1176]	1926	} elsif ($cmt =~ /(V[EM]\|RM)test/) {
[1138]	1927	$src="$src $ENV{'PBROOTDIR'}/$ENV{'PBPROJ'}.pb $ENV{'PBDESTDIR'}/$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}.pb $ENV{'PBETC'} $ENV{'PBDESTDIR'}/pbrc $ENV{'PBDESTDIR'}/pbscript.$$ $ENV{'PBDESTDIR'}/pbtest";
[1374]	1928	} elsif (($cmt eq "Announce") \|\| ($cmt eq "Web") \|\| ($cmt eq "CPAN")) {
[471]	1929	$src="$src $ENV{'PBTMP'}/pbscript";
[118]	1930	} elsif ($cmt eq "Packages") {
	1931	# Get package list from file made during build2pkg
[1189]	1932	open(KEEP,"$ENV{'PBBUILDDIR'}/pbgen-$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}-$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}") \|\| die "Unable to read $ENV{'PBBUILDDIR'}/pbgen-$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}-$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}";
[126]	1933	$src = <KEEP>;
[118]	1934	chomp($src);
	1935	close(KEEP);
[1279]	1936	$src = "$src $ENV{'PBBUILDDIR'}/pbscript.$$";
[87]	1937	}
[1374]	1938	if (($cmt eq "Sources") \|\| ($cmt eq "Packages") \|\| ($cmt eq "CPAN")) {
[1279]	1939	my ($pbpackager) = pb_conf_get("pbpackager");
	1940	$ENV{'PBPACKAGER'} = $pbpackager->{$ENV{'PBPROJ'}};
	1941	pb_log(0,"Exporting public key for $ENV{'PBPACKAGER'}\n");
	1942	# Using pb_system is not working due to redirection below
	1943	system("gpg --export -a \'$ENV{'PBPACKAGER'}\' > $ENV{'PBDESTDIR'}/$ENV{'PBPROJ'}.pubkey");
	1944	chmod 0644,"$ENV{'PBDESTDIR'}/$ENV{'PBPROJ'}.pubkey";
	1945	$src = "$src $ENV{'PBDESTDIR'}/$ENV{'PBPROJ'}.pubkey";
	1946	}
[320]	1947	# Remove potential leading spaces (cause problem with basename)
[132]	1948	$src =~ s/^ *//;
[129]	1949	my $basesrc = "";
[131]	1950	foreach my $i (split(/ +/,$src)) {
	1951	$basesrc .= " ".basename($i);
[130]	1952	}
[118]	1953
[320]	1954	pb_log(0,"Sources handled ($cmt): $src\n");
[987]	1955	pb_log(2,"values: ".Dumper(($host,$login,$dir,$port,$tmout,$path,$conf))."\n");
[1541]	1956	my ($sshhost,$sshdir) = pb_conf_get($host,$dir);
[883]	1957	# Not mandatory...
[1102]	1958	$delivery->{$ENV{'PBPROJ'}} = "" if (not defined $delivery->{$ENV{'PBPROJ'}});
[1541]	1959	my ($sshlogin,$sshport) = pb_conf_get_if($login,$port);
	1960	$sshport->{$ENV{PBPROJ}} = 22 unless (defined $sshport->{$ENV{PBPROJ}});
	1961	$sshlogin->{$ENV{PBPROJ}} = getpwuid($UID) unless (defined $sshlogin->{$ENV{PBPROJ}});
[883]	1962	my ($vtmout,$vepath);
	1963	# ...Except those in virtual context
	1964	if ($cmt =~ /^VE/) {
	1965	($vepath) = pb_conf_get($path);
	1966	}
[1176]	1967	if ($cmt =~ /^(V\|R)M/) {
[1218]	1968	$vtmout = pb_distro_get_param($pbos,pb_conf_get_if($tmout));
[883]	1969	}
[1216]	1970	my $remhost = $sshhost->{$ENV{'PBPROJ'}};
	1971	my $remdir = $sshdir->{$ENV{'PBPROJ'}};
	1972	if ($cmt =~ /^V[EM]\|RM/) {
	1973	# In that case our real host is in the xxhost with the OS as key, not project as above
	1974	$remhost = pb_distro_get_param($pbos,$sshhost);
[1176]	1975	}
[1217]	1976	pb_log(2,"ssh: ".Dumper(($remhost,$sshlogin,$remdir,$sshport,$vepath,$rbsconf))."\n");
	1977	pb_log(2,"ssh: ".Dumper($vtmout)."\n") if (defined $vtmout);
[320]	1978
	1979	my $mac;
[772]	1980	if ($cmt !~ /^VE/) {
[1216]	1981	$mac = "$sshlogin->{$ENV{'PBPROJ'}}\@$remhost";
[320]	1982	# Overwrite account value if passed as parameter
[1216]	1983	$mac = "$pbaccount\@$remhost" if (defined $pbaccount);
[355]	1984	pb_log(2, "DEBUG: pbaccount: $pbaccount => mac: $mac\n") if (defined $pbaccount);
[681]	1985	} else {
	1986	# VE
[1138]	1987	# Overwrite account value if passed as parameter (typically for setup2v)
[681]	1988	$mac = $sshlogin->{$ENV{'PBPROJ'}};
	1989	$mac = $pbaccount if (defined $pbaccount);
[320]	1990	}
	1991
[108]	1992	my $tdir;
[136]	1993	my $bdir;
[1176]	1994	if (($cmt eq "Sources") \|\| ($cmt =~ /(V[EM]\|RM)Script/)) {
[1216]	1995	$tdir = "$remdir/$delivery->{$ENV{'PBPROJ'}}/src";
[1374]	1996	} elsif ($cmt eq "CPAN") {
	1997	$tdir = "$remdir";
[1176]	1998	} elsif ($cmt =~ /(V[EM]\|RM)(build\|test)/) {
[1216]	1999	$tdir = $remdir."/$ENV{'PBPROJ'}/delivery";
	2000	$bdir = $remdir."/$ENV{'PBPROJ'}/build";
[136]	2001	# Remove a potential $ENV{'HOME'} as bdir should be relative to pb's home
	2002	$bdir =~ s\|\$ENV.+\}/\|\|;
[471]	2003	} elsif ($cmt eq "Announce") {
[1216]	2004	$tdir = "$remdir/$delivery->{$ENV{'PBPROJ'}}";
[556]	2005	} elsif ($cmt eq "Web") {
[1216]	2006	$tdir = "$remdir/$delivery->{$ENV{'PBPROJ'}}";
[90]	2007	} elsif ($cmt eq "Packages") {
[1192]	2008	if (($pbos->{'type'} eq "rpm") \|\| ($pbos->{'type'} eq "pkg") \|\| ($pbos->{'type'} eq "hpux") \|\| ($pbos->{'type'} eq "tgz")) {
	2009	# put packages under an arch subdir
[1216]	2010	$tdir = "$remdir/$delivery->{$ENV{'PBPROJ'}}/$pbos->{'name'}/$pbos->{'version'}/$pbos->{'arch'}";
[1192]	2011	} elsif (($pbos->{'type'} eq "deb") \|\| ($pbos->{'type'} eq "ebuild")) {
	2012	# No need for an arch subdir
[1216]	2013	$tdir = "$remdir/$delivery->{$ENV{'PBPROJ'}}/$pbos->{'name'}/$pbos->{'version'}";
[1192]	2014	} else {
	2015	die "Please teach the dev team where to deliver ($pbos->{'type'} type of packages\n";
	2016	}
[429]	2017
	2018	my $repodir = $tdir;
[1216]	2019	$repodir =~ s\|^$remdir/\|\|;
[429]	2020
	2021	my ($pbrepo) = pb_conf_get("pbrepo");
	2022
	2023	# Repository management
[1189]	2024	open(PBS,"> $ENV{'PBBUILDDIR'}/pbscript.$$") \|\| die "Unable to create $ENV{'PBBUILDDIR'}/pbscript.$$";
[1177]	2025	if ($pbos->{'type'} eq "rpm") {
[1276]	2026	my $pbsha = pb_distro_get_param($pbos,pb_conf_get("ossha"));
[1556]	2027	my $gpgcheck = pb_conf_get_if("pbgpgcheck");
	2028	my $pbgpgcheck;
	2029	$pbgpgcheck = $gpgcheck->{$ENV{PBPROJ}} if (defined $gpgcheck);
	2030	# By default force GPG check in repo even if we support signature of packages to fail. This is a best practice
	2031	$pbgpgcheck = 1 if (not defined $pbgpgcheck);
[429]	2032	# Also make a pbscript to generate yum/urpmi bases
	2033	print PBS << "EOF";
[433]	2034	#!/bin/bash
[429]	2035	# Prepare a script to ease yum setup
[1298]	2036	EOF
	2037	print PBS "set -x\n" if ($pbdebug gt 1);
	2038	print PBS << "EOF";
[429]	2039	cat > $ENV{'PBPROJ'}.repo << EOT
	2040	[$ENV{'PBPROJ'}]
[1177]	2041	name=$pbos->{'name'} $pbos->{'version'} $pbos->{'arch'} - $ENV{'PBPROJ'} Vanilla Packages
[433]	2042	baseurl=$pbrepo->{$ENV{'PBPROJ'}}/$repodir
[429]	2043	enabled=1
[1556]	2044	gpgcheck=$pbgpgcheck
[1335]	2045	gpgkey=$pbrepo->{$ENV{'PBPROJ'}}/$repodir/$ENV{'PBPROJ'}.pubkey
[429]	2046	EOT
	2047	chmod 644 $ENV{'PBPROJ'}.repo
	2048
	2049	# Clean up old repo content
	2050	rm -rf headers/ repodata/
	2051	# Create yum repo
[1102]	2052	if [ -x /usr/bin/yum-arch ]; then
	2053	yum-arch .
	2054	fi
[429]	2055	# Create repodata
[1276]	2056	createrepo -s $pbsha .
[1365]	2057	# Link to the key
[1557]	2058	if [ -s $ENV{'PBPROJ'}.pubkey ]; then
	2059	(cd repodata ; ln -sf ../$ENV{'PBPROJ'}.pubkey repomd.xml.key)
	2060	else
	2061	echo "Avoiding creating empty repomd.xml.key; fails on opensuse 12.1"
	2062	fi
[1365]	2063	# sign the repomd (at least useful for SLES - which requires a local key)
	2064	# gpg -a --detach-sign repodata/repomd.xml
	2065	# SLES also looks for media.1/info.txt
[429]	2066	EOF
[1177]	2067	if ($pbos->{'family'} eq "md") {
[429]	2068	# For Mandriva add urpmi management
	2069	print PBS << "EOF";
	2070	# Prepare a script to ease urpmi setup
	2071	cat > $ENV{'PBPROJ'}.addmedia << EOT
[1003]	2072	urpmi.addmedia $ENV{'PBPROJ'} $pbrepo->{$ENV{'PBPROJ'}}/$repodir with media_info/hdlist.cz
[429]	2073	EOT
	2074	chmod 755 $ENV{'PBPROJ'}.addmedia
	2075
	2076	# Clean up old repo content
[437]	2077	rm -f hdlist.cz synthesis.hdlist.cz
[429]	2078	# Create urpmi repo
[1002]	2079	genhdlist2 --clean .
	2080	if [ \$\? -ne 0 ]; then
	2081	genhdlist .
	2082	fi
[429]	2083	EOF
	2084	}
[1177]	2085	if ($pbos->{'name'} eq "fedora") {
[484]	2086	# Extract the spec file to please Fedora maintainers :-(
	2087	print PBS << "EOF";
	2088	for p in $basesrc; do
	2089	echo \$p \| grep -q 'src.rpm'
	2090	if [ \$\? -eq 0 ]; then
	2091	rpm2cpio \$p \| cpio -ivdum --quiet '*.spec'
	2092	fi
	2093	done
	2094	EOF
	2095	}
[1177]	2096	if ($pbos->{'family'} eq "novell") {
[1089]	2097	# Add ymp scripts for one-click install on SuSE
	2098	print PBS << "EOF";
	2099	# Prepare a script to ease SuSE one-click install
[1090]	2100	# Cf: http://de.opensuse.org/1-Klick-Installation/ISV
	2101	#
[1089]	2102	cat > $ENV{'PBPROJ'}.ymp << EOT
[1096]	2103	<?xml version="1.0" encoding="utf-8"?>
	2104	<!-- vim: set sw=2 ts=2 ai et: -->
[1089]	2105	<metapackage xmlns:os="http://opensuse.org/Standards/One_Click_Install" xmlns="http://opensuse.org/Standards/One_Click_Install">
	2106	<group><!-- The group of software, typically one for project-builder.org -->
	2107	<name>$ENV{'PBPROJ'} Bundle</name> <!-- Name of the software group -->
	2108	<summary>Software bundle for the $ENV{'PBPROJ'} project</summary> <!--This message is shown to the user and should describe the whole bundle -->
[1095]	2109	<description>This is the summary of the $ENV{'PBPROJ'} Project
[1089]	2110
[1095]	2111	Details are available on a per package basis below
	2112
[1089]	2113	</description><!--This is also shown to the user -->
	2114	<remainSubscribed>false</remainSubscribed> <!-- Don't know what it mean -->
	2115	<repositories><!-- List of needed repositories -->
	2116	<repository>
	2117	<name>$ENV{'PBPROJ'} Repository</name> <!-- Name of the repository -->
	2118	<summary>This repository contains the $ENV{'PBPROJ'} project packages.</summary> <!-- Summary of the repository -->
	2119	<description>This repository contains the $ENV{'PBPROJ'} project packages.</description><!-- This description is shown to the user -->
	2120	<url>$pbrepo->{$ENV{'PBPROJ'}}/$repodir</url><!--URL of repository, which is added -->
	2121	</repository>
	2122	</repositories>
	2123	<software><!-- A List of packages, which should be added through the one-click-installation -->
	2124	EOT
	2125	for p in $basesrc; do
	2126	sum=`rpm -q --qf '%{SUMMARY}' \$p`
[1096]	2127	name=`rpm -q --qf '%{NAME}' \$p`
[1089]	2128	desc=`rpm -q --qf '%{description}' \$p`
	2129	cat >> $ENV{'PBPROJ'}.ymp << EOT
	2130	<item>
[1096]	2131	<name>\$name</name><!-- Name of the package, is shown to the user and used to identify the package at the repository -->
[1089]	2132	<summary>\$sum</summary> <!-- Summary of the package -->
	2133	<description>\$desc</description> <!-- Description, is shown to the user -->
	2134	</item>
	2135	EOT
	2136	done
	2137	cat >> $ENV{'PBPROJ'}.ymp << EOT
	2138	</software>
	2139	</group>
	2140	</metapackage>
	2141	EOT
	2142	chmod 644 $ENV{'PBPROJ'}.ymp
	2143	EOF
	2144	}
[1177]	2145	} elsif ($pbos->{'type'} eq "deb") {
[429]	2146	# Also make a pbscript to generate apt bases
[460]	2147	# Cf: http://www.debian.org/doc/manuals/repository-howto/repository-howto.fr.html
[1246]	2148	# This dirname removes ver
[1283]	2149	my $debarch = $pbos->{'arch'};
[1287]	2150	$debarch = "amd64" if ($pbos->{'arch'} eq "x86_64");
[465]	2151	my $rpd = dirname("$pbrepo->{$ENV{'PBPROJ'}}/$repodir");
[1357]	2152	# Remove extra . in path to fix #522
	2153	$rpd =~ s\|/./\|/\|g;
[1555]	2154	my ($projcomponent_map) = pb_conf_get_if("projcomponent");
[1557]	2155	pb_log(2,"projcomponent = ".Dumper($projcomponent_map)."\n");
[1555]	2156	my $projcomponent = $projcomponent_map->{$ENV{PBPROJ}};
	2157	$projcomponent \|\|= 'contrib';
[460]	2158	print PBS << "EOF";
[465]	2159	#!/bin/bash
	2160	# Prepare a script to ease apt setup
	2161	cat > $ENV{'PBPROJ'}.sources.list << EOT
[1555]	2162	deb $rpd $pbos->{'version'} $projcomponent
	2163	deb-src $rpd $pbos->{'version'} $projcomponent
[460]	2164	EOT
[465]	2165	chmod 644 $ENV{'PBPROJ'}.sources.list
[460]	2166
[1112]	2167	# Up two levels to deal with the dist dir cross versions
[1192]	2168	cd ..
[1555]	2169	mkdir -p dists/$pbos->{'version'}/$projcomponent/binary-$debarch dists/$pbos->{'version'}/$projcomponent/source
[1112]	2170
[460]	2171	# Prepare a script to create apt info file
[1192]	2172	# Reuse twice after
[1112]	2173	TMPD=`mktemp -d /tmp/pb.XXXXXXXXXX` \|\| exit 1
	2174	mkdir -p \$TMPD
	2175	cat > \$TMPD/Release << EOT
	2176	Archive: unstable
[1555]	2177	Component: $projcomponent
[1112]	2178	Origin: $ENV{'PBPROJ'}
	2179	Label: $ENV{'PBPROJ'} dev repository $pbrepo->{$ENV{'PBPROJ'}}
	2180	EOT
	2181
[1559]	2182	echo "Creating Packages metadata"
	2183	for i in dists/$pbos->{version}/$projcomponent/binary-*; do
	2184	arch=`basename \$i \| sed 's/binary-//'`
	2185	echo "Packages for \$arch:"
	2186	dpkg-scanpackages -a\$arch $pbos->{'version'} /dev/null \| gzip -c9 > dists/$pbos->{'version'}/$projcomponent/binary-\$arch/Packages.gz
	2187	dpkg-scanpackages -a\$arch $pbos->{'version'} /dev/null \| bzip2 -c9 > dists/$pbos->{'version'}/$projcomponent/binary-\$arch/Packages.bz2
	2188	done
[1192]	2189	echo "Creating Contents metadata"
	2190	apt-ftparchive contents $pbos->{'version'} \| gzip -c9 > dists/$pbos->{'version'}/Contents.gz
[1275]	2191	echo "Creating Release metadata ($pbos->{'arch'} aka $debarch)"
[1555]	2192	cat \$TMPD/Release > dists/$pbos->{'version'}/$projcomponent/binary-$debarch/Release
	2193	echo "Architecture: $debarch" >> dists/$pbos->{'version'}/$projcomponent/binary-$debarch/Release
[1112]	2194	echo "Creating Source metadata"
[1555]	2195	dpkg-scansources $pbos->{'version'} /dev/null \| gzip -c9 > dists/$pbos->{'version'}/$projcomponent/source/Sources.gz
	2196	cat \$TMPD/Release > dists/$pbos->{'version'}/$projcomponent/source/Release
	2197	echo "Architecture: Source" >> dists/$pbos->{'version'}/$projcomponent/source/Release
[1112]	2198	echo "Creating Release metadata"
[1388]	2199	# Signing that file would be useful but uneasy as gpg keys are not there
	2200	# Cf: http://wiki.debian.org/SecureApt
	2201	# Same as for repomd
[1177]	2202	apt-ftparchive release dists/$pbos->{'version'} > dists/$pbos->{'version'}/Release
[1112]	2203	rm -rf \$TMPD
[460]	2204	EOF
[1177]	2205	} elsif ($pbos->{'type'} eq "ebuild") {
[586]	2206	# make a pbscript to generate links to latest version
	2207	print PBS << "EOF";
	2208	#!/bin/bash
	2209	# Prepare a script to create correct links
	2210	for p in $src; do
	2211	echo \$p \| grep -q '.ebuild'
	2212	if [ \$\? -eq 0 ]; then
	2213	j=`basename \$p`
	2214	pp=`echo \$j \| cut -d'-' -f1`
	2215	ln -sf \$j \$pp.ebuild
	2216	fi
	2217	done
	2218	EOF
[429]	2219	}
	2220	close(PBS);
[1189]	2221	chmod 0755,"$ENV{'PBBUILDDIR'}/pbscript.$$";
[90]	2222	} else {
	2223	return;
[22]	2224	}
[239]	2225
[1143]	2226	# Useless for VE
[1179]	2227	my $nport = pb_get_port($sshport,$pbos,$cmt) if ($cmt !~ /^VE/);
[320]	2228
[136]	2229	# Remove a potential $ENV{'HOME'} as tdir should be relative to pb's home
[1559]	2230	if ($cmt =~ /^VE/o) {
	2231	$tdir =~ s\|\$ENV.+\}/\|\| or confess "for $cmt: $tdir must have \$ENV{'HOME'} in it or the remainder of the code won't work since some parts use relative pathing and others will try absolute. Use a symlink if necessary to place the real files in a different place than under your home directory";
	2232	} else {
	2233	# process, ok if not present.
	2234	$tdir =~ s\|\$ENV.+\}/\|\|;
	2235	}
[132]	2236
[1217]	2237	my $tm = "";
[1176]	2238	if ($cmt =~ /^(V\|R)M/) {
[1218]	2239	$tm = "sleep $vtmout" if (defined $vtmout);
[883]	2240	}
[320]	2241
[1374]	2242	# ssh communication if not VE or CPAN
[349]	2243	# should use a hash instead...
[1549]	2244	my ($shcmd,$shcmdroot,$cpcmd,$cptarget,$cp2target);
[1374]	2245	if ($cmt =~ /^VE/) {
[1541]	2246	my $tp = pb_path_expand($vepath->{$ENV{'PBPROJ'}});
	2247	my $tpdir = pb_path_expand("$tp/$pbos->{'name'}/$pbos->{'version'}/$pbos->{'arch'}");
[681]	2248	my ($ptr) = pb_conf_get("vetype");
	2249	my $vetype = $ptr->{$ENV{'PBPROJ'}};
[1545]	2250	my $arch = pb_get_arch();
[681]	2251	if ($vetype eq "chroot") {
[1549]	2252	$shcmdroot = "sudo /usr/sbin/chroot $tpdir ";
	2253	$shcmd = "$shcmdroot /bin/su - $mac -c ";
[681]	2254	} elsif ($vetype eq "schroot") {
	2255	$shcmd = "schroot $tp -u $mac -- ";
	2256	}
[1549]	2257	$shcmd = "setarch i386 $shcmd" if (($pbos->{'arch'} =~ /i?86/) && ($arch eq 'x86_64'));
[1179]	2258	$cpcmd = "sudo /bin/cp -r ";
[681]	2259	# We need to get the home dir of the target account to deliver in the right place
[1541]	2260	open(PASS,"$tpdir/etc/passwd") \|\| die "Unable to open $tpdir/etc/passwd: $!";
[681]	2261	my $homedir = "";
	2262	while (<PASS>) {
	2263	my ($c1,$c2,$c3,$c4,$c5,$c6,$c7) = split(/:/);
	2264	$homedir = $c6 if ($c1 =~ /^$mac$/);
	2265	pb_log(3,"Homedir: $homedir - account: $c6\n");
	2266	}
	2267	close(PASS);
	2268	$cptarget = "$tpdir/$homedir/$tdir";
[773]	2269	if ($cmt eq "VEbuild") {
[681]	2270	$cp2target = "$tpdir/$homedir/$bdir";
	2271	}
	2272	pb_log(2,"On VE using $cptarget as target dir to copy to\n");
[1374]	2273	} elsif ($cmt =~ /^CPAN/) {
[1382]	2274	my $ftpput = pb_check_req("ncftpput",1);
	2275	my $ftpget = pb_check_req("wget",1);
[1374]	2276	my ($cpanuser,$cpanpasswd) = pb_conf_get("cpanuser","cpanpasswd");
	2277	my ($cpansubdir) = pb_conf_get_if("cpansubdir");
	2278	$shcmd = "$ftpget --post-data \'HIDDENNAME=".$cpanuser;
	2279	$shcmd .= "&user=".$cpanuser;
	2280	$shcmd .= "&password=".$cpanpasswd;
	2281	$shcmd .= "&SUBMIT_pause99_add_uri_upload=\"Upload the checked files\"";
	2282	$shcmd .= "&pause99_add_uri_subdirtext=".$cpansubdir if (defined $cpansubdir);
	2283	foreach my $s (split(/ /,$src)) {
	2284	$shcmd .= "&pause99_add_uri_upload=".basename($s);
	2285	}
	2286	$shcmd .= "'";
	2287	$cpcmd = "$ftpput $host $dir";
	2288	$cptarget = "CPAN";
	2289	} else {
	2290	my $keyfile = pb_ssh_get(0);
[1545]	2291	my $keyopt = defined $keyfile ? "-i $keyfile" : "";
[1382]	2292	my $sshcmd = pb_check_req("ssh",1);
	2293	my $scpcmd = pb_check_req("scp",1);
[1545]	2294	$shcmd = "$sshcmd $keyopt -q -o NoHostAuthenticationForLocalhost=yes -p $nport $mac";
	2295	$cpcmd = "$scpcmd $keyopt -p -o NoHostAuthenticationForLocalhost=yes -P $nport";
[1374]	2296	$cptarget = "$mac:$tdir";
	2297	if ($cmt =~ /^(V\|R)Mbuild/) {
	2298	$cp2target = "$mac:$bdir";
	2299	}
[320]	2300	}
[1374]	2301
[471]	2302	my $logres = "";
	2303	# Do not touch when just announcing
[1374]	2304	if (($cmt ne "Announce") && ($cmt ne "CPAN")) {
[1550]	2305	pb_system("$shcmd \"mkdir -p $tdir ; cd $tdir ; echo \'for i in $basesrc; do if [ -f \$i ]; then rm -f \$i; fi; done\ ; $cmd' \| bash-e\"","Preparing $tdir on $cptarget");
[471]	2306	} else {
	2307	$logres = "> ";
	2308	}
[320]	2309	pb_system("cd $ENV{'PBBUILDDIR'} ; $cpcmd $src $cptarget 2> /dev/null","$cmt delivery in $cptarget");
[444]	2310
[681]	2311	# For VE we need to change the owner manually
[772]	2312	if ($cmt =~ /^VE/) {
[1549]	2313	if (defined $shcmdroot) {
	2314	# This should help overcome a CentOS 5.8 bug as well as having a simper sequence
	2315	pb_system("$shcmdroot \"chown -R $mac $tdir\"","Adapt owner in $tdir to $mac");
	2316	} else {
	2317	pb_system("$shcmd \"sudo chown -R $mac $tdir\"","Adapt owner in $tdir to $mac");
	2318	}
[681]	2319	}
	2320
[1140]	2321	# Use the right script name depending on context
	2322	my $pbscript;
[1189]	2323	if (($cmt =~ /^(V[EM]\|RM)/) \|\| ($cmt =~ /Packages/)){
[1140]	2324	$pbscript = "pbscript.$$";
	2325	} else {
	2326	$pbscript = "pbscript";
	2327	}
	2328
[1374]	2329	# It's already ready for CPAN
[1383]	2330	my $shcmdbase = $shcmd;
[1374]	2331	if ($cmt !~ /^CPAN/) {
[1383]	2332	$shcmd .= " \"echo \'cd $tdir ; if [ -x $pbscript ]; then ./$pbscript; fi ; rm -f ./$pbscript\' \| bash\"";
[1374]	2333	}
[1386]	2334	my $cmdverb = "verbose";
[1388]	2335	if (($cmt eq "Announce") \|\| ($cmt eq "CPAN")) {
[1386]	2336	$cmdverb = undef;
	2337	}
	2338	pb_system("$shcmd","Executing pbscript on $cptarget if needed",$cmdverb);
[1176]	2339	if ($cmt =~ /^(V[EM]\|RM)build/) {
	2340	# Get back info on pkg produced, compute their name and get them from the VM/RM
[1189]	2341	pb_system("$cpcmd $cp2target/pbgen-$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}-$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'} $ENV{'PBBUILDDIR'}/pbgen-$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}.$$ 2> /dev/null","Get package names in $cp2target");
[681]	2342	# For VE we need to change the owner manually
[772]	2343	if ($cmt eq "VEbuild") {
[1138]	2344	pb_system("sudo chown $UID $ENV{'PBBUILDDIR'}/pbgen-$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}.$$","Adapt owner in $tdir to $UID");
[681]	2345	}
[1138]	2346	if (not -f "$ENV{'PBBUILDDIR'}/pbgen-$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}.$$") {
[1176]	2347	pb_log(0,"Problem with VM/RM $v on $ENV{'PBBUILDDIR'}/pbgen-$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}.$$");
[1156]	2348	} else {
	2349	open(KEEP,"$ENV{'PBBUILDDIR'}/pbgen-$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}.$$") \|\| die "Unable to read $ENV{'PBBUILDDIR'}/pbgen-$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}.$$";
	2350	my $src = <KEEP>;
	2351	chomp($src);
	2352	close(KEEP);
	2353	unlink("$ENV{'PBBUILDDIR'}/pbgen-$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}.$$");
[1138]	2354
[1156]	2355	$src =~ s/^ *//;
[1179]	2356	pb_mkdir_p("$ENV{'PBBUILDDIR'}/$pbos->{'name'}/$pbos->{'version'}/$pbos->{'arch'}");
[1156]	2357	# Change pgben to make the next send2target happy
	2358	my $made = "";
	2359
[1176]	2360	# For VM/RM we don't want shell expansion to hapen locally but remotely
[1156]	2361	my $delim = '\'';
	2362	if ($cmt =~ /^VEbuild/) {
	2363	# For VE we need to support shell expansion locally
	2364	$delim = "";
	2365	}
[1138]	2366
[1189]	2367	open(KEEP,"> $ENV{'PBBUILDDIR'}/pbgen-$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}-$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}") \|\| die "Unable to write $ENV{'PBBUILDDIR'}/pbgen-$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}-$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}";
[1156]	2368	foreach my $p (split(/ +/,$src)) {
	2369	my $j = basename($p);
[1179]	2370	pb_system("$cpcmd $cp2target/$delim$p$delim $ENV{'PBBUILDDIR'}/$pbos->{'name'}/$pbos->{'version'}/$pbos->{'arch'} 2> /dev/null","Recovery of package $j in $ENV{'PBBUILDDIR'}/$pbos->{'name'}/$pbos->{'version'}/$pbos->{'arch'}");
	2371	$made="$made $pbos->{'name'}/$pbos->{'version'}/$pbos->{'arch'}/$j"; # if (($pbos->{'type'} ne "rpm") \|\| ($j !~ /.src.rpm$/));
[1156]	2372	}
	2373	print KEEP "$made\n";
	2374	close(KEEP);
[1383]	2375	pb_system("$shcmdbase \"rm -rf $tdir $bdir\"","$cmt cleanup");
[1138]	2376
[1156]	2377	# Sign packages locally
[1278]	2378	pb_sign_pkgs($pbos,$made);
[1156]	2379
	2380	# We want to send them to the ssh account so overwrite what has been done before
	2381	undef $pbaccount;
	2382	pb_log(2,"Before sending pkgs, vmexist: $vmexist, vmpid: $vmpid\n");
[1179]	2383	pb_send2target("Packages",$pbos->{'name'}."-".$pbos->{'version'}."-".$pbos->{'arch'},$vmexist,$vmpid);
	2384	pb_rm_rf("$ENV{'PBBUILDDIR'}/$pbos->{'name'}/$pbos->{'version'}/$pbos->{'arch'}");
[623]	2385	}
[108]	2386	}
[1425]	2387	unlink("$ENV{'PBDESTDIR'}/pbscript.$$") if ((($cmt =~ /^(V[ME]\|RM)/) \|\| ($cmt =~ /Packages/)) && ($pbkeep eq 0));
[1139]	2388
[442]	2389	pb_log(2,"Before halt, vmexist: $vmexist, vmpid: $vmpid\n");
[772]	2390	if ((! $vmexist) && ($cmt =~ /^VM/)) {
[748]	2391	# If in setupvm then takes a snapshot just before halting
	2392	if ($snapme != 0) {
	2393	my ($vmmonport,$vmtype) = pb_conf_get("vmmonport","vmtype");
	2394	# For monitoring control
	2395	if ((($vmtype->{$ENV{'PBPROJ'}}) eq "kvm") \|\| (($vmtype->{$ENV{'PBPROJ'}}) eq "qemu")) {
[1153]	2396	eval
	2397	{
[804]	2398	require Net::Telnet;
[1153]	2399	Net::Telnet->import();
	2400	};
	2401	if ($@) {
	2402	# Net::Telnet not found
	2403	pb_log(1,"ADVISE: Install Net::Telnet to benefit from monitoring control and snapshot feature.\nWARNING: No snapshot created");
	2404	} else {
	2405	my $t = new Net::Telnet (Timeout => 120, Host => "localhost", Port => $vmmonport->{$ENV{'PBPROJ'}}) \|\| die "Unable to dialog on the monitor";
	2406	# move to monitor mode
	2407	my @lines = $t->cmd("c");
	2408	# Create a snapshot named pb
	2409	@lines = $t->cmd("savevm pb");
	2410	# Write the new status in the VM
	2411	@lines = $t->cmd("commit all");
	2412	# End
	2413	@lines = $t->cmd("quit");
	2414	}
[748]	2415	}
	2416	}
[914]	2417	my $hoption = "-p";
[1197]	2418	my $hpath = pb_distro_get_param($pbos,pb_conf_get("ospathcmd-halt"));
[1194]	2419	# Solaris doesn't support -p of halt
[1177]	2420	if ($pbos->{'type'} eq "pkg") {
[1091]	2421	$hoption = "" ;
	2422	}
[1383]	2423	pb_system("$shcmdbase \"sudo $hpath $hoption \"; $tm ; echo \'if [ -d /proc/$vmpid ]; then kill -9 $vmpid; fi \' \| bash ; sleep 10","VM $v halt (pid $vmpid)");
[442]	2424	}
[772]	2425	if (($cmt =~ /^VE/) && ($snapme != 0)) {
[1179]	2426	my $tpdir = "$vepath->{$ENV{'PBPROJ'}}/$pbos->{'name'}/$pbos->{'version'}/$pbos->{'arch'}";
	2427	pb_system("sudo tar cz -C $tpdir -f $vepath->{$ENV{'PBPROJ'}}/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}.tar.gz .","Creating a snapshot of $tpdir");
[752]	2428	}
[9]	2429	}
[16]	2430
[320]	2431	sub pb_script2v {
[142]	2432	my $pbscript=shift;
[320]	2433	my $vtype=shift;
[1138]	2434	my $pbforce=shift \|\| 0; # Force stop of VM. Default not.
[1176]	2435	my $vm1=shift \|\| undef; # Only that VM/VE/RM to treat. Default all.
[1138]	2436	my $snapme=shift \|\| 0; # Do we have to create a snapshot. Default not.
[442]	2437	my $vm;
	2438	my $all;
[141]	2439
[767]	2440	pb_log(2,"DEBUG: pb_script2v($pbscript,$vtype,$pbforce,".Dumper($vm1).",$snapme)\n");
[1176]	2441	# Prepare the script to be executed on the VM/VE/RM
[1138]	2442	# in $ENV{'PBDESTDIR'}/pbscript.$$
	2443	if ((defined $pbscript ) && ($pbscript ne "$ENV{'PBDESTDIR'}/pbscript.$$")) {
	2444	copy($pbscript,"$ENV{'PBDESTDIR'}/pbscript.$$") \|\| die "Unable to create $ENV{'PBDESTDIR'}/pbscript.$$";
	2445	chmod 0755,"$ENV{'PBDESTDIR'}/pbscript.$$";
[142]	2446	}
[141]	2447
[442]	2448	if (not defined $vm1) {
[772]	2449	($vm,$all) = pb_get2v($vtype);
[442]	2450	} else {
	2451	@$vm = ($vm1);
	2452	}
[320]	2453	my ($vmexist,$vmpid) = (undef,undef);
[142]	2454
[141]	2455	foreach my $v (@$vm) {
[968]	2456	# Launch VM/VE
	2457	($vmexist,$vmpid) = pb_launchv($vtype,$v,0,$snapme,$pbsnap);
[755]	2458
[320]	2459	if ($vtype eq "vm") {
[442]	2460	pb_log(2,"DEBUG: After pb_launchv, vmexist: $vmexist, vmpid: $vmpid\n");
[141]	2461
[1176]	2462	# Skip that VM/RM if something went wrong
[442]	2463	next if (($vmpid == 0) && ($vmexist == 0));
	2464
	2465	# If force stopping the VM then reset vmexist
[748]	2466	if ($pbforce == 1) {
[442]	2467	$vmpid = $vmexist;
	2468	$vmexist = 0;
	2469	}
[670]	2470	} else {
	2471	#VE
	2472	$vmexist = 0;
	2473	$vmpid = 0;
[320]	2474	}
[274]	2475
[1176]	2476	# Gather all required files to send them to the VM/VE/RM
[320]	2477	# and launch the build through pbscript
[442]	2478	pb_log(2,"DEBUG: Before send2target, vmexist: $vmexist, vmpid: $vmpid\n");
[748]	2479	pb_send2target(uc($vtype)."Script","$v",$vmexist,$vmpid,$snapme);
[169]	2480
[142]	2481	}
	2482	}
	2483
[320]	2484	sub pb_launchv {
	2485	my $vtype = shift;
	2486	my $v = shift;
[1176]	2487	my $create = shift \|\| 0; # By default do not create a VM/VE/RM
	2488	my $snapme = shift \|\| 0; # By default do not snap a VM/VE/RM
[1349]	2489	my $usesnap = shift \|\| 1; # By default study the usage of the snapshot feature of VM/VE/RM
[310]	2490
[773]	2491	# If creation or snapshot creation mode, no snapshot usable
	2492	if (($create == 1) \|\| ($snapme == 1)) {
	2493	$usesnap = 0;
	2494	}
	2495
	2496	pb_log(2,"DEBUG: pb_launchv($vtype,$v,$create,$snapme,$usesnap)\n");
[1176]	2497	die "No VM/VE/RM defined, unable to launch" if (not defined $v);
[320]	2498	# Keep only the first VM in case many were given
[1537]	2499	if ($v =~ /,/) {
	2500	pb_log(0,"WARNING: pruning to just the first of several vms listed ($v)\n");
	2501	$v =~ s/,.*//;
	2502	}
[310]	2503
[1179]	2504	my $pbos = pb_distro_get_context($v);
[1348]	2505
[1549]	2506	my $ftp_proxy = pb_distro_get_param($pbos,pb_conf_get_if("ftp_proxy"));
	2507	my $http_proxy = pb_distro_get_param($pbos,pb_conf_get_if("http_proxy"));
	2508
	2509	$ENV{ftp_proxy} \|\|= $ftp_proxy if ((defined $ftp_proxy) && ($ftp_proxy ne ""));
	2510	$ENV{http_proxy} \|\|= $http_proxy if ((defined $http_proxy) && ($http_proxy ne ""));
	2511
[320]	2512	# Launch the VMs/VEs
	2513	if ($vtype eq "vm") {
	2514	die "-i iso parameter needed" if (((not defined $iso) \|\| ($iso eq "")) && ($create != 0));
[310]	2515
[1540]	2516	my ($ptr,$ptr2,$vmpath,$vmport,$vms) = pb_conf_get("vmtype","vmcmd","vmpath","vmport","vmsize");
	2517	my ($vmopt,$vmmm,$vmtmout,$vmsnap,$vmbuildtm,$vmmonport) = pb_conf_get_if("vmopt","vmmem","vmtmout","vmsnap","vmbuildtm","vmmonport");
[1249]	2518	my $vmsize = pb_distro_get_param($pbos,$vms);
[320]	2519
	2520	my $vmtype = $ptr->{$ENV{'PBPROJ'}};
[1072]	2521	my $vmcmd = $ptr2->{$ENV{'PBPROJ'}};
[1124]	2522
	2523	if (defined $opts{'g'}) {
	2524	if (($vmtype eq "kvm") \|\| ($vmtype eq "qemu")) {
[1158]	2525	$ENV{'PBVMOPT'} = "--nographic";
[1124]	2526	}
	2527	}
[320]	2528	if (not defined $ENV{'PBVMOPT'}) {
	2529	$ENV{'PBVMOPT'} = "";
[310]	2530	}
[639]	2531	# Save the current status for later restoration
	2532	$ENV{'PBOLDVMOPT'} = $ENV{'PBVMOPT'};
[483]	2533	# Set a default timeout of 2 minutes
	2534	if (not defined $ENV{'PBVMTMOUT'}) {
	2535	$ENV{'PBVMTMOUT'} = "120";
	2536	}
	2537	if (defined $vmopt->{$v}) {
	2538	$ENV{'PBVMOPT'} .= " $vmopt->{$v}" if ($ENV{'PBVMOPT'} !~ / $vmopt->{$v}/);
	2539	} elsif (defined $vmopt->{$ENV{'PBPROJ'}}) {
[320]	2540	$ENV{'PBVMOPT'} .= " $vmopt->{$ENV{'PBPROJ'}}" if ($ENV{'PBVMOPT'} !~ / $vmopt->{$ENV{'PBPROJ'}}/);
	2541	}
[773]	2542
[1143]	2543	# How much memory to allocate for VMs
[1540]	2544	if (defined $vmmm) {
	2545	my $vmmem = pb_distro_get_param($pbos,$vmmm);
	2546	if (defined $vmmem) {
	2547	$ENV{'PBVMOPT'} .= " -m $vmmem";
	2548	}
[1143]	2549	}
	2550
[773]	2551	# Are we allowed to use snapshot feature
	2552	if ($usesnap == 1) {
[748]	2553	if ((defined $vmsnap->{$v}) && ($vmsnap->{$v} =~ /true/i)) {
[1070]	2554	$ENV{'PBVMOPT'} .= " -snapshot";
[748]	2555	} elsif ((defined $vmsnap->{$ENV{'PBPROJ'}}) && ($vmsnap->{$ENV{'PBPROJ'}} =~ /true/i)) {
[1070]	2556	$ENV{'PBVMOPT'} .= " -snapshot";
[748]	2557	} elsif ($pbsnap eq 1) {
[1070]	2558	$ENV{'PBVMOPT'} .= " -snapshot";
[748]	2559	}
[767]	2560	}
	2561	if ($snapme != 0) {
[748]	2562	if (($vmtype eq "kvm") \|\| ($vmtype eq "qemu")) {
[1138]	2563	# Configure the monitoring to automate the creation of the 'pb' snapshot
[1540]	2564	$ENV{'PBVMOPT'} .= " -serial mon:telnet::$vmmonport->{$ENV{'PBPROJ'}},server,nowait" if ((defined $vmmonport) && (defined $vmmonport->{$ENV{'PBPROJ'}}));
[773]	2565	# In that case no snapshot call needed
[1070]	2566	$ENV{'PBVMOPT'} =~ s/ -snapshot//;
[748]	2567	}
	2568	}
[483]	2569	if (defined $vmtmout->{$v}) {
	2570	$ENV{'PBVMTMOUT'} = $vmtmout->{$v};
	2571	} elsif (defined $vmtmout->{$ENV{'PBPROJ'}}) {
	2572	$ENV{'PBVMTMOUT'} = $vmtmout->{$ENV{'PBPROJ'}};
	2573	}
[1179]	2574	my $nport = pb_get_port($vmport,$pbos,$vtype);
[320]	2575
	2576	my $cmd;
	2577	my $vmm; # has to be used for pb_check_ps
[677]	2578	if (($vmtype eq "qemu") \|\| ($vmtype eq "kvm")) {
	2579	$vmm = "$vmpath->{$ENV{'PBPROJ'}}/$v.qemu";
[792]	2580	if (($create != 0) \|\| (defined $iso)) {
[677]	2581	$ENV{'PBVMOPT'} .= " -cdrom $iso -boot d";
[320]	2582	}
[748]	2583	# Always redirect the network and always try to use a 'pb' snapshot
[1340]	2584	#$cmd = "$vmcmd $ENV{'PBVMOPT'} -net user,hostfwd=tcp:$nport:10.0.2.15:22 -loadvm pb $vmm"
[1381]	2585	$cmd = "$vmcmd $ENV{'PBVMOPT'} -redir tcp:$nport:10.0.2.15:22 $vmm"
[320]	2586	} elsif ($vmtype eq "xen") {
	2587	} elsif ($vmtype eq "vmware") {
[310]	2588	} else {
[320]	2589	die "VM of type $vmtype not supported. Report to the dev team";
[310]	2590	}
[639]	2591	# Restore the ENV VAR Value
[641]	2592	$ENV{'PBVMOPT'} = $ENV{'PBOLDVMOPT'};
[639]	2593
[320]	2594	my ($tmpcmd,$void) = split(/ +/,$cmd);
	2595	my $vmexist = pb_check_ps($tmpcmd,$vmm);
	2596	my $vmpid = 0;
	2597	if (! $vmexist) {
	2598	if ($create != 0) {
[653]	2599	die("Found an existing Virtual machine $vmm. Won't overwrite") if (-r $vmm);
[677]	2600	if (($vmtype eq "qemu") \|\| ($vmtype eq "xen") \|\| ($vmtype eq "kvm")) {
[1127]	2601	my $command = pb_check_req("qemu-img",0);
[1249]	2602	pb_system("$command create -f qcow2 $vmm $vmsize","Creating the QEMU VM");
[320]	2603	} elsif ($vmtype eq "vmware") {
	2604	} else {
	2605	}
	2606	}
	2607	if (! -f "$vmm") {
	2608	pb_log(0,"Unable to find VM $vmm\n");
	2609	} else {
[1153]	2610	# Is the SSH port free? if not kill the existing process using it after a build timeout period
	2611	my $vmssh = pb_check_ps($tmpcmd,"tcp:$nport:10.0.2.15:22");
	2612	if ($vmssh) {
	2613	my $buildtm = $ENV{'PBVMTMOUT'};
	2614	if (defined $vmbuildtm->{$v}) {
	2615	$buildtm = $vmbuildtm->{$v};
	2616	} elsif (defined $vmbuildtm->{$ENV{'PBPROJ'}}) {
	2617	$buildtm = $vmbuildtm->{$ENV{'PBPROJ'}};
	2618	}
	2619
	2620	sleep $buildtm;
	2621	pb_log(0,"WARNING: Killing the process ($vmssh) using port $nport (previous failed VM ?)\n");
	2622	kill 15,$vmssh;
[1154]	2623	# Let it time to exit
	2624	sleep 5;
[1153]	2625	}
[320]	2626	pb_system("$cmd &","Launching the VM $vmm");
[1540]	2627	# Using system allows to kill it externaly if needed,sosupport that in the call
	2628	pb_system("sleep $ENV{'PBVMTMOUT'}","Waiting $ENV{'PBVMTMOUT'} s for VM $v to come up",undef,1);
[320]	2629	$vmpid = pb_check_ps($tmpcmd,$vmm);
[357]	2630	pb_log(0,"VM $vmm launched (pid $vmpid)\n");
[320]	2631	}
[310]	2632	} else {
[320]	2633	pb_log(0,"Found an existing VM $vmm (pid $vmexist)\n");
[310]	2634	}
[442]	2635	pb_log(2,"DEBUG: pb_launchv returns ($vmexist,$vmpid)\n");
[320]	2636	return($vmexist,$vmpid);
[1176]	2637	} elsif ($vtype eq "ve") {
[1360]	2638	# Force the creation of the VE and no snapshot usable
[1388]	2639	pb_ve_launch($v,$create,$usesnap);
[1176]	2640	} else {
	2641	# RM here
	2642	# Get distro context
[1177]	2643	my $pbos = pb_distro_get_context($v);
[1176]	2644
	2645	# Get RM context
	2646	my ($ptr,$rmpath) = pb_conf_get("rmtype","rmpath");
	2647
	2648	# Nothing more to do for RM. No real launch
	2649	# For the moment we support the RM is already running
	2650	# For ProLiant may be able to power them on if needed later on as an example.
[141]	2651	}
	2652	}
[142]	2653
[639]	2654	# Return string for date synchro
[772]	2655	sub pb_date2v {
[639]	2656
	2657	my $vtype = shift;
[1216]	2658	my $pbos = shift;
[639]	2659
[1545]	2660	# VE gets time from parent OS.
	2661	return "/bin/true" if ($vtype) =~ /^ve/o;
	2662
[986]	2663	my ($ntp) = pb_conf_get_if($vtype."ntp");
	2664	my $vntp = $ntp->{$ENV{'PBPROJ'}} if (defined $ntp);
[1221]	2665	my $ntpline = undef;
[639]	2666
	2667	if (defined $vntp) {
[1221]	2668	# ntp command depends on pbos
	2669	my $vntpcmd = pb_distro_get_param($pbos,pb_conf_get($vtype."ntpcmd"));
[652]	2670	$ntpline = "sudo $vntpcmd $vntp";
[639]	2671	}
	2672	# Force new date to be in the future compared to the date
	2673	# of the host by adding 1 minute
	2674	my @date=pb_get_date();
	2675	$date[1]++;
	2676	my $upddate = strftime("%m%d%H%M%Y", @date);
[1179]	2677	my $dateline = "sudo /bin/date $upddate";
[1190]	2678	if (defined $ntpline) {
	2679	return($ntpline);
	2680	} else {
	2681	return($dateline);
[639]	2682	}
[1190]	2683	}
[639]	2684
[320]	2685	sub pb_build2v {
[118]	2686
[320]	2687	my $vtype = shift;
[772]	2688	my $action = shift \|\| "build";
[142]	2689
[772]	2690	my ($v,$all) = pb_get2v($vtype);
[320]	2691
	2692	# Send tar files when we do a global generation
[772]	2693	pb_build2ssh() if (($all == 1) && ($action eq "build"));
[320]	2694
[1143]	2695	# Adapt // mode to memory size
	2696	$pbparallel = pb_set_parallel($vtype);
	2697
[320]	2698	my ($vmexist,$vmpid) = (undef,undef);
[1176]	2699	my $pm;
[1550]	2700	my $all_ok = 1;
[1176]	2701	if (defined $pbparallel) {
	2702	$pm = new Parallel::ForkManager($pbparallel);
[320]	2703
[1176]	2704	# Set which port the VM/RM will use to communicate
	2705	$pm->run_on_start(\&pb_set_port);
[1550]	2706	$pm->run_on_finish(sub { my ($pid, $code, $id, $signal, $dump) = @_;
	2707	unless ($code == 0 && $signal == 0 && $dump == 0) {
[1552]	2708	$all_ok = 0;
[1550]	2709	pb_log(0,"ERROR: pid $pid failed\n");
	2710	}
	2711	});
[1176]	2712	}
[1143]	2713
	2714	my $counter = 0;
[320]	2715	foreach my $v (@$v) {
[1143]	2716	$counter++;
[1153]	2717	# Modulo 2 * pbparallel (to avoid synchronization problems)
[1176]	2718	$counter = 1 if ((defined $pbparallel) && ($counter > 2 * $pbparallel));
[1143]	2719	$pm->start($counter) and next if (defined $pbparallel);
[1176]	2720	# Prepare the script to be executed on the VM/VE/RM
[1138]	2721	# in $ENV{'PBDESTDIR'}/pbscript.$$
	2722	open(SCRIPT,"> $ENV{'PBDESTDIR'}/pbscript.$$") \|\| die "Unable to create $ENV{'PBDESTDIR'}/pbscript.$$";
[652]	2723	print SCRIPT "#!/bin/bash\n";
[721]	2724
	2725	# Transmit the verbosity level to the virtual env/mach.
	2726	my $verbose = "";
	2727	my $i = 0; # minimal debug level
	2728	while ($i lt $pbdebug) {
	2729	$verbose .= "-v ";
	2730	$i++;
	2731	}
[1545]	2732	print SCRIPT "set -e\n" if $Global::pb_stop_on_error;
[721]	2733	# Activate script verbosity if at least 2 for pbdebug
	2734	print SCRIPT "set -x\n" if ($i gt 1);
	2735	# Quiet if asked to be so on the original system
	2736	$verbose = "-q" if ($pbdebug eq -1);
	2737
[652]	2738	print SCRIPT "echo ... Execution needed\n";
	2739	print SCRIPT "# This is in directory delivery\n";
	2740	print SCRIPT "# Setup the variables required for building\n";
	2741	print SCRIPT "export PBPROJ=$ENV{'PBPROJ'}\n";
[686]	2742
[772]	2743	if ($action eq "build") {
	2744	print SCRIPT "# Preparation for pb\n";
	2745	print SCRIPT "mv .pbrc \$HOME\n";
	2746	print SCRIPT "cd ..\n";
	2747	}
	2748
[1545]	2749	# VE needs a good /proc, tolerate one being potentially left around after a failure
[687]	2750	if ($vtype eq "ve") {
[1545]	2751	print SCRIPT "[ -d /proc/1 ] \|\| sudo /bin/mount -t proc /proc /proc\n";
[686]	2752	}
[652]	2753
[1216]	2754	# Get distro context
	2755	my $pbos = pb_distro_get_context($v);
	2756
	2757	my $ntpline = pb_date2v($vtype,$pbos);
[652]	2758	print SCRIPT "# Time sync\n";
[1545]	2759	print SCRIPT "echo setting up date with $ntpline\n";
[1190]	2760	print SCRIPT "$ntpline\n";
[721]	2761	# Use potential local proxy declaration in case we need it to download repo, pkgs, ...
	2762	if (defined $ENV{'http_proxy'}) {
	2763	print SCRIPT "export http_proxy=\"$ENV{'http_proxy'}\"\n";
	2764	}
[652]	2765
[721]	2766	if (defined $ENV{'ftp_proxy'}) {
	2767	print SCRIPT "export ftp_proxy=\"$ENV{'ftp_proxy'}\"\n";
[652]	2768	}
	2769
[772]	2770	# Get list of packages to build/test and get some ENV vars as well
	2771	my $ptr = pb_get_pkg();
	2772	@pkgs = @$ptr;
	2773	my $p = join(' ',@pkgs) if (@pkgs);
	2774	print SCRIPT "export PBPROJVER=$ENV{'PBPROJVER'}\n";
	2775	print SCRIPT "export PBPROJTAG=$ENV{'PBPROJTAG'}\n";
	2776	print SCRIPT "export PBPACKAGER=\"$ENV{'PBPACKAGER'}\"\n";
[721]	2777
	2778	# We may need to do some other tasks before building. Read a script here to finish setup
[772]	2779	if (-x "$ENV{'PBDESTDIR'}/pb$vtype".".pre") {
	2780	print SCRIPT "# Special pre-instructions to be launched\n";
	2781	print SCRIPT pb_get_content("$ENV{'PBDESTDIR'}/pb$vtype".".pre");
[721]	2782	}
	2783
[772]	2784	if (-x "$ENV{'PBDESTDIR'}/pb$vtype"."$action.pre") {
	2785	print SCRIPT "# Special pre-$action instructions to be launched\n";
	2786	print SCRIPT pb_get_content("$ENV{'PBDESTDIR'}/pb$vtype"."$action.pre");
	2787	}
	2788
	2789	print SCRIPT "# $action\n";
	2790	print SCRIPT "echo $action"."ing packages on $vtype...\n";
	2791
	2792	if (($action eq "test") && (! -x "$ENV{'PBDESTDIR'}/pbtest")) {
	2793	die "No test script ($ENV{'PBDESTDIR'}/pbtest) found when in test mode. Aborting ...";
	2794	}
	2795	print SCRIPT "pb $verbose -p $ENV{'PBPROJ'} $action"."2pkg $p\n";
	2796
[687]	2797	if ($vtype eq "ve") {
[1179]	2798	print SCRIPT "sudo /bin/umount /proc\n";
[686]	2799	}
[721]	2800
	2801	# We may need to do some other tasks after building. Read a script here to exit properly
[772]	2802	if (-x "$ENV{'PBDESTDIR'}/pb$vtype"."$action.post") {
	2803	print SCRIPT "# Special post-$action instructions to be launched\n";
	2804	print SCRIPT pb_get_content("$ENV{'PBDESTDIR'}/pb$vtype"."$action.post");
[721]	2805	}
	2806
[772]	2807	if (-x "$ENV{'PBDESTDIR'}/pb$vtype".".post") {
	2808	print SCRIPT "# Special post-instructions to be launched\n";
	2809	print SCRIPT pb_get_content("$ENV{'PBDESTDIR'}/pb$vtype".".post");
	2810	}
	2811
[1546]	2812	print SCRIPT q{echo "******** Successful exit of script $$ *******************"}, "\n";
[652]	2813	close(SCRIPT);
[1138]	2814	chmod 0755,"$ENV{'PBDESTDIR'}/pbscript.$$";
[652]	2815
[1176]	2816	# Launch the VM/VE/RM
[755]	2817	($vmexist,$vmpid) = pb_launchv($vtype,$v,0);
	2818
[1139]	2819
[320]	2820	if ($vtype eq "vm") {
[1143]	2821	# Skip that VM if something went wrong
[1139]	2822	if (($vmpid == 0) && ($vmexist == 0)) {
	2823	$pm->finish if (defined $pbparallel);
	2824	next;
	2825	}
[658]	2826	} else {
[1176]	2827	# VE/RM
[658]	2828	$vmexist = 0;
	2829	$vmpid = 0;
[118]	2830	}
[320]	2831	# Gather all required files to send them to the VM/VE
[347]	2832	# and launch the build through pbscript
[357]	2833	pb_log(2,"Calling send2target $vtype,$v,$vmexist,$vmpid\n");
[772]	2834	pb_send2target(uc($vtype).$action,"$v",$vmexist,$vmpid);
[1139]	2835	$pm->finish if (defined $pbparallel);
[105]	2836	}
[1176]	2837	$pm->wait_all_children if (defined $pbparallel);
[1550]	2838	die "Aborting, one or more of the children failed." if ((not $all_ok) && ($Global::pb_stop_on_error));
[320]	2839	}
[105]	2840
[262]	2841
[739]	2842	sub pb_clean {
	2843
	2844	my $sleep=10;
	2845	die "Unable to get env var PBDESTDIR" if (not defined $ENV{'PBDESTDIR'});
	2846	die "Unable to get env var PBBUILDDIR" if (not defined $ENV{'PBBUILDDIR'});
	2847	pb_log(0,"We will now wait $sleep s before removing both directories\n$ENV{'PBDESTDIR'} and $ENV{'PBBUILDDIR'}.\nPlease break me if this is wrong\n");
	2848	sleep $sleep;
	2849	pb_rm_rf($ENV{'PBDESTDIR'});
	2850	pb_rm_rf($ENV{'PBBUILDDIR'});
	2851	}
	2852
[199]	2853	sub pb_newver {
	2854
[204]	2855	die "-V Version parameter needed" if ((not defined $newver) \|\| ($newver eq ""));
[340]	2856
[366]	2857	# Need this call for PBDIR
	2858	my ($scheme2,$uri) = pb_cms_init($pbinit);
[361]	2859
[898]	2860	my ($pbconf,$pburl) = pb_conf_get("pbconfurl","pburl");
[366]	2861	$uri = $pbconf->{$ENV{'PBPROJ'}};
	2862	my ($scheme, $account, $host, $port, $path) = pb_get_uri($uri);
	2863
[361]	2864	# Checking CMS repositories status
[366]	2865	($scheme2, $account, $host, $port, $path) = pb_get_uri($pburl->{$ENV{'PBPROJ'}});
[340]	2866
	2867	if ($scheme !~ /^svn/) {
[199]	2868	die "Only SVN is supported at the moment";
	2869	}
[483]	2870
[1469]	2871	my $res = pb_vcs_isdiff($scheme,$ENV{'PBROOTDIR'});
[361]	2872	die "ERROR: No differences accepted in CMS for $ENV{'PBROOTDIR'} before creating a new version" if ($res != 0);
[358]	2873
[1469]	2874	$res = pb_vcs_isdiff($scheme2,$ENV{'PBDIR'});
[361]	2875	die "ERROR: No differences accepted in CMS for $ENV{'PBDIR'} before creating a new version" if ($res != 0);
[358]	2876
	2877	# Tree identical between PBCONFDIR and PBROOTDIR. The delta is what
	2878	# we want to get for the root of the new URL
	2879
[1381]	2880	my $oldver = $ENV{'PBROOTDIR'};
	2881	$oldver =~ s\|^$ENV{'PBCONFDIR'}\|\|;
[358]	2882
[1381]	2883	pb_log(2, "PBCONFDIR: $ENV{'PBCONFDIR'}\nPBROOTDIR: $ENV{'PBROOTDIR'}\n");
	2884
	2885	my $newurl = "$uri/$newver";
[366]	2886	# Should probably use projver in the old file
[1381]	2887	my $oldvertxt= basename($oldver);
	2888	my $newvertxt = basename($newver);
[361]	2889
[366]	2890	# Duplicate and extract project-builder part
[1381]	2891	pb_log(2,"Copying $uri/$oldver to $newurl\n");
[1469]	2892	pb_vcs_copy($scheme,"$uri/$oldver",$newurl);
[1381]	2893	pb_log(2,"Checkout $newurl to $ENV{'PBCONFDIR'}/$newver\n");
[1469]	2894	pb_vcs_up($scheme,"$ENV{'PBCONFDIR'}");
[361]	2895
[366]	2896	# Duplicate and extract project
[1381]	2897	my $newurl2 = "$pburl->{$ENV{'PBPROJ'}}/$newver";
[366]	2898
[1381]	2899	pb_log(2,"Copying $pburl->{$ENV{'PBPROJ'}}/$oldver to $newurl2\n");
[1469]	2900	pb_vcs_copy($scheme2,"$pburl->{$ENV{'PBPROJ'}}/$oldver",$newurl2);
[366]	2901
[1381]	2902	my $tmp = $ENV{'PBDIR'};
	2903	$tmp =~ s\|$oldver$\|\|;
	2904	pb_log(2,"Checkout $newurl2 to $tmp/$newver\n");
[1469]	2905	pb_vcs_up($scheme2,"$tmp");
[1381]	2906
[361]	2907	# Update the .pb file
[1381]	2908	open(FILE,"$ENV{'PBCONFDIR'}/$newver/$ENV{'PBPROJ'}.pb") \|\| die "Unable to open $ENV{'PBCONFDIR'}/$newver/$ENV{'PBPROJ'}.pb";
	2909	open(OUT,"> $ENV{'PBCONFDIR'}/$newver/$ENV{'PBPROJ'}.pb.new") \|\| die "Unable to write to $ENV{'PBCONFDIR'}/$newver/$ENV{'PBPROJ'}.pb.new";
[208]	2910	while(<FILE>) {
[1420]	2911	if (/^projver\s+$ENV{'PBPROJ'}\s=\s$oldvertxt$/) {
	2912	s/^projver\s+$ENV{'PBPROJ'}\s=\s$oldvertxt$/projver $ENV{'PBPROJ'} = $newvertxt/;
[1381]	2913	pb_log(0,"Changing projver from $oldvertxt to $newvertxt in $ENV{'PBCONFDIR'}/$newver/$ENV{'PBPROJ'}.pb\n");
	2914	}
	2915	if (/^testver/) {
	2916	s/^testver/#testver/;
	2917	pb_log(0,"Commenting testver in $ENV{'PBCONFDIR'}/$newver/$ENV{'PBPROJ'}.pb\n") if (/^testver/);
	2918	}
	2919	if (/^delivery/) {
[1420]	2920	my $txt = $_;
	2921	chomp($txt);
	2922	pb_log(0,"Please check delivery ($txt) in $ENV{'PBCONFDIR'}/$newver/$ENV{'PBPROJ'}.pb\n");
[1381]	2923	}
[211]	2924	print OUT $_;
[208]	2925	}
	2926	close(FILE);
[211]	2927	close(OUT);
[1381]	2928	rename("$ENV{'PBCONFDIR'}/$newver/$ENV{'PBPROJ'}.pb.new","$ENV{'PBCONFDIR'}/$newver/$ENV{'PBPROJ'}.pb");
[363]	2929
[479]	2930	# Checking pbcl files
	2931	foreach my $f (<$ENV{'PBROOTDIR'}/*/pbcl>) {
[590]	2932	# Compute new pbcl file
	2933	my $f2 = $f;
[1381]	2934	$f2 =~ s\|$ENV{'PBROOTDIR'}\|$ENV{'PBCONFDIR'}/$newver/\|;
[479]	2935	open(PBCL,$f) \|\| die "Unable to open $f";
	2936	my $foundnew = 0;
	2937	while (<PBCL>) {
[1381]	2938	$foundnew = 1 if (/^$newvertxt \(/);
[479]	2939	}
	2940	close(PBCL);
[590]	2941	open(OUT,"> $f2") \|\| die "Unable to write to $f2: $!";
[479]	2942	open(PBCL,$f) \|\| die "Unable to open $f";
	2943	while (<PBCL>) {
[1381]	2944	print OUT "$_" if (not /^$oldvertxt \(/);
	2945	if ((/^$oldvertxt \(/) && ($foundnew == 0)) {
	2946	print OUT "$newvertxt ($pbdate)\n";
[479]	2947	print OUT "- TBD\n";
	2948	print OUT "\n";
[1381]	2949	pb_log(0,"WARNING: version $newvertxt not found in $f so added to $f2...\n") if ($foundnew == 0);
[479]	2950	}
	2951	}
	2952	close(OUT);
	2953	close(PBCL);
	2954	}
	2955
[1381]	2956	pb_log(2,"Checkin $ENV{'PBCONFDIR'}/$newver\n");
	2957	pb_cms_checkin($scheme,"$ENV{'PBCONFDIR'}/$newver",undef);
[199]	2958	}
	2959
[293]	2960	#
[1176]	2961	# Return the list of VMs/VEs/RMs we are working on
[105]	2962	# $all is a flag to know if we return all of them
	2963	# or only some (if all we publish also tar files in addition to pkgs
	2964	#
[772]	2965	sub pb_get2v {
[91]	2966
[320]	2967	my $vtype = shift;
	2968	my @v;
[105]	2969	my $all = 0;
[320]	2970	my $pbv = 'PBV';
[1176]	2971	my $vlist = $vtype."list";
[91]	2972
[320]	2973	# Get VM/VE list
	2974	if ((not defined $ENV{$pbv}) \|\| ($ENV{$pbv} =~ /^all$/)) {
	2975	my ($ptr) = pb_conf_get($vlist);
	2976	$ENV{$pbv} = $ptr->{$ENV{'PBPROJ'}};
[105]	2977	$all = 1;
[91]	2978	}
[320]	2979	pb_log(2,"$vtype: $ENV{$pbv}\n");
	2980	@v = split(/,/,$ENV{$pbv});
	2981	return(\@v,$all);
[91]	2982	}
	2983
[1541]	2984	# This function creates a giant script to configure a particular VM/VE/RM, it then copies the
	2985	# script to the target.
	2986
[1176]	2987	# Function to create a potentialy missing pb account on the VM/VE/RM, and adds it to sudo
	2988	# Needs to use root account to connect to the VM/VE/RM
[320]	2989	# pb will take your local public SSH key to access
[1176]	2990	# the pb account in the VM/VE/RM later on if needed
[772]	2991	sub pb_setup2v {
[320]	2992
	2993	my $vtype = shift;
[1140]	2994	my $sbx = shift \|\| undef;
[320]	2995
[772]	2996	my ($vm,$all) = pb_get2v($vtype);
[353]	2997
[346]	2998	# Script generated
	2999	my $pbscript = "$ENV{'PBDESTDIR'}/setupv";
[320]	3000
[1143]	3001	# Adapt // mode to memory size
	3002	$pbparallel = pb_set_parallel($vtype);
	3003
[1176]	3004	my $pm;
[1550]	3005	my $all_ok = 1;
[1176]	3006	if (defined $pbparallel) {
	3007	$pm = new Parallel::ForkManager($pbparallel);
[1143]	3008
[1176]	3009	# Set which port the VM/RM will use to communicate
	3010	$pm->run_on_start(\&pb_set_port);
[1550]	3011	$pm->run_on_finish(sub { my ($pid, $code, $id, $signal, $dump) = @_;
	3012	$all_ok = 0 unless (($code == 0) && ($signal == 0) && ($dump == 0));
	3013	});
[1176]	3014	}
[1143]	3015
	3016	my $counter = 0;
[652]	3017	foreach my $v (@$vm) {
[1143]	3018	$counter++;
	3019	# Modulo pbparallel
[1176]	3020	$counter = 1 if ((defined $pbparallel) && ($counter > $pbparallel));
[1143]	3021	$pm->start($counter) and next if (defined $pbparallel);
	3022
[891]	3023	# Get distro context
[1177]	3024	my $pbos = pb_distro_get_context($v);
[891]	3025
[1216]	3026	# Deal with date sync.
	3027	my $ntpline = pb_date2v($vtype,$pbos);
	3028
[1176]	3029	# Name of the account to deal with for VM/VE/RM
[353]	3030	# Do not use the one passed potentially with -a
	3031	my ($pbac) = pb_conf_get($vtype."login");
[354]	3032	my ($key,$zero0,$zero1,$zero2);
[639]	3033	my ($vmexist,$vmpid);
[346]	3034
[1176]	3035	# Prepare the script to be executed on the VM/VE/RM
[681]	3036	# in $ENV{'PBDESTDIR'}/setupv
	3037	open(SCRIPT,"> $pbscript") \|\| die "Unable to create $pbscript";
	3038
	3039	print SCRIPT << 'EOF';
	3040	#!/usr/bin/perl -w
	3041
	3042	use strict;
	3043	use File::Copy;
	3044
	3045	# We should not need in this script more functions than what is provided
[1140]	3046	# by Base, Conf and Distribution to avoid problems at exec time.
[681]	3047	# They are appended at the end.
	3048
[1156]	3049	# Define mandatory global vars
[681]	3050	our $pbdebug;
	3051	our $pbLOG;
	3052	our $pbsynmsg = "pbscript";
	3053	our $pbdisplaytype = "text";
	3054	our $pblocale = "";
	3055	pb_log_init($pbdebug, $pbLOG);
[1425]	3056	EOF
	3057	print SCRIPT << "EOF";
[1548]	3058	\$Global::pb_stop_on_error = $Global::pb_stop_on_error;
[1425]	3059	pb_temp_init($pbkeep);
[1511]	3060	pb_conf_init("$ENV{'PBPROJ'}");
[681]	3061
	3062	EOF
	3063
[1176]	3064	# Launch the VM/VE/RM - Usage of snapshot disabled
[773]	3065	($vmexist,$vmpid) = pb_launchv($vtype,$v,0,0,0);
[755]	3066
[1156]	3067	my $keyfile;
	3068	my $nport;
	3069	my $vmhost;
	3070
[1255]	3071	# Prepare the key to be used and transfered remotely
	3072	$keyfile = pb_ssh_get(1);
	3073
[1176]	3074	if ($vtype =~ /(v\|r)m/) {
[1215]	3075	my ($vmport);
	3076	($vmhost,$vmport) = pb_conf_get($vtype."host",$vtype."port");
[1179]	3077	$nport = pb_get_port($vmport,$pbos,$vtype);
[347]	3078
[1176]	3079	# Skip that VM/RM if something went wrong
[442]	3080	next if (($vmpid == 0) && ($vmexist == 0));
[353]	3081
[354]	3082	# Store the pub key part in a variable
	3083	open(FILE,"$keyfile.pub") \|\| die "Unable to open $keyfile.pub";
	3084	($zero0,$zero1,$zero2) = split(/ /,<FILE>);
	3085	close(FILE);
	3086
	3087	$key = "\Q$zero1";
	3088
[1105]	3089	# We call true to avoid problems if SELinux is not activated, but chcon is present and returns in that case 1
	3090	pb_system("cat $keyfile.pub \| ssh -q -o UserKnownHostsFile=/dev/null -p $nport -i $keyfile root\@$vmhost->{$ENV{'PBPROJ'}} \"mkdir -p .ssh ; chmod 700 .ssh ; cat >> .ssh/authorized_keys ; chmod 600 .ssh/authorized_keys ; if [ -x /usr/bin/chcon ]; then /usr/bin/chcon -Rt home_ssh_t .ssh 2> /dev/null; /bin/true; fi\"","Copying local keys to $vtype. This may require the root password");
[1176]	3091	# once this is done, we can do what we need on the VM/RM remotely
[681]	3092	} elsif ($vtype eq "ve") {
[1029]	3093	print SCRIPT << "EOF";
[940]	3094	# For VE we need a good null dev
	3095	pb_system("rm -f /dev/null; mknod /dev/null c 1 3; chmod 777 /dev/null");
[1541]	3096
[681]	3097	# For VE we first need to mount some FS
[1549]	3098	pb_system("mount -t proc /proc /proc") unless (-d "/proc/$$");
[346]	3099
[354]	3100	EOF
[1541]	3101	} else {
	3102	die "Unknown virtual type $vtype";
[681]	3103	}
[1029]	3104
[1190]	3105	if ($vtype =~ /(v\|r)m/) {
[354]	3106	print SCRIPT << 'EOF';
	3107	# Removes duplicate in .ssh/authorized_keys of our key if needed
	3108	#
	3109	my $file1="$ENV{'HOME'}/.ssh/authorized_keys";
	3110	open(PBFILE,$file1) \|\| die "Unable to open $file1";
	3111	open(PBOUT,"> $file1.new") \|\| die "Unable to open $file1.new";
	3112	my $count = 0;
	3113	while (<PBFILE>) {
[517]	3114
[354]	3115	EOF
	3116	print SCRIPT << "EOF";
	3117	if (/ $key /) {
	3118	\$count++;
	3119	}
	3120	print PBOUT \$_ if ((\$count <= 1) \|\| (\$_ !~ / $key /));
	3121	}
	3122	close(PBFILE);
	3123	close(PBOUT);
	3124	rename("\$file1.new",\$file1);
	3125	chmod 0600,\$file1;
[517]	3126
[354]	3127	EOF
	3128	}
	3129	print SCRIPT << 'EOF';
	3130
	3131	# Adds $pbac->{$ENV{'PBPROJ'}} as an account if needed
	3132	#
[346]	3133	my $file="/etc/passwd";
[320]	3134	open(PBFILE,$file) \|\| die "Unable to open $file";
	3135	my $found = 0;
	3136	while (<PBFILE>) {
[346]	3137	EOF
[353]	3138	print SCRIPT << "EOF";
	3139	\$found = 1 if (/^$pbac->{$ENV{'PBPROJ'}}:/);
[346]	3140	EOF
[891]	3141
[1176]	3142	# TODO: use an external parameter
[891]	3143	my $home = "/home";
	3144	# Solaris doesn't like that we use /home
[1177]	3145	$home = "/export/home" if ($pbos->{'type'} eq "pkg");
[891]	3146
	3147	print SCRIPT << "EOF";
[320]	3148	}
	3149	close(PBFILE);
	3150
[891]	3151	if ( \$found == 0 ) {
	3152	if ( ! -d "$home" ) {
	3153	pb_mkdir_p("$home");
[320]	3154	}
[346]	3155	EOF
[1179]	3156	# TODO: Level of portability of these cmds ? Critical now for RM
[1255]	3157	# TODO: Check existence before adding to avoid errors
[353]	3158	print SCRIPT << "EOF";
[1051]	3159	pb_system("/usr/sbin/groupadd $pbac->{$ENV{'PBPROJ'}}","Adding group $pbac->{$ENV{'PBPROJ'}}");
	3160	pb_system("/usr/sbin/useradd -g $pbac->{$ENV{'PBPROJ'}} -m -d $home/$pbac->{$ENV{'PBPROJ'}} $pbac->{$ENV{'PBPROJ'}}","Adding user $pbac->{$ENV{'PBPROJ'}} (group $pbac->{$ENV{'PBPROJ'}} - home $home/$pbac->{$ENV{'PBPROJ'}})");
[427]	3161	}
[661]	3162	EOF
[320]	3163
[1176]	3164	# Copy the content of our local conf file to the VM/VE/RM
[891]	3165	my $content = pb_get_content(pb_distro_conffile());
	3166	print SCRIPT << "EOF";
	3167	#
	3168	# Create a temporary local conf file for distribution support
	3169	# This is created here before its use later. Its place is hardcoded, so no choice for the path
	3170	#
	3171	my \$tempconf = pb_distro_conffile();
	3172	pb_mkdir_p(dirname(\$tempconf));
	3173	open(CONF,"> \$tempconf") \|\| die "Unable to create \$tempconf";
	3174	print CONF q{$content};
	3175	close(CONF);
	3176	EOF
	3177
[1176]	3178	if ($vtype =~ /(v\|r)m/) {
[661]	3179	print SCRIPT << "EOF";
[354]	3180	# allow ssh entry to build
	3181	#
[891]	3182	mkdir "$home/$pbac->{$ENV{'PBPROJ'}}/.ssh",0700;
[347]	3183	# Allow those accessing root to access the build account
[891]	3184	copy("\$ENV{'HOME'}/.ssh/authorized_keys","$home/$pbac->{$ENV{'PBPROJ'}}/.ssh/authorized_keys");
[320]	3185	chmod 0600,".ssh/authorized_keys";
[891]	3186	pb_system("chown -R $pbac->{$ENV{'PBPROJ'}}:$pbac->{$ENV{'PBPROJ'}} $home/$pbac->{$ENV{'PBPROJ'}}","Finish setting up the account env for $pbac->{$ENV{'PBPROJ'}}");
[320]	3187
[346]	3188	EOF
[661]	3189	}
[353]	3190	print SCRIPT << 'EOF';
[347]	3191	# No passwd for build account only keys
[320]	3192	$file="/etc/shadow";
[684]	3193	if (-f $file) {
	3194	open(PBFILE,$file) \|\| die "Unable to open $file";
	3195	open(PBOUT,"> $file.new") \|\| die "Unable to open $file.new";
	3196	while (<PBFILE>) {
[346]	3197	EOF
[353]	3198	print SCRIPT << "EOF";
[684]	3199	s/^$pbac->{$ENV{'PBPROJ'}}:\!\!:/$pbac->{$ENV{'PBPROJ'}}:*:/;
	3200	s/^$pbac->{$ENV{'PBPROJ'}}:\!:/$pbac->{$ENV{'PBPROJ'}}:*:/; #SLES 9 e.g.
[910]	3201	s/^$pbac->{$ENV{'PBPROJ'}}:\\LK\\:/$pbac->{$ENV{'PBPROJ'}}:NP:/; #Solaris e.g.
[346]	3202	EOF
[684]	3203	print SCRIPT << 'EOF';
	3204	print PBOUT $_;
	3205	}
	3206	close(PBFILE);
	3207	close(PBOUT);
	3208	rename("$file.new",$file);
	3209	chmod 0640,$file;
	3210	}
[320]	3211
[448]	3212	# Keep the VM in text mode
	3213	$file="/etc/inittab";
[450]	3214	if (-f $file) {
	3215	open(PBFILE,$file) \|\| die "Unable to open $file";
	3216	open(PBOUT,"> $file.new") \|\| die "Unable to open $file.new";
	3217	while (<PBFILE>) {
	3218	s/^(..):5:initdefault:$/$1:3:initdefault:/;
	3219	print PBOUT $_;
	3220	}
	3221	close(PBFILE);
	3222	close(PBOUT);
	3223	rename("$file.new",$file);
	3224	chmod 0640,$file;
[448]	3225	}
	3226
[320]	3227	# pb has to be added to portage group on gentoo
	3228
[1177]	3229	# We need to have that pb_distro_get_context function
[888]	3230	# Get it from Project-Builder::Distribution
[891]	3231	# And we now need the conf file required for this to work created above
[888]	3232
[1177]	3233	my $pbos = pb_distro_get_context();
	3234	print "distro tuple: ".Dumper($pbos)."\n";
[891]	3235
[346]	3236	# Adapt sudoers
[888]	3237	# sudo is not default on Solaris and needs to be installed first
	3238	# from http://www.sunfreeware.com/programlistsparc10.html#sudo
[1177]	3239	if ($pbos->{'type'} eq "pkg") {
[888]	3240	$file="/usr/local/etc/sudoers";
	3241	} else {
	3242	$file="/etc/sudoers";
	3243	}
[346]	3244	open(PBFILE,$file) \|\| die "Unable to open $file";
	3245	open(PBOUT,"> $file.new") \|\| die "Unable to open $file.new";
	3246	while (<PBFILE>) {
	3247	EOF
[1190]	3248	# Skip what will be generated
[353]	3249	print SCRIPT << "EOF";
[1190]	3250	next if (/^$pbac->{$ENV{'PBPROJ'}}\\s+/);
	3251	next if (/^Defaults:$pbac->{$ENV{'PBPROJ'}}\\s+/);
	3252	next if (/^Defaults:root \!requiretty/);
[1541]	3253	next if (/^Defaults:root env_keep/);
[346]	3254	EOF
[353]	3255	print SCRIPT << 'EOF';
[1549]	3256	s/Defaults\s+requiretty/# disable Defaults: requiretty/;
[346]	3257	print PBOUT $_;
	3258	}
	3259	close(PBFILE);
	3260	EOF
[353]	3261	print SCRIPT << "EOF";
[1032]	3262	# Some distro force requiretty at compile time, so disable here
	3263	print PBOUT "Defaults:$pbac->{$ENV{'PBPROJ'}} !requiretty\n";
[1035]	3264	print PBOUT "Defaults:root !requiretty\n";
[1179]	3265	# Keep proxy configuration while using sudo
[1198]	3266	print PBOUT "Defaults:$pbac->{$ENV{'PBPROJ'}} env_keep += \\\"http_proxy ftp_proxy\\\"\n";
[1541]	3267	print PBOUT "Defaults:root env_keep += \\\"http_proxy ftp_proxy\\\"\n";
[1179]	3268	EOF
	3269	# Try to restrict security to what is really needed
	3270	if ($vtype =~ /^vm/) {
[1197]	3271	my $hpath = pb_distro_get_param($pbos,pb_conf_get("ospathcmd-halt"));
[1198]	3272	my @sudocmds = pb_get_sudocmds($pbos,$ntpline,"sudo $hpath");
[1179]	3273	print SCRIPT << "EOF";
	3274	# This is needed in order to be able on VM to halt the machine from the $pbac->{$ENV{'PBPROJ'}} account at least
	3275	# Build account $pbac->{$ENV{'PBPROJ'}} in VM also needs to setup date and install deps.
	3276	# Nothing else should be needed
	3277	EOF
[1189]	3278	foreach my $c (@sudocmds) {
[1426]	3279	print SCRIPT "print PBOUT \"$pbac->{$ENV{'PBPROJ'}} ALL = NOPASSWD: $c\\n\";\n";
[1179]	3280	}
	3281	} elsif ($vtype =~ /^rm/) {
[1190]	3282	my @sudocmds = pb_get_sudocmds($pbos,$ntpline);
[1179]	3283	print SCRIPT << "EOF";
	3284	# Build account $pbac->{$ENV{'PBPROJ'}} in RM only needs to setup date and install deps if needed each time
	3285	EOF
[1189]	3286	foreach my $c (@sudocmds) {
[1426]	3287	print SCRIPT "print PBOUT \"$pbac->{$ENV{'PBPROJ'}} ALL = NOPASSWD: $c\\n\";\n";
[1179]	3288	}
	3289	} else {
	3290	print SCRIPT << "EOF";
	3291	# Build account $pbac->{$ENV{'PBPROJ'}} for VE needs to do a lot in the host (and chroot), so allow without restriction for now
[353]	3292	print PBOUT "$pbac->{$ENV{'PBPROJ'}} ALL=(ALL) NOPASSWD:ALL\n";
[346]	3293	EOF
[1179]	3294	}
[353]	3295	print SCRIPT << 'EOF';
[346]	3296	close(PBOUT);
	3297	rename("$file.new",$file);
	3298	chmod 0440,$file;
	3299
	3300	EOF
[891]	3301
[1190]	3302	if ($vtype =~ /(v\|r)m/) {
	3303	# Sync date
	3304	# do it after sudoers is setup
	3305	print SCRIPT "pb_system(\"$ntpline\");\n";
	3306	}
[891]	3307	# We may need a proxy configuration. Get it from the local env
[1549]	3308	my $ftp_proxy = pb_distro_get_param($pbos,pb_conf_get_if("ftp_proxy"));
	3309	my $http_proxy = pb_distro_get_param($pbos,pb_conf_get_if("http_proxy"));
[891]	3310
[1549]	3311	$ENV{'ftp_proxy'} \|\|= $ftp_proxy if ((defined $ftp_proxy) && ($ftp_proxy ne ""));
	3312	$ENV{'http_proxy'} \|\|= $http_proxy if ((defined $http_proxy) && ($http_proxy ne ""));
[1541]	3313
[891]	3314	if (defined $ENV{'http_proxy'}) {
	3315	print SCRIPT "\$ENV\{'http_proxy'\}=\"$ENV{'http_proxy'}\";\n";
	3316	}
	3317
	3318	if (defined $ENV{'ftp_proxy'}) {
	3319	print SCRIPT "\$ENV\{'ftp_proxy'\}=\"$ENV{'ftp_proxy'}\";\n";
	3320	}
	3321
	3322	print SCRIPT << 'EOF';
[353]	3323
[346]	3324	# Suse wants sudoers as 640
[1177]	3325	if ((($pbos->{'name'} eq "sles") && (($pbos->{'version'} =~ /10/) \|\| ($pbos->{'version'} =~ /9/))) \|\| (($pbos->{'name'} eq "opensuse") && ($pbos->{'version'} =~ /10.[012]/))) {
[346]	3326	chmod 0640,$file;
	3327	}
	3328
[1109]	3329	# First install all required packages
[1177]	3330	pb_system("yum clean all","Cleaning yum env") if (($pbos->{'name'} eq "fedora") \|\| ($pbos->{'name'} eq "asianux") \|\| ($pbos->{'name'} eq "rhel"));
[1109]	3331	my ($ospkgdep) = pb_conf_get_if("ospkgdep");
	3332
[1177]	3333	my $pkgdep = pb_distro_get_param($pbos,$ospkgdep);
	3334	pb_distro_installdeps(undef,$pbos,pb_distro_only_deps_needed($pbos,join(' ',split(/,/,$pkgdep))));
[1109]	3335
	3336	EOF
[1177]	3337	my $itype = pb_distro_get_param($pbos,pb_conf_get("pbinstalltype"));
[1176]	3338	# Install from sandbox mean a file base install
	3339	$itype = "file" if (defined $sbx);
[1132]	3340	if ($itype =~ /^file/) {
[1140]	3341	my $cmdget;
	3342	if (defined $sbx) {
	3343	# Install from sandbox mean using the result of the just passed sbx2build command
	3344	# Get content saved in cms2build
	3345	my ($pkg) = pb_conf_read("$ENV{'PBDESTDIR'}/$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}.pb","pbpkg");
[1432]	3346	my $pbextdir = pb_get_extdir();
[1140]	3347	die "Unable to get package list" if (not defined $pkg);
	3348
	3349	# We consider 2 specific packages
	3350	my $vertag1 = $pkg->{"ProjectBuilder"};
	3351	my $vertag2 = $pkg->{"project-builder"};
	3352	# get the version of the current package - maybe different
[1459]	3353	pb_log(2,"Vertag1: $vertag1\n");
	3354	pb_log(2,"Vertag2: $vertag2\n");
[1140]	3355	my ($pbver1,$tmp1) = split(/-/,$vertag1);
	3356	my ($pbver2,$tmp2) = split(/-/,$vertag2);
[1156]	3357	# Copy inside the VE
	3358	if ($vtype eq "ve") {
	3359	my ($vepath) = pb_conf_get("vepath");
[1432]	3360	copy("$ENV{'PBDESTDIR'}/ProjectBuilder-$pbver1$pbextdir.tar.gz","$vepath->{$ENV{'PBPROJ'}}/$pbos->{'name'}/$pbos->{'version'}/$pbos->{'arch'}/tmp");
	3361	copy("$ENV{'PBDESTDIR'}/project-builder-$pbver2$pbextdir.tar.gz","$vepath->{$ENV{'PBPROJ'}}/$pbos->{'name'}/$pbos->{'version'}/$pbos->{'arch'}/tmp");
[1156]	3362	} else {
[1432]	3363	pb_system("scp -i $keyfile -p -o UserKnownHostsFile=/dev/null -P $nport $ENV{'PBDESTDIR'}/ProjectBuilder-$pbver1$pbextdir.tar.gz $ENV{'PBDESTDIR'}/project-builder-$pbver2$pbextdir.tar.gz root\@$vmhost->{$ENV{'PBPROJ'}}:/tmp","Copying local project files to $vtype.");
[1156]	3364	}
[1432]	3365	$cmdget = "mv /tmp/ProjectBuilder-$pbver1$pbextdir.tar.gz ProjectBuilder-latest.tar.gz ; mv /tmp/project-builder-$pbver2$pbextdir.tar.gz project-builder-latest.tar.gz";
[1140]	3366	} else {
[1549]	3367	# TODO: shouldn't we have a variable to specify the source file?
	3368	# And shouldn't we be getting the one that matches the current pb version?
	3369	# For the moment, just take the latest stable one
[1140]	3370	$cmdget = "wget --passive-ftp ftp://ftp.project-builder.org/src/ProjectBuilder-latest.tar.gz; wget --passive-ftp ftp://ftp.project-builder.org/src/project-builder-latest.tar.gz";
	3371	}
[1109]	3372	print SCRIPT << 'EOF';
	3373	# Then install manually the missing perl modules
	3374	my ($osperldep,$osperlver) = pb_conf_get_if("osperldep","osperlver");
	3375
[1177]	3376	my $perldep = pb_distro_get_param($pbos,$osperldep);
[1109]	3377	foreach my $m (split(/,/,$perldep)) {
	3378	# Skip empty deps
	3379	next if ($m =~ /^\s*$/);
	3380	my $dir = $m;
	3381	$dir =~ s/-.*//;
[1550]	3382	pb_system("echo \"rm -rf $m* ; wget http://search.cpan.org/CPAN/modules/by-module/$dir/$m-$osperlver->{$m}.tar.gz ; gzip -cd $m-$osperlver->{$m}.tar.gz \| tar xf - ; cd $m* ; if [ -f Build.PL ]; then perl Build.PL; ./Build ; ./Build install ; else perl Makefile.PL; make ; make install ; fi; cd .. ; rm -rf $m*\" \| bash -e" ,"Installing perl module $m-$osperlver->{$m}");
[1109]	3383	}
[1140]	3384	EOF
[1425]	3385	print SCRIPT << 'EOF';
	3386	pb_system("rm -rf ProjectBuilder-* ; rm -rf project-builder-* ; rm -rf `perl -V:installvendorlib \| awk -F\"'\" '{print \$2}'`/ProjectBuilder ;
[1109]	3387	EOF
[1425]	3388	print SCRIPT " $cmdget ; ";
	3389	print SCRIPT << 'EOF'
	3390	gzip -cd ProjectBuilder-latest.tar.gz \| tar xf - ; cd ProjectBuilder-* ; perl Makefile.PL ; make ; make install ; cd .. ; rm -rf ProjectBuilder-* ; gzip -cd project-builder-latest.tar.gz \| tar xf - ; cd project-builder-* ; perl Makefile.PL ; make ; make install ; cd .. ; rm -rf project-builder-* ;","Building Project-Builder");
	3391	EOF
[1132]	3392	} elsif ($itype =~ /^pkg/) {
[1109]	3393	# pkg based install. We need to point to the project-builder.org repository
	3394	print SCRIPT << 'EOF';
[1177]	3395	my $pkgforpb = pb_distro_get_param($pbos,pb_conf_get_if("ospkg"));
	3396	pb_distro_setuposrepo($pbos);
	3397	pb_distro_installdeps(undef,$pbos,pb_distro_only_deps_needed($pbos,join(' ',split(/,/,$pkgforpb))));
[1109]	3398	EOF
	3399	} else {
	3400	# Unknown install type
	3401	die("Unknown install type $itype->{$ENV{'PBPROJ'}} for param pbinstalltype");
	3402	}
	3403	print SCRIPT << 'EOF';
[902]	3404	pb_system("pb 2>&1 \| head -5",undef,"verbose");
[1189]	3405	pb_system("pbdistrocheck",undef,"verbose");
[357]	3406	EOF
[681]	3407	if ($vtype eq "ve") {
	3408	print SCRIPT << 'EOF';
	3409	# For VE we need to umount some FS at the end
	3410
	3411	pb_system("umount /proc");
[696]	3412
	3413	# Create a basic network file if not already there
	3414
	3415	my $nf="/etc/sysconfig/network";
[1551]	3416	if ((! -f $nf) && ($pbos->{'type'} eq "rpm") && ($pbos->{'family'} ne "novell")) {
[696]	3417	open(NF,"> $nf") \|\| die "Unable to create $nf";
	3418	print NF "NETWORKING=yes\n";
	3419	print NF "HOSTNAME=localhost\n";
	3420	close(NF);
	3421	}
	3422	chmod 0755,$nf;
[681]	3423	EOF
	3424	}
	3425
[1177]	3426	# Adds pb_distro_get_context and all functions needed from ProjectBuilder::Distribution, Conf and Base
[1545]	3427	foreach my $m ("ProjectBuilder/Base.pm","ProjectBuilder/Distribution.pm","ProjectBuilder/Conf.pm") {
	3428	foreach my $d (@INC) {
	3429	my $f = "$d/$m";
[405]	3430	if (-f "$f") {
[1545]	3431	open(PBD,"$f") \|\| die "Unable to open $f: $!";
[405]	3432	while (<PBD>) {
[891]	3433	next if (/^package/);
	3434	next if (/^use Exporter/);
	3435	next if (/^use ProjectBuilder::/);
	3436	next if (/^our /);
[405]	3437	print SCRIPT $_;
	3438	}
	3439	close(PBD);
[1545]	3440	# We just need the first one of each file wrt @INC - hopefully that's the right one.
	3441	last;
[353]	3442	}
[347]	3443	}
	3444	}
[1156]	3445	# Use a fake pb_version_init version here
	3446	print SCRIPT << "EOF";
	3447	sub pb_version_init {
	3448
	3449	return("$projectbuilderver","$projectbuilderrev");
	3450	}
	3451	1;
	3452	EOF
[353]	3453	close(SCRIPT);
	3454	chmod 0755,"$pbscript";
	3455
[442]	3456	# That build script needs to be run as root and force stop of VM at end
[353]	3457	$pbaccount = "root";
[442]	3458
[1111]	3459	# Force shutdown of VM except if it was already launched
[748]	3460	my $pbforce = 0;
[442]	3461	if ((! $vmexist) && ($vtype eq "vm")) {
[748]	3462	$pbforce = 1;
[442]	3463	}
	3464
[748]	3465	pb_script2v($pbscript,$vtype,$pbforce,$v);
[1143]	3466	$pm->finish if (defined $pbparallel);
[347]	3467	}
[1176]	3468	$pm->wait_all_children if (defined $pbparallel);
[1550]	3469	die "Aborting, one or more of the children failed." if ((not $all_ok) && ($Global::pb_stop_on_error));
[353]	3470	return;
[346]	3471	}
	3472
[772]	3473	# Function to create a snapshot named 'pb' for VMs and a compressed tar for VEs
	3474	sub pb_snap2v {
[748]	3475
	3476	my $vtype = shift;
	3477
[772]	3478	my ($vm,$all) = pb_get2v($vtype);
[748]	3479
	3480	# Script generated
	3481	my $pbscript = "$ENV{'PBDESTDIR'}/snapv";
	3482
[898]	3483	my ($pbac) = pb_conf_get($vtype."login");
	3484
[748]	3485	foreach my $v (@$vm) {
[1138]	3486	if ($vtype eq "ve") {
	3487	# Get distro context
[1177]	3488	my $pbos = pb_distro_get_context($v);
[1138]	3489	my ($vepath) = pb_conf_get("vepath");
[971]	3490
[1138]	3491	# Test if an existing snapshot exists and remove it if there is a VE
[1177]	3492	if ((-f "$vepath->{$ENV{'PBPROJ'}}/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}.tar.gz") &&
	3493	(! -d "$vepath->{$ENV{'PBPROJ'}}/$pbos->{'name'}/$pbos->{'version'}/$pbos->{'arch'}")) {
	3494	pb_system("sudo rm -f $vepath->{$ENV{'PBPROJ'}}/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}.tar.gz","Removing previous snapshot $pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}.tar.gz");
[1138]	3495	}
[971]	3496	}
	3497
[748]	3498	# Prepare the script to be executed on the VM/VE
	3499	open(SCRIPT,"> $pbscript") \|\| die "Unable to create $pbscript";
	3500	print SCRIPT << 'EOF';
	3501	#!/bin/bash
[776]	3502	sleep 2
[748]	3503	EOF
	3504	close(SCRIPT);
	3505	chmod 0755,"$pbscript";
	3506
	3507	# Force shutdown of VM/VE
	3508	# Force snapshot of VM/VE
[773]	3509	pb_script2v($pbscript,$vtype,1,$v,1);
[748]	3510	}
	3511	return;
	3512	}
	3513
[1176]	3514	# Function to update VMs/VEs/RMs with the latest distribution content
[1111]	3515	sub pb_update2v {
	3516
	3517	my $vtype = shift;
	3518
	3519	my ($vm,$all) = pb_get2v($vtype);
	3520
	3521	# Script generated
	3522	my $pbscript = "$ENV{'PBDESTDIR'}/updatev";
	3523
	3524	my ($pbac) = pb_conf_get($vtype."login");
	3525
	3526	foreach my $v (@$vm) {
	3527	# Get distro context
[1177]	3528	my $pbos = pb_distro_get_context($v);
[1111]	3529
[1176]	3530	# Prepare the script to be executed on the VM/VE/RM
[1111]	3531	# in $ENV{'PBDESTDIR'}/updatev
	3532	open(SCRIPT,"> $pbscript") \|\| die "Unable to create $pbscript";
	3533
	3534	print SCRIPT << 'EOF';
	3535	#!/bin/bash
	3536	sleep 2
	3537	EOF
	3538	# VE needs a good /proc
	3539	if ($vtype eq "ve") {
[1179]	3540	print SCRIPT "sudo /bin/mount -t proc /proc /proc\n";
[1111]	3541	}
[1177]	3542	print SCRIPT "$pbos->{'update'}\n";
[1111]	3543	if ($vtype eq "ve") {
[1179]	3544	print SCRIPT "sudo /bin/umount /proc\n";
[1111]	3545	}
	3546	close(SCRIPT);
	3547	chmod 0755,"$pbscript";
	3548
	3549	# Force shutdown of VM except
	3550	pb_script2v($pbscript,$vtype,1,$v);
	3551	}
	3552	return;
	3553	}
	3554
[471]	3555	sub pb_announce {
	3556
[1386]	3557	my $antype = shift;
	3558
[473]	3559	# Get all required parameters
[477]	3560	my ($pbpackager,$pbrepo,$pbml,$pbsmtp) = pb_conf_get("pbpackager","pbrepo","pbml","pbsmtp");
[1392]	3561	my ($pkgv, $pkgt, $testver) = pb_conf_get_if("pkgver","pkgtag","testver");
	3562	if (((not defined $testver) \|\| (not defined $testver->{$ENV{'PBPROJ'}}) \|\| ($testver->{$ENV{'PBPROJ'}} !~ /true/i)) && ($antype eq "Clean")) {
	3563	# We just clean for test versions
	3564	pb_log(0,"Unable to clean SSH repository for non testver version\n");
	3565	return;
	3566	}
[471]	3567	my $pkg = pb_cms_get_pkg($defpkgdir,$extpkgdir);
	3568	my @pkgs = @$pkg;
	3569	my %pkgs;
	3570	my $first = 0;
	3571
[1282]	3572	# Get all distros concerned
	3573	my $pbos = pb_distro_get_context();
	3574	my $distrolist = pb_get_distros($pbos,undef);
	3575	my %dl;
[1386]	3576	my %theorlist;
	3577	my %archlist;
[1282]	3578	foreach my $d (split(/,/,$distrolist)) {
[1386]	3579	my ($d1,$d2,$d3) = split(/-/,$d);
[1282]	3580	$dl{$d1}++;
	3581	}
	3582
[473]	3583	# Command to find packages on repo
[1282]	3584	my $findstr = "find ".join(" ",keys %dl)." ";
[1392]	3585	my $srcstr = "";
[473]	3586	# Generated announce files
	3587	my @files;
[471]	3588
	3589	foreach my $pbpkg (@pkgs) {
	3590	if ($first != 0) {
	3591	$findstr .= "-o ";
	3592	}
	3593	$first++;
	3594	if ((defined $pkgv) && (defined $pkgv->{$pbpkg})) {
	3595	$pbver = $pkgv->{$pbpkg};
	3596	} else {
	3597	$pbver = $ENV{'PBPROJVER'};
	3598	}
	3599	if ((defined $pkgt) && (defined $pkgt->{$pbpkg})) {
	3600	$pbtag = $pkgt->{$pbpkg};
	3601	} else {
	3602	$pbtag = $ENV{'PBPROJTAG'};
	3603	}
	3604
[547]	3605	# TODO: use virtual/real names here now
[1285]	3606	my $pbrealpkg = $pbpkg;
	3607	my $pbrealpkgrpm = pb_cms_get_real_pkg($pbpkg,"rpm");
	3608	my $pbrealpkgdeb = pb_cms_get_real_pkg($pbpkg,"deb");
[1392]	3609	if ($antype eq "Clean") {
[1432]	3610	# We only clean test versions anyway
	3611	$pbtag = "0";
	3612	my $nver = $pbver;
	3613	my $ntag = "[2-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]";
	3614	$pbver .= $ntag;
	3615	$findstr .= "-name \'$pbrealpkgrpm-$pbver-$pbtag\..rpm\' -o -name \'$pbrealpkgrpm-debug-$pbver-$pbtag\..rpm\' -o -name \'$pbrealpkgdeb"."_$pbver-$pbtag"."_\.deb\' -o -name \'$pbrealpkgdeb"."_$pbver-$pbtag.dsc\' -o -name \'$pbrealpkgdeb"."_$pbver-$pbtag.tar.gz\' -o -name \'$pbrealpkg-$nver"."_p$ntag\.ebuild\' -o -name \'$pbrealpkg-$pbver-$pbtag\.pkg\' -o -name \'$pbrealpkg-$pbver-$pbtag*\.sd\' ";
[1393]	3616	$srcstr .= "src/$pbrealpkg-$pbver.tar.gz src/$pbrealpkg-$pbver.pbconf.tar.gz ";
[1392]	3617	} else {
[1420]	3618	my @date=pb_get_date();
	3619	# the matching is only done on packages made the same day for test version. Hopefully this is enough
[1432]	3620	my $nver = $pbver;
	3621	if ((defined $testver) && (defined $testver->{$ENV{'PBPROJ'}}) && ($testver->{$ENV{'PBPROJ'}} =~ /true/i) && ($antype eq "Check")) {
	3622	$pbtag = "0";
	3623	my $ntag .= strftime("%Y%m%d*", @date);
	3624	$nver = $pbver."_p$ntag";
	3625	$pbver .= $ntag;
	3626	}
	3627	$findstr .= "-name \'$pbrealpkgrpm-$pbver-$pbtag\..rpm\' -o -name \'$pbrealpkgdeb"."_$pbver\.deb\' -o -name \'$pbrealpkg-$nver\.ebuild\' -o -name \'$pbrealpkg-$pbver\.pkg\' -o -name \'$pbrealpkg-$pbver*\.sd\' ";
[1392]	3628	}
[473]	3629
[1386]	3630	if ($antype eq "Announce") {
	3631	my $chglog;
[473]	3632
[1386]	3633	pb_cms_init($pbinit);
	3634	# Get project info on log file and generate tmp files used later on
	3635	$chglog = "$ENV{'PBROOTDIR'}/$pbpkg/pbcl";
	3636	$chglog = "$ENV{'PBROOTDIR'}/pbcl" if (! -f $chglog);
	3637	$chglog = undef if (! -f $chglog);
[473]	3638
[1386]	3639	open(OUT,"> $ENV{'PBTMP'}/$pbpkg.ann") \|\| die "Unable to create $ENV{'PBTMP'}/$pbpkg.ann: $!";
	3640	my $pb;
	3641	$pb->{'realpkg'} = $pbrealpkg;
	3642	$pb->{'ver'} = $pbver;
	3643	$pb->{'tag'} = $pbtag;
	3644	$pb->{'date'} = $pbdate;
[1432]	3645	$pb->{'extdir'} = pb_get_extdir();
[1386]	3646	$pb->{'chglog'} = $chglog;
	3647	$pb->{'packager'} = $pbpackager;
	3648	$pb->{'proj'} = $ENV{'PBPROJ'};
	3649	$pb->{'repo'} = $pbrepo;
	3650	$pb->{'pbos'}->{'type'} = "announce";
	3651	$pb->{'pbos'}->{'suffix'} = "none";
	3652	pb_changelog($pb,\*OUT,"yes");
	3653	close(OUT);
	3654	push(@files,"$ENV{'PBTMP'}/$pbpkg.ann");
[1392]	3655	} elsif ($antype eq "Check") {
[1386]	3656	# For the check we also build the theoritical complete list we should get
	3657	foreach my $d (split(/,/,$distrolist)) {
	3658	$pbos = pb_distro_get_context($d);
	3659	if ($pbos->{'type'} eq "rpm") {
	3660	$theorlist{"$pbos->{'name'}/$pbos->{'version'}/$pbos->{'arch'}/$pbrealpkgrpm-$pbver-$pbtag$pbos->{'suffix'}"} = 0;
	3661	} elsif ($pbos->{'type'} eq "deb") {
	3662	$theorlist{"$pbos->{'name'}/$pbos->{'version'}/$pbrealpkgdeb"."_$pbver-$pbtag"} = 0;
[1420]	3663	# TODO are we always using the last arch ?
[1386]	3664	$archlist{"$pbos->{'name'}/$pbos->{'version'}/$pbrealpkgdeb"."_$pbver-$pbtag"} = "$pbos->{'arch'}";
	3665	} elsif ($pbos->{'type'} eq "ebuild") {
[1424]	3666	my $prefix = "-r";
	3667	$prefix = "_p" if ((defined $testver) && (defined $testver->{$ENV{'PBPROJ'}}) && ($testver->{$ENV{'PBPROJ'}} =~ /true/i));
	3668	$theorlist{"$pbos->{'name'}/$pbos->{'version'}/$pbrealpkg-$pbver$prefix$pbtag.ebuild"} = 0;
	3669	$archlist{"$pbos->{'name'}/$pbos->{'version'}/$pbrealpkg-$pbver$prefix$pbtag.ebuild"} = "$pbos->{'arch'}";
[1386]	3670	} elsif ($pbos->{'type'} eq "pkg") {
	3671	$theorlist{"$pbos->{'name'}/$pbos->{'version'}/$pbos->{'arch'}/$pbrealpkg-$pbver-$pbtag.pkg"} = 0;
	3672	} else {
	3673	pb_log(1,"No theoritical list possible for type $pbos->{'type'}\n");
	3674	}
	3675	}
	3676	}
	3677	pb_log(2,"theorlist : ".Dumper(%theorlist)."\n");
[471]	3678	}
[1392]	3679	if ($antype eq "Announce") {
	3680	$findstr .= " \| grep -Ev \'src.rpm\'";
	3681	} elsif ($antype eq "Clean") {
	3682	$findstr .= " \| xargs rm -f -v $srcstr ";
	3683	}
[471]	3684
	3685	# Prepare the command to run and execute it
	3686	open(PBS,"> $ENV{'PBTMP'}/pbscript") \|\| die "Unable to create $ENV{'PBTMP'}/pbscript";
[1392]	3687	print PBS "#!/bin/bash\n";
[1282]	3688	print PBS "set -x\n" if ($pbdebug gt 1);
[1295]	3689	print PBS "$findstr \| sort 2> /dev/null\n";
[471]	3690	close(PBS);
	3691	chmod 0755,"$ENV{'PBTMP'}/pbscript";
	3692	pb_send2target("Announce");
	3693
[490]	3694	my $sl = "Project $ENV{'PBPROJ'} version $ENV{'PBPROJVER'} is now available";
[1386]	3695	if ($antype eq "Announce") {
	3696	# Get subject line
	3697	pb_log(0,"Please enter the title of your announce\n");
	3698	pb_log(0,"(By default: $sl)\n");
	3699	my $sl2 = <STDIN>;
	3700	$sl = $sl2 if ($sl2 !~ /^$/);
[490]	3701
[1386]	3702	# Prepare a template of announce
	3703	open(ANN,"> $ENV{'PBTMP'}/announce.html") \|\| die "Unable to create $ENV{'PBTMP'}/announce.html: $!";
	3704	print ANN << "EOF";
[490]	3705	$sl</p>
[471]	3706
[473]	3707	<p>The project team is happy to announce the availability of a newest version of $ENV{'PBPROJ'} $ENV{'PBPROJVER'}. Enjoy it as usual!</p>
[471]	3708	<p>
	3709	Now available at <a href="$pbrepo->{$ENV{'PBPROJ'}}">$pbrepo->{$ENV{'PBPROJ'}}</a>
	3710	</p>
	3711	<p>
	3712	EOF
[1386]	3713	}
	3714
[1137]	3715	open(LOG,"$ENV{'PBTMP'}/system.$$.log") \|\| die "Unable to read $ENV{'PBTMP'}/system.$$.log: $!";
[1386]	3716	if ($antype eq "Announce") {
	3717	my $col = 2;
	3718	my $i = 1;
	3719	print ANN << 'EOF';
[1440]	3720	<TABLE WIDTH="100%" CELLPADDING="0" CELLSPACING="0" BORDER="0">
[473]	3721	<TR>
	3722	EOF
[1386]	3723	while (<LOG>) {
	3724	print ANN "<TD><A HREF=\"$pbrepo->{$ENV{'PBPROJ'}}/$_\">$_</A></TD>";
	3725	$i++;
	3726	if ($i > $col) {
	3727	print ANN "</TR>\n<TR>";
	3728	$i = 1;
	3729	}
[473]	3730	}
[1393]	3731	} elsif ($antype eq "Clean") {
	3732	while (<LOG>) {
	3733	# skip errors
	3734	next if ($_ !~ /^removed /);
	3735	pb_log(0,"$_");
	3736	}
[1386]	3737	} else {
	3738	# In Check mode we need to compare the 2 lists (real and theoritical)
	3739	while (<LOG>) {
	3740	# Get package name and remove what is in extra for the theoritical list (arch at the end)
	3741	chomp();
	3742	# skip find errors
	3743	next if (/^find:/);
	3744	my $p = $_;
	3745	$p =~ s/\.(i[3456]86\|x86_64\|noarch\|src)\.rpm$//;
	3746	$p =~ s/_(i[3456]86\|amd64\|all).deb$//;
[1424]	3747	$p =~ s/(-0\.[0-9]{8})[0-9]{6}/$1*/ if ((defined $testver) && (defined $testver->{$ENV{'PBPROJ'}}) && ($testver->{$ENV{'PBPROJ'}} =~ /true/i));
	3748	$p =~ s/(-r\|_p[0-9]+)\.ebuild/$1*/ if ((defined $testver) && (defined $testver->{$ENV{'PBPROJ'}}) && ($testver->{$ENV{'PBPROJ'}} =~ /true/i));
[1386]	3749	$theorlist{$p} = -2 if (not defined $theorlist{$p});
	3750	$theorlist{$p} = $theorlist{$p} + 1;
	3751	}
	3752	pb_log(2,"theorlist : ".Dumper(%theorlist)."\n");
[471]	3753	}
	3754	close(LOG);
[1386]	3755
[1393]	3756	# Nothing more for the cleanssh case
	3757	return if ($antype eq "Clean");
	3758
[1386]	3759	if ($antype eq "Check") {
	3760	my ($chkex) = pb_conf_get_if("checkexclude");
	3761	my $vmbuildlist = "";
	3762	my $vebuildlist = "";
	3763	my $rmbuildlist = "";
	3764	my @pt = pb_conf_get_if("vmlist","velist","rmlist");
	3765	foreach my $t (sort keys %theorlist) {
	3766	if (defined $theorlist{$t} and $theorlist{$t} >= 1) {
	3767	pb_log(1,"Packages found for $t\n");
	3768	} elsif (defined $theorlist{$t} and $theorlist{$t} < 0) {
	3769	pb_log(0,"Extra Package found for $t\n");
	3770	} else {
[1420]	3771	pb_log(2,"Analyzing $t\n");
[1386]	3772	my ($os,$ver,$arch,$package) = split(/\//,$t);
	3773	# Some distro have no arch subdir
	3774	if (not defined $package) {
	3775	$package = $arch;
	3776	# TODO: If both arch have failed, we just make the last one
	3777	$arch = $archlist{$t};
	3778	}
	3779	my $pbos = pb_distro_get_context("$os-$ver-$arch");
	3780	my $pkgn = $package;
	3781	if ($pbos->{'type'} ne "deb") {
	3782	# package name is more easily found from the end for non deb
	3783	# as '-' is the separator, but it can also be used in names
	3784	$pkgn = reverse($package);
	3785	# search the second '-' and isolate the now last part which is the full name
	3786	$pkgn =~ s/([^-]+)-([^-]+)-([\S])+$/$3/;
	3787	} else {
	3788	$pkgn =~ s/([^_]+)_([\S])+$/$2/;
	3789	}
	3790	my $found = 0;
	3791	# Handle the exclusion of OSes
	3792	my $excl = "";
	3793	$excl .= $chkex->{$pkgn} if (defined $chkex->{$pkgn});
	3794	$excl .= $chkex->{"all"} if (defined $chkex->{"all"});
	3795	foreach my $ex (split(/,/,$excl)) {
	3796	$found = 1 if ("$os-$ver-$arch" =~ /^$ex/);
	3797	}
	3798	# Skip as excluded
	3799	next if ($found == 1);
[1388]	3800	pb_log(0,"Package NOT found for $t\n");
	3801	# Avoid duplicates in list
[1386]	3802	next if ($vmbuildlist =~ /$os-$ver-$arch/);
	3803	next if ($vebuildlist =~ /$os-$ver-$arch/);
	3804	next if ($rmbuildlist =~ /$os-$ver-$arch/);
	3805	# check with which method we need to build
	3806	if ((defined $pt[0]->{$ENV{'PBPROJ'}}) and ($pt[0]->{$ENV{'PBPROJ'}} =~ /$os-$ver-$arch/)) {
	3807	$vmbuildlist = "$os-$ver-$arch" if ($vmbuildlist eq "");
[1388]	3808	$vmbuildlist .= ",$os-$ver-$arch" if ($vmbuildlist !~ /$os-$ver-$arch/);
	3809	next;
[1386]	3810	}
	3811	if ((defined $pt[1]->{$ENV{'PBPROJ'}}) and ($pt[1]->{$ENV{'PBPROJ'}} =~ /$os-$ver-$arch/)) {
	3812	$vebuildlist = "$os-$ver-$arch" if ($vebuildlist eq "");
[1388]	3813	$vebuildlist .= ",$os-$ver-$arch" if ($vebuildlist !~ /$os-$ver-$arch/);
	3814	next;
[1386]	3815	}
	3816	if ((defined $pt[2]->{$ENV{'PBPROJ'}}) and ($pt[2]->{$ENV{'PBPROJ'}} =~ /$os-$ver-$arch/)) {
	3817	$rmbuildlist = "$os-$ver-$arch" if ($rmbuildlist eq "");
[1388]	3818	$rmbuildlist .= ",$os-$ver-$arch" if ($rmbuildlist !~ /$os-$ver-$arch/);
[1386]	3819	}
	3820	}
	3821	}
	3822	# If we want to rebuild automatically, let's do it
	3823	if (defined $opts{'rebuild'}) {
	3824	# SandBox or CMS
	3825	pb_log(0,"Rebuilding from SandBox\n");
	3826	pb_log(0,"for VMs: $vmbuildlist\n") if ($vmbuildlist ne "");
	3827	pb_log(0,"for VEs: $vebuildlist\n") if ($vebuildlist ne "");
	3828	pb_log(0,"for RMs: $rmbuildlist\n") if ($rmbuildlist ne "");
	3829	pb_cms2build("SandBox");
	3830	# Which mode
	3831	$ENV{'PBV'} = $vmbuildlist;
	3832	pb_build2v("vm","build") if ($vmbuildlist ne "");
	3833	$ENV{'PBV'} = $vebuildlist;
	3834	pb_build2v("ve","build") if ($vebuildlist ne "");
	3835	$ENV{'PBV'} = $rmbuildlist;
	3836	pb_build2v("rm","build") if ($rmbuildlist ne "");
	3837	}
	3838	# For the check part this is now finished
	3839	return;
	3840	}
	3841
[473]	3842	print ANN << "EOF";
	3843	</TR>
	3844	</TABLE>
	3845	</p>
[471]	3846
[473]	3847	<p>As usual source packages are also available in the same directory.</p>
	3848
	3849	<p>
	3850	Changes are :
	3851	</p>
	3852	<p>
	3853	EOF
	3854	# Get each package changelog content
	3855	foreach my $f (sort(@files)) {
	3856	open(IN,"$f") \|\| die "Unable to read $f:$!";
	3857	while (<IN>) {
	3858	print ANN $_;
	3859	}
	3860	close(IN);
	3861	print ANN "</p><p>\n";
	3862	}
	3863	print ANN "</p>\n";
[471]	3864	close(ANN);
[473]	3865
	3866	# Allow for modification
[974]	3867	my $editor = "vi";
	3868	$editor = $ENV{'EDITOR'} if (defined $ENV{'EDITOR'});
	3869	pb_system("$editor $ENV{'PBTMP'}/announce.html","Allowing modification of the announce","noredir");
[473]	3870
	3871	# Store it in DB for external usage (Web pages generation)
	3872	my $db = "$ENV{'PBCONFDIR'}/announces3.sql";
	3873
	3874	my $precmd = "";
	3875	if (! -f $db) {
	3876	$precmd = "CREATE TABLE announces (id INTEGER PRIMARY KEY AUTOINCREMENT, date DATE, announce VARCHAR[65535])";
	3877	}
	3878
	3879	my $dbh = DBI->connect("dbi:SQLite:dbname=$db","","",
	3880	{ RaiseError => 1, AutoCommit => 1 })
	3881	\|\| die "Unable to connect to $db";
	3882
	3883	if ($precmd ne "") {
	3884	my $sth = $dbh->prepare(qq{$precmd})
	3885	\|\| die "Unable to create table into $db";
	3886	$sth->execute();
	3887	}
	3888
	3889	# To read whole file
	3890	local $/;
	3891	open(ANN,"$ENV{'PBTMP'}/announce.html") \|\| die "Unable to read $ENV{'PBTMP'}/announce.html: $!";
	3892	my $announce = <ANN>;
	3893	close(ANN);
	3894
	3895	pb_log(2,"INSERT INTO announces VALUES (NULL, $pbdate, $announce)");
	3896	my $sth = $dbh->prepare(qq{INSERT INTO announces VALUES (NULL,?,?)})
	3897	\|\| die "Unable to insert into $db";
	3898	$sth->execute($pbdate, $announce);
[698]	3899	$sth->finish();
[473]	3900	$dbh->disconnect;
	3901
	3902	# Then deliver it on the Web
	3903	# $TOOLHOME/livwww www
	3904
	3905	# Mail it to project's ML
	3906	open(ML,"\| w3m -dump -T text/html > $ENV{'PBTMP'}/announce.txt") \|\| die "Unable to create $ENV{'PBTMP'}/announce.txt: $!";
	3907	print ML << 'EOF';
	3908	<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/x html1/DTD/xhtml1-strict.dtd">
	3909
	3910	<html xmlns="http://www.w3.org/1999/xhtml" dir="ltr" xml:lang="en" lang="en">
	3911	<head>
	3912	</head>
	3913	<body>
	3914	<p>
	3915	EOF
	3916	open(ANN,"$ENV{'PBTMP'}/announce.html") \|\| die "Unable to read $ENV{'PBTMP'}/announce.html: $!";
	3917	while(<ANN>) {
	3918	print ML $_;
	3919	}
	3920	print ML << 'EOF';
	3921	</body>
	3922	</html>
	3923	EOF
	3924	close(ML);
	3925
[477]	3926	# To read whole file
	3927	local $/;
	3928	open(ANN,"$ENV{'PBTMP'}/announce.txt") \|\| die "Unable to read $ENV{'PBTMP'}/announce.txt: $!";
	3929	my $msg = <ANN>;
	3930	close(ANN);
	3931
	3932	# Preparation of headers
[1134]	3933	eval
	3934	{
	3935	require Mail::Sendmail;
	3936	Mail::Sendmail->import();
	3937	};
	3938	if ($@) {
	3939	# Mail::Sendmail not found not sending mail !
	3940	pb_log(0,"No Mail::Sendmail module found so not sending any mail !\n");
	3941	} else {
	3942	my %mail = (
[477]	3943	To => $pbml->{$ENV{'PBPROJ'}},
	3944	From => $pbpackager->{$ENV{'PBPROJ'}},
	3945	Smtp => $pbsmtp->{$ENV{'PBPROJ'}},
	3946	Body => $msg,
[490]	3947	Subject => "[ANNOUNCE] $sl",
[477]	3948	);
	3949
[1134]	3950	# Send mail
	3951	if (! sendmail(%mail)) {
	3952	if ((defined $Mail::Sendmail::error) and (defined $Mail::Sendmail::log)) {
	3953	die "Unable to send mail ($Mail::Sendmail::error): $Mail::Sendmail::log";
	3954	}
[1109]	3955	}
	3956	}
[471]	3957	}
	3958
[547]	3959	#
	3960	# Creates a set of HTML file containing the news for the project
	3961	# based on what has been generated by the pb_announce function
	3962	#
	3963	sub pb_web_news2html {
	3964
[556]	3965	my $dest = shift \|\| $ENV{'PBTMP'};
	3966
[547]	3967	# Get all required parameters
[1064]	3968	my ($pkgv, $pkgt) = pb_conf_get_if("pkgver","pkgtag");
[547]	3969
	3970	# DB of announces for external usage (Web pages generation)
	3971	my $db = "$ENV{'PBCONFDIR'}/announces3.sql";
	3972
	3973	my $dbh = DBI->connect("dbi:SQLite:dbname=$db","","",
	3974	{ RaiseError => 1, AutoCommit => 1 })
	3975	\|\| die "Unable to connect to $db";
	3976	# For date handling
	3977	$ENV{LANGUAGE}="C";
[559]	3978	my $firstjan = strftime("%Y-%m-%d", 0, 0, 0, 1, 0, localtime->year(), 0, 0, -1);
	3979	my $oldfirst = strftime("%Y-%m-%d", 0, 0, 0, 1, 0, localtime->year()-1, 0, 0, -1);
	3980	pb_log(2,"firstjan: $firstjan, oldfirst: $oldfirst, pbdate:$pbdate\n");
[547]	3981	my $all = $dbh->selectall_arrayref("SELECT id,date,announce FROM announces ORDER BY date DESC");
[556]	3982	my %news;
	3983	$news{"cy"} = ""; # current year's news
	3984	$news{"ly"} = ""; # last year news
	3985	$news{"py"} = ""; # previous years news
	3986	$news{"fp"} = ""; # first page news
[547]	3987	my $cpt = 4; # how many news for first page
	3988	# Extract info from DB
	3989	foreach my $row (@$all) {
	3990	my ($id, $date, $announce) = @$row;
[559]	3991	$news{"cy"} = $news{"cy"}."<p><B>$date</B> $announce\n" if ((($date cmp $pbdate) le 0) && (($firstjan cmp $date) le 0));
	3992	$news{"ly"} = $news{"ly"}."<p><B>$date</B> $announce\n" if ((($date cmp $firstjan) le 0) && (($oldfirst cmp $date) le 0));
	3993	$news{"py"} = $news{"py"}."<p><B>$date</B> $announce\n" if (($date cmp $oldfirst) le 0);
[556]	3994	$news{"fp"} = $news{"fp"}."<p><B>$date</B> $announce\n" if ($cpt > 0);
[547]	3995	$cpt--;
	3996	}
[556]	3997	pb_log(1,"news{fp}: ".$news{"fp"}."\n");
[547]	3998	$dbh->disconnect;
[556]	3999
	4000	# Generate the HTML content
	4001	foreach my $pref (keys %news) {
	4002	open(NEWS,"> $dest/pb_web_$pref"."news.html") \|\| die "Unable to create $dest/pb_web_$pref"."news.html: $!";
	4003	print NEWS "$news{$pref}";
	4004	close(NEWS);
	4005	}
[547]	4006	}
	4007
[556]	4008
[347]	4009	# Return the SSH key file to use
	4010	# Potentially create it if needed
	4011
	4012	sub pb_ssh_get {
	4013
	4014	my $create = shift \|\| 0; # Do not create keys by default
	4015
[1545]	4016	my ($pbagent) = pb_conf_get_if("pbusesshagent");
	4017	# use ssh-agent if asked so.
	4018	return(undef) if (($create == 0) && (defined $pbagent->{$ENV{'PBPROJ'}}) && ($pbagent->{$ENV{'PBPROJ'}} =~ /true/io));
	4019
[347]	4020	# Check the SSH environment
	4021	my $keyfile = undef;
	4022
	4023	# We have specific keys by default
	4024	$keyfile = "$ENV{'HOME'}/.ssh/pb_dsa";
[348]	4025	if (!(-e $keyfile) && ($create eq 1)) {
[347]	4026	pb_system("ssh-keygen -q -b 1024 -N '' -f $keyfile -t dsa","Generating SSH keys for pb");
	4027	}
	4028
	4029	$keyfile = "$ENV{'HOME'}/.ssh/id_rsa" if (-s "$ENV{'HOME'}/.ssh/id_rsa");
	4030	$keyfile = "$ENV{'HOME'}/.ssh/id_dsa" if (-s "$ENV{'HOME'}/.ssh/id_dsa");
	4031	$keyfile = "$ENV{'HOME'}/.ssh/pb_dsa" if (-s "$ENV{'HOME'}/.ssh/pb_dsa");
[1545]	4032	die "Unable to find your public ssh key under $ENV{'HOME'}/.ssh" if (not defined $keyfile);
[347]	4033	return($keyfile);
	4034	}
	4035
	4036
[145]	4037	# Returns the pid of a running VM command using a specific VM file
[142]	4038	sub pb_check_ps {
	4039	my $vmcmd = shift;
	4040	my $vmm = shift;
	4041	my $vmexist = 0; # FALSE by default
	4042
	4043	open(PS, "ps auxhww\|") \|\| die "Unable to call ps";
	4044	while (<PS>) {
	4045	next if (! /$vmcmd/);
	4046	next if (! /$vmm/);
	4047	my ($void1, $void2);
	4048	($void1, $vmexist, $void2) = split(/ +/);
	4049	last;
	4050	}
	4051	return($vmexist);
	4052	}
	4053
	4054
[77]	4055	sub pb_extract_build_files {
[25]	4056
	4057	my $src=shift;
	4058	my $dir=shift;
[26]	4059	my $ddir=shift;
[500]	4060	my $mandatory=shift \|\| "spec";
[28]	4061	my @files;
[25]	4062
[1219]	4063	my $flag = "mayfail" if (($mandatory eq "patch") \|\| ($mandatory eq "src"));
[500]	4064	my $res;
	4065
[188]	4066	if ($src =~ /tar\.gz$/) {
[500]	4067	$res = pb_system("tar xfpz $src $dir","Extracting $mandatory files from $src",$flag);
[188]	4068	} elsif ($src =~ /tar\.bz2$/) {
[500]	4069	$res = pb_system("tar xfpj $src $dir","Extracting $mandatory files from $src",$flag);
[188]	4070	} else {
	4071	die "Unknown compression algorithm for $src";
	4072	}
[500]	4073	# If not mandatory return now
[1220]	4074	return() if (($res != 0) and (($mandatory eq "patch") \|\| ($mandatory eq "src")));
[1486]	4075	opendir(DIR,"$dir") \|\| die "Unable to open directory $dir: $!";
[25]	4076	foreach my $f (readdir(DIR)) {
	4077	next if ($f =~ /^\./);
[500]	4078	# Skip potential patch dir
	4079	next if ($f =~ /^pbpatch/);
[1219]	4080	# Skip potential source dir
	4081	next if ($f =~ /^pbsrc/);
[1480]	4082	# Skip potential backup files
	4083	next if ($f =~ /~$/);
[26]	4084	move("$dir/$f","$ddir") \|\| die "Unable to move $dir/$f to $ddir";
[315]	4085	pb_log(2,"mv $dir/$f $ddir\n");
[28]	4086	push @files,"$ddir/$f";
[25]	4087	}
	4088	closedir(DIR);
[26]	4089	# Not enough but still a first cleanup
[74]	4090	pb_rm_rf("$dir");
[28]	4091	return(@files);
[25]	4092	}
	4093
[315]	4094	sub pb_list_bfiles {
	4095
	4096	my $dir = shift;
	4097	my $pbpkg = shift;
	4098	my $bfiles = shift;
	4099	my $pkgfiles = shift;
	4100	my $supfiles = shift;
[1363]	4101	# subdir to keep if recursive mode, empty by default
	4102	my $subdir = shift \|\| "";
[1367]	4103	# In a recursive function , we need a local var as DIR handle
	4104	my $bdir;
[315]	4105
[1363]	4106	pb_log(2,"DEBUG: entering pb_list_bfiles in $dir: ".Dumper($bfiles)."\n");
[1367]	4107	opendir($bdir,"$dir") \|\| die "Unable to open dir $dir: $!";
	4108	foreach my $f (readdir($bdir)) {
[1363]	4109	pb_log(3,"DEBUG: pb_list_bfiles found $f\n");
[315]	4110	next if ($f =~ /^\./);
[1363]	4111	if (-d "$dir/$f") {
[1098]	4112	# Recurse for directories (Debian 3.0 format e.g.)
[1363]	4113	pb_log(2,"DEBUG: pb_list_bfiles recurse in $dir/$f\n");
	4114	pb_list_bfiles("$dir/$f",$pbpkg,$bfiles,$pkgfiles,$supfiles,$f);
[1098]	4115	next;
	4116	}
[1363]	4117
	4118	my $key = $f;
	4119	# if recursive then store also the subdir
	4120	$key = "$subdir/$f" if ($subdir ne "");
	4121	$bfiles->{$key} = "$dir/$f";
	4122	$bfiles->{$key} =~ s~$ENV{'PBROOTDIR'}~~;
[315]	4123	if (defined $supfiles->{$pbpkg}) {
[1363]	4124	$pkgfiles->{$key} = "$dir/$f" if ($f =~ /$supfiles->{$pbpkg}/);
[315]	4125	}
	4126	}
[1367]	4127	closedir($bdir);
[1185]	4128	pb_log(2,"DEBUG: exiting pb_list_bfiles: ".Dumper($bfiles)."\n");
[315]	4129	}
	4130
[1552]	4131	sub pb_add_comma {
[1185]	4132
	4133	my $str = shift;
	4134	my $addstr = shift;
	4135
	4136	$str .= "," if (defined $str);
	4137	$str .= $addstr;
	4138	return($str);
	4139	}
	4140
[1130]	4141	sub pb_list_sfiles {
[395]	4142
[1130]	4143	my $sdir = shift;
[1185]	4144	my $ptr = shift;
[1177]	4145	my $pbos = shift;
[1130]	4146	my $extdir = shift;
	4147
[1185]	4148	pb_log(2,"DEBUG: entering pb_list_sfiles: ".Dumper($ptr)."\n");
	4149	my $key = "$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}";
	4150
[1130]	4151	# Prepare local sources for this distro - They are always applied first - May be a problem one day
	4152	# This function works for both patches and additional sources
	4153	foreach my $p (sort(<$sdir/*>)) {
[1552]	4154	$ptr->{$key} = pb_add_comma($ptr->{$key},"file://$p") if (($p =~ /\.all$/) \|\| ($p =~ /\.$pbos->{'os'}$/) \|\| ($p =~ /\.$pbos->{'type'}$/) \|\| ($p =~ /\.$pbos->{'family'}$/) \|\| ($p =~ /\.$pbos->{'name'}$/) \|\| ($p =~ /\.$pbos->{'name'}-$pbos->{'version'}$/) \|\|($p =~ /\.$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}$/));
[1130]	4155	}
	4156
	4157	# Prepare also remote sources to be included - Applied after the local ones
[1185]	4158	foreach my $p ("all","$pbos->{'os'}","$pbos->{'type'}","$pbos->{'family'}","$pbos->{'name'}","$pbos->{'name'}-$pbos->{'version'}","$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}") {
[1130]	4159	my $f = "$extdir.".".$p";
	4160	next if (not -f $f);
	4161	if (not open(PATCH,$f)) {
	4162	pb_display("Unable to open existing external source file content $f\n");
	4163	next;
	4164	}
	4165	while (<PATCH>) {
	4166	chomp();
[1552]	4167	$ptr->{$key} = pb_add_comma($ptr->{$key},"$_");
[1130]	4168	}
	4169	close(PATCH);
	4170	}
[1185]	4171	pb_log(2,"DEBUG: exiting pb_list_sfiles: ".Dumper($ptr)."\n");
[1186]	4172	return($ptr);
[1130]	4173	}
	4174
[395]	4175	#
	4176	# Return the list of packages we are working on in a non CMS action
	4177	#
	4178	sub pb_get_pkg {
	4179
	4180	my @pkgs = ();
	4181
	4182	my ($var) = pb_conf_read("$ENV{'PBDESTDIR'}/$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}.pb","pbpkg");
	4183	@pkgs = keys %$var;
	4184
	4185	pb_log(0,"Packages: ".join(',',@pkgs)."\n");
	4186	return(\@pkgs);
	4187	}
	4188
[1176]	4189	# Manages VM/RM SSH port communication
[1143]	4190	sub pb_get_port {
	4191
	4192	my $port = shift;
[1179]	4193	my $pbos = shift;
[1143]	4194	my $cmt = shift;
[1179]	4195	my $nport;
[1143]	4196
	4197	die "No port passed in parameter. Report to dev team\n" if (not defined $port);
[1179]	4198	# key is project on VM, but machine tuple for RM
	4199	if ($cmt =~ /^RM/i) {
	4200	$nport = $port->{"$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}"};
	4201	} else {
	4202	$nport = $port->{$ENV{'PBPROJ'}};
	4203	}
	4204	pb_log(2,"pb_get_port with $nport\n");
[1143]	4205	# Maybe a port was given as parameter so overwrite
	4206	$nport = "$pbport" if (defined $pbport);
[1268]	4207	# Maybe in // mode so use the env var set up as an offset to the base port, except when called from send2target for Packages or for RM
[1281]	4208	if (($cmt ne "Packages") && ($cmt !~ /^RM/i)) {
[1143]	4209	$nport += $ENV{'PBVMPORT'} if ((defined $pbparallel) && (defined $ENV{'PBVMPORT'}));
	4210	}
[1146]	4211	pb_log(2,"pb_get_port returns $nport\n");
[1143]	4212	return($nport);
	4213	}
	4214
	4215	sub pb_set_port {
	4216
	4217	my ($pid,$ident) = @_;
[1146]	4218	pb_log(2,"pb_set_port for VM ($pid), id $ident\n");
[1143]	4219	$ENV{'PBVMPORT'} = $ident;
[1146]	4220	pb_log(2,"pb_set_port sets PBVMPORT in env to $ENV{'PBVMPORT'}\n");
[1143]	4221	}
	4222
	4223	sub pb_set_parallel {
	4224
	4225	my $vtype = shift;
	4226
[1146]	4227	pb_log(2,"pb_set_parallel vtype: $vtype\n");
[1143]	4228	# Take care of memory size if VM, parallel mode and more than 1 action
	4229	if ((defined $pbparallel) && ($pbparallel ne 1) && ($vtype eq "vm")) {
	4230	eval
	4231	{
	4232	require Linux::SysInfo;
	4233	Linux::SysInfo->import();
	4234	};
	4235	if ($@) {
[1153]	4236	# Linux::SysInfo not found
[1388]	4237	pb_log(1,"ADVISE: Install Linux::SysInfo to benefit from automatic parallelism optimization.\nOr optimize manually pbparallel in your pb.conf file\nUsing $pbparallel processes max at a time for the moment\nWARNING: This may consume too much memory for your system\n");
[1143]	4238	} else {
	4239	# Using the memory size
	4240	my $si = Linux::SysInfo::sysinfo();
	4241	if (not defined $si) {
[1388]	4242	pb_log(1,"ADVISE: Install Linux::SysInfo to benefit from automatic parallelism optimization.\nOr optimize manually pbparallel in your pb.conf file\nUsing $pbparallel processes max at a time for the moment\nWARNING: This may consume too much memory for your system\n");
[1143]	4243	} else {
	4244	# Keep the number of VM whose memory can be allocated
	4245	my $ram = $si->{"totalram"}-$si->{"sharedram"}-$si->{"bufferram"};
	4246	my $ram2;
[1153]	4247	my ($vmmem) = pb_conf_get_if("vmmem");
[1146]	4248
[1153]	4249	my $v = "default";
	4250	if ((defined $vmmem) and (defined $vmmem->{$v})) {
	4251	$ram2 = $vmmem->{$v};
[1143]	4252	} else {
	4253	# Default for KVM/QEMU
	4254	$ram2 = 128;
	4255	}
	4256	$pbparallel = sprintf("%d",$ram/$ram2);
	4257	}
[1153]	4258	pb_log(1,"Using $pbparallel processes at a time\n");
[1143]	4259	}
	4260	}
[1176]	4261	pb_log(2,"pb_set_parallel returns: $pbparallel\n") if (defined $pbparallel);
[1143]	4262	return($pbparallel);
	4263	}
	4264
[1179]	4265	sub pb_get_sudocmds {
	4266
	4267	my $pbos = shift;
[1190]	4268	my %sudocmds;
[1143]	4269
[1198]	4270	pb_log(2,"pb_get_sudocmds entering with lines:".Dumper(@_)."\n");
	4271	foreach my $c (split(/;/,$pbos->{'update'}),split(/;/,$pbos->{'install'}),@_) {
	4272	pb_log(2,"pb_get_sudocmds analyses $c\n");
	4273	next if ($c !~ /^\s*sudo/);
	4274	# remove sudo and leading spaces
	4275	$c =~ s/^\s*sudo\s+//;
[1192]	4276	# keep only the command, not the params
	4277	$c =~ s/([^\s]+)\s.*$/$1/;
[1190]	4278	$sudocmds{$c} = "";
[1179]	4279	}
[1198]	4280	pb_log(2,"pb_get_sudocmds returns ".Dumper(keys %sudocmds)."\n");
[1190]	4281	return(keys %sudocmds);
[1179]	4282	}
	4283
[1278]	4284	sub pb_sign_pkgs {
[1179]	4285
[1278]	4286	my $pbos = shift;
	4287	my $made = shift;
	4288
	4289	pb_log(2,"entering pb_sign_pkg: $made ".Dumper($pbos)."\n");
	4290	my ($passfile, $passphrase, $passpath) = pb_conf_get_if("pbpassfile","pbpassphrase","pbpasspath");
	4291	$ENV{'PBPASSPHRASE'} = $passphrase->{$ENV{'PBPROJ'}} if ((not defined $ENV{'PBPASSPHRASE'}) && (defined $passphrase->{$ENV{'PBPROJ'}}));
	4292	$ENV{'PBPASSFILE'} = $passfile->{$ENV{'PBPROJ'}} if ((not defined $ENV{'PBPASSFILE'})&& (defined $passfile->{$ENV{'PBPROJ'}})) ;
	4293	$ENV{'PBPASSPATH'} = $passpath->{$ENV{'PBPROJ'}} if ((not defined $ENV{'PBPASSPATH'})&& (defined $passpath->{$ENV{'PBPROJ'}})) ;
	4294
[1279]	4295	# Remove extra spaces
	4296	$made =~ s/\s+/ /g;
	4297	$made =~ s/^\s//g;
	4298	$made =~ s/\s$//g;
	4299
[1278]	4300	if ($pbos->{'type'} eq "rpm") {
	4301	eval
	4302	{
	4303	require RPM4::Sign;
	4304	RPM4::Sign->import();
	4305	};
	4306	if ($@) {
	4307	# RPM4::Sign not found
	4308	pb_log(1,"WARNING: Install RPM4::Sign to benefit from automatic package signing.\n");
	4309	} else {
	4310	return if ((not defined $ENV{'PBPASSPHRASE'}) and (not defined $ENV{'PBPASSFILE'}));
	4311	my $sign = RPM4::Sign->new(
	4312	passphrase => $ENV{'PBPASSPHRASE'},
	4313	name => $ENV{'PBPACKAGER'},
	4314	path => $ENV{'PBPASSPATH'},
	4315	password_file => $ENV{'PBPASSFILE'},
	4316	);
	4317
	4318	pb_log(0,"Signing RPM packages...\n");
	4319	pb_log(2,"pb_sign_pkg: pkgs:".Dumper(split(/ /,$made))."\n");
	4320	$sign->rpmssign(split(/ /,$made));
	4321	}
	4322	} elsif ($pbos->{'type'} eq "deb") {
[1279]	4323	my $changes = "";
	4324	foreach my $c (split(/ /,$made)) {
[1537]	4325	$changes .= " $ENV{'PBBUILDDIR'}/$c" if (($c =~ /\.changes$/) && (-f "$ENV{PBBUILDDIR}/$c"));
[1279]	4326	}
[1386]	4327	my $debsigncmd = pb_check_req("debsign",1);
[1558]	4328	pb_system("$debsigncmd -m\'$ENV{'PBPACKAGER'}\' $changes","Signing DEB packages",undef,1) if (($changes ne "") && (defined $debsigncmd));
[1278]	4329	} else {
	4330	pb_log(0,"I don't know yet how to sign packages for type $pbos->{'type'}.\nPlease give feedback to dev team\n");
[1279]	4331	}
[1278]	4332	pb_log(2,"exiting pb_sign_pkg\n");
	4333	}
	4334
[1552]	4335	# return list of all distributins supported, comma separated
[1282]	4336	sub pb_get_distros {
	4337
	4338	my $pbos = shift;
	4339	my $pbtarget = shift;
	4340
[1553]	4341	my @dists = ("$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}");
[1282]	4342
	4343	# Get list of distributions for which we need to generate build files if no target
[1402]	4344	if (not defined $pbtarget) {
[1282]	4345	my @pt = pb_conf_get_if("vmlist","velist","rmlist");
[1552]	4346	foreach my $pt (@pt) {
	4347	push(@dists, split(/,/, $pt->{$ENV{PBPROJ}})) if defined $pt->{$ENV{PBPROJ}};
[1282]	4348	}
[1552]	4349	# remove any whitespace
	4350	grep(s/\s+//go, @dists);
[1282]	4351	}
[1552]	4352	return(join(",",@dists));
[1282]	4353	}
	4354
[1432]	4355	sub pb_get_extdir () {
	4356
	4357	# the pbrc file should contain it and whatever the key, we take it
	4358	my ($ed) = pb_conf_read("$ENV{'PBDESTDIR'}/pbrc","pbextdir");
	4359	pb_log(2,"ed: ".Dumper($ed)."\n");
	4360	my $pbextdir = "";
	4361	foreach my $k (keys %$ed) {
	4362	$pbextdir = $ed->{$k};
[1459]	4363	# In case we have an empty field, empty it completely
	4364	pb_log(2,"pbextdir: *$pbextdir*\n");
	4365	$pbextdir =~ s/^\s*$//;
[1432]	4366	}
[1459]	4367	pb_log(2,"pbextdir: *$pbextdir*\n");
[1432]	4368	return($pbextdir);
	4369	}
	4370
[395]	4371	1;

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

Download in other formats: