source: devel/pb/bin/pb @ 1559

Last change on this file since 1559 was 1559, checked in by bruno, 7 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
RevLine 
[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]12use 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]18use Getopt::Long qw(:config auto_abbrev no_ignore_case);
[1558]19use Carp qw/confess cluck/;
[9]20use Data::Dumper;
21use English;
[16]22use File::Basename;
[26]23use File::Copy;
[395]24use File::stat;
25use File::Temp qw(tempdir);
[872]26use File::Find;
[547]27use Time::localtime qw(localtime);
[13]28use POSIX qw(strftime);
[17]29use lib qw (lib);
[329]30use ProjectBuilder::Version;
[318]31use ProjectBuilder::Base;
[512]32use ProjectBuilder::Display;
[405]33use ProjectBuilder::Conf;
34use ProjectBuilder::Distribution;
[1469]35use ProjectBuilder::VCS;
[405]36use ProjectBuilder::CMS;
[416]37use ProjectBuilder::Env;
[405]38use ProjectBuilder::Filter;
[473]39use ProjectBuilder::Changelog;
[1348]40use ProjectBuilder::VE;
[473]41
[397]42# Global variables
[1537]43$Global::pb_stop_on_error = 1;
[5]44my %opts;                   # CLI Options
[9]45my $action;                 # action to realize
[320]46my $test = "FALSE";         # Not used
[748]47my $pbforce = 0;            # Force VE/VM rebuild
[968]48my $pbsnap = 0;             # Do not use snapshot mode for VM/VE by default
[1425]49my $pbkeep = 0;             # keep temporary directory at the end
[320]50my $option = "";            # Not used
51my @pkgs;                   # list of packages
[95]52my $pbtag;                  # Global Tag variable
53my $pbver;                  # Global Version variable
[141]54my $pbscript;               # Name of the script
[77]55my %pbver;                  # per package
56my %pbtag;                  # per package
[53]57my $pbrev;                  # Global REVISION variable
[1176]58my $pbaccount;              # Login to use to connect to the VM/RM
[1401]59my $pbtarget = undef;       # Target os-ver-arch you want to build for
[1176]60my $pbport;                 # Port to use to connect to the VM/RM
[199]61my $newver;                 # New version to create
[792]62my $iso = undef;            # ISO image for the VM to create
[5]63
[320]64my @date = pb_get_date();
65my $pbdate = strftime("%Y-%m-%d", @date);
[5]66
[331]67=pod
68
69=head1 NAME
70
71pb, aka project-builder.org - builds packages for your projects
72
73=head1 DESCRIPTION
74
75pb helps you build various packages directly from your project sources.
76Those sources could be handled by a CMS (Configuration Management System)
[748]77such as Subversion, CVS, Git, Mercurial... or being a simple reference to a compressed tar file.
[331]78It's based on a set of configuration files, a set of provided macros to help
79you keeping build files as generic as possible. For example, a single .spec
80file should be required to generate for all rpm based distributions, even
81if you could also have multiple .spec files if required.
82
83=head1 SYNOPSIS
84
[1401]85pb [-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]87pb [--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
95Print a brief help message and exits.
96
97=item B<-q|--quiet>
98
99Do not print any output.
100
101=item B<-h|--help>
102
103Print a brief help message and exits.
104
[748]105=item B<-S|--snapshot>
106
107Use the snapshot mode of VMs or VEs
108
[331]109=item B<--man>
110
111Prints the manual page and exits.
112
[1120]113=item B<-t|--target os-ver-arch>
[331]114
[1120]115Name of the target system you want to build for.
116All if none precised.
117
118=item B<-m|--machine os-ver-arch[,os-ver-arch,...]>
119
[1176]120Name of the Virtual Machines (VM), Virtual Environments (VE) or Remote Machines (RM)
[1552]121you want to build on (comma separated).
[331]122All if none precised (or use the env variable PBV).
123
124=item B<-s|--script script>
125
[1176]126Name of the script you want to execute on the related VMs/VEs/RMs.
[331]127
[1158]128=item B<-g|--nographic>
[1124]129
130Do not launch VMs in graphical mode.
131
[331]132=item B<-i|--iso iso_image>
133
134Name of the ISO image of the distribution you want to install on the related VMs.
135
136=item B<-a|--account account>
137
[1176]138Name of the account to use to connect on the related VMs/RMs.
[331]139
140=item B<-P|--port port_number>
141
[1176]142Port number to use to connect on the related VMs/RMs.";
[331]143
144=item B<-p|--project project_name>
145
146Name of the project you're working on (or use the env variable PBPROJ)
147
148=item B<-r|--revision revision>
149
150Path Name of the project revision under the CMS (or use the env variable PBROOT)
151
152=item B<-V|--version new_version>
153
154New version of the project to create based on the current one.
155
[1425]156=item B<-k|--keep>
157
158Keep the temporary dir where files have been created in or der to help debug
159
[1386]160=item B<--rebuild>
161
162Only 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
166Continue 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
178Create tar files for the project under your CMS.
179Current state of the exported content is taken.
180CMS supported are SVN, SVK, CVS, Git and Mercurial
181parameters are packages to build
182if not using default list
183
[331]184=item B<cms2build>
185
186Create tar files for the project under your CMS.
[1097]187Current state of the CMS is taken.
188CMS supported are SVN, SVK, CVS, Git and Mercurial
[331]189parameters are packages to build
190if not using default list
191
192=item B<build2pkg>
193
194Create packages for your running distribution
195
196=item B<cms2pkg>
197
198cms2build + build2pkg
199
[1097]200=item B<sbx2pkg>
201
202sbx2build + build2pkg
203
[331]204=item B<build2ssh>
205
206Send the tar files to a SSH host
207
[1097]208=item B<sbx2ssh>
209
210sbx2build + build2ssh
211
[331]212=item B<cms2ssh>
213
214cms2build + build2ssh
215
216=item B<pkg2ssh>
217
218Send the packages built to a SSH host
219
220=item B<build2vm>
221
222Create packages in VMs, launching them if needed
223and send those packages to a SSH host once built
[1176]224VM type supported are QEMU and KVM
[331]225
226=item B<build2ve>
227
228Create packages in VEs, creating it if needed
229and send those packages to a SSH host once built
230
[1176]231=item B<build2rm>
232
233Create packages in RMs, which should pre-exist,
234and send those packages to a SSH host once built
235RM means Remote Machine, and could be a physical or Virtual one.
236This is one buildfarm integration for pb.
237
[1097]238=item B<sbx2vm>
239
240sbx2build + build2vm
241
242=item B<sbx2ve>
243
244sbx2build + build2ve
245
[1176]246=item B<sbx2rm>
247
248sbx2build + build2rm
249
[331]250=item B<cms2vm>
251
252cms2build + build2vm
253
254=item B<cms2ve>
255
256cms2build + build2ve
257
[1176]258=item B<cms2rm>
259
260cms2build + build2rm
261
[331]262=item B<launchvm>
263
264Launch one virtual machine
265
266=item B<launchve>
267
268Launch one virtual environment
269
270=item B<script2vm>
271
272Launch one virtual machine if needed
273and executes a script on it
274
275=item B<script2ve>
276
277Execute a script in a virtual environment
278
[1176]279=item B<script2rm>
280
281Execute a script on a remote machine
282
[331]283=item B<newvm>
284
285Create a new virtual machine
286
287=item B<newve>
288
289Create a new virtual environment
290
[346]291=item B<setupvm>
292
293Setup a virtual machine for pb usage
294
295=item B<setupve>
296
297Setup a virtual environment for pb usage
298
[1176]299=item B<setuprm>
300
301Setup a remote machine for pb usage
302
[1140]303=item B<sbx2setupvm>
304
305Setup a virtual machine for pb usage using the sandbox version of pb instead of the latest stable
306Reserved to dev team.
307
308=item B<sbx2setupve>
309
310Setup a virtual environment for pb usage using the sandbox version of pb instead of the latest stable
311Reserved to dev team.
312
[1176]313=item B<sbx2setuprm>
314
315Setup a remote machine for pb usage using the sandbox version of pb instead of the latest stable
316Reserved to dev team.
317
[748]318=item B<snapvm>
319
320Snapshot a virtual machine for pb usage
321
322=item B<snapve>
323
324Snapshot a virtual environment for pb usage
325
[1111]326=item B<updatevm>
327
328Update the distribution in the virtual machine
329
330=item B<updateve>
331
332Update the distribution in the virtual environment
333
[1176]334=item B<updaterm>
335
336Update the distribution in the remote machine
337
[783]338=item B<test2pkg>
339
340Test a package locally
341
[772]342=item B<test2vm>
343
344Test a package in a virtual machine
345
346=item B<test2ve>
347
348Test a package in a virtual environment
349
[1176]350=item B<test2rm>
351
352Test a package in a remote machine
353
[1386]354=item B<checkssh>
355
356Check the delivery of the packages on the repository
357
[331]358=item B<newver>
359
360Create a new version of the project derived
361from the current one
362
363=item B<newproj>
364
365Create a new project and a template set of
366configuration files under pbconf
367
[471]368=item B<announce>
369
370Announce the availability of the project through various means
371
[1117]372=item B<sbx2webssh>
[557]373
[1117]374Create tar files for the website under your CMS.
375Current state of the exported content is taken.
376Deliver the content to the target server using ssh from the exported dir.
[557]377
[1117]378=item B<cms2webssh>
379
380Create tar files for the website from your CMS.
381Deliver the content to the target server using ssh from the DVCS.
382
383=item B<sbx2webpkg>
384
385Create tar files for the website under your CMS.
386Current state of the exported content is taken.
387
388=item B<cms2webpkg>
389
390Create tar files for the website under your CMS.
391
[1495]392=item B<getconf>
393
394Print the full configuration parameters as found in the various configuration files. help to debug conf issues.
395
[739]396=item B<clean>
397
398Purge the build and delivery directories related to the current project
399
[1392]400=item B<cleanssh>
401
402Purge 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
410The 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
414None exists for the moment.
415
416=head1 CONFIGURATION FILES
417
418Each pb user may have a configuration in F<$HOME/.pbrc>. The values in this file may overwrite any other configuration file value.
419
420Here 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
472The 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
477The first line defines the version controlled configuration information and the second defines the root directory for project-builder to use.
478
479You can then run the command:
480
[1554]481 % pb -p I<$project> -r I<$version> newproj I<$pkg>
[1537]482
[1554]483to 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]487The 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]493You 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]495For 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
509Then 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
513To 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]519The 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
525You 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
529Then you can run a command like:
530
[1542]531 % pb -p $project -r $version build2pkg
[1537]532
[1542]533To create the files in $project/build that comprise your binary package(s).
534
[1549]535=back
536
[1542]537=head2 newve
538 
539The 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
545Update 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]552If you are building for rpm style OS's, update the verpmtype option, and install the appropriate tool.
553
554 verpmtype default = rpmbootstrap
555
[1542]556You 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
564If 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
568Initialize 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]576The 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
582You 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
590If 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
596The 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]598Three sub-steps are needed:
[1545]599
600=over 4
601
602=item Update $project.pb
603
604You 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]609You 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
615You 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
627The 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
631Project-Builder.org is distributed under the GPL v2.0 license
632described in the file C<COPYING> included with the distribution.
633
634=cut
635
636# ---------------------------------------------------------------------------
637
[75]638my ($projectbuilderver,$projectbuilderrev) = pb_version_init();
[974]639my $appname = "pb";
[331]640
[397]641# Initialize the syntax string
642
[974]643pb_syntax_init("$appname (aka project-builder.org) Version $projectbuilderver-$projectbuilderrev\n");
[397]644
[331]645GetOptions("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]667if (defined $opts{'h'}) {
[331]668    pb_syntax(0,1);
[21]669}
[331]670if (defined $opts{'man'}) {
671    pb_syntax(0,2);
672}
[21]673if (defined $opts{'v'}) {
[495]674    $pbdebug = $opts{'v'};
[21]675}
[320]676if (defined $opts{'f'}) {
[748]677    $pbforce=1;
[320]678}
[21]679if (defined $opts{'q'}) {
[495]680    $pbdebug=-1;
[21]681}
[748]682if (defined $opts{'S'}) {
683    $pbsnap=1;
684}
[1425]685if (defined $opts{'k'}) {
686    $pbkeep=1;
687}
[22]688if (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]693pb_log_init($pbdebug, $pbLOG);
694pb_display_init("text","");
[315]695
[67]696# Handle root of the project if defined
697if (defined $opts{'r'}) {
[340]698    $ENV{'PBROOTDIR'} = $opts{'r'};
[67]699}
[91]700# Handle virtual machines if any
701if (defined $opts{'m'}) {
[320]702    $ENV{'PBV'} = $opts{'m'};
[91]703}
[141]704if (defined $opts{'s'}) {
705    $pbscript = $opts{'s'};
706}
[152]707if (defined $opts{'a'}) {
708    $pbaccount = $opts{'a'};
[347]709    die "option -a requires a -s script option" if (not defined $pbscript);
[152]710}
[162]711if (defined $opts{'P'}) {
712    $pbport = $opts{'P'};
713}
[199]714if (defined $opts{'V'}) {
715    $newver = $opts{'V'};
716}
[262]717if (defined $opts{'i'}) {
718    $iso = $opts{'i'};
719}
[1120]720if (defined $opts{'t'}) {
721    $pbtarget = $opts{'t'};
722}
[108]723
724# Get Action
725$action = shift @ARGV;
[331]726die pb_syntax(-1,1) if (not defined $action);
[108]727
[314]728my ($filteredfiles, $supfiles, $defpkgdir, $extpkgdir);
[273]729my $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]739my ($req,$opt,$pbpara) = pb_conf_get_if("oscmd","oscmdopt","pbparallel");
[1128]740pb_check_requirements($req,$opt,$appname);
[982]741
[1125]742#
743# Check if we can launch some actions in // with Parallel::ForkManager
744#
[1126]745my $pbparallel = $pbpara->{$appname} if (defined $pbpara);
746if (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]763eval
764{
765    require Parallel::ForkManager;
766    Parallel::ForkManager->import();
767};
768# Parallel::ForkManager not found so no // actions
769if ($@) {
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]774pb_log(0,"Project: $ENV{'PBPROJ'}\n");
775pb_log(0,"Action: $action\n");
[9]776
777# Act depending on action
778if ($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
925sub 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]1380sub 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]1398sub 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]1784sub 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]1805sub pb_build2ssh {
[320]1806    pb_send2target("Sources");
[1374]1807    pb_send2target("CPAN");
[90]1808}
[87]1809
[90]1810sub 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]1816sub 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]2036EOF
2037            print PBS "set -x\n" if ($pbdebug gt 1);
2038            print PBS << "EOF";
[429]2039cat > $ENV{'PBPROJ'}.repo << EOT
2040[$ENV{'PBPROJ'}]
[1177]2041name=$pbos->{'name'} $pbos->{'version'} $pbos->{'arch'} - $ENV{'PBPROJ'} Vanilla Packages
[433]2042baseurl=$pbrepo->{$ENV{'PBPROJ'}}/$repodir
[429]2043enabled=1
[1556]2044gpgcheck=$pbgpgcheck
[1335]2045gpgkey=$pbrepo->{$ENV{'PBPROJ'}}/$repodir/$ENV{'PBPROJ'}.pubkey
[429]2046EOT
2047chmod 644 $ENV{'PBPROJ'}.repo
2048
2049# Clean up old repo content
2050rm -rf headers/ repodata/
2051# Create yum repo
[1102]2052if [ -x /usr/bin/yum-arch ]; then
2053    yum-arch .
2054fi
[429]2055# Create repodata
[1276]2056createrepo -s $pbsha .
[1365]2057# Link to the key
[1557]2058if [ -s $ENV{'PBPROJ'}.pubkey ]; then
2059    (cd repodata ; ln -sf ../$ENV{'PBPROJ'}.pubkey repomd.xml.key)
2060else
2061    echo "Avoiding creating empty repomd.xml.key; fails on opensuse 12.1"
2062fi
[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]2066EOF
[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
2071cat > $ENV{'PBPROJ'}.addmedia << EOT
[1003]2072urpmi.addmedia $ENV{'PBPROJ'} $pbrepo->{$ENV{'PBPROJ'}}/$repodir with media_info/hdlist.cz
[429]2073EOT
2074chmod 755 $ENV{'PBPROJ'}.addmedia
2075
2076# Clean up old repo content
[437]2077rm -f hdlist.cz synthesis.hdlist.cz
[429]2078# Create urpmi repo
[1002]2079genhdlist2 --clean .
2080if [ \$\? -ne 0 ]; then
2081    genhdlist .
2082fi
[429]2083EOF
2084            }
[1177]2085            if ($pbos->{'name'} eq "fedora") {
[484]2086                # Extract the spec file to please Fedora maintainers :-(
2087                print PBS << "EOF";
2088for 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
2093done
2094EOF
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]2102cat > $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 -->
2124EOT
2125for 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>
2135EOT
2136done
2137cat >> $ENV{'PBPROJ'}.ymp << EOT
2138        </software>
2139    </group>
2140</metapackage>
2141EOT
2142chmod 644 $ENV{'PBPROJ'}.ymp
2143EOF
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
2161cat > $ENV{'PBPROJ'}.sources.list << EOT
[1555]2162deb $rpd $pbos->{'version'} $projcomponent
2163deb-src $rpd $pbos->{'version'} $projcomponent
[460]2164EOT
[465]2165chmod 644 $ENV{'PBPROJ'}.sources.list
[460]2166
[1112]2167# Up two levels to deal with the dist dir cross versions
[1192]2168cd ..
[1555]2169mkdir -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]2173TMPD=`mktemp -d /tmp/pb.XXXXXXXXXX` || exit 1
2174mkdir -p \$TMPD
2175cat > \$TMPD/Release << EOT
2176Archive: unstable
[1555]2177Component: $projcomponent
[1112]2178Origin: $ENV{'PBPROJ'}
2179Label: $ENV{'PBPROJ'} dev repository $pbrepo->{$ENV{'PBPROJ'}}
2180EOT
2181
[1559]2182echo "Creating Packages metadata"
2183for 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
2188done
[1192]2189echo "Creating Contents metadata"
2190apt-ftparchive contents $pbos->{'version'} | gzip -c9 > dists/$pbos->{'version'}/Contents.gz
[1275]2191echo "Creating Release metadata ($pbos->{'arch'} aka $debarch)"
[1555]2192cat \$TMPD/Release > dists/$pbos->{'version'}/$projcomponent/binary-$debarch/Release
2193echo "Architecture: $debarch" >> dists/$pbos->{'version'}/$projcomponent/binary-$debarch/Release
[1112]2194echo "Creating Source metadata"
[1555]2195dpkg-scansources $pbos->{'version'} /dev/null | gzip -c9 > dists/$pbos->{'version'}/$projcomponent/source/Sources.gz
2196cat \$TMPD/Release > dists/$pbos->{'version'}/$projcomponent/source/Release
2197echo "Architecture: Source" >> dists/$pbos->{'version'}/$projcomponent/source/Release
[1112]2198echo "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]2202apt-ftparchive release dists/$pbos->{'version'} > dists/$pbos->{'version'}/Release
[1112]2203rm -rf \$TMPD
[460]2204EOF
[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
2210for 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
2217done
2218EOF
[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]2431sub 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]2484sub 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]2655sub pb_date2v {
[639]2656
2657my $vtype = shift;
[1216]2658my $pbos = shift;
[639]2659
[1545]2660# VE gets time from parent OS.
2661return "/bin/true" if ($vtype) =~ /^ve/o; 
2662
[986]2663my ($ntp) = pb_conf_get_if($vtype."ntp");
2664my $vntp = $ntp->{$ENV{'PBPROJ'}} if (defined $ntp);
[1221]2665my $ntpline = undef;
[639]2666
2667if (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
2674my @date=pb_get_date();
2675$date[1]++;
2676my $upddate = strftime("%m%d%H%M%Y", @date);
[1179]2677my $dateline = "sudo /bin/date $upddate";
[1190]2678if (defined $ntpline) {
2679    return($ntpline);
2680} else {
2681    return($dateline);
[639]2682}
[1190]2683}
[639]2684
[320]2685sub pb_build2v {
[118]2686
[320]2687my $vtype = shift;
[772]2688my $action = shift || "build";
[142]2689
[772]2690my ($v,$all) = pb_get2v($vtype);
[320]2691
2692# Send tar files when we do a global generation
[772]2693pb_build2ssh() if (($all == 1) && ($action eq "build"));
[320]2694
[1143]2695# Adapt // mode to memory size
2696$pbparallel = pb_set_parallel($vtype);
2697
[320]2698my ($vmexist,$vmpid) = (undef,undef);
[1176]2699my $pm;
[1550]2700my $all_ok = 1;
[1176]2701if (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
2714my $counter = 0;
[320]2715foreach 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]2838die "Aborting, one or more of the children failed." if ((not $all_ok) && ($Global::pb_stop_on_error));
[320]2839}
[105]2840
[262]2841
[739]2842sub 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]2853sub 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]2965sub pb_get2v {
[91]2966
[320]2967my $vtype = shift;
2968my @v;
[105]2969my $all = 0;
[320]2970my $pbv = 'PBV';
[1176]2971my $vlist = $vtype."list";
[91]2972
[320]2973# Get VM/VE list
2974if ((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]2979pb_log(2,"$vtype: $ENV{$pbv}\n");
2980@v = split(/,/,$ENV{$pbv});
2981return(\@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]2991sub pb_setup2v {
[320]2992
2993my $vtype = shift;
[1140]2994my $sbx = shift || undef;
[320]2995
[772]2996my ($vm,$all) = pb_get2v($vtype);
[353]2997
[346]2998# Script generated
2999my $pbscript = "$ENV{'PBDESTDIR'}/setupv";
[320]3000
[1143]3001# Adapt // mode to memory size
3002$pbparallel = pb_set_parallel($vtype);
3003
[1176]3004my $pm;
[1550]3005my $all_ok = 1;
[1176]3006if (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
3016my $counter = 0;
[652]3017foreach 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