| 1 | #!/usr/bin/perl -w
|
|---|
| 2 | #
|
|---|
| 3 | # Project Builder main application
|
|---|
| 4 | #
|
|---|
| 5 | # $Id$
|
|---|
| 6 | #
|
|---|
| 7 | # Copyright B. Cornec 2007-2016
|
|---|
| 8 | # Eric Anderson's changes are (c) Copyright 2012 Hewlett Packard
|
|---|
| 9 | # Provided under the GPL v2
|
|---|
| 10 |
|
|---|
| 11 | # Syntax: see at end
|
|---|
| 12 |
|
|---|
| 13 | use strict 'vars';
|
|---|
| 14 |
|
|---|
| 15 | # The modules mentioned here are required by pb when used both
|
|---|
| 16 | # locally or inside a VE/VM/RM
|
|---|
| 17 | # Additional required modules only used locally are called with a require
|
|---|
| 18 | # in their respective section
|
|---|
| 19 | use Getopt::Long qw(:config auto_abbrev no_ignore_case);
|
|---|
| 20 | use Carp qw/confess cluck/;
|
|---|
| 21 | use Data::Dumper;
|
|---|
| 22 | use English;
|
|---|
| 23 | use File::Basename;
|
|---|
| 24 | use File::Copy;
|
|---|
| 25 | use File::stat;
|
|---|
| 26 | use File::Find;
|
|---|
| 27 | use Time::localtime qw(localtime);
|
|---|
| 28 | use POSIX qw(strftime);
|
|---|
| 29 | use lib qw (lib);
|
|---|
| 30 | use ProjectBuilder::Version;
|
|---|
| 31 | use ProjectBuilder::Base;
|
|---|
| 32 | use ProjectBuilder::Display;
|
|---|
| 33 | use ProjectBuilder::Conf;
|
|---|
| 34 | use ProjectBuilder::Distribution;
|
|---|
| 35 | use ProjectBuilder::VCS;
|
|---|
| 36 | use ProjectBuilder::CMS;
|
|---|
| 37 | use ProjectBuilder::Env;
|
|---|
| 38 | use ProjectBuilder::Filter;
|
|---|
| 39 | use ProjectBuilder::Changelog;
|
|---|
| 40 | use ProjectBuilder::VE;
|
|---|
| 41 |
|
|---|
| 42 | # Global variables
|
|---|
| 43 | $Global::pb_stop_on_error = 0; # False by default
|
|---|
| 44 | $Global::pb_show_sudo = 0; # False by default
|
|---|
| 45 |
|
|---|
| 46 | my %opts; # CLI Options
|
|---|
| 47 | my $action; # action to realize
|
|---|
| 48 | my $test = "FALSE"; # Not used
|
|---|
| 49 | my $pbforce = 0; # Force VM stop
|
|---|
| 50 | my $pbsnap = 0; # Do not use snapshot mode for VM/VE by default
|
|---|
| 51 | my $pbkeep = 0; # keep temporary directory at the end
|
|---|
| 52 | my $option = ""; # Not used
|
|---|
| 53 | my @pkgs; # list of packages
|
|---|
| 54 | my $pbtag; # Global Tag variable
|
|---|
| 55 | my $pbver; # Global Version variable
|
|---|
| 56 | my %pbscript; # Name of the scripts per V
|
|---|
| 57 | my $pbrev; # Global REVISION variable
|
|---|
| 58 | my $pbtarget = undef; # Target os-ver-arch you want to build for
|
|---|
| 59 | my $pbport; # Port to use to connect to the VM/RM
|
|---|
| 60 | my $newver; # New version to create
|
|---|
| 61 | my $pbimage = undef; # ISO image for the VM to create or docker image for the VE
|
|---|
| 62 | my $vetype = undef; # Type of Virtual environment to deal with
|
|---|
| 63 |
|
|---|
| 64 | my @date = pb_get_date();
|
|---|
| 65 | my $pbdate = strftime("%Y-%m-%d", @date);
|
|---|
| 66 |
|
|---|
| 67 | =pod
|
|---|
| 68 |
|
|---|
| 69 | =head1 NAME
|
|---|
| 70 |
|
|---|
| 71 | pb, aka project-builder.org - builds packages for your projects
|
|---|
| 72 |
|
|---|
| 73 | =head1 DESCRIPTION
|
|---|
| 74 |
|
|---|
| 75 | pb helps you build various packages directly from your project sources.
|
|---|
| 76 | Those sources could be handled by a CMS (Configuration Management System)
|
|---|
| 77 | such as Subversion, CVS, Git, Mercurial... or being a simple reference to a compressed tar file.
|
|---|
| 78 | It's based on a set of configuration files, a set of provided macros to help
|
|---|
| 79 | you keeping build files as generic as possible. For example, a single .spec
|
|---|
| 80 | file should be required to generate for all rpm based distributions, even
|
|---|
| 81 | if you could also have multiple .spec files if required.
|
|---|
| 82 |
|
|---|
| 83 | =head1 SYNOPSIS
|
|---|
| 84 |
|
|---|
| 85 | pb [-vhSq][-r pbroot][-p project][[-s script -a account -P port][-T VEtype][-t [os-ver-arch]][-m os-ver-arch[,...]]][-g][-i image] <action> [<pkg1> ...]
|
|---|
| 86 |
|
|---|
| 87 | pb [--verbose][--help][--man][--quiet][--snapshot][--revision pbroot][--project project][[--script script --account account --port port][-T VEtype][--target [os-ver-arch]][--machine os-ver-arch[,...]]][--nographic][--image image][--rebuild] <action> [<pkg1> ...]
|
|---|
| 88 |
|
|---|
| 89 | =head1 OPTIONS
|
|---|
| 90 |
|
|---|
| 91 | =over 4
|
|---|
| 92 |
|
|---|
| 93 | =item B<-v|--verbose>
|
|---|
| 94 |
|
|---|
| 95 | Increase verbosity
|
|---|
| 96 |
|
|---|
| 97 | =item B<-q|--quiet>
|
|---|
| 98 |
|
|---|
| 99 | Do not print any output.
|
|---|
| 100 |
|
|---|
| 101 | =item B<-h|--help>
|
|---|
| 102 |
|
|---|
| 103 | Print a brief help message and exits.
|
|---|
| 104 |
|
|---|
| 105 | =item B<-S|--snapshot>
|
|---|
| 106 |
|
|---|
| 107 | Use the snapshot mode of VMs or VEs
|
|---|
| 108 |
|
|---|
| 109 | =item B<--man>
|
|---|
| 110 |
|
|---|
| 111 | Prints the manual page and exits.
|
|---|
| 112 |
|
|---|
| 113 | =item B<-t|--target os-ver-arch>
|
|---|
| 114 |
|
|---|
| 115 | Name of the target system you want to build for.
|
|---|
| 116 | All if none precised.
|
|---|
| 117 |
|
|---|
| 118 | =item B<-m|--machine os-ver-arch[,os-ver-arch,...]>
|
|---|
| 119 |
|
|---|
| 120 | Name of the Virtual Machines (VM), Virtual Environments (VE) or Remote Machines (RM)
|
|---|
| 121 | you want to build on (comma separated).
|
|---|
| 122 | All if none precised (or use the env variable PBV).
|
|---|
| 123 |
|
|---|
| 124 | =item B<-T|--vetype VEtype]>
|
|---|
| 125 |
|
|---|
| 126 | Type of Virtual Environments (VE)
|
|---|
| 127 | Can be chroot or docker.
|
|---|
| 128 |
|
|---|
| 129 | =item B<-s|--script script>
|
|---|
| 130 |
|
|---|
| 131 | Name of the script you want to execute on the related VMs/VEs/RMs.
|
|---|
| 132 |
|
|---|
| 133 | =item B<-g|--nographic>
|
|---|
| 134 |
|
|---|
| 135 | Do not launch VMs in graphical mode.
|
|---|
| 136 |
|
|---|
| 137 | =item B<-i|--image image>
|
|---|
| 138 |
|
|---|
| 139 | It could be either:
|
|---|
| 140 | - The name of the ISO image of the distribution you want to install on the related VMs
|
|---|
| 141 | - The name of the docker image of the distribution you want to install on the related VEs
|
|---|
| 142 |
|
|---|
| 143 |
|
|---|
| 144 | =item B<-a|--account account>
|
|---|
| 145 |
|
|---|
| 146 | Name of the account to use to connect on the related VMs/RMs.
|
|---|
| 147 |
|
|---|
| 148 | =item B<-P|--port port_number>
|
|---|
| 149 |
|
|---|
| 150 | Port number to use to connect on the related VMs/RMs.";
|
|---|
| 151 |
|
|---|
| 152 | =item B<-p|--project project_name>
|
|---|
| 153 |
|
|---|
| 154 | Name of the project you're working on (or use the env variable PBPROJ)
|
|---|
| 155 |
|
|---|
| 156 | =item B<-r|--revision revision>
|
|---|
| 157 |
|
|---|
| 158 | Path Name of the project revision under the CMS (or use the env variable PBROOT)
|
|---|
| 159 |
|
|---|
| 160 | =item B<-V|--version new_version>
|
|---|
| 161 |
|
|---|
| 162 | New version of the project to create based on the current one.
|
|---|
| 163 |
|
|---|
| 164 | =item B<-k|--keep>
|
|---|
| 165 |
|
|---|
| 166 | Keep the temporary dir where files have been created in or der to help debug
|
|---|
| 167 |
|
|---|
| 168 | =item B<--rebuild>
|
|---|
| 169 |
|
|---|
| 170 | Only valid with the checkssh action, it alllows to automatically relaunch the build of the failed packages
|
|---|
| 171 |
|
|---|
| 172 | =item B<--no-stop-on-error>
|
|---|
| 173 |
|
|---|
| 174 | Continue through errors with best effort.
|
|---|
| 175 |
|
|---|
| 176 | =back
|
|---|
| 177 |
|
|---|
| 178 | =head1 ARGUMENTS
|
|---|
| 179 |
|
|---|
| 180 | <action> can be:
|
|---|
| 181 |
|
|---|
| 182 | =over 4
|
|---|
| 183 |
|
|---|
| 184 | =item B<sbx2build>
|
|---|
| 185 |
|
|---|
| 186 | Create tar files for the project under your CMS.
|
|---|
| 187 | Current state of the exported content is taken.
|
|---|
| 188 | CMS supported are SVN, SVK, CVS, Git and Mercurial
|
|---|
| 189 | parameters are packages to build
|
|---|
| 190 | if not using default list
|
|---|
| 191 |
|
|---|
| 192 | =item B<cms2build>
|
|---|
| 193 |
|
|---|
| 194 | Create tar files for the project under your CMS.
|
|---|
| 195 | Current state of the CMS is taken.
|
|---|
| 196 | CMS supported are SVN, SVK, CVS, Git and Mercurial
|
|---|
| 197 | parameters are packages to build
|
|---|
| 198 | if not using default list
|
|---|
| 199 |
|
|---|
| 200 | =item B<build2prep>
|
|---|
| 201 |
|
|---|
| 202 | Prepare the environment for build by installing required dependencies. Done once on the build system.
|
|---|
| 203 |
|
|---|
| 204 | =item B<build2pkg>
|
|---|
| 205 |
|
|---|
| 206 | Create packages for your running distribution
|
|---|
| 207 |
|
|---|
| 208 | =item B<cms2pkg>
|
|---|
| 209 |
|
|---|
| 210 | cms2build + build2pkg
|
|---|
| 211 |
|
|---|
| 212 | =item B<sbx2pkg>
|
|---|
| 213 |
|
|---|
| 214 | sbx2build + build2pkg
|
|---|
| 215 |
|
|---|
| 216 | =item B<sbx2pkg2ins>
|
|---|
| 217 |
|
|---|
| 218 | sbx2pkg + final install of packages
|
|---|
| 219 |
|
|---|
| 220 | =item B<build2ssh>
|
|---|
| 221 |
|
|---|
| 222 | Send the tar files to a SSH host
|
|---|
| 223 |
|
|---|
| 224 | =item B<sbx2ssh>
|
|---|
| 225 |
|
|---|
| 226 | sbx2build + build2ssh
|
|---|
| 227 |
|
|---|
| 228 | =item B<cms2ssh>
|
|---|
| 229 |
|
|---|
| 230 | cms2build + build2ssh
|
|---|
| 231 |
|
|---|
| 232 | =item B<pkg2ssh>
|
|---|
| 233 |
|
|---|
| 234 | Send the packages built to a SSH host
|
|---|
| 235 |
|
|---|
| 236 | =item B<build2vm>
|
|---|
| 237 |
|
|---|
| 238 | Create packages in VMs, launching them if needed
|
|---|
| 239 | and send those packages to a SSH host once built
|
|---|
| 240 | VM type supported are QEMU and KVM
|
|---|
| 241 |
|
|---|
| 242 | =item B<build2ve>
|
|---|
| 243 |
|
|---|
| 244 | Create packages in VEs, creating it if needed
|
|---|
| 245 | and send those packages to a SSH host once built
|
|---|
| 246 |
|
|---|
| 247 | =item B<build2rm>
|
|---|
| 248 |
|
|---|
| 249 | Create packages in RMs, which should pre-exist,
|
|---|
| 250 | and send those packages to a SSH host once built
|
|---|
| 251 | RM means Remote Machine, and could be a physical or Virtual one.
|
|---|
| 252 | This is one buildfarm integration for pb.
|
|---|
| 253 |
|
|---|
| 254 | =item B<prepvm>
|
|---|
| 255 |
|
|---|
| 256 | Prepare the VMs to have all requirements to build the project
|
|---|
| 257 |
|
|---|
| 258 | =item B<prepve>
|
|---|
| 259 |
|
|---|
| 260 | Prepare the VEs to have all requirements to build the project
|
|---|
| 261 |
|
|---|
| 262 | =item B<preprm>
|
|---|
| 263 |
|
|---|
| 264 | Prepare the RMs to have all requirements to build the project
|
|---|
| 265 |
|
|---|
| 266 | =item B<sbx2vm>
|
|---|
| 267 |
|
|---|
| 268 | sbx2build + build2vm
|
|---|
| 269 |
|
|---|
| 270 | =item B<sbx2ve>
|
|---|
| 271 |
|
|---|
| 272 | sbx2build + build2ve
|
|---|
| 273 |
|
|---|
| 274 | =item B<sbx2rm>
|
|---|
| 275 |
|
|---|
| 276 | sbx2build + build2rm
|
|---|
| 277 |
|
|---|
| 278 | =item B<cms2vm>
|
|---|
| 279 |
|
|---|
| 280 | cms2build + build2vm
|
|---|
| 281 |
|
|---|
| 282 | =item B<cms2ve>
|
|---|
| 283 |
|
|---|
| 284 | cms2build + build2ve
|
|---|
| 285 |
|
|---|
| 286 | =item B<cms2rm>
|
|---|
| 287 |
|
|---|
| 288 | cms2build + build2rm
|
|---|
| 289 |
|
|---|
| 290 | =item B<launchvm>
|
|---|
| 291 |
|
|---|
| 292 | Launch one virtual machine
|
|---|
| 293 |
|
|---|
| 294 | =item B<launchve>
|
|---|
| 295 |
|
|---|
| 296 | Launch one virtual environment
|
|---|
| 297 |
|
|---|
| 298 | =item B<script2vm>
|
|---|
| 299 |
|
|---|
| 300 | Launch one virtual machine if needed
|
|---|
| 301 | and executes a script on it
|
|---|
| 302 |
|
|---|
| 303 | =item B<script2ve>
|
|---|
| 304 |
|
|---|
| 305 | Execute a script in a virtual environment
|
|---|
| 306 |
|
|---|
| 307 | =item B<script2rm>
|
|---|
| 308 |
|
|---|
| 309 | Execute a script on a remote machine
|
|---|
| 310 |
|
|---|
| 311 | =item B<newvm>
|
|---|
| 312 |
|
|---|
| 313 | Create a new virtual machine
|
|---|
| 314 |
|
|---|
| 315 | =item B<newve>
|
|---|
| 316 |
|
|---|
| 317 | Create a new virtual environment
|
|---|
| 318 |
|
|---|
| 319 | =item B<setupvm>
|
|---|
| 320 |
|
|---|
| 321 | Setup a virtual machine for pb usage
|
|---|
| 322 |
|
|---|
| 323 | =item B<setupve>
|
|---|
| 324 |
|
|---|
| 325 | Setup a virtual environment for pb usage
|
|---|
| 326 |
|
|---|
| 327 | =item B<setuprm>
|
|---|
| 328 |
|
|---|
| 329 | Setup a remote machine for pb usage
|
|---|
| 330 |
|
|---|
| 331 | =item B<sbx2setupvm>
|
|---|
| 332 |
|
|---|
| 333 | Setup a virtual machine for pb usage using the sandbox version of pb instead of the latest stable
|
|---|
| 334 | Reserved to dev team.
|
|---|
| 335 |
|
|---|
| 336 | =item B<sbx2setupve>
|
|---|
| 337 |
|
|---|
| 338 | Setup a virtual environment for pb usage using the sandbox version of pb instead of the latest stable
|
|---|
| 339 | Reserved to dev team.
|
|---|
| 340 |
|
|---|
| 341 | =item B<sbx2setuprm>
|
|---|
| 342 |
|
|---|
| 343 | Setup a remote machine for pb usage using the sandbox version of pb instead of the latest stable
|
|---|
| 344 | Reserved to dev team.
|
|---|
| 345 |
|
|---|
| 346 | =item B<build2setupvm>
|
|---|
| 347 |
|
|---|
| 348 | Setup a virtual machine for pb usage using the build available
|
|---|
| 349 | Reserved to dev team.
|
|---|
| 350 |
|
|---|
| 351 | =item B<build2setupve>
|
|---|
| 352 |
|
|---|
| 353 | Setup a virtual environment for pb usage using the build available
|
|---|
| 354 | Reserved to dev team.
|
|---|
| 355 |
|
|---|
| 356 | =item B<build2setuprm>
|
|---|
| 357 |
|
|---|
| 358 | Setup a remote machine for pb usage using the build available
|
|---|
| 359 | Reserved to dev team.
|
|---|
| 360 |
|
|---|
| 361 | =item B<snapvm>
|
|---|
| 362 |
|
|---|
| 363 | Snapshot a virtual machine for pb usage
|
|---|
| 364 |
|
|---|
| 365 | =item B<snapve>
|
|---|
| 366 |
|
|---|
| 367 | Snapshot a virtual environment for pb usage
|
|---|
| 368 |
|
|---|
| 369 | =item B<updatevm>
|
|---|
| 370 |
|
|---|
| 371 | Update the distribution in the virtual machine
|
|---|
| 372 |
|
|---|
| 373 | =item B<updateve>
|
|---|
| 374 |
|
|---|
| 375 | Update the distribution in the virtual environment
|
|---|
| 376 |
|
|---|
| 377 | =item B<updaterm>
|
|---|
| 378 |
|
|---|
| 379 | Update the distribution in the remote machine
|
|---|
| 380 |
|
|---|
| 381 | =item B<test2pkg>
|
|---|
| 382 |
|
|---|
| 383 | Test a package locally
|
|---|
| 384 |
|
|---|
| 385 | =item B<test2vm>
|
|---|
| 386 |
|
|---|
| 387 | Test a package in a virtual machine
|
|---|
| 388 |
|
|---|
| 389 | =item B<test2ve>
|
|---|
| 390 |
|
|---|
| 391 | Test a package in a virtual environment
|
|---|
| 392 |
|
|---|
| 393 | =item B<test2rm>
|
|---|
| 394 |
|
|---|
| 395 | Test a package in a remote machine
|
|---|
| 396 |
|
|---|
| 397 | =item B<checkssh>
|
|---|
| 398 |
|
|---|
| 399 | Check the delivery of the packages on the repository
|
|---|
| 400 |
|
|---|
| 401 | =item B<checkps>
|
|---|
| 402 |
|
|---|
| 403 | Check the process running the VM concerned
|
|---|
| 404 |
|
|---|
| 405 | =item B<newver>
|
|---|
| 406 |
|
|---|
| 407 | Create a new version of the project derived
|
|---|
| 408 | from the current one
|
|---|
| 409 |
|
|---|
| 410 | =item B<newproj>
|
|---|
| 411 |
|
|---|
| 412 | Create a new project and a template set of
|
|---|
| 413 | configuration files under pbconf
|
|---|
| 414 |
|
|---|
| 415 | =item B<announce>
|
|---|
| 416 |
|
|---|
| 417 | Announce the availability of the project through various means
|
|---|
| 418 |
|
|---|
| 419 | =item B<sbx2webssh>
|
|---|
| 420 |
|
|---|
| 421 | Create tar files for the website under your CMS.
|
|---|
| 422 | Current state of the exported content is taken.
|
|---|
| 423 | Deliver the content to the target server using ssh from the exported dir.
|
|---|
| 424 |
|
|---|
| 425 | =item B<cms2webssh>
|
|---|
| 426 |
|
|---|
| 427 | Create tar files for the website from your CMS.
|
|---|
| 428 | Deliver the content to the target server using ssh from the DVCS.
|
|---|
| 429 |
|
|---|
| 430 | =item B<sbx2webpkg>
|
|---|
| 431 |
|
|---|
| 432 | Create tar files for the website under your CMS.
|
|---|
| 433 | Current state of the exported content is taken.
|
|---|
| 434 |
|
|---|
| 435 | =item B<cms2webpkg>
|
|---|
| 436 |
|
|---|
| 437 | Create tar files for the website under your CMS.
|
|---|
| 438 |
|
|---|
| 439 | =item B<getconf>
|
|---|
| 440 |
|
|---|
| 441 | Print the full configuration parameters as found in the various configuration files. Help to debug conf issues.
|
|---|
| 442 | Also accepts a parameter to display only this value, and a VM/VE/RM
|
|---|
| 443 |
|
|---|
| 444 | =item B<clean>
|
|---|
| 445 |
|
|---|
| 446 | Purge the build and delivery directories related to the current project
|
|---|
| 447 |
|
|---|
| 448 | =item B<cleanssh>
|
|---|
| 449 |
|
|---|
| 450 | Purge the ssh server of its packages (only for testver and test packages)
|
|---|
| 451 |
|
|---|
| 452 | =back
|
|---|
| 453 |
|
|---|
| 454 | <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).
|
|---|
| 455 |
|
|---|
| 456 | =head1 WEB SITES
|
|---|
| 457 |
|
|---|
| 458 | The main Web site of the project is available at L<http://www.project-builder.org/>. Bug reports should be filled using the trac instance of the project at L<http://trac.project-builder.org/>.
|
|---|
| 459 |
|
|---|
| 460 | =head1 USER MAILING LIST
|
|---|
| 461 |
|
|---|
| 462 | None exists for the moment.
|
|---|
| 463 |
|
|---|
| 464 | =head1 ENVIRONMENT VARIABLES
|
|---|
| 465 |
|
|---|
| 466 | =item B<PBACCOUNT>
|
|---|
| 467 |
|
|---|
| 468 | Login to use to connect to the VM/RM, undef by default
|
|---|
| 469 |
|
|---|
| 470 | =back
|
|---|
| 471 |
|
|---|
| 472 | =head1 CONFIGURATION FILES
|
|---|
| 473 |
|
|---|
| 474 | Each pb user may have a configuration in F<$HOME/.pbrc>. The values in this file may overwrite any other configuration file value.
|
|---|
| 475 |
|
|---|
| 476 | Here is an example of such a configuration file:
|
|---|
| 477 |
|
|---|
| 478 | #
|
|---|
| 479 | # Define for each project the URL of its pbconf repository
|
|---|
| 480 | # No default option allowed here as they need to be all different
|
|---|
| 481 | #
|
|---|
| 482 | # URL of the pbconf content
|
|---|
| 483 | # This is the format of a classical URL with the extension of additional schema such as
|
|---|
| 484 | # svn+ssh, cvs+ssh, ...
|
|---|
| 485 | #
|
|---|
| 486 | pbconfurl linuxcoe = cvs+ssh://:ext:bcornec@linuxcoe.cvs.sourceforge.net:/cvsroot/linuxcoe/pbconf
|
|---|
| 487 |
|
|---|
| 488 | # This is normaly defined in the project's configuration file
|
|---|
| 489 | # Url of the project
|
|---|
| 490 | #
|
|---|
| 491 | pburl linuxcoe = cvs+ssh://:ext:bcornec@linuxcoe.cvs.sourceforge.net:/cvsroot/linuxcoe
|
|---|
| 492 |
|
|---|
| 493 | # All these URLs needs to be defined here as the are the entry point
|
|---|
| 494 | # for how to build packages for the project
|
|---|
| 495 | #
|
|---|
| 496 | pbconfurl pb = svn+ssh://svn.project-builder.org/mondo/svn/pb/pbconf
|
|---|
| 497 | pbconfurl mondorescue = svn+ssh://svn.project-builder.org/mondo/svn/project-builder/mondorescue/pbconf
|
|---|
| 498 | pbconfurl collectl = svn+ssh://bruno@svn.mondorescue.org/mondo/svn/project-builder/collectl/pbconf
|
|---|
| 499 | pbconfurl netperf = svn+ssh://svn.mondorescue.org/mondo/svn/project-builder/netperf/pbconf
|
|---|
| 500 |
|
|---|
| 501 | # Under that dir will take place everything related to pb
|
|---|
| 502 | # If you want to use VMs/chroot/..., then use $ENV{'HOME'} to make it portable
|
|---|
| 503 | # to your VMs/chroot/...
|
|---|
| 504 | # if not defined then /var/cache
|
|---|
| 505 | pbdefdir default = $ENV{'HOME'}/project-builder
|
|---|
| 506 | pbdefdir pb = $ENV{'HOME'}
|
|---|
| 507 | pbdefdir linuxcoe = $ENV{'HOME'}/LinuxCOE/cvs
|
|---|
| 508 | pbdefdir mondorescue = $ENV{'HOME'}/mondo/svn
|
|---|
| 509 |
|
|---|
| 510 | # pbconfdir points to the directory where the CMS content of the pbconfurl is checked out
|
|---|
| 511 | # If not defined, pbconfdir is under pbdefdir/pbproj/pbconf
|
|---|
| 512 | pbconfdir linuxcoe = $ENV{'HOME'}/LinuxCOE/cvs/pbconf
|
|---|
| 513 | pbconfdir mondorescue = $ENV{'HOME'}/mondo/svn/pbconf
|
|---|
| 514 |
|
|---|
| 515 | # pbdir points to the directory where the CMS content of the pburl is checked out
|
|---|
| 516 | # If not defined, pbdir is under pbdefdir/pbproj
|
|---|
| 517 | # Only defined if we have access to the dev of the project
|
|---|
| 518 | pbdir linuxcoe = $ENV{'HOME'}/LinuxCOE/cvs
|
|---|
| 519 | pbdir mondorescue = $ENV{'HOME'}/mondo/svn
|
|---|
| 520 |
|
|---|
| 521 | # -daemonize doesn't work with qemu 0.8.2
|
|---|
| 522 | vmopt default = -m 384
|
|---|
| 523 |
|
|---|
| 524 | =head1 COMMAND DETAILS
|
|---|
| 525 |
|
|---|
| 526 | =head2 newproj
|
|---|
| 527 |
|
|---|
| 528 | The newproj command creates a new project-builder project. To run this command you first need to define two variables in your ~/.pbrc file:
|
|---|
| 529 |
|
|---|
| 530 | pbconfurl I<project> = file:///home/anderse/.git/project-builder-config/I<project>
|
|---|
| 531 | pbdefdir default = $ENV{HOME}/cache-project-builder
|
|---|
| 532 |
|
|---|
| 533 | The first line defines the version controlled configuration information and the second defines the root directory for project-builder to use.
|
|---|
| 534 |
|
|---|
| 535 | You can then run the command:
|
|---|
| 536 |
|
|---|
| 537 | % pb -p I<$project> -r I<$version> newproj I<$pkg>
|
|---|
| 538 |
|
|---|
| 539 | to create the new project. Running the newproj command will then generate the file $pbdefdir/$project/pbconf/$version/$project.pb, and the directory $pbdefdir/$project/pbconf/$version/$pkg. You will need to edit those files to make the later commands work.
|
|---|
| 540 |
|
|---|
| 541 | =head2 cms2build
|
|---|
| 542 |
|
|---|
| 543 | The cms2build command takes your files from the content management system and makes the two tar files that are necessary for building files. You need to have run the newproj command first. Then there are several steps for running this command:
|
|---|
| 544 |
|
|---|
| 545 | =over 4
|
|---|
| 546 |
|
|---|
| 547 | =item Update your $project.pb configuration file.
|
|---|
| 548 |
|
|---|
| 549 | You need to set the pburl, pbrepo, pbwf, pbpackager, projver, projtag, testver, delivery, and defpkgdir lines as described in the configuration file. The pburl entry is used to find the source for your package. The pbrepo entry is used to build the .repo or .sources.list files for use by downloaders of the package. The pbwf entry indicates that the source tar file is named by I<package-name>-I<version>. The pbpackager entry will be stored in the packages and should be you or your team. The projver/projtag entries indicate the version of the software and the version of the packaging scripts. The testver entry when true indicates that the package is in a test version, so no log file is computed (can be long), and version is made up using a timstamp. The delivery entry gives the subdirectory under which the packages will be delivered on the repository, and the defpkgdir entry corresponds to the local subdirectory hosting the package content.
|
|---|
| 550 |
|
|---|
| 551 | For example:
|
|---|
| 552 |
|
|---|
| 553 | pburl Lintel = file:///home/anderse/projects/Lintel-0.2012.02.28.tar.gz
|
|---|
| 554 | pbrepo Lintel = http://tesla.hpl.hp.com/opensource
|
|---|
| 555 | pbwf Lintel = 1
|
|---|
| 556 | pbpackager Lintel = Eric Anderson <eric.anderson4@hp.com>
|
|---|
| 557 | projver Lintel = 0.2012.02.28
|
|---|
| 558 | projtag Lintel = 1
|
|---|
| 559 | testver Lintel = false
|
|---|
| 560 | delivery Lintel = production
|
|---|
| 561 | defpkgdir Lintel = Lintel-0.2012.02.28
|
|---|
| 562 |
|
|---|
| 563 | =item Create the build .tar.gz files:
|
|---|
| 564 |
|
|---|
| 565 | Then you need to take those files and create the initial tar files. Run a command like:
|
|---|
| 566 |
|
|---|
| 567 | % pb -p $project -r $version cms2build
|
|---|
| 568 |
|
|---|
| 569 | To create the $pbdefdir/$project/pbdelivery/$project-$version.{,pbconf}.tar.gz files, the $version-$projtag.pb and pbrc files in the same directory.
|
|---|
| 570 |
|
|---|
| 571 | =back
|
|---|
| 572 |
|
|---|
| 573 | =head2 build2pkg
|
|---|
| 574 |
|
|---|
| 575 | The build2pkg command takes the tar files created in the cms2build step and attempts to build binary packages for your current operating system. There are two steps:
|
|---|
| 576 |
|
|---|
| 577 | =over 4
|
|---|
| 578 |
|
|---|
| 579 | =item Update your filters and build files.
|
|---|
| 580 |
|
|---|
| 581 | You probably need to edit the files describing the build steps in one of the $pbdefdir/$project/pbconf/$version/$project/{deb,rpm,pkg} directories and the filters in $pbdefdir/$project/pbconf/$version/pbfilter. Note that you can define additional filters and transforms in the *.pbf files. The build files will be filtered by the filters defined in the *.pbf files to generate the inputs to the build step. Therefore, if you change those files, you need to re-run the cms2build step.
|
|---|
| 582 |
|
|---|
| 583 | =item Build the package.
|
|---|
| 584 |
|
|---|
| 585 | Then you can run a command like:
|
|---|
| 586 |
|
|---|
| 587 | % pb -p $project -r $version build2pkg
|
|---|
| 588 |
|
|---|
| 589 | To create the files in $project/pbbuild that comprise your binary package(s).
|
|---|
| 590 |
|
|---|
| 591 | =back
|
|---|
| 592 |
|
|---|
| 593 | =head2 newve
|
|---|
| 594 |
|
|---|
| 595 | The newve command creates a new virtual environment, i.e. a chrooted OS for building packages. Using a virtual environment is an efficient way to build packages on a related set of operating systems. The OS's have to be related because the kernel will be shared. Steps:
|
|---|
| 596 |
|
|---|
| 597 | =over 4
|
|---|
| 598 |
|
|---|
| 599 | =item Update ~/.pbrc
|
|---|
| 600 |
|
|---|
| 601 | Update your ~/.pbrc file to specify the vepath, velist, velogin, and vetype variables, e.g.:
|
|---|
| 602 |
|
|---|
| 603 | vepath default = $ENV{HOME}/cache-project-builder/chroot
|
|---|
| 604 | velist default = debian-6.0-i386
|
|---|
| 605 | velogin default = pb
|
|---|
| 606 | vetype default = chroot
|
|---|
| 607 |
|
|---|
| 608 | If you are building for rpm style OS's, update the verpmtype option, and install the appropriate tool.
|
|---|
| 609 |
|
|---|
| 610 | verpmtype default = rpmbootstrap
|
|---|
| 611 |
|
|---|
| 612 | You may also choose to specify a mirror for the OS packages, and optionally http/ftp proxies. You can specify the proxies either through environment variables ($http_proxy/$ftp_proxy) or in the configuration file. The configuration file will be used if no corresponding environment variable has been set. For example, for debian and with a local squid proxy:
|
|---|
| 613 |
|
|---|
| 614 | rbsmirrorsrv debian = http://mirrors1.kernel.org/debian/
|
|---|
| 615 | http_proxy default = http://localhost:3128/
|
|---|
| 616 | ftp_proxy default = http://localhost:3128/
|
|---|
| 617 |
|
|---|
| 618 | =item Run the cms2build command
|
|---|
| 619 |
|
|---|
| 620 | If you have deleted your $package/pbdelivery directory, re-run the cms2build command as in the earlier step. This step is necessary to generate the I<package>/pbdelivery/pbrc file.
|
|---|
| 621 |
|
|---|
| 622 | =item Create the new virtual environment
|
|---|
| 623 |
|
|---|
| 624 | Initialize the new operating system. This step will install the core OS packages for the virtual environment, e.g.:
|
|---|
| 625 |
|
|---|
| 626 | % pb -v -p $project -m debian-6.0-i386 newve
|
|---|
| 627 |
|
|---|
| 628 | =back
|
|---|
| 629 |
|
|---|
| 630 | =head2 setupve
|
|---|
| 631 |
|
|---|
| 632 | The setupve command prepares a virtual environment for use by project builder. In particular it installs project-builder from the packages into the virtual environment. Two sub-steps are necessary:
|
|---|
| 633 |
|
|---|
| 634 | =over 4
|
|---|
| 635 |
|
|---|
| 636 | =item Update $project.pb
|
|---|
| 637 |
|
|---|
| 638 | You need to have a sshhost entry for setupve to work, so add one, even an invalid one, e.g.:
|
|---|
| 639 |
|
|---|
| 640 | sshhost $project = foo.example.org
|
|---|
| 641 |
|
|---|
| 642 | =item Setup the virtual environment
|
|---|
| 643 |
|
|---|
| 644 | % pb -v -p $project -m debian-6.0-i386 setupve
|
|---|
| 645 |
|
|---|
| 646 | If you prefer to install the current SVN version of project builder, you can substitute the setupve option by the sbx2setupv one.
|
|---|
| 647 |
|
|---|
| 648 | =back
|
|---|
| 649 |
|
|---|
| 650 | =head2 build2ve
|
|---|
| 651 |
|
|---|
| 652 | The build2ve command is similar to the build2pkg command in that it will take the sources created by cms2build and turn them into binary packages. The command has two differences. First, it creates the packages in a virtual environment, i.e. the one made by an earlier setupve setup. Second it copies the resulting packages to a repository and builds the repository meta-data needed.
|
|---|
| 653 |
|
|---|
| 654 | Three sub-steps are needed:
|
|---|
| 655 |
|
|---|
| 656 | =over 4
|
|---|
| 657 |
|
|---|
| 658 | =item Update $project.pb
|
|---|
| 659 |
|
|---|
| 660 | You need to have a valid sshdir and sshhost entry for build2ve to work, so add them. Note that you need to be able to ssh from the host you run the command on to the repository host, preferably without needing to type in a password, so using ssh-agent or having a special passwordless project-builder ssh key will make this step easier.
|
|---|
| 661 |
|
|---|
| 662 | sshhost $project = localhost
|
|---|
| 663 | sshdir $project = $home/cache-project-builder/repos
|
|---|
| 664 |
|
|---|
| 665 | You may also need to specify additional repository files to use or rpms to install. Note the URL for repositories is not the URL of the repository, but the URL of a file that can be put in the yum.repos.d or apt.sources.d directory.
|
|---|
| 666 |
|
|---|
| 667 | 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
|
|---|
| 668 |
|
|---|
| 669 | =item Update your filters and build files
|
|---|
| 670 |
|
|---|
| 671 | You may need to update your filter files (*.pbf) as in the build2pkg step if you are building for a new OS or architecture.
|
|---|
| 672 |
|
|---|
| 673 | =item Build the packages and copy them to the repository
|
|---|
| 674 |
|
|---|
| 675 | % pb -v -p $project -m debian-6.0-i386 build2ve
|
|---|
| 676 |
|
|---|
| 677 | =back
|
|---|
| 678 |
|
|---|
| 679 | *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.
|
|---|
| 680 |
|
|---|
| 681 | =head1 AUTHORS
|
|---|
| 682 |
|
|---|
| 683 | The Project-Builder.org team L<http://trac.project-builder.org/> lead by Bruno Cornec L<mailto:bruno@project-builder.org>.
|
|---|
| 684 |
|
|---|
| 685 | =head1 COPYRIGHT
|
|---|
| 686 |
|
|---|
| 687 | Project-Builder.org is distributed under the GPL v2.0 license
|
|---|
| 688 | described in the file C<COPYING> included with the distribution.
|
|---|
| 689 |
|
|---|
| 690 | =cut
|
|---|
| 691 |
|
|---|
| 692 | # ---------------------------------------------------------------------------
|
|---|
| 693 |
|
|---|
| 694 | my ($projectbuilderver,$projectbuilderrev) = pb_version_init();
|
|---|
| 695 | my $appname = "pb";
|
|---|
| 696 |
|
|---|
| 697 | # Initialize the syntax string
|
|---|
| 698 |
|
|---|
| 699 | pb_syntax_init("$appname (aka project-builder.org) Version $projectbuilderver-$projectbuilderrev\n");
|
|---|
| 700 |
|
|---|
| 701 | GetOptions("help|?|h+" => \$opts{'h'},
|
|---|
| 702 | "account|a=s" => \$opts{'a'},
|
|---|
| 703 | "force|f" => \$opts{'f'},
|
|---|
| 704 | "nographic|g" => \$opts{'g'},
|
|---|
| 705 | "image|i=s" => \$opts{'i'},
|
|---|
| 706 | "log-files|l=s" => \$opts{'l'},
|
|---|
| 707 | "machines|mock|m=s" => \$opts{'m'},
|
|---|
| 708 | "man" => \$opts{'man'},
|
|---|
| 709 | "port|P=i" => \$opts{'P'},
|
|---|
| 710 | "project|p=s" => \$opts{'p'},
|
|---|
| 711 | "quiet|q" => \$opts{'q'},
|
|---|
| 712 | "revision|r=s" => \$opts{'r'},
|
|---|
| 713 | "rebuild" => \$opts{'rebuild'},
|
|---|
| 714 | "snapshot|S" => \$opts{'S'},
|
|---|
| 715 | "script|s=s" => \$opts{'s'},
|
|---|
| 716 | "type|T:s" => \$opts{'T'},
|
|---|
| 717 | "target|t:s" => \$opts{'t'},
|
|---|
| 718 | "version|V=s" => \$opts{'V'},
|
|---|
| 719 | "verbose|v+" => \$opts{'v'},
|
|---|
| 720 | "keep|k" => \$opts{'k'},
|
|---|
| 721 | "stop-on-error!" => \$Global::pb_stop_on_error,
|
|---|
| 722 | ) || pb_syntax(-1,0);
|
|---|
| 723 |
|
|---|
| 724 | if (defined $opts{'l'}) {
|
|---|
| 725 | open(pbLOG,"> $opts{'l'}") || die "Unable to log to $opts{'l'}: $!";
|
|---|
| 726 | $pbLOG = \*pbLOG;
|
|---|
| 727 | $pbdebug = 0 if ($pbdebug == -1);
|
|---|
| 728 | }
|
|---|
| 729 | pb_log_init($pbdebug, $pbLOG);
|
|---|
| 730 |
|
|---|
| 731 | if (defined $opts{'h'}) {
|
|---|
| 732 | pb_syntax(0,$opts{'h'}-1);
|
|---|
| 733 | }
|
|---|
| 734 | if (defined $opts{'man'}) {
|
|---|
| 735 | pb_syntax(0,2);
|
|---|
| 736 | }
|
|---|
| 737 | if (defined $opts{'v'}) {
|
|---|
| 738 | $pbdebug = $opts{'v'};
|
|---|
| 739 | }
|
|---|
| 740 | if (defined $opts{'f'}) {
|
|---|
| 741 | $pbforce=1;
|
|---|
| 742 | }
|
|---|
| 743 | if (defined $opts{'q'}) {
|
|---|
| 744 | $pbdebug=-1;
|
|---|
| 745 | }
|
|---|
| 746 | if (defined $opts{'S'}) {
|
|---|
| 747 | $pbsnap=1;
|
|---|
| 748 | }
|
|---|
| 749 | if (defined $opts{'k'}) {
|
|---|
| 750 | $pbkeep=1;
|
|---|
| 751 | }
|
|---|
| 752 | pb_display_init("text","");
|
|---|
| 753 |
|
|---|
| 754 | # Handle root of the project if defined
|
|---|
| 755 | if (defined $opts{'r'}) {
|
|---|
| 756 | $ENV{'PBROOTDIR'} = $opts{'r'};
|
|---|
| 757 | }
|
|---|
| 758 | # Handle virtual machines if any
|
|---|
| 759 | if (defined $opts{'m'}) {
|
|---|
| 760 | $ENV{'PBV'} = $opts{'m'};
|
|---|
| 761 | }
|
|---|
| 762 | if (defined $opts{'s'}) {
|
|---|
| 763 | $pbscript{'default'} = $opts{'s'};
|
|---|
| 764 | die "option -s requires a script having a full path name" if ($pbscript{'default'} !~ /^\//);
|
|---|
| 765 | }
|
|---|
| 766 | if (defined $opts{'a'}) {
|
|---|
| 767 | $ENV{'PBACCOUNT'} = $opts{'a'};
|
|---|
| 768 | die "option -a requires a -s script option" if (not defined $pbscript{'default'});
|
|---|
| 769 | }
|
|---|
| 770 | if (defined $opts{'P'}) {
|
|---|
| 771 | $pbport = $opts{'P'};
|
|---|
| 772 | }
|
|---|
| 773 | if (defined $opts{'V'}) {
|
|---|
| 774 | $newver = $opts{'V'};
|
|---|
| 775 | }
|
|---|
| 776 | if (defined $opts{'i'}) {
|
|---|
| 777 | $pbimage = $opts{'i'};
|
|---|
| 778 | }
|
|---|
| 779 | if (defined $opts{'t'}) {
|
|---|
| 780 | $pbtarget = $opts{'t'};
|
|---|
| 781 | }
|
|---|
| 782 | if (defined $opts{'T'}) {
|
|---|
| 783 | $vetype = $opts{'T'};
|
|---|
| 784 | }
|
|---|
| 785 |
|
|---|
| 786 | # Get Action
|
|---|
| 787 | $action = shift @ARGV;
|
|---|
| 788 | die pb_syntax(-1,1) if (not defined $action);
|
|---|
| 789 |
|
|---|
| 790 | my ($filteredfiles, $supfiles, $defpkgdir, $extpkgdir);
|
|---|
| 791 | my $pbinit = undef;
|
|---|
| 792 | $pbinit = 1 if ($action =~ /^newproj$/);
|
|---|
| 793 |
|
|---|
| 794 | # Handles project name if any
|
|---|
| 795 | # And get global params
|
|---|
| 796 | ($filteredfiles, $supfiles, $defpkgdir, $extpkgdir) = pb_env_init($opts{'p'},$pbinit,$action,$pbkeep);
|
|---|
| 797 |
|
|---|
| 798 | #
|
|---|
| 799 | # Check for command requirements
|
|---|
| 800 | #
|
|---|
| 801 | my ($req,$opt,$pbpara,$pbshowsudo,$pbstoponerr) = pb_conf_get_if("oscmd","oscmdopt","pbparallel","pbshowsudo","pbstoponerr");
|
|---|
| 802 | pb_check_requirements($req,$opt,$appname);
|
|---|
| 803 |
|
|---|
| 804 | $Global::pb_show_sudo = 1 if ((defined $pbshowsudo) && (defined $pbshowsudo->{$ENV{'PBPROJ'}}) && ($pbshowsudo->{$ENV{'PBPROJ'}} =~ /true/oi));
|
|---|
| 805 | $Global::pb_stop_on_error = 1 if ((defined $pbstoponerr) && (defined $pbstoponerr->{$ENV{'PBPROJ'}}) && ($pbstoponerr->{$ENV{'PBPROJ'}} =~ /true/oi));
|
|---|
| 806 |
|
|---|
| 807 | #
|
|---|
| 808 | # Check if we can launch some actions in // with Parallel::ForkManager
|
|---|
| 809 | #
|
|---|
| 810 | my $pbparallel = $pbpara->{$appname} if (defined $pbpara);
|
|---|
| 811 | if (not defined $pbparallel) {
|
|---|
| 812 | eval
|
|---|
| 813 | {
|
|---|
| 814 | require Sys::CPU;
|
|---|
| 815 | Sys::CPU->import();
|
|---|
| 816 | };
|
|---|
| 817 | if ($@) {
|
|---|
| 818 | # Sys::CPU not found, defaulting to 1
|
|---|
| 819 | 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");
|
|---|
| 820 | $pbparallel = 1;
|
|---|
| 821 | } else {
|
|---|
| 822 | # Using the number of cores
|
|---|
| 823 | $pbparallel = Sys::CPU::cpu_count();
|
|---|
| 824 | pb_log(1,"Using parallel mode with $pbparallel processes\n");
|
|---|
| 825 | }
|
|---|
| 826 | }
|
|---|
| 827 |
|
|---|
| 828 | eval
|
|---|
| 829 | {
|
|---|
| 830 | require Parallel::ForkManager;
|
|---|
| 831 | Parallel::ForkManager->import();
|
|---|
| 832 | };
|
|---|
| 833 | # Parallel::ForkManager not found so no // actions
|
|---|
| 834 | if ($@) {
|
|---|
| 835 | $pbparallel = undef;
|
|---|
| 836 | pb_log(1,"ADVISE: Install Parallel::ForkManager to benefit from automatic parallelism optimization.\nOnly 1 process at a time for the moment\n");
|
|---|
| 837 | }
|
|---|
| 838 |
|
|---|
| 839 | pb_log(0,"Project: $ENV{'PBPROJ'}\n");
|
|---|
| 840 | pb_log(0,"Action: $action\n");
|
|---|
| 841 |
|
|---|
| 842 | my $do_install = undef;
|
|---|
| 843 | # Possibility to add a 2ins to some commands to launch automatic installation
|
|---|
| 844 | $do_install = 1 if ($action =~ /2ins$/);
|
|---|
| 845 |
|
|---|
| 846 | # Act depending on action
|
|---|
| 847 | if ($action =~ /^cms2build$/) {
|
|---|
| 848 | pb_cms2build("CMS");
|
|---|
| 849 | } elsif ($action =~ /^sbx2build$/) {
|
|---|
| 850 | pb_cms2build("SandBox");
|
|---|
| 851 | } elsif ($action =~ /^build2prep/) {
|
|---|
| 852 | pb_build2prep();
|
|---|
| 853 | } elsif ($action =~ /^build2pkg/) {
|
|---|
| 854 | pb_build2pkg($do_install);
|
|---|
| 855 | } elsif ($action =~ /^cms2pkg/) {
|
|---|
| 856 | pb_cms2build("CMS");
|
|---|
| 857 | pb_build2pkg($do_install);
|
|---|
| 858 | } elsif ($action =~ /^sbx2pkg/) {
|
|---|
| 859 | pb_cms2build("SandBox");
|
|---|
| 860 | pb_build2pkg($do_install);
|
|---|
| 861 | } elsif ($action =~ /^build2ssh$/) {
|
|---|
| 862 | pb_build2ssh();
|
|---|
| 863 | } elsif ($action =~ /^cms2ssh$/) {
|
|---|
| 864 | pb_cms2build("CMS");
|
|---|
| 865 | pb_build2ssh();
|
|---|
| 866 | } elsif ($action =~ /^sbx2ssh$/) {
|
|---|
| 867 | pb_cms2build("SandBox");
|
|---|
| 868 | pb_build2ssh();
|
|---|
| 869 | } elsif ($action =~ /^pkg2ssh$/) {
|
|---|
| 870 | pb_pkg2ssh();
|
|---|
| 871 | } elsif ($action =~ /^build2rm$/) {
|
|---|
| 872 | pb_build2v("rm","build");
|
|---|
| 873 | } elsif ($action =~ /^build2ve$/) {
|
|---|
| 874 | pb_build2v("ve","build");
|
|---|
| 875 | } elsif ($action =~ /^build2vm$/) {
|
|---|
| 876 | pb_build2v("vm","build");
|
|---|
| 877 | } elsif ($action =~ /^sbx2preprm$/) {
|
|---|
| 878 | pb_cms2build("SandBox");
|
|---|
| 879 | pb_build2v("rm","prep");
|
|---|
| 880 | } elsif ($action =~ /^sbx2prepve$/) {
|
|---|
| 881 | pb_cms2build("SandBox");
|
|---|
| 882 | pb_build2v("ve","prep");
|
|---|
| 883 | } elsif ($action =~ /^sbx2prepvm$/) {
|
|---|
| 884 | pb_cms2build("SandBox");
|
|---|
| 885 | pb_build2v("vm","prep");
|
|---|
| 886 | } elsif ($action =~ /^preprm$/) {
|
|---|
| 887 | pb_build2v("rm","prep");
|
|---|
| 888 | } elsif ($action =~ /^prepve$/) {
|
|---|
| 889 | pb_build2v("ve","prep");
|
|---|
| 890 | } elsif ($action =~ /^prepvm$/) {
|
|---|
| 891 | pb_build2v("vm","prep");
|
|---|
| 892 | } elsif ($action =~ /^cms2rm$/) {
|
|---|
| 893 | pb_cms2build("CMS");
|
|---|
| 894 | pb_build2v("rm","build");
|
|---|
| 895 | } elsif ($action =~ /^cms2ve$/) {
|
|---|
| 896 | pb_cms2build("CMS");
|
|---|
| 897 | pb_build2v("ve","build");
|
|---|
| 898 | } elsif ($action =~ /^sbx2rm$/) {
|
|---|
| 899 | pb_cms2build("SandBox");
|
|---|
| 900 | pb_build2v("rm","build");
|
|---|
| 901 | } elsif ($action =~ /^sbx2ve$/) {
|
|---|
| 902 | pb_cms2build("SandBox");
|
|---|
| 903 | pb_build2v("ve","build");
|
|---|
| 904 | } elsif ($action =~ /^cms2vm$/) {
|
|---|
| 905 | pb_cms2build("CMS");
|
|---|
| 906 | pb_build2v("vm","build");
|
|---|
| 907 | } elsif ($action =~ /^sbx2vm$/) {
|
|---|
| 908 | pb_cms2build("SandBox");
|
|---|
| 909 | pb_build2v("vm","build");
|
|---|
| 910 | } elsif ($action =~ /^launchvm$/) {
|
|---|
| 911 | pb_parallel_launchv(undef,"vm",undef,3,$pbimage);
|
|---|
| 912 | } elsif ($action =~ /^launchve$/) {
|
|---|
| 913 | pb_parallel_launchv(undef,"ve",undef,3,$pbimage);
|
|---|
| 914 | } elsif ($action =~ /^script2vm$/) {
|
|---|
| 915 | die "action script2vm requires a -s script option" if (not defined $pbscript{'default'});
|
|---|
| 916 | pb_script2v(\%pbscript,"vm");
|
|---|
| 917 | } elsif ($action =~ /^script2ve$/) {
|
|---|
| 918 | die "action script2ve requires a -s script option" if (not defined $pbscript{'default'});
|
|---|
| 919 | pb_script2v(\%pbscript,"ve");
|
|---|
| 920 | } elsif ($action =~ /^script2rm$/) {
|
|---|
| 921 | die "action script2rm requires a -s script option" if (not defined $pbscript{'default'});
|
|---|
| 922 | pb_script2v(\%pbscript,"rm");
|
|---|
| 923 | } elsif ($action =~ /^newver$/) {
|
|---|
| 924 | pb_newver();
|
|---|
| 925 | } elsif ($action =~ /^newve$/) {
|
|---|
| 926 | pb_parallel_launchv(undef,"ve",undef,0,$pbimage);
|
|---|
| 927 | } elsif ($action =~ /^newvm$/) {
|
|---|
| 928 | pb_parallel_launchv(undef,"vm",undef,0,$pbimage);
|
|---|
| 929 | pb_log(0, "Please ensure that sshd is running in your VM by default\n");
|
|---|
| 930 | pb_log(0, "and that it allows remote root login (PermitRootLogin yes in /etc/ssh/sshd_config)\n");
|
|---|
| 931 | pb_log(0, "Also ensure that network is up, firewalling correctly configured\n");
|
|---|
| 932 | pb_log(0, "and perl, Data::Dumper, tar, sudo, ntpdate and scp/ssh installed\n");
|
|---|
| 933 | pb_log(0, "You should then be able to login with ssh -p VMPORT root\@localhost (if VM started with pb)\n");
|
|---|
| 934 | } elsif ($action =~ /^setuprm$/) {
|
|---|
| 935 | pb_setup2v("rm");
|
|---|
| 936 | } elsif ($action =~ /^setupve$/) {
|
|---|
| 937 | pb_setup2v("ve");
|
|---|
| 938 | } elsif ($action =~ /^setupvm$/) {
|
|---|
| 939 | pb_setup2v("vm");
|
|---|
| 940 | } elsif ($action =~ /^sbx2setuprm$/) {
|
|---|
| 941 | die "This feature is limited to the pb project" if ($ENV{'PBPROJ'} ne $appname);
|
|---|
| 942 | pb_cms2build("SandBox");
|
|---|
| 943 | pb_setup2v("rm","SandBox");
|
|---|
| 944 | } elsif ($action =~ /^sbx2setupve$/) {
|
|---|
| 945 | die "This feature is limited to the pb project" if ($ENV{'PBPROJ'} ne $appname);
|
|---|
| 946 | pb_cms2build("SandBox");
|
|---|
| 947 | pb_setup2v("ve","SandBox");
|
|---|
| 948 | } elsif ($action =~ /^sbx2setupvm$/) {
|
|---|
| 949 | die "This feature is limited to the pb project" if ($ENV{'PBPROJ'} ne $appname);
|
|---|
| 950 | pb_cms2build("SandBox");
|
|---|
| 951 | pb_setup2v("vm","SandBox");
|
|---|
| 952 | } elsif ($action =~ /^build2setuprm$/) {
|
|---|
| 953 | die "This feature is limited to the pb project" if ($ENV{'PBPROJ'} ne $appname);
|
|---|
| 954 | pb_setup2v("rm","SandBox");
|
|---|
| 955 | } elsif ($action =~ /^build2setupve$/) {
|
|---|
| 956 | die "This feature is limited to the pb project" if ($ENV{'PBPROJ'} ne $appname);
|
|---|
| 957 | pb_setup2v("ve","SandBox");
|
|---|
| 958 | } elsif ($action =~ /^build2setupvm$/) {
|
|---|
| 959 | die "This feature is limited to the pb project" if ($ENV{'PBPROJ'} ne $appname);
|
|---|
| 960 | pb_setup2v("vm","SandBox");
|
|---|
| 961 | } elsif ($action =~ /^updaterm$/) {
|
|---|
| 962 | pb_update2v("rm");
|
|---|
| 963 | } elsif ($action =~ /^updateve$/) {
|
|---|
| 964 | pb_update2v("ve");
|
|---|
| 965 | } elsif ($action =~ /^updatevm$/) {
|
|---|
| 966 | pb_update2v("vm");
|
|---|
| 967 | } elsif ($action =~ /^snapve$/) {
|
|---|
| 968 | pb_snap2v("ve");
|
|---|
| 969 | } elsif ($action =~ /^snapvm$/) {
|
|---|
| 970 | pb_snap2v("vm");
|
|---|
| 971 | } elsif ($action =~ /^test2pkg$/) {
|
|---|
| 972 | pb_test2pkg();
|
|---|
| 973 | } elsif ($action =~ /^test2rm$/) {
|
|---|
| 974 | pb_build2v("rm","test");
|
|---|
| 975 | } elsif ($action =~ /^test2ve$/) {
|
|---|
| 976 | pb_build2v("ve","test");
|
|---|
| 977 | } elsif ($action =~ /^test2vm$/) {
|
|---|
| 978 | pb_build2v("vm","test");
|
|---|
| 979 | } elsif ($action =~ /^newproj$/) {
|
|---|
| 980 | # Nothing to do - already done in pb_env_init
|
|---|
| 981 | } elsif ($action =~ /^getconf$/) {
|
|---|
| 982 | my $pbos = pb_distro_get_context($ENV{'PBV'});
|
|---|
| 983 | pb_log(1,"Arguments to print:".Dumper(@ARGV)."\n");
|
|---|
| 984 | pb_distro_conf_print($pbos,@ARGV);
|
|---|
| 985 | } elsif ($action =~ /^clean$/) {
|
|---|
| 986 | pb_clean();
|
|---|
| 987 | } elsif ($action =~ /^announce$/) {
|
|---|
| 988 | # For announce only. Require avoids the systematic load of these modules
|
|---|
| 989 | require DBI;
|
|---|
| 990 | require DBD::SQLite;
|
|---|
| 991 |
|
|---|
| 992 | pb_announce("Announce");
|
|---|
| 993 | } elsif ($action =~ /^cleanssh$/) {
|
|---|
| 994 | pb_announce("Clean");
|
|---|
| 995 | } elsif ($action =~ /^checkssh$/) {
|
|---|
| 996 | pb_announce("Check");
|
|---|
| 997 | } elsif ($action =~ /^checkps$/) {
|
|---|
| 998 | my ($ptr2) = pb_conf_get("vmcmd");
|
|---|
| 999 | my $vmcmd = $ptr2->{$ENV{'PBPROJ'}};
|
|---|
| 1000 | my ($vexist,$vmmport) = pb_check_ps($vmcmd,$ENV{'PBV'});
|
|---|
| 1001 | if (! $vexist) {
|
|---|
| 1002 | pb_log(0,"No VM found for $ENV{'PBV'}\n");
|
|---|
| 1003 | } else {
|
|---|
| 1004 | pb_log(0,"Found an existing VM for $ENV{'PBV'} PID: $vexist - SSH port: $vmmport\n");
|
|---|
| 1005 | }
|
|---|
| 1006 | } elsif ($action =~ /^sbx2webpkg$/) {
|
|---|
| 1007 | require DBI;
|
|---|
| 1008 | require DBD::SQLite;
|
|---|
| 1009 |
|
|---|
| 1010 | pb_cms2build("SandBox","Web");
|
|---|
| 1011 | } elsif ($action =~ /^sbx2webssh$/) {
|
|---|
| 1012 | require DBI;
|
|---|
| 1013 | require DBD::SQLite;
|
|---|
| 1014 |
|
|---|
| 1015 | pb_cms2build("SandBox","Web");
|
|---|
| 1016 | pb_send2target("Web");
|
|---|
| 1017 | } elsif ($action =~ /^cms2webpkg$/) {
|
|---|
| 1018 | require DBI;
|
|---|
| 1019 | require DBD::SQLite;
|
|---|
| 1020 |
|
|---|
| 1021 | pb_cms2build("CMS","Web");
|
|---|
| 1022 | } elsif ($action =~ /^cms2webssh$/) {
|
|---|
| 1023 | require DBI;
|
|---|
| 1024 | require DBD::SQLite;
|
|---|
| 1025 |
|
|---|
| 1026 | pb_cms2build("CMS","Web");
|
|---|
| 1027 | pb_send2target("Web");
|
|---|
| 1028 | } else {
|
|---|
| 1029 | pb_log(0,"\'$action\' is not available\n");
|
|---|
| 1030 | pb_syntax(-2,1);
|
|---|
| 1031 | }
|
|---|
| 1032 |
|
|---|
| 1033 | pb_exit();
|
|---|
| 1034 |
|
|---|
| 1035 | sub pb_cms2build {
|
|---|
| 1036 |
|
|---|
| 1037 | my $param = shift;
|
|---|
| 1038 | my $web = shift;
|
|---|
| 1039 |
|
|---|
| 1040 | my $pkg;
|
|---|
| 1041 | my @pkgs;
|
|---|
| 1042 | my $webdir;
|
|---|
| 1043 |
|
|---|
| 1044 | my %pkgs;
|
|---|
| 1045 | my $pb; # Structure to store conf info
|
|---|
| 1046 |
|
|---|
| 1047 | die "pb_cms2build requires a parameter: SandBox or CMS" if (not defined $param);
|
|---|
| 1048 |
|
|---|
| 1049 | # If Website, then pkg is only the website
|
|---|
| 1050 | if (defined $web) {
|
|---|
| 1051 | ($webdir) = pb_conf_get("webdir");
|
|---|
| 1052 | pb_log(2,"webdir: ".Dumper($webdir)."\n");
|
|---|
| 1053 | $pkgs[0] = $webdir->{$ENV{'PBPROJ'}};
|
|---|
| 1054 | $extpkgdir = $webdir;
|
|---|
| 1055 | pb_log(0,"Package: $pkgs[0]\n");
|
|---|
| 1056 | } else {
|
|---|
| 1057 | $pkg = pb_cms_get_pkg($defpkgdir,$extpkgdir);
|
|---|
| 1058 | @pkgs = @$pkg;
|
|---|
| 1059 | }
|
|---|
| 1060 |
|
|---|
| 1061 | my ($scheme, $uri) = pb_cms_init($pbinit,$param);
|
|---|
| 1062 |
|
|---|
| 1063 | # We need 2 lines here
|
|---|
| 1064 | my ($pkgv, $pkgt, $testver) = pb_conf_get_if("pkgver","pkgtag","testver");
|
|---|
| 1065 |
|
|---|
| 1066 | # declare packager and repo for filtering
|
|---|
| 1067 | my ($tmp1, $tmp2) = pb_conf_get("pbpackager","pbrepo");
|
|---|
| 1068 | $ENV{'PBPACKAGER'} = $tmp1->{$ENV{'PBPROJ'}};
|
|---|
| 1069 | $ENV{'PBREPO'} = $tmp2->{$ENV{'PBPROJ'}};
|
|---|
| 1070 | my ($delivery) = pb_conf_get_if("delivery");
|
|---|
| 1071 | $delivery->{$ENV{'PBPROJ'}} = "" if (not defined $delivery->{$ENV{'PBPROJ'}});
|
|---|
| 1072 |
|
|---|
| 1073 | # If we deal with a test dir, we want to keep the date in tar file and dir name
|
|---|
| 1074 | my $pbextdirpkg = "";
|
|---|
| 1075 | my $pbextdir = "";
|
|---|
| 1076 | if ((defined $testver) && (defined $testver->{$ENV{'PBPROJ'}}) && ($testver->{$ENV{'PBPROJ'}} =~ /true/i)) {
|
|---|
| 1077 | $pbextdirpkg = strftime("%Y%m%d%H%M%S", @date);
|
|---|
| 1078 | $pbextdir = ".0.".$pbextdirpkg;
|
|---|
| 1079 | }
|
|---|
| 1080 |
|
|---|
| 1081 | foreach my $pbpkg (@pkgs) {
|
|---|
| 1082 | $ENV{'PBPKG'} = $pbpkg;
|
|---|
| 1083 | $pbrev = $ENV{'PBREVISION'};
|
|---|
| 1084 |
|
|---|
| 1085 | if ((defined $pkgv) && (defined $pkgv->{$pbpkg})) {
|
|---|
| 1086 | $pbver = $pkgv->{$pbpkg};
|
|---|
| 1087 | } else {
|
|---|
| 1088 | $pbver = $ENV{'PBPROJVER'};
|
|---|
| 1089 | }
|
|---|
| 1090 | # If it's a test version, then build a tag to fit distributions need
|
|---|
| 1091 | if ((defined $testver) && (defined $testver->{$ENV{'PBPROJ'}}) && ($testver->{$ENV{'PBPROJ'}} =~ /true/i)) {
|
|---|
| 1092 | my $letter = "";
|
|---|
| 1093 | if ($scheme =~ /svn/) {
|
|---|
| 1094 | $letter = "s";
|
|---|
| 1095 | } elsif ($scheme =~ /cvs/) {
|
|---|
| 1096 | $letter = "c";
|
|---|
| 1097 | } elsif ($scheme =~ /svk/) {
|
|---|
| 1098 | $letter = "k";
|
|---|
| 1099 | } elsif ($scheme =~ /hg/) {
|
|---|
| 1100 | $letter = "h";
|
|---|
| 1101 | } elsif ($scheme =~ /git/) {
|
|---|
| 1102 | $letter = "g";
|
|---|
| 1103 | } else {
|
|---|
| 1104 | $letter = "f";
|
|---|
| 1105 | }
|
|---|
| 1106 | $pbtag = "0.$pbextdirpkg.$letter$pbrev";
|
|---|
| 1107 | $ENV{'PBPROJTAG'} = $pbtag;
|
|---|
| 1108 | } elsif ((defined $pkgt) && (defined $pkgt->{$pbpkg})) {
|
|---|
| 1109 | $pbtag = $pkgt->{$pbpkg};
|
|---|
| 1110 | } else {
|
|---|
| 1111 | $pbtag = $ENV{'PBPROJTAG'};
|
|---|
| 1112 | }
|
|---|
| 1113 |
|
|---|
| 1114 | pb_log(0,"\n");
|
|---|
| 1115 | pb_log(0,"Management of $pbpkg $pbver-$pbtag (rev $pbrev)\n");
|
|---|
| 1116 | die "Unable to get env var PBDESTDIR" if (not defined $ENV{'PBDESTDIR'});
|
|---|
| 1117 |
|
|---|
| 1118 | my $dest = "$ENV{'PBDESTDIR'}/$pbpkg-$pbver$pbextdir";
|
|---|
| 1119 | # Create the structure if needed
|
|---|
| 1120 | pb_mkdir_p($dest);
|
|---|
| 1121 | # Clean up dest if necessary. The export will recreate it
|
|---|
| 1122 | pb_rm_rf($dest) if (-d $dest);
|
|---|
| 1123 |
|
|---|
| 1124 | # Export CMS tree for the concerned package to dest
|
|---|
| 1125 | # And generate some additional files
|
|---|
| 1126 | $OUTPUT_AUTOFLUSH=1;
|
|---|
| 1127 |
|
|---|
| 1128 | # computes in which dir we have to work
|
|---|
| 1129 | my $dir = $defpkgdir->{$pbpkg};
|
|---|
| 1130 | $dir = $extpkgdir->{$pbpkg} if (not defined $dir);
|
|---|
| 1131 | $dir = $webdir->{$ENV{'PBPROJ'}} if (defined $web);
|
|---|
| 1132 | die "Variable \$dir not defined. Check the package name first.\nIf this is the one expected, please report to dev team with log of a verbose run and this info ".Dumper($defpkgdir,$extpkgdir,$webdir) if (not defined $dir);
|
|---|
| 1133 | pb_log(2,"def:".Dumper($defpkgdir)."ext: ".Dumper($extpkgdir)."dir: $dir\n");
|
|---|
| 1134 |
|
|---|
| 1135 | # Exporting content from CMS
|
|---|
| 1136 | my $sourcedir = undef;
|
|---|
| 1137 | my $sourceuri = $uri;
|
|---|
| 1138 | if ($param eq "SandBox") {
|
|---|
| 1139 | # Point to the local instance
|
|---|
| 1140 | $sourcedir = "$ENV{'PBDIR'}/$dir";
|
|---|
| 1141 | } else {
|
|---|
| 1142 | # Get it from a subdir of the URI with same version as localy but different root
|
|---|
| 1143 | # Only if using a real CMS
|
|---|
| 1144 | my ($scheme, $account, $host, $port, $path) = pb_get_uri($uri);
|
|---|
| 1145 | if (($scheme !~ /^file/) && ($scheme !~ /^(ht|f)tp/)) {
|
|---|
| 1146 | $sourceuri = "$ENV{'PBDIR'}/$dir";
|
|---|
| 1147 | $sourceuri =~ s|^$ENV{'PBPROJDIR'}/|$uri/|;
|
|---|
| 1148 | }
|
|---|
| 1149 | }
|
|---|
| 1150 | my $preserve = pb_vcs_export($sourceuri,$sourcedir,$dest);
|
|---|
| 1151 |
|
|---|
| 1152 | # Generated fake content for test versions to speed up stuff
|
|---|
| 1153 | my $chglog;
|
|---|
| 1154 |
|
|---|
| 1155 | # Get project info on authors and log file
|
|---|
| 1156 | # TODO: Make it CMS aware
|
|---|
| 1157 | $chglog = "$ENV{'PBROOTDIR'}/$pbpkg/pbcl";
|
|---|
| 1158 | $chglog = "$ENV{'PBROOTDIR'}/pbcl" if (! -f $chglog);
|
|---|
| 1159 | $chglog = undef if (! -f $chglog);
|
|---|
| 1160 |
|
|---|
| 1161 | # TODO: Make it CMS aware
|
|---|
| 1162 | my $authors = "$ENV{'PBROOTDIR'}/$pbpkg/pbauthors";
|
|---|
| 1163 | $authors = "$ENV{'PBROOTDIR'}/pbauthors" if (! -f $authors);
|
|---|
| 1164 | $authors = "/dev/null" if (! -f $authors);
|
|---|
| 1165 |
|
|---|
| 1166 | # Extract cms log history and store it
|
|---|
| 1167 | if ((defined $chglog) && (! -f "$dest/NEWS")) {
|
|---|
| 1168 | pb_log(2,"Generating NEWS file from $chglog\n");
|
|---|
| 1169 | copy($chglog,"$dest/NEWS") || die "Unable to create $dest/NEWS";
|
|---|
| 1170 | }
|
|---|
| 1171 | pb_cms_log($scheme,"$ENV{'PBDIR'}/$dir",$dest,$chglog,$authors,$testver);
|
|---|
| 1172 |
|
|---|
| 1173 | my %build;
|
|---|
| 1174 | # We want to at least build for the underlying distro
|
|---|
| 1175 | # except if a target was given, in which case we only build for it
|
|---|
| 1176 | # if -t was passed without target then build for the native distro.
|
|---|
| 1177 | my $pbos = pb_distro_get_context($pbtarget);
|
|---|
| 1178 | my $tmpl = pb_get_distros($pbos,$pbtarget);
|
|---|
| 1179 |
|
|---|
| 1180 | # Setup $pb structure to allow filtering later on, on files using that structure
|
|---|
| 1181 | $pb->{'tag'} = $pbtag;
|
|---|
| 1182 | $pb->{'rev'} = $pbrev;
|
|---|
| 1183 | $pb->{'ver'} = $pbver;
|
|---|
| 1184 | $pb->{'pkg'} = $pbpkg;
|
|---|
| 1185 | $pb->{'suf'} = $pbos->{'suffix'};
|
|---|
| 1186 | $pb->{'realpkg'} = $pbpkg;
|
|---|
| 1187 | $pb->{'date'} = $pbdate;
|
|---|
| 1188 | $pb->{'defpkgdir'} = $defpkgdir;
|
|---|
| 1189 | $pb->{'extpkgdir'} = $extpkgdir;
|
|---|
| 1190 | $pb->{'chglog'} = $chglog;
|
|---|
| 1191 | $pb->{'extdir'} = $pbextdir;
|
|---|
| 1192 | $pb->{'packager'} = $ENV{'PBPACKAGER'};
|
|---|
| 1193 | $pb->{'proj'} = $ENV{'PBPROJ'};
|
|---|
| 1194 | $pb->{'repo'} = "$ENV{'PBREPO'}/$delivery->{$ENV{'PBPROJ'}}";
|
|---|
| 1195 | $pb->{'patches'} = ();
|
|---|
| 1196 | $pb->{'sources'} = ();
|
|---|
| 1197 |
|
|---|
| 1198 | my $tmpd = "$ENV{'PBTMP'}/cms.$$";
|
|---|
| 1199 | pb_mkdir_p($tmpd) if (defined $pbparallel);
|
|---|
| 1200 |
|
|---|
| 1201 | # Get only all.pbf filter at this stage for pbinit
|
|---|
| 1202 | my $ptr = pb_get_filters($pbpkg);
|
|---|
| 1203 |
|
|---|
| 1204 | # Do not do that for website
|
|---|
| 1205 | if (not defined $web) {
|
|---|
| 1206 | my %virt;
|
|---|
| 1207 | # De-duplicate similar VM/VE/RM
|
|---|
| 1208 | foreach my $d (split(/,/,$tmpl)) {
|
|---|
| 1209 | # skip ill-formatted vms (name-ver-arch)
|
|---|
| 1210 | next if ($d !~ /-/);
|
|---|
| 1211 | $virt{$d} = $d;
|
|---|
| 1212 | }
|
|---|
| 1213 |
|
|---|
| 1214 | # Try to use // processing here
|
|---|
| 1215 | my $all_ok = 1;
|
|---|
| 1216 | my $pm = new Parallel::ForkManager($pbparallel) if (defined $pbparallel);
|
|---|
| 1217 | $pm->run_on_finish(sub { my ($pid, $code, $id, $signal, $dump) = @_;
|
|---|
| 1218 | $all_ok = 0 unless (($code == 0) && ($signal == 0) && ($dump == 0)); }) if (defined $pbparallel);
|
|---|
| 1219 |
|
|---|
| 1220 | pb_log(0,"Preparing delivery ...\n");
|
|---|
| 1221 | foreach my $v (keys %virt) {
|
|---|
| 1222 | $pm->start and next if (defined $pbparallel);
|
|---|
| 1223 |
|
|---|
| 1224 | # Distro context
|
|---|
| 1225 | my $pbos = pb_distro_get_context($v);
|
|---|
| 1226 |
|
|---|
| 1227 | $pb->{'pbos'} = $pbos;
|
|---|
| 1228 | $pb->{'suf'} = $pbos->{'suffix'};
|
|---|
| 1229 | pb_log(3,"DEBUG: pb: ".Dumper($pb)."\n");
|
|---|
| 1230 |
|
|---|
| 1231 | # Get all filters to apply
|
|---|
| 1232 | $ptr = pb_get_filters($pbpkg,$pbos);
|
|---|
| 1233 |
|
|---|
| 1234 | pb_log(2,"DEBUG Filtering PBDATE => $pbdate, PBTAG => $pbtag, PBVER => $pbver\n");
|
|---|
| 1235 |
|
|---|
| 1236 | # We need to compute the real name of the package
|
|---|
| 1237 | my $pbrealpkg = pb_cms_get_real_pkg($pbpkg,$pbos->{'type'});
|
|---|
| 1238 | $pb->{'realpkg'} = $pbrealpkg;
|
|---|
| 1239 | pb_log(1,"Virtual package $pbpkg has a real package name of $pbrealpkg on $pbos->{'name'}-$pbos->{'version'}\n") if ($pbrealpkg ne $pbpkg);
|
|---|
| 1240 |
|
|---|
| 1241 | # Filter build files from the less precise up to the most with overloading
|
|---|
| 1242 | # Filter all files found, keeping the name, and generating in dest
|
|---|
| 1243 |
|
|---|
| 1244 | # Find all build files first relatively to PBROOTDIR
|
|---|
| 1245 | # Find also all specific files referenced in the .pb conf file
|
|---|
| 1246 | my %bfiles = ();
|
|---|
| 1247 | my %pkgfiles = ();
|
|---|
| 1248 | # Used in Filter.pm by pb_filter_file
|
|---|
| 1249 |
|
|---|
| 1250 | $build{$v} = "no";
|
|---|
| 1251 | if (-d "$ENV{'PBROOTDIR'}/$pbpkg/$pbos->{'os'}") {
|
|---|
| 1252 | pb_list_bfiles("$ENV{'PBROOTDIR'}/$pbpkg/$pbos->{'os'}",$pbpkg,\%bfiles,\%pkgfiles,$supfiles);
|
|---|
| 1253 | $build{$v} = "yes";
|
|---|
| 1254 | }
|
|---|
| 1255 | if (-d "$ENV{'PBROOTDIR'}/$pbpkg/$pbos->{'type'}") {
|
|---|
| 1256 | pb_list_bfiles("$ENV{'PBROOTDIR'}/$pbpkg/$pbos->{'type'}",$pbpkg,\%bfiles,\%pkgfiles,$supfiles);
|
|---|
| 1257 | $build{$v} = "yes";
|
|---|
| 1258 | }
|
|---|
| 1259 | if (-d "$ENV{'PBROOTDIR'}/$pbpkg/$pbos->{'family'}") {
|
|---|
| 1260 | pb_list_bfiles("$ENV{'PBROOTDIR'}/$pbpkg/$pbos->{'family'}",$pbpkg,\%bfiles,\%pkgfiles,$supfiles);
|
|---|
| 1261 | $build{$v} = "yes";
|
|---|
| 1262 | }
|
|---|
| 1263 | if (-d "$ENV{'PBROOTDIR'}/$pbpkg/$pbos->{'name'}") {
|
|---|
| 1264 | pb_list_bfiles("$ENV{'PBROOTDIR'}/$pbpkg/$pbos->{'name'}",$pbpkg,\%bfiles,\%pkgfiles,$supfiles);
|
|---|
| 1265 | $build{$v} = "yes";
|
|---|
| 1266 | }
|
|---|
| 1267 | if (-d "$ENV{'PBROOTDIR'}/$pbpkg/$pbos->{'name'}-$pbos->{'version'}") {
|
|---|
| 1268 | pb_list_bfiles("$ENV{'PBROOTDIR'}/$pbpkg/$pbos->{'name'}-$pbos->{'version'}",$pbpkg,\%bfiles,\%pkgfiles,$supfiles);
|
|---|
| 1269 | $build{$v} = "yes";
|
|---|
| 1270 | }
|
|---|
| 1271 | if (-d "$ENV{'PBROOTDIR'}/$pbpkg/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}") {
|
|---|
| 1272 | pb_list_bfiles("$ENV{'PBROOTDIR'}/$pbpkg/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}",$pbpkg,\%bfiles,\%pkgfiles,$supfiles);
|
|---|
| 1273 | $build{$v} = "yes";
|
|---|
| 1274 | }
|
|---|
| 1275 | pb_log(2,"DEBUG($v) bfiles: ".Dumper(\%bfiles)."\n");
|
|---|
| 1276 |
|
|---|
| 1277 | if ($build{$v} ne "no") {
|
|---|
| 1278 | # Apply now all the filters on all the files concerned
|
|---|
| 1279 | # destination dir depends on the type of file
|
|---|
| 1280 | # For patch support
|
|---|
| 1281 | # TODO: Make it CMS aware
|
|---|
| 1282 | $pb->{'patches'} = pb_list_sfiles("$ENV{'PBROOTDIR'}/$pbpkg/pbpatch", $pb->{'patches'}, $pbos, "$ENV{'PBROOTDIR'}/$pbpkg/pbextpatch");
|
|---|
| 1283 | pb_log(2,"DEBUG($v) patches: ".Dumper($pb->{'patches'})."\n");
|
|---|
| 1284 | # TODO: Make it CMS aware
|
|---|
| 1285 | $pb->{'sources'} = pb_list_sfiles("$ENV{'PBROOTDIR'}/$pbpkg/pbsrc", $pb->{'sources'}, $pbos, "$ENV{'PBROOTDIR'}/$pbpkg/pbextsrc");
|
|---|
| 1286 | pb_log(2,"DEBUG($v) sources: ".Dumper($pb->{'sources'})."\n");
|
|---|
| 1287 |
|
|---|
| 1288 | if (defined $pb->{'patches'}->{$v}) {
|
|---|
| 1289 | # Filter potential patches (local + remote)
|
|---|
| 1290 | pb_mkdir_p("$dest/pbconf/$v/pbpatch");
|
|---|
| 1291 | # If Debian based distribution, then prepare what will be done at build time
|
|---|
| 1292 | my ($patchcmd,$patchopt);
|
|---|
| 1293 | if ($pbos->{'type'} eq "deb") {
|
|---|
| 1294 | ($patchcmd,$patchopt) = pb_distro_get_param($pbos,pb_conf_get_if("ospatchcmd","ospatchopt"));
|
|---|
| 1295 | open(SCRIPT,"> $dest/pbconf/$v/pbpatch/pbapplypatch") || die "Unable to create $dest/pbconf/$v/pbpatch/pbapplypatch";
|
|---|
| 1296 | print SCRIPT "#!/bin/bash\n";
|
|---|
| 1297 | print SCRIPT "set -x\n" if ($pbdebug gt 1);
|
|---|
| 1298 | }
|
|---|
| 1299 | foreach my $pf (split(/,/,$pb->{'patches'}->{$v})) {
|
|---|
| 1300 | my $pp = basename($pf);
|
|---|
| 1301 | pb_vcs_export($pf,undef,"$dest/pbconf/$v/pbpatch");
|
|---|
| 1302 | pb_filter_file_inplace($ptr,"$dest/pbconf/$v/pbpatch/$pp",$pb);
|
|---|
| 1303 | pb_system("gzip -9f $dest/pbconf/$v/pbpatch/$pp","","quiet");
|
|---|
| 1304 | if ($pbos->{'type'} eq "deb") {
|
|---|
| 1305 | # If Debian based distribution, then prepare what will be done at build time
|
|---|
| 1306 | # by applying the patches that will be available under the debian/patches dir
|
|---|
| 1307 | print SCRIPT "$patchcmd $patchopt \< debian/patches/$pp\n";
|
|---|
| 1308 | }
|
|---|
| 1309 | }
|
|---|
| 1310 | if ($pbos->{'type'} eq "deb") {
|
|---|
| 1311 | close(SCRIPT);
|
|---|
| 1312 | chmod 0755,"$dest/pbconf/$v/pbpatch/pbapplypatch";
|
|---|
| 1313 | }
|
|---|
| 1314 | #pb_system("cat $dest/pbconf/$v/pbpatch/pbapplypatch","APPLY","verbose");
|
|---|
| 1315 | }
|
|---|
| 1316 | if (defined $pb->{'sources'}->{$v}) {
|
|---|
| 1317 | pb_mkdir_p("$dest/pbconf/$v/pbsrc");
|
|---|
| 1318 | foreach my $pf (split(/,/,$pb->{'sources'}->{$v})) {
|
|---|
| 1319 | my $pp = basename($pf);
|
|---|
| 1320 | pb_vcs_export($pf,undef,"$dest/pbconf/$v/pbsrc");
|
|---|
| 1321 | pb_filter_file_inplace($ptr,"$dest/pbconf/$v/pbsrc/$pp",$pb);
|
|---|
| 1322 | }
|
|---|
| 1323 | }
|
|---|
| 1324 | # Filter build files at the end, as they depend on patches and sources
|
|---|
| 1325 | foreach my $f (keys %bfiles) {
|
|---|
| 1326 | pb_filter_file("$ENV{'PBROOTDIR'}/$bfiles{$f}",$ptr,"$dest/pbconf/$v/$f",$pb);
|
|---|
| 1327 | }
|
|---|
| 1328 | foreach my $f (keys %pkgfiles) {
|
|---|
| 1329 | pb_filter_file("$ENV{'PBROOTDIR'}/$pkgfiles{$f}",$ptr,"$dest/pbconf/$v/$f",$pb);
|
|---|
| 1330 | }
|
|---|
| 1331 | }
|
|---|
| 1332 |
|
|---|
| 1333 | if (defined $pbparallel) {
|
|---|
| 1334 | # Communicate results back to parent
|
|---|
| 1335 | my $str = "";
|
|---|
| 1336 | $str .= "build $v = $build{$v}\n" if (defined $build{$v});
|
|---|
| 1337 | $str .= "patches $v = $pb->{'patches'}->{$v}\n" if (defined $pb->{'patches'}->{$v});
|
|---|
| 1338 | $str .= "sources $v = $pb->{'sources'}->{$v}\n" if (defined $pb->{'sources'}->{$v});
|
|---|
| 1339 | pb_set_content("$tmpd/$$","$str");
|
|---|
| 1340 | $pm->finish;
|
|---|
| 1341 | }
|
|---|
| 1342 | }
|
|---|
| 1343 | # In the parent, we need to get the result from the children
|
|---|
| 1344 | $pm->wait_all_children if (defined $pbparallel);
|
|---|
| 1345 | die "Aborting, one or more of the children failed." if ((not $all_ok) && ($Global::pb_stop_on_error));
|
|---|
| 1346 | my $made = "";
|
|---|
| 1347 | my %h = ();
|
|---|
| 1348 | my %tmp;
|
|---|
| 1349 | my %tmp2;
|
|---|
| 1350 | my $pt;
|
|---|
| 1351 | my $k;
|
|---|
| 1352 |
|
|---|
| 1353 | foreach $k (<$tmpd/*>) {
|
|---|
| 1354 | $made .= pb_get_content($k);
|
|---|
| 1355 | }
|
|---|
| 1356 | pb_rm_rf($tmpd);
|
|---|
| 1357 | pb_log(3,"MADE:\n$made");
|
|---|
| 1358 |
|
|---|
| 1359 | # Rebuild local hashes
|
|---|
| 1360 | foreach $k (split(/\n/,$made)) {
|
|---|
| 1361 | if ($k =~ /^\s*([A-z0-9-_]+)\s+([[A-z0-9-_.]+)\s*=\s*(.+)$/) {
|
|---|
| 1362 | $h{$1}->{$2}=$3;
|
|---|
| 1363 | }
|
|---|
| 1364 | }
|
|---|
| 1365 | pb_log(2,"HASH: ".Dumper(%h));
|
|---|
| 1366 |
|
|---|
| 1367 | # Patches
|
|---|
| 1368 | pb_log(0,"Delivered and compressed patches ");
|
|---|
| 1369 | $pt = $h{'patches'};
|
|---|
| 1370 | foreach $k (keys %$pt) {
|
|---|
| 1371 | foreach my $v1 (split(/,/,$pt->{$k})) {
|
|---|
| 1372 | $tmp{$v1} = "";
|
|---|
| 1373 | }
|
|---|
| 1374 | }
|
|---|
| 1375 | if (keys %tmp) {
|
|---|
| 1376 | foreach $k (keys %tmp) {
|
|---|
| 1377 | pb_log(0,"$k ");
|
|---|
| 1378 | }
|
|---|
| 1379 | } else {
|
|---|
| 1380 | pb_log(0,"N/A");
|
|---|
| 1381 | }
|
|---|
| 1382 | pb_log(0,"\n");
|
|---|
| 1383 |
|
|---|
| 1384 | # Sources
|
|---|
| 1385 | pb_log(0,"Delivered additional sources ");
|
|---|
| 1386 | $pt = $h{'sources'};
|
|---|
| 1387 | foreach $k (keys %$pt) {
|
|---|
| 1388 | foreach my $v1 (split(/,/,$pt->{$k})) {
|
|---|
| 1389 | $tmp2{$v1} = "";
|
|---|
| 1390 | }
|
|---|
| 1391 | }
|
|---|
| 1392 | if (keys %tmp2) {
|
|---|
| 1393 | foreach $k (keys %tmp2) {
|
|---|
| 1394 | pb_log(0,"$k ");
|
|---|
| 1395 | }
|
|---|
| 1396 | } else {
|
|---|
| 1397 | pb_log(0,"N/A");
|
|---|
| 1398 | }
|
|---|
| 1399 | pb_log(0,"\n");
|
|---|
| 1400 |
|
|---|
| 1401 | # Build files
|
|---|
| 1402 | my @found;
|
|---|
| 1403 | my @notfound;
|
|---|
| 1404 | $pt = $h{'build'};
|
|---|
| 1405 | foreach my $b (keys %$pt) {
|
|---|
| 1406 | push @found,$b if ($pt->{$b} =~ /yes/);
|
|---|
| 1407 | push @notfound,$b if ($pt->{$b} =~ /no/);
|
|---|
| 1408 | }
|
|---|
| 1409 | pb_log(0,"Build files have been generated for ... ".join(',',sort(@found))."\n") if (@found);
|
|---|
| 1410 | pb_log(0,"No Build files found for ".join(',',sort(@notfound))."\n") if (@notfound);
|
|---|
| 1411 |
|
|---|
| 1412 | } else {
|
|---|
| 1413 | # Instead call News generation
|
|---|
| 1414 | pb_web_news2html($dest);
|
|---|
| 1415 | # And create an empty pbconf
|
|---|
| 1416 | pb_mkdir_p("$dest/pbconf");
|
|---|
| 1417 | # And prepare the pbscript to execute remotely
|
|---|
| 1418 | open(SCRIPT,"> $ENV{'PBTMP'}/pbscript") || die "Unable to create $ENV{'PBTMP'}/pbscript";
|
|---|
| 1419 | print SCRIPT "#!/bin/bash\n";
|
|---|
| 1420 | print SCRIPT "#set -x\n";
|
|---|
| 1421 | print SCRIPT "echo ... Extracting Website content\n";
|
|---|
| 1422 | print SCRIPT "find . -type f | grep -Ev '^./$pbpkg-$pbver$pbextdir.tar.gz|^./pbscript' | xargs rm -f non-existent\n";
|
|---|
| 1423 | print SCRIPT "find * -type d -depth | xargs rmdir 2> /dev/null \n";
|
|---|
| 1424 | print SCRIPT "tar xfz $pbpkg-$pbver$pbextdir.tar.gz\n";
|
|---|
| 1425 | print SCRIPT "mv $pbpkg-$pbver$pbextdir/* .\n";
|
|---|
| 1426 | print SCRIPT "rm -f $pbpkg-$pbver$pbextdir.tar.gz\n";
|
|---|
| 1427 | print SCRIPT "rmdir $pbpkg-$pbver$pbextdir\n";
|
|---|
| 1428 | print SCRIPT "find . -type f -print0 | xargs -0 chmod 644\n";
|
|---|
| 1429 | print SCRIPT "find . -type d -print0 | xargs -0 chmod 755\n";
|
|---|
| 1430 | close(SCRIPT);
|
|---|
| 1431 | chmod 0755,"$ENV{'PBTMP'}/pbscript";
|
|---|
| 1432 | }
|
|---|
| 1433 |
|
|---|
| 1434 | # Apply filters to the non-build files
|
|---|
| 1435 | my $liste ="";
|
|---|
| 1436 | if (defined $filteredfiles->{$pbpkg}) {
|
|---|
| 1437 | foreach my $f (split(/,/,$filteredfiles->{$pbpkg})) {
|
|---|
| 1438 | pb_filter_file_inplace($ptr,"$dest/$f",$pb);
|
|---|
| 1439 | $liste = "$f $liste";
|
|---|
| 1440 | }
|
|---|
| 1441 | }
|
|---|
| 1442 | pb_log(2,"Files ".$liste."have been filtered\n");
|
|---|
| 1443 |
|
|---|
| 1444 | # TODO: Make it CMS aware
|
|---|
| 1445 | # Execute the pbinit script if any
|
|---|
| 1446 | if (-x "$ENV{'PBROOTDIR'}/$pbpkg/pbinit") {
|
|---|
| 1447 | pb_filter_file("$ENV{'PBROOTDIR'}/$pbpkg/pbinit",$ptr,"$ENV{'PBTMP'}/pbinit",$pb);
|
|---|
| 1448 | chmod 0755,"$ENV{'PBTMP'}/pbinit";
|
|---|
| 1449 | pb_system("cd $dest ; $ENV{'PBTMP'}/pbinit","Executing init script from $ENV{'PBROOTDIR'}/$pbpkg/pbinit under $dest","verbose");
|
|---|
| 1450 | }
|
|---|
| 1451 |
|
|---|
| 1452 | # Do we have additional script to run to prepare the environement for the project ?
|
|---|
| 1453 | # Then include it in the pbconf delivery
|
|---|
| 1454 | foreach my $pbvf (<$ENV{'PBROOTDIR'}/pbv*.pre>,<$ENV{'PBROOTDIR'}/pbv*.post>, <$ENV{'PBROOTDIR'}/pbtest*>) {
|
|---|
| 1455 | if (-x "$pbvf") {
|
|---|
| 1456 | my $target = "$ENV{'PBDESTDIR'}/".basename($pbvf);
|
|---|
| 1457 | pb_filter_file("$pbvf",$ptr,$target,$pb);
|
|---|
| 1458 | chmod 0755,"$target";
|
|---|
| 1459 | }
|
|---|
| 1460 | }
|
|---|
| 1461 |
|
|---|
| 1462 | # Prepare the dest directory for archive
|
|---|
| 1463 | chdir "$ENV{'PBDESTDIR'}" || die "Unable to change dir to $ENV{'PBDESTDIR'}";
|
|---|
| 1464 | if (defined $preserve) {
|
|---|
| 1465 | # In that case we want to preserve the original tar file for checksum purposes
|
|---|
| 1466 | # The one created is btw equivalent in that case to this one
|
|---|
| 1467 | # Maybe check basename of both to be sure they are the same ?
|
|---|
| 1468 | pb_log(0,"Preserving original tar file ");
|
|---|
| 1469 | move("$preserve","$pbpkg-$pbver$pbextdir.tar.gz");
|
|---|
| 1470 | } else {
|
|---|
| 1471 | # Possibility to look at PBSRC to guess more the filename
|
|---|
| 1472 | pb_system("tar cfz $pbpkg-$pbver$pbextdir.tar.gz --exclude=$pbpkg-$pbver$pbextdir/pbconf $pbpkg-$pbver$pbextdir","Creating $pbpkg tar files compressed");
|
|---|
| 1473 | }
|
|---|
| 1474 | pb_log(0,"Under $ENV{'PBDESTDIR'}/$pbpkg-$pbver$pbextdir.tar.gz\n");
|
|---|
| 1475 | pb_system("tar cfz $pbpkg-$pbver$pbextdir.pbconf.tar.gz $pbpkg-$pbver$pbextdir/pbconf","Creating pbconf tar files compressed");
|
|---|
| 1476 | pb_log(0,"Under $ENV{'PBDESTDIR'}/$pbpkg-$pbver$pbextdir.pbconf.tar.gz\n");
|
|---|
| 1477 |
|
|---|
| 1478 | # Keep track of version-tag per pkg
|
|---|
| 1479 | $pkgs{$pbpkg} = "$pbver-$pbtag";
|
|---|
| 1480 |
|
|---|
| 1481 | # Final cleanup
|
|---|
| 1482 | pb_rm_rf($dest) if (-d $dest);
|
|---|
| 1483 | }
|
|---|
| 1484 |
|
|---|
| 1485 | # Keep track of per package version
|
|---|
| 1486 | pb_log(2,"DEBUG pkgs: ".Dumper(%pkgs)."\n");
|
|---|
| 1487 | open(PKG,"> $ENV{'PBDESTDIR'}/$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}.pb") || die "Unable to create $ENV{'PBDESTDIR'}/$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}.pb";
|
|---|
| 1488 | foreach my $pbpkg (keys %pkgs) {
|
|---|
| 1489 | print PKG "pbpkg $pbpkg = $pkgs{$pbpkg}\n";
|
|---|
| 1490 | }
|
|---|
| 1491 | close(PKG);
|
|---|
| 1492 |
|
|---|
| 1493 | # Keep track of what is generated by default
|
|---|
| 1494 | # We need to store the dir and info on version-tag
|
|---|
| 1495 | # Base our content on the existing .pb file
|
|---|
| 1496 | copy("$ENV{'PBROOTDIR'}/$ENV{'PBPROJ'}.pb","$ENV{'PBDESTDIR'}/pbrc");
|
|---|
| 1497 | open(LAST,">> $ENV{'PBDESTDIR'}/pbrc") || die "Unable to create $ENV{'PBDESTDIR'}/pbrc";
|
|---|
| 1498 | print LAST "pbroot $ENV{'PBPROJ'} = $ENV{'PBROOTDIR'}\n";
|
|---|
| 1499 | print LAST "projver $ENV{'PBPROJ'} = $ENV{'PBPROJVER'}\n";
|
|---|
| 1500 | print LAST "projtag $ENV{'PBPROJ'} = $ENV{'PBPROJTAG'}\n";
|
|---|
| 1501 | print LAST "pbpackager $ENV{'PBPROJ'} = $ENV{'PBPACKAGER'}\n";
|
|---|
| 1502 | print LAST "pbextdir $ENV{'PBPROJ'} = $pbextdir\n";
|
|---|
| 1503 | close(LAST);
|
|---|
| 1504 | }
|
|---|
| 1505 |
|
|---|
| 1506 | sub pb_test2pkg {
|
|---|
| 1507 | # Get the running distro to test on
|
|---|
| 1508 | my $pbos = pb_distro_get_context();
|
|---|
| 1509 |
|
|---|
| 1510 | # Get list of packages to test
|
|---|
| 1511 | # Get content saved in cms2build
|
|---|
| 1512 | my $ptr = pb_get_pkg();
|
|---|
| 1513 | @pkgs = @$ptr;
|
|---|
| 1514 |
|
|---|
| 1515 | # Additional potential repo
|
|---|
| 1516 | pb_distro_setuprepo($pbos);
|
|---|
| 1517 | foreach my $pbpkg (@pkgs) {
|
|---|
| 1518 | # We need to install the package to test, and deps brought with it
|
|---|
| 1519 | pb_distro_installdeps(undef,$pbos,$pbpkg);
|
|---|
| 1520 | pb_system("$ENV{'PBDESTDIR'}/pbtest","Launching test for $pbpkg","verbose");
|
|---|
| 1521 | }
|
|---|
| 1522 | }
|
|---|
| 1523 |
|
|---|
| 1524 | sub pb_build2prep {
|
|---|
| 1525 |
|
|---|
| 1526 | pb_log(0,"INFO: ------ Starting to prepare build environement ------\n");
|
|---|
| 1527 |
|
|---|
| 1528 | # Get the running distro to build on
|
|---|
| 1529 | my $pbos = pb_distro_get_context();
|
|---|
| 1530 |
|
|---|
| 1531 | # If needed we may add repository to the build env
|
|---|
| 1532 | pb_distro_setuprepo($pbos);
|
|---|
| 1533 |
|
|---|
| 1534 | # Get list of packages to build
|
|---|
| 1535 | my $ptr = pb_get_pkg();
|
|---|
| 1536 | @pkgs = @$ptr;
|
|---|
| 1537 |
|
|---|
| 1538 | # Get content saved in cms2build
|
|---|
| 1539 | my ($pkg) = pb_conf_read("$ENV{'PBDESTDIR'}/$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}.pb","pbpkg");
|
|---|
| 1540 | $pkg = { } if (not defined $pkg);
|
|---|
| 1541 | my $pbextdir = pb_get_extdir();
|
|---|
| 1542 |
|
|---|
| 1543 | foreach my $pbpkg (@pkgs) {
|
|---|
| 1544 | my $vertag = $pkg->{$pbpkg};
|
|---|
| 1545 | my @buildfiles;
|
|---|
| 1546 | pb_log(2,"Vertag: $vertag\n");
|
|---|
| 1547 | # get the version of the current package - maybe different
|
|---|
| 1548 | ($pbver,$pbtag) = split(/-/,$vertag);
|
|---|
| 1549 |
|
|---|
| 1550 | my $src2="$ENV{'PBDESTDIR'}/$pbpkg-$pbver$pbextdir.pbconf.tar.gz";
|
|---|
| 1551 | pb_log(2,"Pbconf file: $src2\n");
|
|---|
| 1552 | pb_log(2,"Working directory: $ENV{'PBBUILDDIR'}\n");
|
|---|
| 1553 |
|
|---|
| 1554 | my $ftype;
|
|---|
| 1555 | if ($pbos->{'type'} eq "rpm") {
|
|---|
| 1556 | $ftype = "\.spec\$";
|
|---|
| 1557 | } elsif ($pbos->{'type'} eq "deb") {
|
|---|
| 1558 | $ftype = "\/control\$";
|
|---|
| 1559 | } elsif ($pbos->{'type'} eq "ebuild") {
|
|---|
| 1560 | $ftype = "\.ebuild\$";
|
|---|
| 1561 | } elsif ($pbos->{'type'} eq "tgz") {
|
|---|
| 1562 | $ftype = "\/pbslack\$";
|
|---|
| 1563 | } elsif ($pbos->{'type'} eq "pkg") {
|
|---|
| 1564 | # Solaris - no deps management up to Solaris 10
|
|---|
| 1565 | } elsif ($pbos->{'type'} eq "hpux") {
|
|---|
| 1566 | # TODO: HP-UX
|
|---|
| 1567 | } else {
|
|---|
| 1568 | die "Unknown OS type format $pbos->{'type'}";
|
|---|
| 1569 | }
|
|---|
| 1570 |
|
|---|
| 1571 | @buildfiles = pb_extract_build_files($src2,"$pbpkg-$pbver$pbextdir/pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/","$ENV{'PBTMP'}","spec");
|
|---|
| 1572 | pb_log(2,"buildfiles ".Dumper(\@buildfiles)."\n");
|
|---|
| 1573 | foreach my $f (@buildfiles) {
|
|---|
| 1574 | if ($f =~ /$ftype/) {
|
|---|
| 1575 | pb_distro_installdeps($f,$pbos);
|
|---|
| 1576 | last;
|
|---|
| 1577 | }
|
|---|
| 1578 | }
|
|---|
| 1579 | }
|
|---|
| 1580 | pb_log(0,"INFO: ------ Finished preparing build environment ------\n");
|
|---|
| 1581 | }
|
|---|
| 1582 |
|
|---|
| 1583 | sub pb_build2pkg {
|
|---|
| 1584 |
|
|---|
| 1585 | my $do_install = shift;
|
|---|
| 1586 |
|
|---|
| 1587 | pb_log(0,"INFO: ------ Starting to build package ------\n");
|
|---|
| 1588 | # Get the running distro to build on
|
|---|
| 1589 | my $pbos = pb_distro_get_context();
|
|---|
| 1590 |
|
|---|
| 1591 | # Get list of packages to build
|
|---|
| 1592 | my $ptr = pb_get_pkg();
|
|---|
| 1593 | @pkgs = @$ptr;
|
|---|
| 1594 |
|
|---|
| 1595 | # Get content saved in cms2build
|
|---|
| 1596 | my ($pkg) = pb_conf_read("$ENV{'PBDESTDIR'}/$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}.pb","pbpkg");
|
|---|
| 1597 | $pkg = { } if (not defined $pkg);
|
|---|
| 1598 | my $pbextdir = pb_get_extdir();
|
|---|
| 1599 |
|
|---|
| 1600 | pb_mkdir_p("$ENV{'PBBUILDDIR'}") if (! -d "$ENV{'PBBUILDDIR'}");
|
|---|
| 1601 | chdir "$ENV{'PBBUILDDIR'}" || die "Unable to chdir to $ENV{'PBBUILDDIR'}";
|
|---|
| 1602 | my $made = ""; # pkgs made during build
|
|---|
| 1603 | my $pm;
|
|---|
| 1604 | my $all_ok = 1;
|
|---|
| 1605 |
|
|---|
| 1606 | if (defined $pbparallel) {
|
|---|
| 1607 | $pm = new Parallel::ForkManager($pbparallel);
|
|---|
| 1608 | $pm->run_on_finish(sub { my ($pid, $code, $id, $signal, $dump) = @_;
|
|---|
| 1609 | $all_ok = 0 unless (($code == 0) && ($signal == 0) && ($dump == 0)); });
|
|---|
| 1610 | }
|
|---|
| 1611 |
|
|---|
| 1612 | # We need to communicate info back from the children if parallel so prepare a dir for that
|
|---|
| 1613 | my $tmpd = "$ENV{'PBTMP'}/build.$$";
|
|---|
| 1614 | pb_mkdir_p($tmpd) if (defined $pbparallel);
|
|---|
| 1615 |
|
|---|
| 1616 | # Do it here as this doesn't work in // mode as it dies if it fails
|
|---|
| 1617 | if ($pbos->{'type'} eq "rpm") {
|
|---|
| 1618 | foreach my $d ('RPMS','SRPMS','SPECS','SOURCES','BUILD') {
|
|---|
| 1619 | if (! -d "$ENV{'PBBUILDDIR'}/$d") {
|
|---|
| 1620 | pb_mkdir_p("$ENV{'PBBUILDDIR'}/$d");
|
|---|
| 1621 | }
|
|---|
| 1622 | }
|
|---|
| 1623 | }
|
|---|
| 1624 |
|
|---|
| 1625 | foreach my $pbpkg (@pkgs) {
|
|---|
| 1626 | $pm->start and next if (defined $pbparallel);
|
|---|
| 1627 |
|
|---|
| 1628 | my $vertag = $pkg->{$pbpkg};
|
|---|
| 1629 | pb_log(2,"Vertag: $vertag\n");
|
|---|
| 1630 | # get the version of the current package - maybe different
|
|---|
| 1631 | ($pbver,$pbtag) = split(/-/,$vertag);
|
|---|
| 1632 |
|
|---|
| 1633 | my $src="$ENV{'PBDESTDIR'}/$pbpkg-$pbver$pbextdir.tar.gz";
|
|---|
| 1634 | my $src2="$ENV{'PBDESTDIR'}/$pbpkg-$pbver$pbextdir.pbconf.tar.gz";
|
|---|
| 1635 | pb_log(2,"Source file: $src\n");
|
|---|
| 1636 | pb_log(2,"Pbconf file: $src2\n");
|
|---|
| 1637 |
|
|---|
| 1638 | pb_log(2,"Working directory: $ENV{'PBBUILDDIR'}\n");
|
|---|
| 1639 | if ($pbos->{'type'} eq "rpm") {
|
|---|
| 1640 | # Remove in case a previous link/file was there
|
|---|
| 1641 | unlink "$ENV{'PBBUILDDIR'}/SOURCES/".basename($src);
|
|---|
| 1642 | symlink "$src","$ENV{'PBBUILDDIR'}/SOURCES/".basename($src) || die "Unable to symlink $src in $ENV{'PBBUILDDIR'}/SOURCES";
|
|---|
| 1643 | # We need to first extract the spec file
|
|---|
| 1644 | my @specfile = pb_extract_build_files($src2,"$pbpkg-$pbver$pbextdir/pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/","$ENV{'PBBUILDDIR'}/SPECS","spec");
|
|---|
| 1645 |
|
|---|
| 1646 | # We need to handle potential patches to upstream sources
|
|---|
| 1647 | pb_extract_build_files($src2,"$pbpkg-$pbver$pbextdir/pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/pbpatch/","$ENV{'PBBUILDDIR'}/SOURCES","patch");
|
|---|
| 1648 |
|
|---|
| 1649 | # We need to handle potential additional sources to upstream sources
|
|---|
| 1650 | pb_extract_build_files($src2,"$pbpkg-$pbver$pbextdir/pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/pbsrc/","$ENV{'PBBUILDDIR'}/SOURCES","src");
|
|---|
| 1651 |
|
|---|
| 1652 | pb_log(2,"specfile: ".Dumper(\@specfile)."\n");
|
|---|
| 1653 | # set LANGUAGE to check for correct log messages
|
|---|
| 1654 | $ENV{'LANGUAGE'}="C";
|
|---|
| 1655 | # Older Redhat use _target_platform in %configure incorrectly
|
|---|
| 1656 | my $specialdef = "";
|
|---|
| 1657 | if (($pbos->{'name'} eq "rhel") && ($pbos->{'version'} eq "2.1")) {
|
|---|
| 1658 | $specialdef = "--define \'_target_platform \"\"\'";
|
|---|
| 1659 | }
|
|---|
| 1660 | my $buildcmd = "rpmbuild";
|
|---|
| 1661 | if (($pbos->{'name'} eq "redhat") && ($pbos->{'version'} =~ /^6/)){
|
|---|
| 1662 | $buildcmd = "rpm" ;
|
|---|
| 1663 | }
|
|---|
| 1664 |
|
|---|
| 1665 | foreach my $f (@specfile) {
|
|---|
| 1666 | if ($f =~ /\.spec$/) {
|
|---|
| 1667 | pb_system("$buildcmd $specialdef --define \"packager $ENV{'PBPACKAGER'}\" --define \"_topdir $ENV{'PBBUILDDIR'}\" -ba $f","Building package with $f under $ENV{'PBBUILDDIR'}","verbose");
|
|---|
| 1668 | last;
|
|---|
| 1669 | }
|
|---|
| 1670 | }
|
|---|
| 1671 | # Get the name of the generated packages
|
|---|
| 1672 | open(LOG,"$ENV{'PBTMP'}/system.$$.log") || die "Unable to open $ENV{'PBTMP'}/system.$$.log";
|
|---|
| 1673 | while (<LOG>) {
|
|---|
| 1674 | chomp($_);
|
|---|
| 1675 | next if ($_ !~ /^Wrote:/);
|
|---|
| 1676 | s|.*/([S]*RPMS.*)|$1|;
|
|---|
| 1677 | $made .=" $_";
|
|---|
| 1678 | }
|
|---|
| 1679 | close(LOG);
|
|---|
| 1680 |
|
|---|
| 1681 | } elsif ($pbos->{'type'} eq "deb") {
|
|---|
| 1682 | pb_system("tar xfz $src","Extracting sources");
|
|---|
| 1683 | pb_system("tar xfz $src2","Extracting pbconf");
|
|---|
| 1684 |
|
|---|
| 1685 | chdir "$pbpkg-$pbver$pbextdir" || die "Unable to chdir to $pbpkg-$pbver$pbextdir";
|
|---|
| 1686 | pb_rm_rf("debian");
|
|---|
| 1687 | my $confdir = "pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}";
|
|---|
| 1688 | die "Configuration directory $confdir is not a directory\nIs os description listed in your {ve,vm,rm}list values?" if (not -d $confdir);
|
|---|
| 1689 | symlink "$confdir","debian" || die "Unable to symlink 'debian' to $confdir";
|
|---|
| 1690 | chmod 0755,"debian/rules";
|
|---|
| 1691 |
|
|---|
| 1692 | # We need to handle potential patches to upstream sources
|
|---|
| 1693 | pb_mkdir_p("debian/patches");
|
|---|
| 1694 | my @f = pb_extract_build_files($src2,"$pbpkg-$pbver$pbextdir/pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/pbpatch/","debian/patches","patch");
|
|---|
| 1695 |
|
|---|
| 1696 | # By default we use format 1.0 - Cf man dpkg-source
|
|---|
| 1697 | my $debsrcfmt = "1.0";
|
|---|
| 1698 | my $debsrcfile = "debian/source/format";
|
|---|
| 1699 | if (-f $debsrcfile) {
|
|---|
| 1700 | $debsrcfmt = pb_get_content($debsrcfile);
|
|---|
| 1701 | }
|
|---|
| 1702 |
|
|---|
| 1703 | if ($debsrcfmt =~ /^3.*quilt/) {
|
|---|
| 1704 | # If we use quilt to manage patches, we then setup the env correctly
|
|---|
| 1705 | # as per http://pkg-perl.alioth.debian.org/howto/quilt.html
|
|---|
| 1706 | # Generate Debian patch series for quilt
|
|---|
| 1707 | open(SERIE,"> debian/patches/series") || die "Unable to write in debian/patches/series";
|
|---|
| 1708 | $ENV{'QUILT_PATCHES'}="debian/patches";
|
|---|
| 1709 | } else {
|
|---|
| 1710 | # If we use dpatch to manage patches, we then setup the 00list file as well
|
|---|
| 1711 | open(SERIE,"> debian/patches/00list") || die "Unable to write in debian/patches/00list";
|
|---|
| 1712 | }
|
|---|
| 1713 | foreach my $f (sort @f) {
|
|---|
| 1714 | # Skip the script made to apply the patches to the Debian tree
|
|---|
| 1715 | next if ($f =~ /pbapplypatch/);
|
|---|
| 1716 | # We also need to uncompress them
|
|---|
| 1717 | pb_system("gzip -d $f","","quiet");
|
|---|
| 1718 | $f =~ s/\.gz$//;
|
|---|
| 1719 | print SERIE "$f\n";
|
|---|
| 1720 | }
|
|---|
| 1721 | close(SERIE);
|
|---|
| 1722 | if (@f) {
|
|---|
| 1723 | # We have patches...
|
|---|
| 1724 | my $patch_file = "debian/patches/pbapplypatch";
|
|---|
| 1725 | if (($debsrcfmt =~ /^1.*/) && (-x $patch_file)) {
|
|---|
| 1726 | # In that case we need to apply the patches ourselves locally
|
|---|
| 1727 | pb_system("cat $patch_file","APPLY","verbose");
|
|---|
| 1728 | pb_system("$patch_file","Applying patches to $pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'} tree");
|
|---|
| 1729 | }
|
|---|
| 1730 | # ...so modify the name of files to be Debian compliant
|
|---|
| 1731 | move("../$src","../$pbpkg-$pbver$pbextdir.orig.tar.gz");
|
|---|
| 1732 | }
|
|---|
| 1733 |
|
|---|
| 1734 | # We need to handle potential additional sources to upstream sources
|
|---|
| 1735 | #pb_extract_build_files($src2,"$pbpkg-$pbver$pbextdir/pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/pbsrc/","$ENV{'PBBUILDDIR'}/debian","src");
|
|---|
| 1736 |
|
|---|
| 1737 | pb_system("dpkg-buildpackage -us -uc -rfakeroot","Building package","verbose");
|
|---|
| 1738 |
|
|---|
| 1739 | # Get the name of the generated packages
|
|---|
| 1740 | open(LOG,"$ENV{'PBTMP'}/system.$$.log") || die "Unable to open $ENV{'PBTMP'}/system.$$.log";
|
|---|
| 1741 | while (<LOG>) {
|
|---|
| 1742 | chomp();
|
|---|
| 1743 | pb_log(3,"In loop: $_\n");
|
|---|
| 1744 | next unless (/^dpkg-deb.*\.\.\/(.*_.*\.deb).*/);
|
|---|
| 1745 | my $tmp = $1;
|
|---|
| 1746 | #doesn't work in my case
|
|---|
| 1747 | #die "Missing file $tmp" if (not -f "../$tmp");
|
|---|
| 1748 | $made = "$made $tmp";
|
|---|
| 1749 | }
|
|---|
| 1750 | close(LOG);
|
|---|
| 1751 | pb_log(2,"Now made is: $made\n");
|
|---|
| 1752 |
|
|---|
| 1753 | open(CTRL,"debian/control") || die "Unable to open debian/control: $!";
|
|---|
| 1754 | while (<CTRL>) {
|
|---|
| 1755 | pb_log(3,"In loop: $_\n");
|
|---|
| 1756 | next unless (/^Source: (\S+)/o);
|
|---|
| 1757 | my $tmp = $1;
|
|---|
| 1758 | $made = "$made $tmp"."_*.dsc $tmp"."_*.tar.gz $tmp"."_*.changes";
|
|---|
| 1759 | #doesn't work in my case
|
|---|
| 1760 | #foreach my $glob (("$1\_*.changes", "$1\_*.dsc", "$1\_*.tar.gz")) {
|
|---|
| 1761 | #my @file = glob($glob);
|
|---|
| 1762 | #die "Missing file for $glob" unless (@file > 0);
|
|---|
| 1763 | #die "Too many files for $glob" if (@file > 1);
|
|---|
| 1764 | #die "Missing file $file[0]" if (not -f $file[0]);
|
|---|
| 1765 | #$made .= " $file[0]";
|
|---|
| 1766 | #}
|
|---|
| 1767 | }
|
|---|
| 1768 | close(CTRL);
|
|---|
| 1769 | #pb_display_file("$ENV{'PBTMP'}/system.$$.log");
|
|---|
| 1770 | pb_log(2,"Finally made is: $made\n");
|
|---|
| 1771 |
|
|---|
| 1772 | chdir ".." || die "Unable to chdir to parent dir";
|
|---|
| 1773 | pb_rm_rf("$pbpkg-$pbver$pbextdir");
|
|---|
| 1774 | } elsif ($pbos->{'type'} eq "ebuild") {
|
|---|
| 1775 | my @ebuildfile;
|
|---|
| 1776 | # For gentoo we need to take pb as subsystem name
|
|---|
| 1777 | # We put every apps here under sys-apps. hope it's correct
|
|---|
| 1778 | # We use pb's home dir in order to have a single OVERLAY line
|
|---|
| 1779 | my $tmpe = "$ENV{'HOME'}/portage/pb/sys-apps/$pbpkg";
|
|---|
| 1780 | pb_mkdir_p($tmpe) if (! -d "$tmpe");
|
|---|
| 1781 | pb_mkdir_p("$ENV{'HOME'}/portage/distfiles") if (! -d "$ENV{'HOME'}/portage/distfiles");
|
|---|
| 1782 |
|
|---|
| 1783 | # We need to first extract the ebuild file
|
|---|
| 1784 | @ebuildfile = pb_extract_build_files($src2,"$pbpkg-$pbver$pbextdir/pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/","$tmpe","ebuild");
|
|---|
| 1785 |
|
|---|
| 1786 | # Prepare the build env for gentoo
|
|---|
| 1787 | my $found = 0;
|
|---|
| 1788 | my $pbbd = $ENV{'HOME'};
|
|---|
| 1789 | $pbbd =~ s|/|\\/|g;
|
|---|
| 1790 | if (-r "/etc/make.conf") {
|
|---|
| 1791 | open(MAKE,"/etc/make.conf");
|
|---|
| 1792 | while (<MAKE>) {
|
|---|
| 1793 | $found = 1 if (/$pbbd\/portage/);
|
|---|
| 1794 | }
|
|---|
| 1795 | close(MAKE);
|
|---|
| 1796 | }
|
|---|
| 1797 | if ($found == 0) {
|
|---|
| 1798 | pb_system("sudo sh -c 'echo PORTDIR_OVERLAY=\"$ENV{'HOME'}/portage\" >> /etc/make.conf'");
|
|---|
| 1799 | }
|
|---|
| 1800 | #$found = 0;
|
|---|
| 1801 | #if (-r "/etc/portage/package.keywords") {
|
|---|
| 1802 | #open(KEYW,"/etc/portage/package.keywords");
|
|---|
| 1803 | #while (<KEYW>) {
|
|---|
| 1804 | #$found = 1 if (/portage\/pb/);
|
|---|
| 1805 | #}
|
|---|
| 1806 | #close(KEYW);
|
|---|
| 1807 | #}
|
|---|
| 1808 | #if ($found == 0) {
|
|---|
| 1809 | #pb_system("sudo sh -c \"echo portage/pb >> /etc/portage/package.keywords\"");
|
|---|
| 1810 | #}
|
|---|
| 1811 |
|
|---|
| 1812 | # Build
|
|---|
| 1813 | foreach my $f (@ebuildfile) {
|
|---|
| 1814 | if ($f =~ /\.ebuild$/) {
|
|---|
| 1815 | move($f,"$tmpe/$pbpkg-$pbver.ebuild");
|
|---|
| 1816 | pb_system("cd $tmpe ; ebuild $pbpkg-$pbver.ebuild clean ; ebuild $pbpkg-$pbver.ebuild digest ; ebuild $pbpkg-$pbver.ebuild package","verbose");
|
|---|
| 1817 | # Now move it where pb expects it
|
|---|
| 1818 | pb_mkdir_p("$ENV{'PBBUILDDIR'}/portage/pb/sys-apps/$pbpkg");
|
|---|
| 1819 | if ($pbtag eq 0) {
|
|---|
| 1820 | # This is assumed to be a test version
|
|---|
| 1821 | my $nver = substr($pbver,0,-14);
|
|---|
| 1822 | my $ntag = substr($pbver,-14);
|
|---|
| 1823 | my $ebtg = "portage/pb/sys-apps/$pbpkg/$pbpkg-$nver"."_p$ntag.ebuild";
|
|---|
| 1824 | move("$tmpe/$pbpkg-$pbver.ebuild","$ENV{'PBBUILDDIR'}/$ebtg");
|
|---|
| 1825 | $made="$made $ebtg";
|
|---|
| 1826 | } else {
|
|---|
| 1827 | my $ebtg = "portage/pb/sys-apps/$pbpkg/$pbpkg-$pbver-r$pbtag.ebuild";
|
|---|
| 1828 | move("$tmpe/$pbpkg-$pbver.ebuild","$ENV{'PBBUILDDIR'}/$ebtg");
|
|---|
| 1829 | $made="$made $ebtg";
|
|---|
| 1830 | }
|
|---|
| 1831 | }
|
|---|
| 1832 | }
|
|---|
| 1833 |
|
|---|
| 1834 | } elsif ($pbos->{'type'} eq "tgz") {
|
|---|
| 1835 | # Slackware family
|
|---|
| 1836 | $made="$made $pbpkg/$pbpkg-$pbver-*-$pbtag.tgz";
|
|---|
| 1837 |
|
|---|
| 1838 | pb_system("tar xfz $src","Extracting sources");
|
|---|
| 1839 | pb_system("tar xfz $src2","Extracting pbconf");
|
|---|
| 1840 | chdir "$pbpkg-$pbver$pbextdir" || die "Unable to chdir to $pbpkg-$pbver$pbextdir";
|
|---|
| 1841 | symlink "pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}","install" || die "Unable to symlink to pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}";
|
|---|
| 1842 | if (-x "install/pbslack") {
|
|---|
| 1843 | pb_system("./install/pbslack","Building software");
|
|---|
| 1844 | pb_system("sudo /sbin/makepkg -p -l y -c y $pbpkg","Packaging $pbpkg","verbose");
|
|---|
| 1845 | }
|
|---|
| 1846 | chdir ".." || die "Unable to chdir to parent dir";
|
|---|
| 1847 | pb_rm_rf("$pbpkg-$pbver$pbextdir");
|
|---|
| 1848 | } elsif ($pbos->{'type'} eq "pkg") {
|
|---|
| 1849 | # Solaris
|
|---|
| 1850 | $made="$made $pbpkg-$pbver-$pbtag.pkg.gz";
|
|---|
| 1851 | my $pkgdestdir="$ENV{'PBBUILDDIR'}/install";
|
|---|
| 1852 |
|
|---|
| 1853 | # Will host resulting packages
|
|---|
| 1854 | pb_mkdir_p("$pbos->{'type'}");
|
|---|
| 1855 | pb_mkdir_p("$pkgdestdir/pbdelivery");
|
|---|
| 1856 | pb_system("tar xfz $src","Extracting sources under $ENV{'PBBUILDDIR'}");
|
|---|
| 1857 | pb_system("tar xfz $src2","Extracting pbconf under $ENV{'PBBUILDDIR'}");
|
|---|
| 1858 | # We need to handle potential patches to upstream sources
|
|---|
| 1859 | pb_extract_build_files($src2,"$pbpkg-$pbver$pbextdir/pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/pbpatch/","$ENV{'PBBUILDDIR'}","patch");
|
|---|
| 1860 |
|
|---|
| 1861 | # We need to handle potential additional sources to upstream sources
|
|---|
| 1862 | pb_extract_build_files($src2,"$pbpkg-$pbver$pbextdir/pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/pbsrc/","$ENV{'PBBUILDDIR'}","src");
|
|---|
| 1863 |
|
|---|
| 1864 | chdir "$pbpkg-$pbver$pbextdir" || die "Unable to chdir to $pbpkg-$pbver$pbextdir";
|
|---|
| 1865 | if (-f "pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/pbbuild") {
|
|---|
| 1866 | chmod 0755,"pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/pbbuild";
|
|---|
| 1867 | # pkginfo file is mandatory
|
|---|
| 1868 | die "Unable to find pkginfo file in pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}" if (! -f "pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/pkginfo");
|
|---|
| 1869 | # Build
|
|---|
| 1870 | pb_system("pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/pbbuild $pkgdestdir/pbdelivery","Building software and installing under $pkgdestdir/pbdelivery");
|
|---|
| 1871 | # Copy complementary files
|
|---|
| 1872 | if (-f "pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/prototype") {
|
|---|
| 1873 | copy("pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/prototype", $pkgdestdir)
|
|---|
| 1874 | } else {
|
|---|
| 1875 | # No prototype provided, calculating it
|
|---|
| 1876 | open(PROTO,"> $pkgdestdir/prototype") || die "Unable to create prototype file";
|
|---|
| 1877 | print PROTO "i pkginfo\n";
|
|---|
| 1878 | print PROTO "i depend\n" if (-f "pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/depend");
|
|---|
| 1879 | $ENV{'PBSOLDESTDIR'} = "$pkgdestdir/pbdelivery";
|
|---|
| 1880 | find(\&create_solaris_prototype, "$pkgdestdir/pbdelivery");
|
|---|
| 1881 | }
|
|---|
| 1882 | copy("pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/depend", $pkgdestdir) if (-f "pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/depend");
|
|---|
| 1883 | copy("pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/pkginfo", $pkgdestdir);
|
|---|
| 1884 | pb_system("cd $pkgdestdir/pbdelivery ; pkgmk -o -f ../prototype -r $pkgdestdir/pbdelivery -d $ENV{'PBBUILDDIR'}/$pbos->{'type'}","Packaging $pbpkg","verbose");
|
|---|
| 1885 | 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");
|
|---|
| 1886 | pb_system("cd $ENV{'PBBUILDDIR'} ; gzip -9f $pbpkg-$pbver-$pbtag.pkg","Compressing $pbpkg-$pbver-$pbtag.pkg","verbose");
|
|---|
| 1887 | } else {
|
|---|
| 1888 | pb_log(0,"No pbconf/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}/pbbuild file found for $pbpkg-$pbver in \n");
|
|---|
| 1889 | }
|
|---|
| 1890 | chdir ".." || die "Unable to chdir to parent dir";
|
|---|
| 1891 | pb_rm_rf("$pbpkg-$pbver$pbextdir","$ENV{'PBBUILDDIR'}/$pbos->{'type'}","$pkgdestdir");
|
|---|
| 1892 | } elsif ($pbos->{'type'} eq "hpux") {
|
|---|
| 1893 | # HP-UX
|
|---|
| 1894 | pb_system("tar xfz $src","Extracting sources");
|
|---|
| 1895 | pb_system("tar xfz $src2","Extracting pbconf");
|
|---|
| 1896 |
|
|---|
| 1897 | chdir "$pbpkg-$pbver$pbextdir" || die "Unable to chdir to $pbpkg-$pbver$pbextdir";
|
|---|
| 1898 | pb_system("buildpackage ","Building package","verbose");
|
|---|
| 1899 | # Get the name of the generated packages
|
|---|
| 1900 | open(LOG,"$ENV{'PBTMP'}/system.$$.log") || die "Unable to open $ENV{'PBTMP'}/system.$$.log";
|
|---|
| 1901 | while (<LOG>) {
|
|---|
| 1902 | chomp();
|
|---|
| 1903 | my $tmp = $_;
|
|---|
| 1904 | next if ($tmp !~ /^SD BUILD.*:/);
|
|---|
| 1905 | $tmp =~ s|.*../(.*)_(.*).sd.*|$1|;
|
|---|
| 1906 | $made = "$made $tmp"."_*.sd";
|
|---|
| 1907 | }
|
|---|
| 1908 | close(LOG);
|
|---|
| 1909 | $made="$made $pbpkg-$pbver-$pbtag.sd";
|
|---|
| 1910 |
|
|---|
| 1911 | chdir ".." || die "Unable to chdir to parent dir";
|
|---|
| 1912 | pb_rm_rf("$pbpkg-$pbver$pbextdir");
|
|---|
| 1913 | } else {
|
|---|
| 1914 | die "Unknown OS type format $pbos->{'type'}";
|
|---|
| 1915 | }
|
|---|
| 1916 | if (defined $pbparallel) {
|
|---|
| 1917 | # Communicate results back to parent
|
|---|
| 1918 | pb_set_content("$tmpd/$$",$made);
|
|---|
| 1919 | $pm->finish;
|
|---|
| 1920 | }
|
|---|
| 1921 | }
|
|---|
| 1922 | if (defined $pbparallel) {
|
|---|
| 1923 | # In the parent, we need to get the result from the children
|
|---|
| 1924 | $pm->wait_all_children;
|
|---|
| 1925 | foreach my $f (<$tmpd/*>) {
|
|---|
| 1926 | $made .= " ".pb_get_content($f);
|
|---|
| 1927 | }
|
|---|
| 1928 | die "Aborting, one or more of the children failed." if ((not $all_ok) && ($Global::pb_stop_on_error));
|
|---|
| 1929 | pb_rm_rf($tmpd);
|
|---|
| 1930 | }
|
|---|
| 1931 |
|
|---|
| 1932 | # Sign packages
|
|---|
| 1933 | pb_sign_pkgs($pbos,$made);
|
|---|
| 1934 | pb_log(0,"INFO: ------ Finished building package ------\n");
|
|---|
| 1935 |
|
|---|
| 1936 | # Find the appropriate check cmd/opts
|
|---|
| 1937 | my ($chkcmd,$chkopt) = pb_distro_get_param($pbos,pb_conf_get_if("oschkcmd","oschkopt"));
|
|---|
| 1938 |
|
|---|
| 1939 | my $ret = "";
|
|---|
| 1940 | # Packages check if needed
|
|---|
| 1941 | if ($pbos->{'type'} eq "rpm") {
|
|---|
| 1942 | if ((defined $chkcmd) && (-x $chkcmd)) {
|
|---|
| 1943 | my $cmd = "$chkcmd";
|
|---|
| 1944 | $cmd .= " $chkopt" if (defined $chkopt);
|
|---|
| 1945 | $cmd .= " $made";
|
|---|
| 1946 | my $ret = pb_system("$cmd","Checking validity of rpms with $chkcmd","mayfailverbose");
|
|---|
| 1947 | pb_log(0,"ERROR: when checking packages validity\n") if ($ret ne 0);
|
|---|
| 1948 | }
|
|---|
| 1949 | my $rpms ="";
|
|---|
| 1950 | my $srpms ="";
|
|---|
| 1951 | foreach my $f (split(/ /,$made)) {
|
|---|
| 1952 | $rpms .= "$ENV{'PBBUILDDIR'}/$f " if ($f =~ /^RPMS\//);
|
|---|
| 1953 | $srpms .= "$ENV{'PBBUILDDIR'}/$f " if ($f =~ /^SRPMS\//);
|
|---|
| 1954 | }
|
|---|
| 1955 | pb_log(0,"SRPM packages generated: $srpms\n");
|
|---|
| 1956 | pb_log(0,"RPM packages generated: $rpms\n");
|
|---|
| 1957 | $ret = $rpms;
|
|---|
| 1958 | } elsif ($pbos->{'type'} eq "deb") {
|
|---|
| 1959 | my $made2 = "";
|
|---|
| 1960 | foreach my $f (split(/ /,$made)) {
|
|---|
| 1961 | $made2 .= "$f " if ($f =~ /\.deb$/);
|
|---|
| 1962 | }
|
|---|
| 1963 | if ((defined $chkcmd) && (-x $chkcmd)) {
|
|---|
| 1964 | my $ret = pb_system("$chkcmd $chkopt $made2","Checking validity of debs with $chkcmd","mayfail");
|
|---|
| 1965 | pb_log(0,"ERROR: when checking packages validity\n") if ($ret ne 0);
|
|---|
| 1966 | }
|
|---|
| 1967 | pb_log(0,"deb packages generated: $made2\n");
|
|---|
| 1968 | $ret = $made2;
|
|---|
| 1969 | } else {
|
|---|
| 1970 | pb_log(0,"No check done for $pbos->{'type'} yet\n");
|
|---|
| 1971 | pb_log(0,"Packages generated: $made\n");
|
|---|
| 1972 | $ret = $made;
|
|---|
| 1973 | }
|
|---|
| 1974 |
|
|---|
| 1975 | # Keep track of what is generated so that we can get them back from VMs/RMs
|
|---|
| 1976 | my $pbstore = "$ENV{'PBBUILDDIR'}/pbgen-$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}-$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}";
|
|---|
| 1977 | open(KEEP,"> $pbstore") || die "Unable to create $pbstore $!";
|
|---|
| 1978 | print KEEP "$made\n";
|
|---|
| 1979 | close(KEEP);
|
|---|
| 1980 | pb_distro_installdeps(undef,$pbos,$ret) if ($do_install);
|
|---|
| 1981 | }
|
|---|
| 1982 |
|
|---|
| 1983 | sub pb_build2ssh {
|
|---|
| 1984 | pb_send2target("Sources");
|
|---|
| 1985 | pb_send2target("CPAN");
|
|---|
| 1986 | }
|
|---|
| 1987 |
|
|---|
| 1988 | sub pb_pkg2ssh {
|
|---|
| 1989 | pb_send2target("Packages");
|
|---|
| 1990 | }
|
|---|
| 1991 |
|
|---|
| 1992 | # By default deliver to the the public site hosting the
|
|---|
| 1993 | # ftp structure (or whatever) or a VM/VE/RM
|
|---|
| 1994 | sub pb_send2target {
|
|---|
| 1995 |
|
|---|
| 1996 | my $cmt = shift;
|
|---|
| 1997 | my $pbscript1 = shift;
|
|---|
| 1998 | my $v = shift;
|
|---|
| 1999 | my $vexist = shift; # 0 is FALSE
|
|---|
| 2000 | my $vpid = shift; # 0 is FALSE
|
|---|
| 2001 | my $snapme = shift; # 0 is FALSE
|
|---|
| 2002 | my $pbstep = shift; # 3 is usage of container
|
|---|
| 2003 |
|
|---|
| 2004 | $vexist = 0 if (not defined $vexist);
|
|---|
| 2005 | $vpid = 0 if (not defined $vpid);
|
|---|
| 2006 | $snapme = 0 if (not defined $snapme);
|
|---|
| 2007 | $pbstep = 3 if (not defined $pbstep);
|
|---|
| 2008 | pb_log(2,"DEBUG: pb_send2target($cmt,".Dumper($v).",$vexist,$vpid)\n");
|
|---|
| 2009 | my $host = "sshhost";
|
|---|
| 2010 | my $login = "sshlogin";
|
|---|
| 2011 | my $dir = "sshdir";
|
|---|
| 2012 | my $port = "sshport";
|
|---|
| 2013 | my $conf = "sshconf";
|
|---|
| 2014 | my $tmout = undef;
|
|---|
| 2015 | my $path = undef;
|
|---|
| 2016 |
|
|---|
| 2017 | if ($cmt =~ /^VM/) {
|
|---|
| 2018 | $login = "vmlogin";
|
|---|
| 2019 | $dir = "pbdefdir";
|
|---|
| 2020 | # Specific VM
|
|---|
| 2021 | $tmout = "vmtmout";
|
|---|
| 2022 | $path = "vmpath";
|
|---|
| 2023 | $host = "vmhost";
|
|---|
| 2024 | $port = "vmport";
|
|---|
| 2025 | } elsif ($cmt =~ /^RM/) {
|
|---|
| 2026 | $login = "rmlogin";
|
|---|
| 2027 | $dir = "pbdefdir";
|
|---|
| 2028 | # Specific RM
|
|---|
| 2029 | $tmout = "rmtmout";
|
|---|
| 2030 | $path = "rmpath";
|
|---|
| 2031 | $host = "rmhost";
|
|---|
| 2032 | $port = "rmport";
|
|---|
| 2033 | } elsif ($cmt =~ /^VE/) {
|
|---|
| 2034 | $login = "velogin";
|
|---|
| 2035 | $dir = "pbdefdir";
|
|---|
| 2036 | # Specific VE
|
|---|
| 2037 | $path = "vepath";
|
|---|
| 2038 | $conf = "rbsconf";
|
|---|
| 2039 | } elsif ($cmt eq "Web") {
|
|---|
| 2040 | $host = "websshhost";
|
|---|
| 2041 | $login = "websshlogin";
|
|---|
| 2042 | $dir = "websshdir";
|
|---|
| 2043 | $port = "websshport";
|
|---|
| 2044 | } elsif ($cmt eq "CPAN") {
|
|---|
| 2045 | $host = "cpanpause";
|
|---|
| 2046 | $login = "";
|
|---|
| 2047 | $dir = "cpandir";
|
|---|
| 2048 | $port = "";
|
|---|
| 2049 | }
|
|---|
| 2050 | my $cmd = "";
|
|---|
| 2051 | my $src = "";
|
|---|
| 2052 | my $cpanpkg = 0;
|
|---|
| 2053 | my $pbos;
|
|---|
| 2054 |
|
|---|
| 2055 | my $pbextdir = pb_get_extdir();
|
|---|
| 2056 |
|
|---|
| 2057 | if ($cmt ne "Announce") {
|
|---|
| 2058 | # Get list of packages to build
|
|---|
| 2059 | my $ptr = pb_get_pkg();
|
|---|
| 2060 | my @pkgs = ();
|
|---|
| 2061 | @pkgs = @$ptr if (defined $ptr);
|
|---|
| 2062 |
|
|---|
| 2063 | # Get the running distro to consider
|
|---|
| 2064 | $pbos = pb_distro_get_context($v);
|
|---|
| 2065 |
|
|---|
| 2066 | my $pkg = { };
|
|---|
| 2067 | # Get content saved in cms2build
|
|---|
| 2068 | if ((defined $ENV{'PBDESTDIR'}) && (defined $ENV{'PBPROJVER'}) && (defined $ENV{'PBPROJTAG'}) && (-f "$ENV{'PBDESTDIR'}/$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}.pb")) {
|
|---|
| 2069 | ($pkg) = pb_conf_read("$ENV{'PBDESTDIR'}/$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}.pb","pbpkg");
|
|---|
| 2070 | $pkg = { } if (not defined $pkg);
|
|---|
| 2071 | }
|
|---|
| 2072 |
|
|---|
| 2073 | pb_mkdir_p("$ENV{'PBBUILDDIR'}") if (! -d "$ENV{'PBBUILDDIR'}");
|
|---|
| 2074 | chdir "$ENV{'PBBUILDDIR'}" || die "Unable to chdir to $ENV{'PBBUILDDIR'}";
|
|---|
| 2075 | foreach my $pbpkg (@pkgs) {
|
|---|
| 2076 | my $vertag = $pkg->{$pbpkg};
|
|---|
| 2077 | # get the version of the current package - maybe different
|
|---|
| 2078 | pb_log(2,"Vertag: $vertag\n");
|
|---|
| 2079 | ($pbver,$pbtag) = split(/-/,$vertag);
|
|---|
| 2080 |
|
|---|
| 2081 | if (($cmt eq "Sources") || ($cmt =~ /(V[EM]|RM)(build|prep)/)) {
|
|---|
| 2082 | $src = "$src $ENV{'PBDESTDIR'}/$pbpkg-$pbver$pbextdir.tar.gz $ENV{'PBDESTDIR'}/$pbpkg-$pbver$pbextdir.pbconf.tar.gz";
|
|---|
| 2083 | my $cmd2 = "ln -sf $pbpkg-$pbver$pbextdir.tar.gz $pbpkg-latest.tar.gz";
|
|---|
| 2084 | #my $cmd2 = "ln $pbpkg-$pbver$pbextdir.tar.gz $pbpkg-latest.tar.gz 2> /dev/null ; if [ \$? -ne 0 ]; then ln -sf $pbpkg-$pbver$pbextdir.tar.gz $pbpkg-latest.tar.gz ; fi";
|
|---|
| 2085 | if ($cmd eq "") {
|
|---|
| 2086 | $cmd = $cmd2;
|
|---|
| 2087 | } else {
|
|---|
| 2088 | $cmd = "$cmd ; $cmd2";
|
|---|
| 2089 | }
|
|---|
| 2090 | } elsif ($cmt eq "Web") {
|
|---|
| 2091 | $src = "$src $ENV{'PBDESTDIR'}/$pbpkg-$pbver$pbextdir.tar.gz"
|
|---|
| 2092 | }
|
|---|
| 2093 |
|
|---|
| 2094 | # Do we have one perl package
|
|---|
| 2095 | my @nametype = pb_conf_get_if("namingtype");
|
|---|
| 2096 | my $type = $nametype[0]->{$pbpkg};
|
|---|
| 2097 | if ((defined $type) && ($type eq "perl")) {
|
|---|
| 2098 | $cpanpkg = 1;
|
|---|
| 2099 | }
|
|---|
| 2100 | }
|
|---|
| 2101 | # Adds conf file for availability of conf elements
|
|---|
| 2102 | pb_conf_add("$ENV{'PBROOTDIR'}/$ENV{'PBPROJ'}.pb") if ((defined $ENV{'PBROOTDIR'}) && (-f "$ENV{'PBROOTDIR'}/$ENV{'PBPROJ'}.pb"));
|
|---|
| 2103 | }
|
|---|
| 2104 | my ($rbsconf,$testver,$delivery) = pb_conf_get_if($conf,"testver","delivery");
|
|---|
| 2105 | if ($cmt eq "CPAN") {
|
|---|
| 2106 | # Do not deliver on Pause if this is a test version
|
|---|
| 2107 | return if (not defined $testver);
|
|---|
| 2108 | return if ($testver =~ /true/);
|
|---|
| 2109 | # Do not deliver on Pause if this is not a perl package
|
|---|
| 2110 | return if ($cpanpkg == 0);
|
|---|
| 2111 | }
|
|---|
| 2112 |
|
|---|
| 2113 | if ($cmt =~ /(V[EM]|RM)(build|prep)/) {
|
|---|
| 2114 | $src="$src $ENV{'PBROOTDIR'}/$ENV{'PBPROJ'}.pb $ENV{'PBDESTDIR'}/$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}.pb $ENV{'PBETC'} $ENV{'PBDESTDIR'}/pbrc $pbscript{$v}";
|
|---|
| 2115 | } elsif ($cmt =~ /(V[EM]|RM)Script/) {
|
|---|
| 2116 | $src="$src $pbscript{$v}";
|
|---|
| 2117 | } elsif ($cmt =~ /(V[EM]|RM)test/) {
|
|---|
| 2118 | $src="$src $ENV{'PBROOTDIR'}/$ENV{'PBPROJ'}.pb $ENV{'PBDESTDIR'}/$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}.pb $ENV{'PBETC'} $ENV{'PBDESTDIR'}/pbrc $pbscript{$v} $ENV{'PBDESTDIR'}/pbtest";
|
|---|
| 2119 | } elsif (($cmt eq "Announce") || ($cmt eq "Web") || ($cmt eq "CPAN")) {
|
|---|
| 2120 | $src="$src $ENV{'PBTMP'}/pbscript";
|
|---|
| 2121 | } elsif ($cmt eq "Packages") {
|
|---|
| 2122 | # Get package list from file made during build2pkg
|
|---|
| 2123 | 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'}";
|
|---|
| 2124 | $src = <KEEP>;
|
|---|
| 2125 | chomp($src);
|
|---|
| 2126 | close(KEEP);
|
|---|
| 2127 | }
|
|---|
| 2128 | if (($cmt eq "Sources") || ($cmt eq "Packages") || ($cmt eq "CPAN")) {
|
|---|
| 2129 | my ($pbpackager) = pb_conf_get("pbpackager");
|
|---|
| 2130 | $ENV{'PBPACKAGER'} = $pbpackager->{$ENV{'PBPROJ'}};
|
|---|
| 2131 | pb_log(0,"Exporting public key for $ENV{'PBPACKAGER'}\n");
|
|---|
| 2132 | # Using pb_system is not working due to redirection below
|
|---|
| 2133 | system("gpg --export -a \'$ENV{'PBPACKAGER'}\' > $ENV{'PBDESTDIR'}/$ENV{'PBPROJ'}.pubkey");
|
|---|
| 2134 | chmod 0644,"$ENV{'PBDESTDIR'}/$ENV{'PBPROJ'}.pubkey";
|
|---|
| 2135 | $src = "$src $ENV{'PBDESTDIR'}/$ENV{'PBPROJ'}.pubkey";
|
|---|
| 2136 | }
|
|---|
| 2137 | # Remove potential leading spaces (cause problem with basename)
|
|---|
| 2138 | $src =~ s/^ *//;
|
|---|
| 2139 | my $basesrc = "";
|
|---|
| 2140 | foreach my $i (split(/ +/,$src)) {
|
|---|
| 2141 | $basesrc .= " ".basename($i);
|
|---|
| 2142 | }
|
|---|
| 2143 |
|
|---|
| 2144 | pb_log(2,"values: ".Dumper(($host,$login,$dir,$port,$tmout,$path,$conf))."\n");
|
|---|
| 2145 | my ($sshhost,$sshdir) = pb_conf_get($host,$dir);
|
|---|
| 2146 | # Not mandatory...
|
|---|
| 2147 | $delivery->{$ENV{'PBPROJ'}} = "" if (not defined $delivery->{$ENV{'PBPROJ'}});
|
|---|
| 2148 | my ($sshlogin,$sshport) = pb_conf_get_if($login,$port);
|
|---|
| 2149 | $sshport->{$ENV{PBPROJ}} = 22 if (not defined $sshport->{$ENV{PBPROJ}});
|
|---|
| 2150 | $sshlogin->{$ENV{PBPROJ}} = getpwuid($UID) if (not defined $sshlogin->{$ENV{PBPROJ}});
|
|---|
| 2151 | my ($vtmout,$vepath);
|
|---|
| 2152 | # ...Except those in virtual context
|
|---|
| 2153 | if ($cmt =~ /^VE/) {
|
|---|
| 2154 | ($vepath) = pb_conf_get($path);
|
|---|
| 2155 | }
|
|---|
| 2156 | if ($cmt =~ /^(V|R)M/) {
|
|---|
| 2157 | $vtmout = pb_distro_get_param($pbos,pb_conf_get_if($tmout));
|
|---|
| 2158 | }
|
|---|
| 2159 | my $remhost = $sshhost->{$ENV{'PBPROJ'}};
|
|---|
| 2160 | my $remdir = $sshdir->{$ENV{'PBPROJ'}};
|
|---|
| 2161 | if ($cmt =~ /^V[EM]|RM/) {
|
|---|
| 2162 | # In that case our real host is in the xxhost with the OS as key, not project as above
|
|---|
| 2163 | $remhost = pb_distro_get_param($pbos,$sshhost);
|
|---|
| 2164 | }
|
|---|
| 2165 | pb_log(2,"ssh: ".Dumper(($remhost,$sshlogin,$remdir,$sshport,$vepath,$rbsconf))."\n");
|
|---|
| 2166 | pb_log(2,"ssh: ".Dumper($vtmout)."\n") if (defined $vtmout);
|
|---|
| 2167 |
|
|---|
| 2168 | my $mac;
|
|---|
| 2169 | if ($cmt !~ /^VE/) {
|
|---|
| 2170 | $mac = "$sshlogin->{$ENV{'PBPROJ'}}\@$remhost";
|
|---|
| 2171 | # Overwrite account value if passed as parameter or forced
|
|---|
| 2172 | $mac = "$ENV{'PBACCOUNT'}\@$remhost" if (defined $ENV{'PBACCOUNT'});
|
|---|
| 2173 | } else {
|
|---|
| 2174 | # VE
|
|---|
| 2175 | $mac = $sshlogin->{$ENV{'PBPROJ'}};
|
|---|
| 2176 | # Overwrite account value if passed as parameter (typically for setup2v)
|
|---|
| 2177 | $mac = $ENV{'PBACCOUNT'} if (defined $ENV{'PBACCOUNT'});
|
|---|
| 2178 | }
|
|---|
| 2179 | pb_log(2, "DEBUG: mac: $mac\n");
|
|---|
| 2180 |
|
|---|
| 2181 | my $tdir;
|
|---|
| 2182 | my $bdir;
|
|---|
| 2183 | if (($cmt eq "Sources") || ($cmt =~ /(V[EM]|RM)Script/)) {
|
|---|
| 2184 | $tdir = "$remdir/$delivery->{$ENV{'PBPROJ'}}/src";
|
|---|
| 2185 | } elsif ($cmt eq "CPAN") {
|
|---|
| 2186 | $tdir = "$remdir";
|
|---|
| 2187 | } elsif ($cmt =~ /(V[EM]|RM)(build|test|prep)/) {
|
|---|
| 2188 | $tdir = $remdir."/$ENV{'PBPROJ'}/pbdelivery";
|
|---|
| 2189 | $bdir = $remdir."/$ENV{'PBPROJ'}/pbbuild";
|
|---|
| 2190 | # Remove a potential $ENV{'HOME'} as bdir should be relative to pb's home
|
|---|
| 2191 | $bdir =~ s|\$ENV.+\}/||;
|
|---|
| 2192 | } elsif ($cmt eq "Announce") {
|
|---|
| 2193 | $tdir = "$remdir/$delivery->{$ENV{'PBPROJ'}}";
|
|---|
| 2194 | } elsif ($cmt eq "Web") {
|
|---|
| 2195 | $tdir = "$remdir/$delivery->{$ENV{'PBPROJ'}}";
|
|---|
| 2196 | } elsif ($cmt eq "Packages") {
|
|---|
| 2197 | my $debarch = "";
|
|---|
| 2198 |
|
|---|
| 2199 | if (($pbos->{'type'} eq "rpm") || ($pbos->{'type'} eq "pkg") || ($pbos->{'type'} eq "hpux") || ($pbos->{'type'} eq "tgz")) {
|
|---|
| 2200 | # put packages under an arch subdir
|
|---|
| 2201 | $tdir = "$remdir/$delivery->{$ENV{'PBPROJ'}}/$pbos->{'name'}/$pbos->{'version'}/$pbos->{'arch'}";
|
|---|
| 2202 | } elsif (($pbos->{'type'} eq "deb") || ($pbos->{'type'} eq "ebuild")) {
|
|---|
| 2203 | # No need for an arch subdir
|
|---|
| 2204 | $tdir = "$remdir/$delivery->{$ENV{'PBPROJ'}}/$pbos->{'name'}/$pbos->{'version'}";
|
|---|
| 2205 | } else {
|
|---|
| 2206 | die "Please teach the dev team where to deliver ($pbos->{'type'} type of packages\n";
|
|---|
| 2207 | }
|
|---|
| 2208 |
|
|---|
| 2209 | my $repodir = $tdir;
|
|---|
| 2210 | $repodir =~ s|^$remdir/||;
|
|---|
| 2211 | my $repotag = "";
|
|---|
| 2212 | $repotag = "-$delivery->{$ENV{'PBPROJ'}}" if ($delivery->{$ENV{'PBPROJ'}} ne "");
|
|---|
| 2213 |
|
|---|
| 2214 | my ($pbrepo) = pb_conf_get("pbrepo");
|
|---|
| 2215 |
|
|---|
| 2216 | # Script for Repository management
|
|---|
| 2217 | $pbscript{$v} = "$ENV{'PBBUILDDIR'}/pbscript.$$";
|
|---|
| 2218 |
|
|---|
| 2219 | # That script should be part of the delivery
|
|---|
| 2220 | $src = "$src $pbscript{$v}";
|
|---|
| 2221 | open(PBS,"> $pbscript{$v}") || die "Unable to create $pbscript{$v}";
|
|---|
| 2222 | if ($pbos->{'type'} eq "rpm") {
|
|---|
| 2223 | my $pbsha = pb_distro_get_param($pbos,pb_conf_get("ossha"));
|
|---|
| 2224 | my $gpgcheck = pb_conf_get_if("pbgpgcheck");
|
|---|
| 2225 | my $pbgpgcheck;
|
|---|
| 2226 | $pbgpgcheck = $gpgcheck->{$ENV{PBPROJ}} if (defined $gpgcheck);
|
|---|
| 2227 | # By default force GPG check in repo even if we support signature of packages to fail. This is a best practice
|
|---|
| 2228 | $pbgpgcheck = 1 if (not defined $pbgpgcheck);
|
|---|
| 2229 | # Also make a pbscript to generate dnf/yum/urpmi bases
|
|---|
| 2230 | print PBS << "EOF";
|
|---|
| 2231 | #!/bin/bash
|
|---|
| 2232 | # Prepare a script to ease dnf/yum setup
|
|---|
| 2233 | EOF
|
|---|
| 2234 | print PBS "set -x\n" if ($pbdebug gt 1);
|
|---|
| 2235 | print PBS << "EOF";
|
|---|
| 2236 | cat > $ENV{'PBPROJ'}$repotag.repo << EOT
|
|---|
| 2237 | [$ENV{'PBPROJ'}$repotag]
|
|---|
| 2238 | name=$pbos->{'name'} $pbos->{'version'} $pbos->{'arch'} - $ENV{'PBPROJ'} Vanilla Packages
|
|---|
| 2239 | baseurl=$pbrepo->{$ENV{'PBPROJ'}}/$repodir
|
|---|
| 2240 | enabled=1
|
|---|
| 2241 | gpgcheck=$pbgpgcheck
|
|---|
| 2242 | gpgkey=$pbrepo->{$ENV{'PBPROJ'}}/$repodir/$ENV{'PBPROJ'}.pubkey
|
|---|
| 2243 | EOT
|
|---|
| 2244 | chmod 644 $ENV{'PBPROJ'}$repotag.repo
|
|---|
| 2245 |
|
|---|
| 2246 | # Clean up old repo content
|
|---|
| 2247 | rm -rf headers/ repodata/
|
|---|
| 2248 | # Create yum repo
|
|---|
| 2249 | if [ -x /usr/bin/yum-arch ]; then
|
|---|
| 2250 | yum-arch .
|
|---|
| 2251 | fi
|
|---|
| 2252 | # Create repodata
|
|---|
| 2253 | createrepo -s $pbsha .
|
|---|
| 2254 | # Link to the key
|
|---|
| 2255 | if [ -s $ENV{'PBPROJ'}.pubkey ]; then
|
|---|
| 2256 | # Avoiding creating empty repomd.xml.key; fails on opensuse 12.1
|
|---|
| 2257 | (cd repodata ; ln -sf ../$ENV{'PBPROJ'}.pubkey repomd.xml.key)
|
|---|
| 2258 | fi
|
|---|
| 2259 | # sign the repomd (at least useful for SLES - which requires a local key)
|
|---|
| 2260 | # gpg -a --detach-sign repodata/repomd.xml
|
|---|
| 2261 | # SLES also looks for media.1/info.txt
|
|---|
| 2262 | EOF
|
|---|
| 2263 | if ($pbos->{'family'} eq "md") {
|
|---|
| 2264 | # For Mandriva add urpmi management
|
|---|
| 2265 | print PBS << "EOF";
|
|---|
| 2266 | # Prepare a script to ease urpmi setup
|
|---|
| 2267 | cat > $ENV{'PBPROJ'}$repotag.addmedia << EOT
|
|---|
| 2268 | #rpm --import $pbrepo->{$ENV{'PBPROJ'}}/$repodir/$ENV{'PBPROJ'}.pubkey
|
|---|
| 2269 | urpmi.addmedia $ENV{'PBPROJ'}$repotag $pbrepo->{$ENV{'PBPROJ'}}/$repodir with media_info/hdlist.cz
|
|---|
| 2270 | EOT
|
|---|
| 2271 | chmod 755 $ENV{'PBPROJ'}$repotag.addmedia
|
|---|
| 2272 |
|
|---|
| 2273 | # Clean up old repo content
|
|---|
| 2274 | rm -f hdlist.cz synthesis.hdlist.cz
|
|---|
| 2275 | # Create urpmi repo
|
|---|
| 2276 | genhdlist2 --clean .
|
|---|
| 2277 | if [ \$\? -ne 0 ]; then
|
|---|
| 2278 | genhdlist .
|
|---|
| 2279 | fi
|
|---|
| 2280 | (cd media_info ; ln -sf ../$ENV{'PBPROJ'}.pubkey pubkey)
|
|---|
| 2281 | EOF
|
|---|
| 2282 | }
|
|---|
| 2283 | if ($pbos->{'name'} eq "fedora") {
|
|---|
| 2284 | # Extract the spec file to please Fedora maintainers :-(
|
|---|
| 2285 | print PBS << "EOF";
|
|---|
| 2286 | for p in $basesrc; do
|
|---|
| 2287 | echo \$p | grep -q 'src.rpm'
|
|---|
| 2288 | if [ \$\? -eq 0 ]; then
|
|---|
| 2289 | rpm2cpio \$p | cpio -ivdum --quiet '*.spec'
|
|---|
| 2290 | fi
|
|---|
| 2291 | done
|
|---|
| 2292 | EOF
|
|---|
| 2293 | }
|
|---|
| 2294 | if ($pbos->{'family'} eq "novell") {
|
|---|
| 2295 | # Add ymp scripts for one-click install on SuSE
|
|---|
| 2296 | print PBS << "EOF";
|
|---|
| 2297 | # Prepare a script to ease SuSE one-click install
|
|---|
| 2298 | # Cf: http://de.opensuse.org/1-Klick-Installation/ISV
|
|---|
| 2299 | #
|
|---|
| 2300 | cat > $ENV{'PBPROJ'}$repotag.ymp << EOT
|
|---|
| 2301 | <?xml version="1.0" encoding="utf-8"?>
|
|---|
| 2302 | <!-- vim: set sw=2 ts=2 ai et: -->
|
|---|
| 2303 | <metapackage xmlns:os="http://opensuse.org/Standards/One_Click_Install" xmlns="http://opensuse.org/Standards/One_Click_Install">
|
|---|
| 2304 | <group><!-- The group of software, typically one for project-builder.org -->
|
|---|
| 2305 | <name>$ENV{'PBPROJ'} Bundle</name> <!-- Name of the software group -->
|
|---|
| 2306 | <summary>Software bundle for the $ENV{'PBPROJ'}$repotag project</summary> <!--This message is shown to the user and should describe the whole bundle -->
|
|---|
| 2307 | <description>This is the summary of the $ENV{'PBPROJ'}$repotag Project
|
|---|
| 2308 |
|
|---|
| 2309 | Details are available on a per package basis below
|
|---|
| 2310 |
|
|---|
| 2311 | </description><!--This is also shown to the user -->
|
|---|
| 2312 | <remainSubscribed>false</remainSubscribed> <!-- Don't know what it mean -->
|
|---|
| 2313 | <repositories><!-- List of needed repositories -->
|
|---|
| 2314 | <repository>
|
|---|
| 2315 | <name>$ENV{'PBPROJ'}$repotag Repository</name> <!-- Name of the repository -->
|
|---|
| 2316 | <summary>This repository contains the $ENV{'PBPROJ'}$repotag project packages.</summary> <!-- Summary of the repository -->
|
|---|
| 2317 | <description>This repository contains the $ENV{'PBPROJ'}$repotag project packages.</description><!-- This description is shown to the user -->
|
|---|
| 2318 | <url>$pbrepo->{$ENV{'PBPROJ'}}/$repodir</url><!--URL of repository, which is added -->
|
|---|
| 2319 | </repository>
|
|---|
| 2320 | </repositories>
|
|---|
| 2321 | <software><!-- A List of packages, which should be added through the one-click-installation -->
|
|---|
| 2322 | EOT
|
|---|
| 2323 | for p in $basesrc; do
|
|---|
| 2324 | sum=`rpm -q --qf '%{SUMMARY}' \$p`
|
|---|
| 2325 | name=`rpm -q --qf '%{NAME}' \$p`
|
|---|
| 2326 | desc=`rpm -q --qf '%{description}' \$p`
|
|---|
| 2327 | cat >> $ENV{'PBPROJ'}$repotag.ymp << EOT
|
|---|
| 2328 | <item>
|
|---|
| 2329 | <name>\$name</name><!-- Name of the package, is shown to the user and used to identify the package at the repository -->
|
|---|
| 2330 | <summary>\$sum</summary> <!-- Summary of the package -->
|
|---|
| 2331 | <description>\$desc</description> <!-- Description, is shown to the user -->
|
|---|
| 2332 | </item>
|
|---|
| 2333 | EOT
|
|---|
| 2334 | done
|
|---|
| 2335 | cat >> $ENV{'PBPROJ'}$repotag.ymp << EOT
|
|---|
| 2336 | </software>
|
|---|
| 2337 | </group>
|
|---|
| 2338 | </metapackage>
|
|---|
| 2339 | EOT
|
|---|
| 2340 | chmod 644 $ENV{'PBPROJ'}$repotag.ymp
|
|---|
| 2341 | EOF
|
|---|
| 2342 | }
|
|---|
| 2343 | } elsif ($pbos->{'type'} eq "deb") {
|
|---|
| 2344 | # Also make a pbscript to generate apt bases
|
|---|
| 2345 | # Cf: http://www.debian.org/doc/manuals/repository-howto/repository-howto.fr.html
|
|---|
| 2346 | # This dirname removes ver
|
|---|
| 2347 | my $debarch = pb_get_debarch($pbos);
|
|---|
| 2348 | my $projcomponent = pb_get_debpc($pbos);
|
|---|
| 2349 | my $rpd = dirname("$pbrepo->{$ENV{'PBPROJ'}}/$repodir");
|
|---|
| 2350 | # Remove extra . in path to fix #522
|
|---|
| 2351 | $rpd =~ s|/./|/|g;
|
|---|
| 2352 | print PBS << "EOF";
|
|---|
| 2353 | #!/bin/bash
|
|---|
| 2354 | # Prepare a script to ease apt setup
|
|---|
| 2355 | cat > $ENV{'PBPROJ'}$repotag.sources.list << EOT
|
|---|
| 2356 | deb $rpd $pbos->{'version'} $projcomponent
|
|---|
| 2357 | deb-src $rpd $pbos->{'version'} $projcomponent
|
|---|
| 2358 | EOT
|
|---|
| 2359 | chmod 644 $ENV{'PBPROJ'}$repotag.sources.list
|
|---|
| 2360 |
|
|---|
| 2361 | # Up two levels to deal with the dist dir cross versions
|
|---|
| 2362 | cd ..
|
|---|
| 2363 | mkdir -p dists/$pbos->{'version'}/$projcomponent/binary-$debarch dists/$pbos->{'version'}/$projcomponent/source
|
|---|
| 2364 |
|
|---|
| 2365 | # Prepare a script to create apt info file
|
|---|
| 2366 | # Reuse twice after
|
|---|
| 2367 | TMPD=`mktemp -d /tmp/pb.XXXXXXXXXX` || exit 1
|
|---|
| 2368 | mkdir -p \$TMPD
|
|---|
| 2369 | cat > \$TMPD/Release << EOT
|
|---|
| 2370 | Archive: unstable
|
|---|
| 2371 | Component: $projcomponent
|
|---|
| 2372 | Origin: $ENV{'PBPROJ'}$repotag
|
|---|
| 2373 | Label: $ENV{'PBPROJ'}$repotag dev repository $pbrepo->{$ENV{'PBPROJ'}}
|
|---|
| 2374 | EOT
|
|---|
| 2375 |
|
|---|
| 2376 | echo "Creating Packages metadata"
|
|---|
| 2377 | for i in dists/$pbos->{version}/$projcomponent/binary-*; do
|
|---|
| 2378 | arch=`basename \$i | sed 's/binary-//'`
|
|---|
| 2379 | echo "Packages for \$arch:"
|
|---|
| 2380 | dpkg-scanpackages -a\$arch $pbos->{'version'} /dev/null > dists/$pbos->{'version'}/$projcomponent/binary-\$arch/Packages
|
|---|
| 2381 | gzip -9 < dists/$pbos->{'version'}/$projcomponent/binary-\$arch/Packages > dists/$pbos->{'version'}/$projcomponent/binary-\$arch/Packages.gz
|
|---|
| 2382 | bzip2 -9 < dists/$pbos->{'version'}/$projcomponent/binary-\$arch/Packages > dists/$pbos->{'version'}/$projcomponent/binary-\$arch/Packages.bz2
|
|---|
| 2383 | done
|
|---|
| 2384 | echo "Creating Contents metadata"
|
|---|
| 2385 | apt-ftparchive contents $pbos->{'version'} | gzip -c9 > dists/$pbos->{'version'}/Contents.gz
|
|---|
| 2386 | echo "Creating Release metadata ($pbos->{'arch'} aka $debarch)"
|
|---|
| 2387 | cat \$TMPD/Release > dists/$pbos->{'version'}/$projcomponent/binary-$debarch/Release
|
|---|
| 2388 | echo "Architecture: $debarch" >> dists/$pbos->{'version'}/$projcomponent/binary-$debarch/Release
|
|---|
| 2389 | echo "Creating Source metadata"
|
|---|
| 2390 | dpkg-scansources $pbos->{'version'} /dev/null > dists/$pbos->{'version'}/$projcomponent/source/Sources
|
|---|
| 2391 | gzip -9 < dists/$pbos->{'version'}/$projcomponent/source/Sources > dists/$pbos->{'version'}/$projcomponent/source/Sources.gz
|
|---|
| 2392 | bzip2 -9 < dists/$pbos->{'version'}/$projcomponent/source/Sources > dists/$pbos->{'version'}/$projcomponent/source/Sources.bz2
|
|---|
| 2393 | cat \$TMPD/Release > dists/$pbos->{'version'}/$projcomponent/source/Release
|
|---|
| 2394 | echo "Architecture: Source" >> dists/$pbos->{'version'}/$projcomponent/source/Release
|
|---|
| 2395 | echo "Creating Release metadata"
|
|---|
| 2396 | # Signing that file would be useful but uneasy as gpg keys are not there
|
|---|
| 2397 | # Cf: http://wiki.debian.org/SecureApt
|
|---|
| 2398 | # Same as for repomd
|
|---|
| 2399 | apt-ftparchive -o APT::FTPArchive::Release::Suite=$pbos->{version} release dists/$pbos->{'version'} > dists/$pbos->{'version'}/Release
|
|---|
| 2400 | rm -rf \$TMPD
|
|---|
| 2401 | EOF
|
|---|
| 2402 | } elsif ($pbos->{'type'} eq "ebuild") {
|
|---|
| 2403 | # make a pbscript to generate links to latest version
|
|---|
| 2404 | print PBS << "EOF";
|
|---|
| 2405 | #!/bin/bash
|
|---|
| 2406 | # Prepare a script to create correct links
|
|---|
| 2407 | for p in $src; do
|
|---|
| 2408 | echo \$p | grep -q '.ebuild'
|
|---|
| 2409 | if [ \$\? -eq 0 ]; then
|
|---|
| 2410 | pp=`echo \$j | sed 's/-[0-9.]+-r[0-9]*//'`
|
|---|
| 2411 | ln -sf \$j \$pp
|
|---|
| 2412 | fi
|
|---|
| 2413 | done
|
|---|
| 2414 | EOF
|
|---|
| 2415 | }
|
|---|
| 2416 | close(PBS);
|
|---|
| 2417 | chmod 0755,$pbscript{$v};
|
|---|
| 2418 | } else {
|
|---|
| 2419 | return;
|
|---|
| 2420 | }
|
|---|
| 2421 |
|
|---|
| 2422 | # Useless for VE
|
|---|
| 2423 | my $nport = pb_get_port($sshport,$pbos,$cmt) if ($cmt !~ /^VE/);
|
|---|
| 2424 |
|
|---|
| 2425 | # Remove a potential $ENV{'HOME'} as tdir should be relative to pb's home
|
|---|
| 2426 | if ($cmt =~ /^VE/o) {
|
|---|
| 2427 | $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";
|
|---|
| 2428 | } else {
|
|---|
| 2429 | # process, ok if not present.
|
|---|
| 2430 | $tdir =~ s|\$ENV.+\}/||;
|
|---|
| 2431 | }
|
|---|
| 2432 |
|
|---|
| 2433 | my $tm = "";
|
|---|
| 2434 | if ($cmt =~ /^(V|R)M/) {
|
|---|
| 2435 | $tm = "sleep $vtmout" if (defined $vtmout);
|
|---|
| 2436 | }
|
|---|
| 2437 |
|
|---|
| 2438 | # ssh communication if not VE or CPAN
|
|---|
| 2439 | # should use a hash instead...
|
|---|
| 2440 | my ($shcmd,$shcmdroot,$cpcmd,$cptarget,$cp2target);
|
|---|
| 2441 | my $tpdir;
|
|---|
| 2442 | my $tp;
|
|---|
| 2443 | my $context = "$ENV{'PBTMP'}";
|
|---|
| 2444 | my %tag;
|
|---|
| 2445 | my $dkaccount = "";
|
|---|
| 2446 | my $cmd1 = "";
|
|---|
| 2447 | my $homedir = "";
|
|---|
| 2448 | if ($cmt =~ /^VE/) {
|
|---|
| 2449 | $tp = pb_path_expand($vepath->{$ENV{'PBPROJ'}});
|
|---|
| 2450 | $vetype = pb_ve_get_type($vetype);
|
|---|
| 2451 | if ($vetype eq "docker") {
|
|---|
| 2452 | $tpdir = "/";
|
|---|
| 2453 | } else {
|
|---|
| 2454 | $tpdir = pb_path_expand("$tp/$pbos->{'name'}/$pbos->{'version'}/$pbos->{'arch'}");
|
|---|
| 2455 | }
|
|---|
| 2456 | my $arch = pb_get_arch();
|
|---|
| 2457 | if ($vetype eq "chroot") {
|
|---|
| 2458 | $shcmdroot = "sudo /usr/sbin/chroot $tpdir ";
|
|---|
| 2459 | $shcmd = "$shcmdroot /bin/su - $mac -c ";
|
|---|
| 2460 | } elsif ($vetype eq "schroot") {
|
|---|
| 2461 | $shcmd = "schroot $tp -u $mac -- ";
|
|---|
| 2462 | } elsif ($vetype eq "docker") {
|
|---|
| 2463 | # docker manages the storage so rely on it
|
|---|
| 2464 | $shcmdroot = "";
|
|---|
| 2465 | my $docrepo = pb_ve_docker_repo();
|
|---|
| 2466 | $cmd1 = pb_check_req("docker",0);
|
|---|
| 2467 | #my ($dockeropt) = pb_conf_get_if("dockeropt");
|
|---|
| 2468 | # pbimage is used for docker and is setup to the right name depending on the step:
|
|---|
| 2469 | # TODO: This is not coded yet
|
|---|
| 2470 | my $pbimage = undef;
|
|---|
| 2471 | # step 0 : nothing at creation -> tag n-v-a (made in VE.pm)
|
|---|
| 2472 | # step 1 : n-v-a + setup -> tag n-v-a-pb
|
|---|
| 2473 | # step 2 : n-v-a-pb + build -> tag n-v-a-pb-pbproj
|
|---|
| 2474 | # step 3 : n-v-a-pb-pbproj at use
|
|---|
| 2475 | if ((not defined $pbimage) || ($pbimage eq "")) {
|
|---|
| 2476 | # If no image name given, create a naming convention
|
|---|
| 2477 | $tag{1} = "$docrepo$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}";
|
|---|
| 2478 | $tag{2} = "$tag{1}-pb";
|
|---|
| 2479 | $tag{3} = "$tag{2}-$ENV{'PBPROJ'}";
|
|---|
| 2480 | } else {
|
|---|
| 2481 | # If we were given an image name, just use it
|
|---|
| 2482 | $tag{1} = $pbimage;
|
|---|
| 2483 | $tag{2} = $pbimage;
|
|---|
| 2484 | $tag{3} = $pbimage;
|
|---|
| 2485 | }
|
|---|
| 2486 | # If we do not create the image, then use the one we should have
|
|---|
| 2487 | my $found = pb_ve_docker_get_image($tag{$pbstep});
|
|---|
| 2488 | # Now we use that image to do what is needed
|
|---|
| 2489 | # use a dockerfile to ease the creation of next images
|
|---|
| 2490 | # the context is in an empty temp dir
|
|---|
| 2491 | my $tmpd = "$context/Dockerfile";
|
|---|
| 2492 | open(DOCKER, "> $tmpd") || die "Unable to create the docker file $tmpd";
|
|---|
| 2493 | print DOCKER "FROM $tag{$pbstep}\n";
|
|---|
| 2494 | print DOCKER "MAINTAINER project-builder.org aka pb\n";
|
|---|
| 2495 | if ($pbstep == 1) {
|
|---|
| 2496 | # setup done as root
|
|---|
| 2497 | $dkaccount = "root";
|
|---|
| 2498 | } else {
|
|---|
| 2499 | # Rest done as pb
|
|---|
| 2500 | $dkaccount = "pb";
|
|---|
| 2501 | }
|
|---|
| 2502 | print DOCKER "USER $dkaccount\n";
|
|---|
| 2503 | if ($pbstep <= 2) {
|
|---|
| 2504 | $shcmd = "$cmd1 build -t $tag{$pbstep+1} $context";
|
|---|
| 2505 | } else {
|
|---|
| 2506 | # As we are in run phase use docker run. cmd will be completed below
|
|---|
| 2507 | $shcmd = "$cmd1 run --cidfile=\"$ENV{'PBTMP'}/ctn.cid\" --user $dkaccount --name $pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}-$cmt";
|
|---|
| 2508 | }
|
|---|
| 2509 | #$shcmd = "$cmd1 build $dockeropt->{$ENV{'PBPROJ'}} -t $tag{$pbstep+1} $context";
|
|---|
| 2510 | }
|
|---|
| 2511 | $shcmd = "setarch i386 $shcmd" if (($pbos->{'arch'} =~ /i[3456]86/) && ($arch eq 'x86_64'));
|
|---|
| 2512 | if (($cmt =~ /VE/) && ($vetype ne "docker")) {
|
|---|
| 2513 | # We need to get the home dir of the target account to deliver in the right place
|
|---|
| 2514 | open(PASS,"$tpdir/etc/passwd") || die "Unable to open $tpdir/etc/passwd: $!";
|
|---|
| 2515 | while (<PASS>) {
|
|---|
| 2516 | my ($c1,$c2,$c3,$c4,$c5,$c6,$c7) = split(/:/);
|
|---|
| 2517 | $homedir = $c6 if ($c1 =~ /^$mac$/);
|
|---|
| 2518 | pb_log(3,"Homedir: $homedir - account: $c6\n");
|
|---|
| 2519 | }
|
|---|
| 2520 | close(PASS);
|
|---|
| 2521 | $cpcmd = "sudo /bin/cp -r ";
|
|---|
| 2522 | }
|
|---|
| 2523 | if (($cmt =~ /VE/) && ($vetype eq "docker")) {
|
|---|
| 2524 | if ($pbstep >= 2) {
|
|---|
| 2525 | # We need to get the home dir of the target account to deliver in the right place
|
|---|
| 2526 | $homedir = `$cmd1 run --cidfile="$ENV{'PBTMP'}/ctn.cid" $tag{$pbstep} grep -E '^$dkaccount:' /etc/passwd | cut -d: -f6`;
|
|---|
| 2527 | chomp($homedir);
|
|---|
| 2528 | open(CID,"$ENV{'PBTMP'}/ctn.cid") || confess "Unable to open $ENV{'PBTMP'}/ctn.cid";
|
|---|
| 2529 | my $cid = <CID>;
|
|---|
| 2530 | close(CID);
|
|---|
| 2531 | pb_system("$cmd1 rm $cid","","quiet");
|
|---|
| 2532 | unlink("$ENV{'PBTMP'}/ctn.cid");
|
|---|
| 2533 | } else {
|
|---|
| 2534 | $homedir = "/";
|
|---|
| 2535 | }
|
|---|
| 2536 | $cpcmd = "cp -r ";
|
|---|
| 2537 | }
|
|---|
| 2538 | $cptarget = "$tpdir/$homedir/$tdir";
|
|---|
| 2539 | if ($cmt =~ /VE(build|prep)/) {
|
|---|
| 2540 | $cp2target = "$tpdir/$homedir/$bdir";
|
|---|
| 2541 | }
|
|---|
| 2542 | pb_log(2,"On VE using $cptarget as target dir to copy to\n");
|
|---|
| 2543 | } elsif ($cmt eq "CPAN") {
|
|---|
| 2544 | my $ftpput = pb_check_req("ncftpput",1);
|
|---|
| 2545 | my $ftpget = pb_check_req("wget",1);
|
|---|
| 2546 | my ($cpanuser,$cpanpasswd) = pb_conf_get_if("cpanuser","cpanpasswd");
|
|---|
| 2547 | return if ((not defined $cpanuser) || (not defined $cpanuser->{$ENV{'PBPROJ'}}));
|
|---|
| 2548 | return if ((not defined $cpanpasswd) || (not defined $cpanpasswd->{$ENV{'PBPROJ'}}));
|
|---|
| 2549 | my ($cpansubdir) = pb_conf_get_if("cpansubdir");
|
|---|
| 2550 | $shcmd = "$ftpget --post-data \'HIDDENNAME=".$cpanuser->{$ENV{'PBPROJ'}};
|
|---|
| 2551 | $shcmd .= "&user=".$cpanuser->{$ENV{'PBPROJ'}};
|
|---|
| 2552 | $shcmd .= "&password=".$cpanpasswd->{$ENV{'PBPROJ'}};
|
|---|
| 2553 | $shcmd .= "&SUBMIT_pause99_add_uri_upload=\"Upload the checked files\"";
|
|---|
| 2554 | $shcmd .= "&pause99_add_uri_subdirtext=".$cpansubdir->{$ENV{'PBPROJ'}} if ((defined $cpansubdir) && (defined $cpansubdir->{$ENV{'PBPROJ'}}));
|
|---|
| 2555 | foreach my $s (split(/ /,$src)) {
|
|---|
| 2556 | $shcmd .= "&pause99_add_uri_upload=".basename($s);
|
|---|
| 2557 | }
|
|---|
| 2558 | $shcmd .= "'";
|
|---|
| 2559 | $cpcmd = "$ftpput $host $dir";
|
|---|
| 2560 | $cptarget = "CPAN";
|
|---|
| 2561 | } else {
|
|---|
| 2562 | my $keyopt = "";
|
|---|
| 2563 | if ($cmt !~ /Packages/) {
|
|---|
| 2564 | my $keyfile = pb_ssh_get(0,$remhost,$nport);
|
|---|
| 2565 | $keyopt = "-i $keyfile" if (defined $keyfile);
|
|---|
| 2566 | }
|
|---|
| 2567 | my $sshcmd = pb_check_req("ssh",1);
|
|---|
| 2568 | my $scpcmd = pb_check_req("scp",1);
|
|---|
| 2569 | $shcmd = "$sshcmd $keyopt -q -o NoHostAuthenticationForLocalhost=yes -p $nport $mac";
|
|---|
| 2570 | $cpcmd = "$scpcmd $keyopt -p -o NoHostAuthenticationForLocalhost=yes -P $nport";
|
|---|
| 2571 | $cptarget = "$mac:$tdir";
|
|---|
| 2572 | if ($cmt =~ /^(V|R)M(build|prep)/) {
|
|---|
| 2573 | $cp2target = "$mac:$bdir";
|
|---|
| 2574 | }
|
|---|
| 2575 | }
|
|---|
| 2576 |
|
|---|
| 2577 | my $logres = "";
|
|---|
| 2578 | # Do not touch when just announcing
|
|---|
| 2579 | if (($cmt ne "Announce") && ($cmt ne "CPAN")) {
|
|---|
| 2580 | # For docker everything is done in the Dockerfile for steps < 3
|
|---|
| 2581 | if (($cmt =~ /^VE/) && ($vetype eq "docker") && ($pbstep < 3)) {
|
|---|
| 2582 | print DOCKER "RUN mkdir -p $cptarget\n";
|
|---|
| 2583 | print DOCKER "RUN cd $cptarget ; for i in $basesrc; do if [ -f \$i ]; then rm -f \$i; fi; done\n";
|
|---|
| 2584 | } elsif (($cmt =~ /^VE/) && ($vetype eq "docker") && ($pbstep >= 3)) {
|
|---|
| 2585 | # Nothing to do here
|
|---|
| 2586 | } else {
|
|---|
| 2587 | pb_system("$shcmd \"rm -rf $tdir ; mkdir -p $tdir ; cd $tdir ; $cmd\"","Preparing $tdir on $cptarget");
|
|---|
| 2588 | }
|
|---|
| 2589 | } else {
|
|---|
| 2590 | $logres = "> ";
|
|---|
| 2591 | }
|
|---|
| 2592 |
|
|---|
| 2593 | if ($cmt =~ /SandBox/) {
|
|---|
| 2594 | # Install from sandbox mean using the result of the just passed sbx2build command
|
|---|
| 2595 | # Get content saved in cms2build
|
|---|
| 2596 | my ($pkg) = pb_conf_read("$ENV{'PBDESTDIR'}/$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}.pb","pbpkg");
|
|---|
| 2597 | my $pbextdir = pb_get_extdir();
|
|---|
| 2598 | confess "Unable to get package list" if (not defined $pkg);
|
|---|
| 2599 |
|
|---|
| 2600 | # We consider 2 specific packages
|
|---|
| 2601 | my $vertag1 = $pkg->{"ProjectBuilder"};
|
|---|
| 2602 | my $vertag2 = $pkg->{"project-builder"};
|
|---|
| 2603 | # get the version of the current package - maybe different
|
|---|
| 2604 | pb_log(2,"Vertag1: $vertag1\n");
|
|---|
| 2605 | pb_log(2,"Vertag2: $vertag2\n");
|
|---|
| 2606 | my ($pbver1,$tmp1) = split(/-/,$vertag1);
|
|---|
| 2607 | my ($pbver2,$tmp2) = split(/-/,$vertag2);
|
|---|
| 2608 | if ($cmt =~ /VE/) {
|
|---|
| 2609 | # Copy inside the VE
|
|---|
| 2610 | if ($vetype ne "docker") {
|
|---|
| 2611 | copy("$ENV{'PBDESTDIR'}/ProjectBuilder-$pbver1$pbextdir.tar.gz","$tpdir/tmp");
|
|---|
| 2612 | copy("$ENV{'PBDESTDIR'}/project-builder-$pbver2$pbextdir.tar.gz","$tpdir/tmp");
|
|---|
| 2613 | } else {
|
|---|
| 2614 | copy("$ENV{'PBDESTDIR'}/ProjectBuilder-$pbver1$pbextdir.tar.gz","$context");
|
|---|
| 2615 | copy("$ENV{'PBDESTDIR'}/project-builder-$pbver2$pbextdir.tar.gz","$context");
|
|---|
| 2616 | print DOCKER "COPY ProjectBuilder-$pbver1$pbextdir.tar.gz /tmp/\n";
|
|---|
| 2617 | print DOCKER "COPY project-builder-$pbver2$pbextdir.tar.gz /tmp/\n";
|
|---|
| 2618 | }
|
|---|
| 2619 | } else {
|
|---|
| 2620 | pb_system("$cpcmd $ENV{'PBDESTDIR'}/ProjectBuilder-$pbver1$pbextdir.tar.gz $ENV{'PBDESTDIR'}/project-builder-$pbver2$pbextdir.tar.gz $mac:/tmp","Copying local project files to VM/RM");
|
|---|
| 2621 | }
|
|---|
| 2622 | }
|
|---|
| 2623 |
|
|---|
| 2624 | pb_log(0,"Sources handled ($cmt): $src\n");
|
|---|
| 2625 | # For docker everything is done in the Dockerfile
|
|---|
| 2626 | if (($cmt =~ /^VE/) && ($vetype eq "docker") && ($pbstep < 3)) {
|
|---|
| 2627 | foreach my $f (split(/ +/,$src)) {
|
|---|
| 2628 | copy("$f","$context");
|
|---|
| 2629 | print DOCKER "COPY ".basename($f)." $cptarget/\n";
|
|---|
| 2630 | }
|
|---|
| 2631 | print DOCKER "RUN cd $cptarget ; $cmd\n" if ((defined $cmd) && ($cmd ne ""));
|
|---|
| 2632 | } elsif (($cmt =~ /^VE/) && ($vetype eq "docker") && ($pbstep >= 3)) {
|
|---|
| 2633 | # Nothing to do
|
|---|
| 2634 | } else {
|
|---|
| 2635 | pb_system("cd $ENV{'PBBUILDDIR'} ; $cpcmd $src $cptarget 2> /dev/null","$cmt delivery in $cptarget");
|
|---|
| 2636 | }
|
|---|
| 2637 |
|
|---|
| 2638 | # For VE we need to change the owner manually
|
|---|
| 2639 | if ($cmt =~ /^VE/) {
|
|---|
| 2640 | if ($vetype ne "docker") {
|
|---|
| 2641 | my $sudomode = pb_distro_get_param($pbos,pb_conf_get("ossudoersmode"));
|
|---|
| 2642 | my $res = pb_system("$shcmdroot sed -i '/requiretty/d' /etc/sudoers","Removing potential requiretty in sudoers","quiet");
|
|---|
| 2643 | pb_system("$shcmdroot sed '/requiretty/d' /etc/sudoers > /tmp/sudoers.new ; mv /tmp/sudoers.new $tpdir/tmp/sudoers.new ; $shcmdroot mv /tmp/sudoers.new /etc/sudoers ; $shcmdroot chown root:root /etc/sudoers ; $shcmdroot chmod $sudomode /etc/sudoers","Removing again potential requiretty in sudoers as sed -i failed") if (($res ne 0) && (-f "$tpdir/etc/sudoers"));
|
|---|
| 2644 | pb_system("$shcmd \"sudo chown -R $mac $tdir\"","Adapt owner in $tdir to $mac");
|
|---|
| 2645 | } else {
|
|---|
| 2646 | print DOCKER "RUN sed -i '/requiretty/d' /etc/sudoers\n" if ($pbstep == 1);
|
|---|
| 2647 | }
|
|---|
| 2648 | }
|
|---|
| 2649 |
|
|---|
| 2650 | # Use the right script name depending on context
|
|---|
| 2651 | my $pbscript2;
|
|---|
| 2652 | if (($cmt =~ /^(V[EM]|RM)/) || ($cmt =~ /Packages/)){
|
|---|
| 2653 | $pbscript2 = $pbscript{$v};
|
|---|
| 2654 | } else {
|
|---|
| 2655 | $pbscript2 = "pbscript";
|
|---|
| 2656 | }
|
|---|
| 2657 |
|
|---|
| 2658 | # It's already ready for CPAN
|
|---|
| 2659 | my $shcmdbase = $shcmd;
|
|---|
| 2660 | my $dkcmd;
|
|---|
| 2661 | if ($cmt ne "CPAN") {
|
|---|
| 2662 | if (($cmt =~ /^VE/) && ($vetype eq "docker") && ($pbstep < 3)) {
|
|---|
| 2663 | copy("$pbscript2","$context");
|
|---|
| 2664 | my $s = basename($pbscript2);
|
|---|
| 2665 | print DOCKER "COPY $s $cptarget/\n";
|
|---|
| 2666 | # call directly with perl to avoid text file busy error messages
|
|---|
| 2667 | print DOCKER "RUN cd $cptarget ; perl ./$s ; if [ '$pbkeep' = '0' ]; then rm -f $s; fi\n";
|
|---|
| 2668 | print DOCKER "RUN rm -rf $cptarget/*\n";
|
|---|
| 2669 | print DOCKER "RUN chown -R $dkaccount $cptarget\n" if ($pbstep == 1);
|
|---|
| 2670 | close(DOCKER);
|
|---|
| 2671 | } elsif (($cmt =~ /^VE/) && ($vetype eq "docker") && ($pbstep >= 3)) {
|
|---|
| 2672 | $dkcmd = "/bin/bash $homedir/$tdir-2/".basename($pbscript2);
|
|---|
| 2673 | } else {
|
|---|
| 2674 | my $s = basename($pbscript2);
|
|---|
| 2675 | $shcmd .= " \"echo \'cd $tdir ; if [ -x $s ]; then ./$s; fi ; if [ $pbkeep == 0 ]; then rm -f $s; fi\' | bash\"";
|
|---|
| 2676 | }
|
|---|
| 2677 | }
|
|---|
| 2678 | my $cmdverb = "verbose";
|
|---|
| 2679 | if (($cmt eq "Announce") || ($cmt eq "CPAN")) {
|
|---|
| 2680 | $cmdverb = undef;
|
|---|
| 2681 | } elsif (defined ($v)) {
|
|---|
| 2682 | $cmdverb = "verbose_\[$v\] ";
|
|---|
| 2683 | }
|
|---|
| 2684 | # this is where we lanch the execution
|
|---|
| 2685 | if (($cmt =~ /^VE/) && ($vetype eq "docker") && ($pbstep >= 3)) {
|
|---|
| 2686 | pb_mkdir_p("$ENV{'PBTMP'}/vebuild");
|
|---|
| 2687 | my $tsrc = "";
|
|---|
| 2688 | foreach my $f (split(/ +/,$src)) {
|
|---|
| 2689 | copy("$f","$ENV{'PBTMP'}/vebuild");
|
|---|
| 2690 | $tsrc .= " ".basename($f);
|
|---|
| 2691 | }
|
|---|
| 2692 | my $ts = "$ENV{'PBTMP'}/vebuild/".basename($pbscript2);
|
|---|
| 2693 | open(DOCKER," > $ts") || confess "Unable to create $ts";
|
|---|
| 2694 | print DOCKER "#!/bin/bash\n";
|
|---|
| 2695 | print DOCKER "# Put content from host to guest, copying to have the correct uid/gid and rights to do so\n";
|
|---|
| 2696 | print DOCKER "# set -x\n";
|
|---|
| 2697 | print DOCKER "for i in $tsrc; do\n";
|
|---|
| 2698 | print DOCKER " # Cleanup first to avoid rights issues for root owned files e.g.\n";
|
|---|
| 2699 | print DOCKER " rm -f $homedir/$tdir/\$i\n";
|
|---|
| 2700 | print DOCKER " cp $homedir/$tdir-2/\$i $homedir/$tdir\n";
|
|---|
| 2701 | print DOCKER "done\n";
|
|---|
| 2702 | print DOCKER "(cd $homedir/$tdir-2 ; ls -al)\n";
|
|---|
| 2703 | print DOCKER pb_get_content($pbscript2);
|
|---|
| 2704 | print DOCKER "\n# Get content back from guest in a host dir\n";
|
|---|
| 2705 | # Host dir seen as TDIR in container
|
|---|
| 2706 | $cp2target = "$ENV{'PBBUILDDIR'}/$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}-$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}";
|
|---|
| 2707 | pb_mkdir_p("$cp2target");
|
|---|
| 2708 | chmod 0777,"$cp2target";
|
|---|
| 2709 | print DOCKER "TDIR=$homedir/$bdir-2/$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}-$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}\n";
|
|---|
| 2710 | print DOCKER "for i in $homedir/$bdir/*; do\n";
|
|---|
| 2711 | print DOCKER " # Cleanup first to avoid rights issues for root owned files e.g.\n";
|
|---|
| 2712 | print DOCKER " j=\`basename \$i\`\n";
|
|---|
| 2713 | print DOCKER " rm -f \$TDIR/\$j\n";
|
|---|
| 2714 | print DOCKER " cp -r \$i \$TDIR\n";
|
|---|
| 2715 | print DOCKER "done\n";
|
|---|
| 2716 | print DOCKER "find \$TDIR -type f -print0 | xargs -0 chmod 644\n";
|
|---|
| 2717 | print DOCKER "find \$TDIR -type d -print0 | xargs -0 chmod 777 2> /dev/null\n";
|
|---|
| 2718 | #print DOCKER "ls -al \$TDIR\n";
|
|---|
| 2719 | close(DOCKER);
|
|---|
| 2720 | $shcmd .= " -v $ENV{'PBBUILDDIR'}:$homedir/$bdir-2 -v $ENV{'PBTMP'}/vebuild:$homedir/$tdir-2 -w $homedir/$tdir-2 $tag{$pbstep} $dkcmd";
|
|---|
| 2721 | }
|
|---|
| 2722 | my $ret = pb_system("$shcmd","Executing pbscript on $cptarget if needed",$cmdverb);
|
|---|
| 2723 |
|
|---|
| 2724 | # If target is deb family then sign Release file for Packages
|
|---|
| 2725 | my $pbos2 = pb_distro_get_context($v);
|
|---|
| 2726 | if (($cmt =~ /Packages/) && ($pbos2->{'type'} eq "deb")) {
|
|---|
| 2727 | my $debarch = pb_get_debarch($pbos2);
|
|---|
| 2728 | my $projcomponent = pb_get_debpc($pbos2);
|
|---|
| 2729 | for my $f ("dists/$pbos2->{'version'}/$projcomponent/binary-$debarch/Release","dists/$pbos2->{'version'}/$projcomponent/source/Release","dists/$pbos2->{'version'}/Release") {
|
|---|
| 2730 | my $debdir = dirname($cptarget);
|
|---|
| 2731 | pb_system("cd $ENV{'PBBUILDDIR'} ; $cpcmd $debdir/$f . 2> /dev/null","Getting deb $f file from $debdir");
|
|---|
| 2732 | pb_sign_file("$ENV{'PBBUILDDIR'}/Release");
|
|---|
| 2733 | pb_system("$cpcmd $ENV{'PBBUILDDIR'}/Release.gpg $debdir/$f.gpg 2> /dev/null","Putting deb $f.gpg file to $debdir");
|
|---|
| 2734 | }
|
|---|
| 2735 | }
|
|---|
| 2736 |
|
|---|
| 2737 | if ($cmt =~ /^(V[EM]|RM)build/) {
|
|---|
| 2738 | # Get back info on pkg produced, compute their name and get them from the VM/RM
|
|---|
| 2739 | 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");
|
|---|
| 2740 | if (not -f "$ENV{'PBBUILDDIR'}/pbgen-$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}.$$") {
|
|---|
| 2741 | pb_log(0,"ERROR with VM/RM $v on getting $ENV{'PBBUILDDIR'}/pbgen-$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}.$$\n");
|
|---|
| 2742 | } else {
|
|---|
| 2743 | open(KEEP,"$ENV{'PBBUILDDIR'}/pbgen-$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}.$$") || die "Unable to read $ENV{'PBBUILDDIR'}/pbgen-$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}.$$";
|
|---|
| 2744 | my $src = <KEEP>;
|
|---|
| 2745 | chomp($src);
|
|---|
| 2746 | close(KEEP);
|
|---|
| 2747 | unlink("$ENV{'PBBUILDDIR'}/pbgen-$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}.$$");
|
|---|
| 2748 |
|
|---|
| 2749 | $src =~ s/^ *//;
|
|---|
| 2750 | pb_mkdir_p("$ENV{'PBBUILDDIR'}/$pbos->{'name'}/$pbos->{'version'}/$pbos->{'arch'}");
|
|---|
| 2751 | # Change pgben to make the next send2target happy
|
|---|
| 2752 | my $made = "";
|
|---|
| 2753 |
|
|---|
| 2754 | # For VM/RM we don't want shell expansion to hapen locally but remotely
|
|---|
| 2755 | my $delim = '\'';
|
|---|
| 2756 | if ($cmt =~ /^VEbuild/) {
|
|---|
| 2757 | # For VE we need to support shell expansion locally
|
|---|
| 2758 | $delim = "";
|
|---|
| 2759 | }
|
|---|
| 2760 |
|
|---|
| 2761 | 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'}";
|
|---|
| 2762 | foreach my $p (split(/ +/,$src)) {
|
|---|
| 2763 | my $j = basename($p);
|
|---|
| 2764 | 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'}");
|
|---|
| 2765 | $made="$made $pbos->{'name'}/$pbos->{'version'}/$pbos->{'arch'}/$j"; # if (($pbos->{'type'} ne "rpm") || ($j !~ /.src.rpm$/));
|
|---|
| 2766 | }
|
|---|
| 2767 |
|
|---|
| 2768 | print KEEP "$made\n";
|
|---|
| 2769 | close(KEEP);
|
|---|
| 2770 | if (($cmt =~ /^VE/) && ($vetype eq "docker") && ($pbstep >= 3)) {
|
|---|
| 2771 | pb_rm_rf("$cp2target");
|
|---|
| 2772 | pb_system("$cmd1 rm $pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}-$cmt","","quiet");
|
|---|
| 2773 | } else {
|
|---|
| 2774 | pb_system("$shcmdbase \"rm -rf $tdir $bdir\"","$cmt cleanup");
|
|---|
| 2775 | }
|
|---|
| 2776 |
|
|---|
| 2777 | # Sign packages locally
|
|---|
| 2778 | pb_sign_pkgs($pbos,$made);
|
|---|
| 2779 |
|
|---|
| 2780 | # We want to send them to the ssh account so overwrite what has been done before
|
|---|
| 2781 | pb_log(2,"Before sending pkgs, vexist: $vexist, vpid: $vpid\n");
|
|---|
| 2782 | pb_send2target("Packages","$ENV{'PBDESTDIR'}/pbscript.$$",$pbos->{'name'}."-".$pbos->{'version'}."-".$pbos->{'arch'},$vexist,$vpid);
|
|---|
| 2783 | pb_rm_rf("$ENV{'PBBUILDDIR'}/$pbos->{'name'}/$pbos->{'version'}/$pbos->{'arch'}");
|
|---|
| 2784 | }
|
|---|
| 2785 | }
|
|---|
| 2786 | unlink("$pbscript{$v}") if ((($cmt =~ /^(V[ME]|RM)/) || ($cmt =~ /Packages/)) && ($pbkeep eq 0) && ($cmt !~ /Script/));
|
|---|
| 2787 |
|
|---|
| 2788 | pb_log(2,"Before halt, vexist: $vexist, vpid: $vpid\n");
|
|---|
| 2789 | if ((! $vexist) && ($cmt =~ /^VM/)) {
|
|---|
| 2790 | # If in setupvm then takes a snapshot just before halting
|
|---|
| 2791 | if ($snapme != 0) {
|
|---|
| 2792 | my ($vmmonport,$vmtype) = pb_conf_get("vmmonport","vmtype");
|
|---|
| 2793 | # For monitoring control
|
|---|
| 2794 | if ((($vmtype->{$ENV{'PBPROJ'}}) eq "kvm") || (($vmtype->{$ENV{'PBPROJ'}}) eq "qemu")) {
|
|---|
| 2795 | eval
|
|---|
| 2796 | {
|
|---|
| 2797 | require Net::Telnet;
|
|---|
| 2798 | Net::Telnet->import();
|
|---|
| 2799 | };
|
|---|
| 2800 | if ($@) {
|
|---|
| 2801 | # Net::Telnet not found
|
|---|
| 2802 | pb_log(1,"ADVISE: Install Net::Telnet to benefit from monitoring control and snapshot feature.\nWARNING: No snapshot created");
|
|---|
| 2803 | } else {
|
|---|
| 2804 | my $t = new Net::Telnet (Timeout => 120, Host => "localhost", Port => $vmmonport->{$ENV{'PBPROJ'}}) || die "Unable to dialog on the monitor";
|
|---|
| 2805 | # move to monitor mode
|
|---|
| 2806 | my @lines = $t->cmd("c");
|
|---|
| 2807 | # Create a snapshot named pb
|
|---|
| 2808 | @lines = $t->cmd("savevm pb");
|
|---|
| 2809 | # Write the new status in the VM
|
|---|
| 2810 | @lines = $t->cmd("commit all");
|
|---|
| 2811 | # End
|
|---|
| 2812 | @lines = $t->cmd("quit");
|
|---|
| 2813 | }
|
|---|
| 2814 | }
|
|---|
| 2815 | }
|
|---|
| 2816 | my $hoption = "-p";
|
|---|
| 2817 | my $hpath = pb_distro_get_param($pbos,pb_conf_get("ospathcmd-halt"));
|
|---|
| 2818 | # Solaris doesn't support -p of halt
|
|---|
| 2819 | if ($pbos->{'type'} eq "pkg") {
|
|---|
| 2820 | $hoption = "" ;
|
|---|
| 2821 | }
|
|---|
| 2822 | pb_system("$shcmdbase \"sudo $hpath $hoption \"; $tm ; echo \'if [ -d /proc/$vpid ]; then kill -9 $vpid; fi \' | bash ; sleep 10","VM $v halt (pid $vpid)");
|
|---|
| 2823 | }
|
|---|
| 2824 | if (($cmt =~ /^VE/) && ($snapme != 0)) {
|
|---|
| 2825 | if ($vetype eq "docker") {
|
|---|
| 2826 | foreach my $f (split(/ +/,$src)) {
|
|---|
| 2827 | unlink("$context/$f");
|
|---|
| 2828 | }
|
|---|
| 2829 | } else {
|
|---|
| 2830 | pb_ve_snap($pbos,$tp);
|
|---|
| 2831 | }
|
|---|
| 2832 | }
|
|---|
| 2833 | }
|
|---|
| 2834 |
|
|---|
| 2835 | sub pb_script2v {
|
|---|
| 2836 |
|
|---|
| 2837 | my $pbscript=shift;
|
|---|
| 2838 | my $vtype=shift;
|
|---|
| 2839 | my $pbstep=shift; # Which step are we in (0: create, 1: setup pb, 2: prep pbproj, 3: use to build)
|
|---|
| 2840 | my $pbforce=shift; # Force stop of VM. Default not.
|
|---|
| 2841 | my $snapme=shift; # Do we have to create a snapshot. Default not.
|
|---|
| 2842 | my $pbimage=shift; # Which image to use to start the VM/VE
|
|---|
| 2843 |
|
|---|
| 2844 | $pbforce = 0 if (not defined $pbforce);
|
|---|
| 2845 | $snapme = 0 if (not defined $snapme);
|
|---|
| 2846 | $pbstep = 3 if (not defined $pbstep);
|
|---|
| 2847 |
|
|---|
| 2848 | pb_log(2,"DEBUG: pb_script2v($vtype,$pbstep,$pbforce,$snapme)\n");
|
|---|
| 2849 | pb_log(2,"DEBUG: pb_script2v(pbscript: ".Dumper($pbscript)."\n") if (defined $pbscript);
|
|---|
| 2850 | pb_parallel_launchv($pbscript,$vtype,uc($vtype)."Script",$pbstep,$pbimage,$pbforce,$snapme,$pbsnap);
|
|---|
| 2851 | }
|
|---|
| 2852 |
|
|---|
| 2853 | sub pb_parallel_launchv {
|
|---|
| 2854 |
|
|---|
| 2855 | my $pbscript=shift;
|
|---|
| 2856 | my $vtype = shift;
|
|---|
| 2857 | my $action = shift; # It an action is defined then use send2target
|
|---|
| 2858 | my $pbstep=shift; # Which step are we in (0: create, 1: setup, 2: build 3: use)
|
|---|
| 2859 | my $pbimage=shift; # Which image to use to start the VM/VE
|
|---|
| 2860 | my $pbforce=shift; # Force stop of VM. Default not.
|
|---|
| 2861 | my $snapme = shift; # By default do not snap a VM/VE/RM
|
|---|
| 2862 | my $usesnap = shift; # By default study the usage of the snapshot feature of VM/VE/RM
|
|---|
| 2863 | my $vm;
|
|---|
| 2864 | my $all;
|
|---|
| 2865 |
|
|---|
| 2866 | $pbforce = 0 if (not defined $pbforce);
|
|---|
| 2867 | $snapme = 0 if (not defined $snapme);
|
|---|
| 2868 | $usesnap = 1 if (not defined $usesnap);
|
|---|
| 2869 |
|
|---|
| 2870 | # Adapt // mode to memory size
|
|---|
| 2871 | $pbparallel = pb_set_parallel($vtype);
|
|---|
| 2872 |
|
|---|
| 2873 | pb_log(2,"DEBUG: pb_parallel_launch(vtype,step,force,snapme,usesnap: $vtype,$pbstep,$pbforce,$snapme,$usesnap)\n");
|
|---|
| 2874 | pb_log(2,"DEBUG: pb_parallel_launch(pbscript: ".Dumper($pbscript)."\n");
|
|---|
| 2875 |
|
|---|
| 2876 | my ($vexist,$vpid) = (undef,undef);
|
|---|
| 2877 | my $pm;
|
|---|
| 2878 | my $all_ok = 1;
|
|---|
| 2879 | if (defined $pbparallel) {
|
|---|
| 2880 | $pm = new Parallel::ForkManager($pbparallel);
|
|---|
| 2881 |
|
|---|
| 2882 | # Set which port the VM/RM will use to communicate
|
|---|
| 2883 | $pm->run_on_start(\&pb_set_port);
|
|---|
| 2884 | $pm->run_on_finish(sub { my ($pid, $code, $id, $signal, $dump) = @_;
|
|---|
| 2885 | unless ($code == 0 && $signal == 0 && $dump == 0) {
|
|---|
| 2886 | $all_ok = 0;
|
|---|
| 2887 | pb_log(0,"ERROR: pid $pid failed\n");
|
|---|
| 2888 | }
|
|---|
| 2889 | });
|
|---|
| 2890 | }
|
|---|
| 2891 |
|
|---|
| 2892 | # Determine on which V to work
|
|---|
| 2893 | if (defined $ENV{'PBV'}) {
|
|---|
| 2894 | @$vm = split(/,/,$ENV{'PBV'});
|
|---|
| 2895 | } else {
|
|---|
| 2896 | ($vm,$all) = pb_get2v($vtype);
|
|---|
| 2897 | }
|
|---|
| 2898 |
|
|---|
| 2899 | my $counter = 0;
|
|---|
| 2900 | foreach my $v (@$vm) {
|
|---|
| 2901 | $counter++;
|
|---|
| 2902 | # Modulo 2 * pbparallel (to avoid synchronization problems)
|
|---|
| 2903 | $counter = 1 if ((defined $pbparallel) && ($counter > 2 * $pbparallel));
|
|---|
| 2904 | $pm->start($counter) and next if (defined $pbparallel);
|
|---|
| 2905 |
|
|---|
| 2906 | # If launched via script2v then get the script passed as the one for the that VM
|
|---|
| 2907 | if (not defined $pbscript->{$v}) {
|
|---|
| 2908 | $pbscript->{$v} = $pbscript->{'default'};
|
|---|
| 2909 | }
|
|---|
| 2910 | #
|
|---|
| 2911 | # Launch a single operation
|
|---|
| 2912 | ($vexist,$vpid) = pb_launchv($pbscript->{$v},$vtype,$v,$action,$pbstep,$pbforce,$snapme,$pbsnap,$pbimage);
|
|---|
| 2913 |
|
|---|
| 2914 | # Skip that VM/RM if something went wrong
|
|---|
| 2915 | if (($vtype =~ /(v|r)m/) && ($vpid == 0) && ($vexist == 0)) {
|
|---|
| 2916 | $pm->finish if (defined $pbparallel);
|
|---|
| 2917 | next;
|
|---|
| 2918 | }
|
|---|
| 2919 |
|
|---|
| 2920 |
|
|---|
| 2921 | $pm->finish if (defined $pbparallel);
|
|---|
| 2922 | }
|
|---|
| 2923 | $pm->wait_all_children if (defined $pbparallel);
|
|---|
| 2924 | die "Aborting, one or more of the children failed." if ((not $all_ok) && ($Global::pb_stop_on_error));
|
|---|
| 2925 | }
|
|---|
| 2926 |
|
|---|
| 2927 | sub pb_launchv {
|
|---|
| 2928 |
|
|---|
| 2929 | my $pbscript1=shift; # Just the script name to execute, not the hash
|
|---|
| 2930 | my $vtype = shift;
|
|---|
| 2931 | my $v = shift; # Only 1 VM/VE/RM treated here
|
|---|
| 2932 | my $action = shift; # It an action is defined then use send2target
|
|---|
| 2933 | my $pbstep=shift; # Which step are we in (0: create, 1: setup, 2: build 3: use)
|
|---|
| 2934 | my $pbforce=shift; # Force stop of VM. Default not.
|
|---|
| 2935 | my $snapme = shift; # By default do not snap a VM/VE/RM
|
|---|
| 2936 | my $usesnap = shift; # By default study the usage of the snapshot feature of VM/VE/RM
|
|---|
| 2937 | my $pbimage=shift; # Which image to use to start the VM/VE
|
|---|
| 2938 | my $vexist = undef;
|
|---|
| 2939 | my $vpid = undef;
|
|---|
| 2940 |
|
|---|
| 2941 | $pbforce = 0 if (not defined $pbforce);
|
|---|
| 2942 | $snapme = 0 if (not defined $snapme);
|
|---|
| 2943 | $usesnap = 1 if (not defined $usesnap);
|
|---|
| 2944 |
|
|---|
| 2945 | # Check that v exists
|
|---|
| 2946 | die "No VM/VE/RM defined, unable to launch" if (not defined $v);
|
|---|
| 2947 |
|
|---|
| 2948 | # If creation or snapshot creation mode, no snapshot usable
|
|---|
| 2949 | if (($pbstep == 0) || ($snapme == 1)) {
|
|---|
| 2950 | $usesnap = 0;
|
|---|
| 2951 | }
|
|---|
| 2952 |
|
|---|
| 2953 | pb_log(2,"DEBUG: pb_launchv(vtype,v,step,force,snapme,usesnap: $vtype,$v,$pbstep,$pbforce,$snapme,$usesnap)\n");
|
|---|
| 2954 | pb_log(2,"DEBUG: pb_launchv(pbimage: $pbimage)\n") if (defined $pbimage);
|
|---|
| 2955 | pb_log(2,"DEBUG: pb_launchv(pbscript $pbscript1)\n") if (defined $pbscript1);
|
|---|
| 2956 | pb_log(2,"DEBUG: pb_launchv(action: $action)\n") if (defined $action);
|
|---|
| 2957 | # Keep only the first VM in case many were given
|
|---|
| 2958 | if ($v =~ /,/) {
|
|---|
| 2959 | pb_log(0,"WARNING: pruning to just the first of several VM/VE/RMs listed ($v)\n");
|
|---|
| 2960 | $v =~ s/,.*//;
|
|---|
| 2961 | }
|
|---|
| 2962 |
|
|---|
| 2963 | my $pbos = pb_distro_get_context($v);
|
|---|
| 2964 |
|
|---|
| 2965 | pb_apply_conf_proxy($pbos);
|
|---|
| 2966 |
|
|---|
| 2967 | # Launch the VMs/VEs
|
|---|
| 2968 | if ($vtype eq "vm") {
|
|---|
| 2969 | confess "-i image parameter needed" if (((not defined $pbimage) || ($pbimage eq "")) && ($pbstep == 0));
|
|---|
| 2970 |
|
|---|
| 2971 | my ($ptr,$ptr2,$vmpath,$vmport,$vms) = pb_conf_get("vmtype","vmcmd","vmpath","vmport","vmsize");
|
|---|
| 2972 | my ($vmopt,$vmmm,$vmtmout,$vmsnap,$vmbuildtm,$vmmonport) = pb_conf_get_if("vmopt","vmmem","vmtmout","vmsnap","vmbuildtm","vmmonport");
|
|---|
| 2973 | my $vmsize = pb_distro_get_param($pbos,$vms);
|
|---|
| 2974 |
|
|---|
| 2975 | my $vmtype = $ptr->{$ENV{'PBPROJ'}};
|
|---|
| 2976 | my $vmcmd = $ptr2->{$ENV{'PBPROJ'}};
|
|---|
| 2977 |
|
|---|
| 2978 | if (defined $opts{'g'}) {
|
|---|
| 2979 | if (($vmtype eq "kvm") || ($vmtype eq "qemu")) {
|
|---|
| 2980 | $ENV{'PBVMOPT'} = "--nographic";
|
|---|
| 2981 | }
|
|---|
| 2982 | }
|
|---|
| 2983 | if (not defined $ENV{'PBVMOPT'}) {
|
|---|
| 2984 | $ENV{'PBVMOPT'} = "";
|
|---|
| 2985 | }
|
|---|
| 2986 | # Save the current status for later restoration
|
|---|
| 2987 | $ENV{'PBOLDVMOPT'} = $ENV{'PBVMOPT'};
|
|---|
| 2988 | # Set a default timeout of 2 minutes
|
|---|
| 2989 | if (not defined $ENV{'PBVMTMOUT'}) {
|
|---|
| 2990 | $ENV{'PBVMTMOUT'} = "120";
|
|---|
| 2991 | }
|
|---|
| 2992 | if (defined $vmopt->{$v}) {
|
|---|
| 2993 | $ENV{'PBVMOPT'} .= " $vmopt->{$v}" if ($ENV{'PBVMOPT'} !~ / $vmopt->{$v}/);
|
|---|
| 2994 | } elsif (defined $vmopt->{$ENV{'PBPROJ'}}) {
|
|---|
| 2995 | $ENV{'PBVMOPT'} .= " $vmopt->{$ENV{'PBPROJ'}}" if ($ENV{'PBVMOPT'} !~ / $vmopt->{$ENV{'PBPROJ'}}/);
|
|---|
| 2996 | }
|
|---|
| 2997 |
|
|---|
| 2998 | # How much memory to allocate for VMs
|
|---|
| 2999 | if (defined $vmmm) {
|
|---|
| 3000 | my $vmmem = pb_distro_get_param($pbos,$vmmm);
|
|---|
| 3001 | if (defined $vmmem) {
|
|---|
| 3002 | $ENV{'PBVMOPT'} .= " -m $vmmem";
|
|---|
| 3003 | }
|
|---|
| 3004 | }
|
|---|
| 3005 |
|
|---|
| 3006 | # Are we allowed to use snapshot feature
|
|---|
| 3007 | if ($usesnap == 1) {
|
|---|
| 3008 | if ((defined $vmsnap->{$v}) && ($vmsnap->{$v} =~ /true/i)) {
|
|---|
| 3009 | $ENV{'PBVMOPT'} .= " -snapshot";
|
|---|
| 3010 | } elsif ((defined $vmsnap->{$ENV{'PBPROJ'}}) && ($vmsnap->{$ENV{'PBPROJ'}} =~ /true/i)) {
|
|---|
| 3011 | $ENV{'PBVMOPT'} .= " -snapshot";
|
|---|
| 3012 | } elsif ($pbsnap eq 1) {
|
|---|
| 3013 | $ENV{'PBVMOPT'} .= " -snapshot";
|
|---|
| 3014 | }
|
|---|
| 3015 | }
|
|---|
| 3016 | if ($snapme != 0) {
|
|---|
| 3017 | if (($vmtype eq "kvm") || ($vmtype eq "qemu")) {
|
|---|
| 3018 | # Configure the monitoring to automate the creation of the 'pb' snapshot
|
|---|
| 3019 | $ENV{'PBVMOPT'} .= " -serial mon:telnet::$vmmonport->{$ENV{'PBPROJ'}},server,nowait" if ((defined $vmmonport) && (defined $vmmonport->{$ENV{'PBPROJ'}}));
|
|---|
| 3020 | # In that case no snapshot call needed
|
|---|
| 3021 | $ENV{'PBVMOPT'} =~ s/ -snapshot//;
|
|---|
| 3022 | }
|
|---|
| 3023 | }
|
|---|
| 3024 | if (defined $vmtmout->{$v}) {
|
|---|
| 3025 | $ENV{'PBVMTMOUT'} = $vmtmout->{$v};
|
|---|
| 3026 | } elsif (defined $vmtmout->{$ENV{'PBPROJ'}}) {
|
|---|
| 3027 | $ENV{'PBVMTMOUT'} = $vmtmout->{$ENV{'PBPROJ'}};
|
|---|
| 3028 | }
|
|---|
| 3029 | my $nport = pb_get_port($vmport,$pbos,$vtype);
|
|---|
| 3030 |
|
|---|
| 3031 | my $cmd;
|
|---|
| 3032 | my $vmm; # has to be used for pb_check_ps
|
|---|
| 3033 | if (($vmtype eq "qemu") || ($vmtype eq "kvm")) {
|
|---|
| 3034 | $vmm = "$vmpath->{$ENV{'PBPROJ'}}/$v.qemu";
|
|---|
| 3035 | if (($pbstep == 0) || (defined $pbimage)) {
|
|---|
| 3036 | $ENV{'PBVMOPT'} .= " -cdrom $pbimage -boot d";
|
|---|
| 3037 | }
|
|---|
| 3038 | # Always redirect the network and always try to use a 'pb' snapshot
|
|---|
| 3039 | #$cmd = "$vmcmd $ENV{'PBVMOPT'} -net nic,model=virtio -net user,hostfwd=tcp::$nport:22 -loadvm pb $vmm"
|
|---|
| 3040 | #$cmd = "$vmcmd $ENV{'PBVMOPT'} -redir tcp:$nport:10.0.2.15:22 $vmm"
|
|---|
| 3041 | $cmd = "$vmcmd $ENV{'PBVMOPT'} -net nic -net user,hostfwd=tcp:127.0.0.1:$nport-:22 $vmm"
|
|---|
| 3042 | } elsif ($vmtype eq "xen") {
|
|---|
| 3043 | } elsif ($vmtype eq "vmware") {
|
|---|
| 3044 | } else {
|
|---|
| 3045 | die "VM of type $vmtype not supported. Report to the dev team";
|
|---|
| 3046 | }
|
|---|
| 3047 | # Restore the ENV VAR Value
|
|---|
| 3048 | $ENV{'PBVMOPT'} = $ENV{'PBOLDVMOPT'};
|
|---|
| 3049 |
|
|---|
| 3050 | my ($tmpcmd,$void) = split(/ +/,$cmd);
|
|---|
| 3051 | my $vmmport = undef;
|
|---|
| 3052 | ($vexist,$vmmport) = pb_check_ps($tmpcmd,$vmm);
|
|---|
| 3053 | $vpid = 0;
|
|---|
| 3054 |
|
|---|
| 3055 | if (! $vexist) {
|
|---|
| 3056 | if ($pbstep == 0) {
|
|---|
| 3057 | die("Found an existing Virtual machine $vmm. Won't overwrite") if (-r $vmm);
|
|---|
| 3058 | if (($vmtype eq "qemu") || ($vmtype eq "xen") || ($vmtype eq "kvm")) {
|
|---|
| 3059 | my $command = pb_check_req("qemu-img",0);
|
|---|
| 3060 | pb_system("$command create -f qcow2 $vmm $vmsize","Creating the QEMU VM");
|
|---|
| 3061 | } elsif ($vmtype eq "vmware") {
|
|---|
| 3062 | } else {
|
|---|
| 3063 | }
|
|---|
| 3064 | }
|
|---|
| 3065 | if (! -f "$vmm") {
|
|---|
| 3066 | pb_log(0,"Unable to find VM $vmm\n");
|
|---|
| 3067 | } else {
|
|---|
| 3068 | # Is the SSH port free? if not kill the existing process using it after a build timeout period
|
|---|
| 3069 | my ($vmssh,$void) = pb_check_ps($tmpcmd,$vmm);
|
|---|
| 3070 | if ($vmssh) {
|
|---|
| 3071 | my $buildtm = $ENV{'PBVMTMOUT'};
|
|---|
| 3072 | if (defined $vmbuildtm->{$v}) {
|
|---|
| 3073 | $buildtm = $vmbuildtm->{$v};
|
|---|
| 3074 | } elsif (defined $vmbuildtm->{$ENV{'PBPROJ'}}) {
|
|---|
| 3075 | $buildtm = $vmbuildtm->{$ENV{'PBPROJ'}};
|
|---|
| 3076 | }
|
|---|
| 3077 |
|
|---|
| 3078 | sleep $buildtm;
|
|---|
| 3079 | pb_log(0,"WARNING: Killing the process ($vmssh) using port $void (previous failed VM ?)\n");
|
|---|
| 3080 | kill 15,$vmssh;
|
|---|
| 3081 | # Let it time to exit
|
|---|
| 3082 | sleep 5;
|
|---|
| 3083 | }
|
|---|
| 3084 | pb_system("$cmd &","Launching the VM $vmm");
|
|---|
| 3085 | # Using system allows to kill it externaly if needed,sosupport that in the call
|
|---|
| 3086 | pb_system("sleep $ENV{'PBVMTMOUT'}","Waiting $ENV{'PBVMTMOUT'} s for VM $v to come up","mayfail");
|
|---|
| 3087 | ($vpid,$void) = pb_check_ps($tmpcmd,$vmm);
|
|---|
| 3088 | pb_log(0,"VM $vmm launched (pid $vpid)\n");
|
|---|
| 3089 | }
|
|---|
| 3090 | } else {
|
|---|
| 3091 | pb_log(0,"Found an existing VM $vmm (pid $vexist - Port $vmmport)\n");
|
|---|
| 3092 | # Set the correct port here based on what is done
|
|---|
| 3093 | $pbport = $vmmport;
|
|---|
| 3094 | $vpid = $vexist;
|
|---|
| 3095 | }
|
|---|
| 3096 | pb_log(2,"DEBUG: pb_launchv returns ($vexist,$vpid)\n");
|
|---|
| 3097 |
|
|---|
| 3098 | # After the VM is launched, then setup the SSH access if not in creation phase
|
|---|
| 3099 | if ($pbstep != 0) {
|
|---|
| 3100 | if (defined $pbport) {
|
|---|
| 3101 | pb_ssh_setup($vtype,$pbport);
|
|---|
| 3102 | } else {
|
|---|
| 3103 | pb_ssh_setup($vtype,$nport);
|
|---|
| 3104 | }
|
|---|
| 3105 | }
|
|---|
| 3106 |
|
|---|
| 3107 | # Skip that VM if something went wrong
|
|---|
| 3108 | return($vexist,$vpid) if (($vpid == 0) && ($vexist == 0));
|
|---|
| 3109 |
|
|---|
| 3110 | # If force stopping the VM then reset vexist
|
|---|
| 3111 | if ($pbforce == 1) {
|
|---|
| 3112 | $vpid = $vexist;
|
|---|
| 3113 | $vexist = 0;
|
|---|
| 3114 | }
|
|---|
| 3115 | } elsif ($vtype eq "ve") {
|
|---|
| 3116 | # Force the creation of the VE and no snapshot usable
|
|---|
| 3117 | $vetype = pb_ve_get_type($vetype);
|
|---|
| 3118 | pb_ve_launch($v,$pbstep,$usesnap,$vetype,$pbimage);
|
|---|
| 3119 | $vexist = 0;
|
|---|
| 3120 | $vpid = 0;
|
|---|
| 3121 | } else {
|
|---|
| 3122 | # Get RM context
|
|---|
| 3123 | my ($ptr,$rmpath,$rmport) = pb_conf_get("rmtype","rmpath","rmport");
|
|---|
| 3124 |
|
|---|
| 3125 | # Nothing more to do for RM. No real launch
|
|---|
| 3126 | # For the moment we support the RM is already running
|
|---|
| 3127 | # For ProLiant may be able to power them on if needed later on as an example.
|
|---|
| 3128 | $vexist = 0;
|
|---|
| 3129 | $vpid = 0;
|
|---|
| 3130 |
|
|---|
| 3131 | # After the RM is launched, then setup the SSH access
|
|---|
| 3132 | my $nport = pb_get_port($rmport,$pbos,$vtype);
|
|---|
| 3133 | pb_ssh_setup($vtype,$nport);
|
|---|
| 3134 | }
|
|---|
| 3135 |
|
|---|
| 3136 | # Gather all required files to send them to the VM/VE/RM
|
|---|
| 3137 | # and launch the build through pbscript
|
|---|
| 3138 | if (defined $action) {
|
|---|
| 3139 | pb_log(2,"DEBUG: Before send2target, vexist: $vexist, vpid: $vpid, vtype: $vtype, v: $v, action: $action\n");
|
|---|
| 3140 | pb_send2target($action,$pbscript1,$v,$vexist,$vpid,$snapme,$pbstep);
|
|---|
| 3141 | }
|
|---|
| 3142 | return($vexist,$vpid);
|
|---|
| 3143 | }
|
|---|
| 3144 |
|
|---|
| 3145 | # Return string for date synchro
|
|---|
| 3146 | sub pb_date2v {
|
|---|
| 3147 |
|
|---|
| 3148 | my $vtype = shift;
|
|---|
| 3149 | my $pbos = shift;
|
|---|
| 3150 | my $nontp = shift || 0;
|
|---|
| 3151 |
|
|---|
| 3152 | pb_log(1,"Entering pb_date2v\n");
|
|---|
| 3153 | # VE gets time from parent OS.
|
|---|
| 3154 | return "/bin/true" if ($vtype) =~ /^ve/o;
|
|---|
| 3155 |
|
|---|
| 3156 | my ($ntp) = pb_conf_get_if($vtype."ntp");
|
|---|
| 3157 | my $vntp = undef;
|
|---|
| 3158 | my $ntpline = undef;
|
|---|
| 3159 | $vntp = $ntp->{$ENV{'PBPROJ'}} if (defined $ntp);
|
|---|
| 3160 |
|
|---|
| 3161 | if ((defined $vntp) && ($vntp !~ /^\s*$/)) {
|
|---|
| 3162 | pb_log(2,"ntp server is $vntp\n");
|
|---|
| 3163 | # ntp command depends on pbos
|
|---|
| 3164 | my $vntpcmd = pb_distro_get_param($pbos,pb_conf_get("oscmdntp"));
|
|---|
| 3165 | $ntpline = "sudo $vntpcmd $vntp";
|
|---|
| 3166 | }
|
|---|
| 3167 | # Force new date to be in the future compared to the date
|
|---|
| 3168 | # of the host by adding 1 minute
|
|---|
| 3169 | my @date=pb_get_date();
|
|---|
| 3170 | $date[1]++;
|
|---|
| 3171 | my $upddate = strftime("%m%d%H%M%Y", @date);
|
|---|
| 3172 | my $dateline = "sudo /bin/date $upddate";
|
|---|
| 3173 | if ((defined $ntpline) && ($nontp == 0)) {
|
|---|
| 3174 | pb_log(1,"pb_date2v returns $ntpline\n");
|
|---|
| 3175 | return($ntpline);
|
|---|
| 3176 | } else {
|
|---|
| 3177 | pb_log(1,"pb_date2v returns $dateline\n");
|
|---|
| 3178 | return($dateline);
|
|---|
| 3179 | }
|
|---|
| 3180 | }
|
|---|
| 3181 |
|
|---|
| 3182 | sub pb_build2v {
|
|---|
| 3183 |
|
|---|
| 3184 | my $vtype = shift;
|
|---|
| 3185 | my $action = shift; #build, test or prep
|
|---|
| 3186 | my $pbforce=shift; # Force stop of VM. Default not.
|
|---|
| 3187 |
|
|---|
| 3188 | $action = "build" if (not defined $action);
|
|---|
| 3189 | $pbforce = 0 if (not defined $pbforce);
|
|---|
| 3190 |
|
|---|
| 3191 | my $pbstep;
|
|---|
| 3192 |
|
|---|
| 3193 | $vetype = pb_ve_get_type($vetype);
|
|---|
| 3194 | if ($action eq "prep") {
|
|---|
| 3195 | $pbstep = 2;
|
|---|
| 3196 | } else {
|
|---|
| 3197 | $pbstep = 3;
|
|---|
| 3198 | # Need to be traversed by others if using containers
|
|---|
| 3199 | if (($vtype eq "ve") && ($vetype eq "docker")) {
|
|---|
| 3200 | chmod 0751,"$ENV{'PBBUILDDIR'}";
|
|---|
| 3201 | }
|
|---|
| 3202 | }
|
|---|
| 3203 |
|
|---|
| 3204 | pb_log(1,"Entering in pb_build2v ($action in $vtype) \n");
|
|---|
| 3205 |
|
|---|
| 3206 | # We prepare scripts for all V of this vtype to allow sharing that part
|
|---|
| 3207 | my ($v,$all) = pb_get2v($vtype);
|
|---|
| 3208 |
|
|---|
| 3209 | # Send tar files when we do a global generation
|
|---|
| 3210 | pb_build2ssh() if (($all == 1) && ($action eq "build"));
|
|---|
| 3211 |
|
|---|
| 3212 | # Adapt // mode to memory size
|
|---|
| 3213 | $pbparallel = pb_set_parallel($vtype);
|
|---|
| 3214 |
|
|---|
| 3215 | my ($vexist,$vpid) = (undef,undef);
|
|---|
| 3216 | my $pm;
|
|---|
| 3217 | my $all_ok = 1;
|
|---|
| 3218 | if (defined $pbparallel) {
|
|---|
| 3219 | $pm = new Parallel::ForkManager($pbparallel);
|
|---|
| 3220 |
|
|---|
| 3221 | # Set which port the VM/RM will use to communicate
|
|---|
| 3222 | $pm->run_on_start(\&pb_set_port);
|
|---|
| 3223 | $pm->run_on_finish(sub { my ($pid, $code, $id, $signal, $dump) = @_;
|
|---|
| 3224 | unless ($code == 0 && $signal == 0 && $dump == 0) {
|
|---|
| 3225 | $all_ok = 0;
|
|---|
| 3226 | pb_log(0,"ERROR: pid $pid failed\n");
|
|---|
| 3227 | }
|
|---|
| 3228 | });
|
|---|
| 3229 | }
|
|---|
| 3230 |
|
|---|
| 3231 | my $counter = 0;
|
|---|
| 3232 | foreach my $v (@$v) {
|
|---|
| 3233 | $counter++;
|
|---|
| 3234 | $pbscript{$v} = "$ENV{'PBDESTDIR'}/pb$action-$v";
|
|---|
| 3235 | # Modulo 2 * pbparallel (to avoid synchronization problems)
|
|---|
| 3236 | $counter = 1 if ((defined $pbparallel) && ($counter > 2 * $pbparallel));
|
|---|
| 3237 | $pm->start($counter) and next if (defined $pbparallel);
|
|---|
| 3238 | #
|
|---|
| 3239 | # Prepare the script to be executed on the VM/VE/RM
|
|---|
| 3240 | open(SCRIPT,"> $pbscript{$v}") || die "Unable to create $pbscript{$v}";
|
|---|
| 3241 | print SCRIPT "#!/bin/bash\n";
|
|---|
| 3242 |
|
|---|
| 3243 | # Transmit the verbosity level to the virtual env/mach.
|
|---|
| 3244 | my $verbose = "";
|
|---|
| 3245 | my $i = 0; # minimal debug level
|
|---|
| 3246 | while ($i lt $pbdebug) {
|
|---|
| 3247 | $verbose .= "-v ";
|
|---|
| 3248 | $i++;
|
|---|
| 3249 | }
|
|---|
| 3250 | print SCRIPT "set -e\n" if ($Global::pb_stop_on_error);
|
|---|
| 3251 | # Activate script verbosity if at least 2 for pbdebug
|
|---|
| 3252 | print SCRIPT "set -x\n" if ($i gt 1);
|
|---|
| 3253 | # Quiet if asked to be so on the original system
|
|---|
| 3254 | $verbose = "-q" if ($pbdebug eq -1);
|
|---|
| 3255 |
|
|---|
| 3256 | print SCRIPT "echo ... Execution needed\n";
|
|---|
| 3257 | print SCRIPT "echo ==== Start of script for $vtype $v =====\n";
|
|---|
| 3258 | print SCRIPT "# This is in directory pbdelivery\n";
|
|---|
| 3259 | print SCRIPT "# Setup the variables required for building\n";
|
|---|
| 3260 | print SCRIPT "export PBPROJ=$ENV{'PBPROJ'}\n";
|
|---|
| 3261 |
|
|---|
| 3262 | if (($action eq "build") || ($action eq "prep")) {
|
|---|
| 3263 | print SCRIPT "# Preparation for pb\n";
|
|---|
| 3264 | print SCRIPT "rm -f \$HOME/.pbrc\n";
|
|---|
| 3265 | print SCRIPT "cp .pbrc \$HOME\n";
|
|---|
| 3266 | # TODO: Why ?
|
|---|
| 3267 | print SCRIPT "cd ..\n";
|
|---|
| 3268 | }
|
|---|
| 3269 |
|
|---|
| 3270 | # VE needs a good /proc, tolerate one being potentially left around after a failure
|
|---|
| 3271 | if (($vtype eq "ve") && ($vetype ne "docker")) {
|
|---|
| 3272 | print SCRIPT "[ -d /proc/1 ] || sudo /bin/mount -t proc /proc /proc\n";
|
|---|
| 3273 | }
|
|---|
| 3274 |
|
|---|
| 3275 | # Get distro context
|
|---|
| 3276 | my $pbos = pb_distro_get_context($v);
|
|---|
| 3277 |
|
|---|
| 3278 | my $ntpline = pb_date2v($vtype,$pbos);
|
|---|
| 3279 | print SCRIPT "# Time sync\n";
|
|---|
| 3280 | print SCRIPT "echo setting up date with $ntpline\n";
|
|---|
| 3281 | print SCRIPT "$ntpline\n";
|
|---|
| 3282 | print SCRIPT "if [ \$\? -ne 0 ]; then\n";
|
|---|
| 3283 | # Force if bad status a trick using date
|
|---|
| 3284 | $ntpline = pb_date2v($vtype,$pbos, 1);
|
|---|
| 3285 | print SCRIPT " $ntpline\n";
|
|---|
| 3286 | print SCRIPT "fi\n";
|
|---|
| 3287 | # Use potential local proxy declaration in case we need it to download repo, pkgs, ...
|
|---|
| 3288 | if (defined $ENV{'http_proxy'}) {
|
|---|
| 3289 | print SCRIPT "export http_proxy=\"$ENV{'http_proxy'}\"\n";
|
|---|
| 3290 | }
|
|---|
| 3291 |
|
|---|
| 3292 | if (defined $ENV{'ftp_proxy'}) {
|
|---|
| 3293 | print SCRIPT "export ftp_proxy=\"$ENV{'ftp_proxy'}\"\n";
|
|---|
| 3294 | }
|
|---|
| 3295 |
|
|---|
| 3296 | # Get list of packages to build/test and get some ENV vars as well
|
|---|
| 3297 | my $ptr = pb_get_pkg();
|
|---|
| 3298 | @pkgs = @$ptr;
|
|---|
| 3299 | my $p = join(' ',@pkgs) if (@pkgs);
|
|---|
| 3300 | print SCRIPT "export PBPROJVER=$ENV{'PBPROJVER'}\n";
|
|---|
| 3301 | print SCRIPT "export PBPROJTAG=$ENV{'PBPROJTAG'}\n";
|
|---|
| 3302 | print SCRIPT "export PBPACKAGER=\"$ENV{'PBPACKAGER'}\"\n";
|
|---|
| 3303 |
|
|---|
| 3304 | # We may need to do some other tasks before building. Read a script here to finish setup
|
|---|
| 3305 | if (-x "$ENV{'PBDESTDIR'}/pb$vtype".".pre") {
|
|---|
| 3306 | print SCRIPT "# Special pre-instructions to be launched\n";
|
|---|
| 3307 | print SCRIPT pb_get_content("$ENV{'PBDESTDIR'}/pb$vtype".".pre");
|
|---|
| 3308 | }
|
|---|
| 3309 |
|
|---|
| 3310 | if (-x "$ENV{'PBDESTDIR'}/pb$vtype"."$action.pre") {
|
|---|
| 3311 | print SCRIPT "# Special pre-$action instructions to be launched\n";
|
|---|
| 3312 | print SCRIPT pb_get_content("$ENV{'PBDESTDIR'}/pb$vtype"."$action.pre");
|
|---|
| 3313 | }
|
|---|
| 3314 |
|
|---|
| 3315 | print SCRIPT "# $action\n";
|
|---|
| 3316 | print SCRIPT "echo $action"."ing packages on $vtype...\n";
|
|---|
| 3317 |
|
|---|
| 3318 | if (($action eq "test") && (! -x "$ENV{'PBDESTDIR'}/pbtest")) {
|
|---|
| 3319 | confess "No test script ($ENV{'PBDESTDIR'}/pbtest) found when in test mode. Aborting ...";
|
|---|
| 3320 | }
|
|---|
| 3321 | print SCRIPT "pb -h\n";
|
|---|
| 3322 | my $act = "$action"."2pkg";
|
|---|
| 3323 | $act = "build2prep" if ($action eq "prep");
|
|---|
| 3324 | print SCRIPT "pb $verbose -p $ENV{'PBPROJ'} $act $p\n";
|
|---|
| 3325 |
|
|---|
| 3326 | if (($vtype eq "ve") && ($vetype ne "docker")) {
|
|---|
| 3327 | print SCRIPT "sudo /bin/umount /proc\n";
|
|---|
| 3328 | }
|
|---|
| 3329 |
|
|---|
| 3330 | # We may need to do some other tasks after building. Read a script here to exit properly
|
|---|
| 3331 | if (-x "$ENV{'PBDESTDIR'}/pb$vtype"."$action.post") {
|
|---|
| 3332 | print SCRIPT "# Special post-$action instructions to be launched\n";
|
|---|
| 3333 | print SCRIPT pb_get_content("$ENV{'PBDESTDIR'}/pb$vtype"."$action.post");
|
|---|
| 3334 | }
|
|---|
| 3335 |
|
|---|
| 3336 | if (-x "$ENV{'PBDESTDIR'}/pb$vtype".".post") {
|
|---|
| 3337 | print SCRIPT "# Special post-instructions to be launched\n";
|
|---|
| 3338 | print SCRIPT pb_get_content("$ENV{'PBDESTDIR'}/pb$vtype".".post");
|
|---|
| 3339 | }
|
|---|
| 3340 |
|
|---|
| 3341 | print SCRIPT "echo ==== End of script $$ for $vtype $v =====\n";
|
|---|
| 3342 | close(SCRIPT);
|
|---|
| 3343 | chmod 0755,"$pbscript{$v}";
|
|---|
| 3344 |
|
|---|
| 3345 | $pm->finish if (defined $pbparallel);
|
|---|
| 3346 | }
|
|---|
| 3347 | $pm->wait_all_children if (defined $pbparallel);
|
|---|
| 3348 | die "Aborting, one or more of the children failed." if ((not $all_ok) && ($Global::pb_stop_on_error));
|
|---|
| 3349 |
|
|---|
| 3350 | # Launch the VM/VE/RM
|
|---|
| 3351 | # docker image to use if needed
|
|---|
| 3352 | # Gather all required files to send them to the VM/VE
|
|---|
| 3353 | # and launch the build through pbscript
|
|---|
| 3354 | pb_parallel_launchv(\%pbscript,$vtype,uc($vtype).$action,$pbstep,$pbimage,$pbforce);
|
|---|
| 3355 | }
|
|---|
| 3356 |
|
|---|
| 3357 |
|
|---|
| 3358 | sub pb_clean {
|
|---|
| 3359 |
|
|---|
| 3360 | my $sleep=10;
|
|---|
| 3361 | die "Unable to get env var PBDESTDIR" if (not defined $ENV{'PBDESTDIR'});
|
|---|
| 3362 | die "Unable to get env var PBBUILDDIR" if (not defined $ENV{'PBBUILDDIR'});
|
|---|
| 3363 | 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");
|
|---|
| 3364 | sleep $sleep;
|
|---|
| 3365 | pb_rm_rf($ENV{'PBDESTDIR'});
|
|---|
| 3366 | pb_rm_rf($ENV{'PBBUILDDIR'});
|
|---|
| 3367 | }
|
|---|
| 3368 |
|
|---|
| 3369 | sub pb_newver {
|
|---|
| 3370 |
|
|---|
| 3371 | die "-V Version parameter needed" if ((not defined $newver) || ($newver eq ""));
|
|---|
| 3372 |
|
|---|
| 3373 | # Need this call for PBDIR
|
|---|
| 3374 | my ($scheme2,$uri) = pb_cms_init($pbinit);
|
|---|
| 3375 |
|
|---|
| 3376 | my ($pbconf,$pburl) = pb_conf_get("pbconfurl","pburl");
|
|---|
| 3377 | $uri = $pbconf->{$ENV{'PBPROJ'}};
|
|---|
| 3378 | my ($scheme, $account, $host, $port, $path) = pb_get_uri($uri);
|
|---|
| 3379 |
|
|---|
| 3380 | # Checking CMS repositories status
|
|---|
| 3381 | ($scheme2, $account, $host, $port, $path) = pb_get_uri($pburl->{$ENV{'PBPROJ'}});
|
|---|
| 3382 |
|
|---|
| 3383 | if ($scheme !~ /^svn/) {
|
|---|
| 3384 | die "Only SVN is supported at the moment";
|
|---|
| 3385 | }
|
|---|
| 3386 |
|
|---|
| 3387 | my $res = pb_vcs_isdiff($scheme,$ENV{'PBROOTDIR'});
|
|---|
| 3388 | die "ERROR: No differences accepted in CMS for $ENV{'PBROOTDIR'} before creating a new version" if ($res != 0);
|
|---|
| 3389 |
|
|---|
| 3390 | $res = pb_vcs_isdiff($scheme2,$ENV{'PBDIR'});
|
|---|
| 3391 | die "ERROR: No differences accepted in CMS for $ENV{'PBDIR'} before creating a new version" if ($res != 0);
|
|---|
| 3392 |
|
|---|
| 3393 | # Tree identical between PBCONFDIR and PBROOTDIR. The delta is what
|
|---|
| 3394 | # we want to get for the root of the new URL
|
|---|
| 3395 |
|
|---|
| 3396 | my $oldver = $ENV{'PBROOTDIR'};
|
|---|
| 3397 | $oldver =~ s|^$ENV{'PBCONFDIR'}||;
|
|---|
| 3398 |
|
|---|
| 3399 | pb_log(2, "PBCONFDIR: $ENV{'PBCONFDIR'}\nPBROOTDIR: $ENV{'PBROOTDIR'}\n");
|
|---|
| 3400 |
|
|---|
| 3401 | my $newurl = "$uri/$newver";
|
|---|
| 3402 | # Should probably use projver in the old file
|
|---|
| 3403 | my $oldvertxt= basename($oldver);
|
|---|
| 3404 | my $newvertxt = basename($newver);
|
|---|
| 3405 |
|
|---|
| 3406 | # Duplicate and extract project-builder part
|
|---|
| 3407 | pb_log(2,"Copying $uri/$oldver to $newurl\n");
|
|---|
| 3408 | pb_vcs_copy($scheme,"$uri/$oldver",$newurl);
|
|---|
| 3409 | pb_log(2,"Checkout $newurl to $ENV{'PBCONFDIR'}/$newver\n");
|
|---|
| 3410 | pb_vcs_up($scheme,"$ENV{'PBCONFDIR'}");
|
|---|
| 3411 |
|
|---|
| 3412 | # Duplicate and extract project
|
|---|
| 3413 | my $newurl2 = "$pburl->{$ENV{'PBPROJ'}}/$newver";
|
|---|
| 3414 |
|
|---|
| 3415 | pb_log(2,"Copying $pburl->{$ENV{'PBPROJ'}}/$oldver to $newurl2\n");
|
|---|
| 3416 | pb_vcs_copy($scheme2,"$pburl->{$ENV{'PBPROJ'}}/$oldver",$newurl2);
|
|---|
| 3417 |
|
|---|
| 3418 | my $tmp = $ENV{'PBDIR'};
|
|---|
| 3419 | $tmp =~ s|$oldver$||;
|
|---|
| 3420 | pb_log(2,"Checkout $newurl2 to $tmp/$newver\n");
|
|---|
| 3421 | pb_vcs_up($scheme2,"$tmp");
|
|---|
| 3422 |
|
|---|
| 3423 | # Update the .pb file
|
|---|
| 3424 | open(FILE,"$ENV{'PBCONFDIR'}/$newver/$ENV{'PBPROJ'}.pb") || die "Unable to open $ENV{'PBCONFDIR'}/$newver/$ENV{'PBPROJ'}.pb";
|
|---|
| 3425 | open(OUT,"> $ENV{'PBCONFDIR'}/$newver/$ENV{'PBPROJ'}.pb.new") || die "Unable to write to $ENV{'PBCONFDIR'}/$newver/$ENV{'PBPROJ'}.pb.new";
|
|---|
| 3426 | while(<FILE>) {
|
|---|
| 3427 | if (/^projver\s+$ENV{'PBPROJ'}\s*=\s*$oldvertxt$/) {
|
|---|
| 3428 | s/^projver\s+$ENV{'PBPROJ'}\s*=\s*$oldvertxt$/projver $ENV{'PBPROJ'} = $newvertxt/;
|
|---|
| 3429 | pb_log(0,"Changing projver from $oldvertxt to $newvertxt in $ENV{'PBCONFDIR'}/$newver/$ENV{'PBPROJ'}.pb\n");
|
|---|
| 3430 | }
|
|---|
| 3431 | if (/^testver/) {
|
|---|
| 3432 | s/^testver/#testver/;
|
|---|
| 3433 | pb_log(0,"Commenting testver in $ENV{'PBCONFDIR'}/$newver/$ENV{'PBPROJ'}.pb\n") if (/^testver/);
|
|---|
| 3434 | }
|
|---|
| 3435 | if (/^delivery/) {
|
|---|
| 3436 | my $txt = $_;
|
|---|
| 3437 | chomp($txt);
|
|---|
| 3438 | pb_log(0,"Please check delivery ($txt) in $ENV{'PBCONFDIR'}/$newver/$ENV{'PBPROJ'}.pb\n");
|
|---|
| 3439 | }
|
|---|
| 3440 | print OUT $_;
|
|---|
| 3441 | }
|
|---|
| 3442 | close(FILE);
|
|---|
| 3443 | close(OUT);
|
|---|
| 3444 | rename("$ENV{'PBCONFDIR'}/$newver/$ENV{'PBPROJ'}.pb.new","$ENV{'PBCONFDIR'}/$newver/$ENV{'PBPROJ'}.pb");
|
|---|
| 3445 |
|
|---|
| 3446 | # Checking pbcl files
|
|---|
| 3447 | foreach my $f (<$ENV{'PBROOTDIR'}/*/pbcl>) {
|
|---|
| 3448 | # Compute new pbcl file
|
|---|
| 3449 | my $f2 = $f;
|
|---|
| 3450 | $f2 =~ s|$ENV{'PBROOTDIR'}|$ENV{'PBCONFDIR'}/$newver/|;
|
|---|
| 3451 | open(PBCL,$f) || die "Unable to open $f";
|
|---|
| 3452 | my $foundnew = 0;
|
|---|
| 3453 | while (<PBCL>) {
|
|---|
| 3454 | $foundnew = 1 if (/^$newvertxt \(/);
|
|---|
| 3455 | }
|
|---|
| 3456 | close(PBCL);
|
|---|
| 3457 | open(OUT,"> $f2") || die "Unable to write to $f2: $!";
|
|---|
| 3458 | open(PBCL,$f) || die "Unable to open $f";
|
|---|
| 3459 | # We skip as long as we do not reach the new version in the log (case of devel)
|
|---|
| 3460 | my $skip = 1;
|
|---|
| 3461 | # We let the 4 first lines
|
|---|
| 3462 | my $cnt = 0;
|
|---|
| 3463 | while (<PBCL>) {
|
|---|
| 3464 | $skip = 0 if (/^$newvertxt \(/);
|
|---|
| 3465 | if ((/^$oldvertxt \(/) && ($foundnew == 0)) {
|
|---|
| 3466 | print OUT "$newvertxt ($pbdate)\n";
|
|---|
| 3467 | print OUT "- TBD\n";
|
|---|
| 3468 | print OUT "\n";
|
|---|
| 3469 | pb_log(0,"WARNING: version $newvertxt not found in $f so added to $f2...\n") if ($foundnew == 0);
|
|---|
| 3470 | }
|
|---|
| 3471 | if ($cnt <= 4) {
|
|---|
| 3472 | print OUT "$_" if (not /^$oldvertxt \(/);
|
|---|
| 3473 | } else {
|
|---|
| 3474 | print OUT "$_" if ($skip == 0);
|
|---|
| 3475 | }
|
|---|
| 3476 | $cnt++;
|
|---|
| 3477 | }
|
|---|
| 3478 | close(OUT);
|
|---|
| 3479 | close(PBCL);
|
|---|
| 3480 | }
|
|---|
| 3481 |
|
|---|
| 3482 | pb_log(2,"Checkin $ENV{'PBCONFDIR'}/$newver\n");
|
|---|
| 3483 | pb_vcs_checkin($scheme,"$ENV{'PBCONFDIR'}/$newver","updated to $ENV{'PBCONFDIR'}");
|
|---|
| 3484 | }
|
|---|
| 3485 |
|
|---|
| 3486 | #
|
|---|
| 3487 | # Return the list of VMs/VEs/RMs we are working on
|
|---|
| 3488 | # $all is a flag to know if we return all of them
|
|---|
| 3489 | # or only some (if all we publish also tar files in addition to pkgs
|
|---|
| 3490 | #
|
|---|
| 3491 | sub pb_get2v {
|
|---|
| 3492 |
|
|---|
| 3493 | my $vtype = shift;
|
|---|
| 3494 | my @v;
|
|---|
| 3495 | my $all = 0;
|
|---|
| 3496 | my $pbv = 'PBV';
|
|---|
| 3497 | my $vlist = $vtype."list";
|
|---|
| 3498 |
|
|---|
| 3499 | # Get VM/VE list
|
|---|
| 3500 | if ((not defined $ENV{$pbv}) || ($ENV{$pbv} =~ /^all$/)) {
|
|---|
| 3501 | my ($ptr) = pb_conf_get($vlist);
|
|---|
| 3502 | $ENV{$pbv} = $ptr->{$ENV{'PBPROJ'}};
|
|---|
| 3503 | $all = 1;
|
|---|
| 3504 | }
|
|---|
| 3505 | pb_log(2,"$vtype: $ENV{$pbv}\n");
|
|---|
| 3506 | @v = split(/,/,$ENV{$pbv});
|
|---|
| 3507 | return(\@v,$all);
|
|---|
| 3508 | }
|
|---|
| 3509 |
|
|---|
| 3510 | # This function creates a giant script to configure a particular VM/VE/RM, it then copies the
|
|---|
| 3511 | # script to the target.
|
|---|
| 3512 |
|
|---|
| 3513 | # Function to create a potentialy missing pb account on the VM/VE/RM, and adds it to sudo
|
|---|
| 3514 | # Needs to use root account to connect to the VM/VE/RM
|
|---|
| 3515 | # pb will take your local public SSH key to access
|
|---|
| 3516 | # the pb account in the VM/VE/RM later on if needed
|
|---|
| 3517 | sub pb_setup2v {
|
|---|
| 3518 |
|
|---|
| 3519 | my $vtype = shift;
|
|---|
| 3520 | my $sbx = shift;
|
|---|
| 3521 | my $pbstep = 1;
|
|---|
| 3522 |
|
|---|
| 3523 | my ($vm,$all) = pb_get2v($vtype);
|
|---|
| 3524 |
|
|---|
| 3525 | # Adapt // mode to memory size
|
|---|
| 3526 | $pbparallel = pb_set_parallel($vtype);
|
|---|
| 3527 |
|
|---|
| 3528 | my $pm;
|
|---|
| 3529 | my $all_ok = 1;
|
|---|
| 3530 | if (defined $pbparallel) {
|
|---|
| 3531 | $pm = new Parallel::ForkManager($pbparallel);
|
|---|
| 3532 |
|
|---|
| 3533 | # Set which port the VM/RM will use to communicate
|
|---|
| 3534 | $pm->run_on_start(\&pb_set_port);
|
|---|
| 3535 | $pm->run_on_finish(sub { my ($pid, $code, $id, $signal, $dump) = @_;
|
|---|
| 3536 | $all_ok = 0 unless (($code == 0) && ($signal == 0) && ($dump == 0));
|
|---|
| 3537 | });
|
|---|
| 3538 | }
|
|---|
| 3539 |
|
|---|
| 3540 | my $counter = 0;
|
|---|
| 3541 | foreach my $v (@$vm) {
|
|---|
| 3542 | # Script generated - should be before the fork - after the %pbscript hash isn't updated correctly
|
|---|
| 3543 | $pbscript{$v} = "$ENV{'PBDESTDIR'}/setupv-$v";
|
|---|
| 3544 |
|
|---|
| 3545 | $counter++;
|
|---|
| 3546 | # Modulo 2 * pbparallel (to avoid synchronization problems)
|
|---|
| 3547 | $counter = 1 if ((defined $pbparallel) && ($counter > 2 * $pbparallel));
|
|---|
| 3548 | $pm->start($counter) and next if (defined $pbparallel);
|
|---|
| 3549 |
|
|---|
| 3550 | # Get distro context
|
|---|
| 3551 | my $pbos = pb_distro_get_context($v);
|
|---|
| 3552 |
|
|---|
| 3553 | # Deal with date sync.
|
|---|
| 3554 | my $ntpline = pb_date2v($vtype,$pbos);
|
|---|
| 3555 |
|
|---|
| 3556 | # Name of the account to deal with for VM/VE/RM
|
|---|
| 3557 | # Do not use the one passed potentially with -a
|
|---|
| 3558 | my ($pbac) = pb_conf_get($vtype."login");
|
|---|
| 3559 | my $key = "";
|
|---|
| 3560 |
|
|---|
| 3561 | # Prepare the script to be executed on the VM/VE/RM
|
|---|
| 3562 | # in $ENV{'PBDESTDIR'}/setupv
|
|---|
| 3563 |
|
|---|
| 3564 | pb_log(2,"Preparing setup script for $v in $pbscript{$v}\n");
|
|---|
| 3565 | open(SCRIPT,"> $pbscript{$v}") || die "Unable to create $pbscript{$v}";
|
|---|
| 3566 |
|
|---|
| 3567 | print SCRIPT << 'EOF';
|
|---|
| 3568 | #!/usr/bin/perl -w
|
|---|
| 3569 |
|
|---|
| 3570 | use strict;
|
|---|
| 3571 | use File::Copy;
|
|---|
| 3572 |
|
|---|
| 3573 | # We should not need in this script more functions than what is provided
|
|---|
| 3574 | # by Base, Conf and Distribution to avoid problems at exec time.
|
|---|
| 3575 | # They are appended at the end.
|
|---|
| 3576 |
|
|---|
| 3577 | # Define mandatory global vars
|
|---|
| 3578 | EOF
|
|---|
| 3579 | my $ppref = "our";
|
|---|
| 3580 | $ppref = "my" if (($pbos->{'name'} =~ /^redhat/) && ($pbos->{'version'} =~ /^6/));
|
|---|
| 3581 | print SCRIPT << "EOF";
|
|---|
| 3582 | $ppref \$pbdebug = $pbdebug;
|
|---|
| 3583 | $ppref \$pbLOG;
|
|---|
| 3584 | $ppref \$pbsynmsg = "pbscript";
|
|---|
| 3585 | $ppref \$pbdisplaytype = "text";
|
|---|
| 3586 | $ppref \$pblocale = "";
|
|---|
| 3587 | EOF
|
|---|
| 3588 | print SCRIPT << 'EOF';
|
|---|
| 3589 | pb_log_init($pbdebug, $pbLOG);
|
|---|
| 3590 | EOF
|
|---|
| 3591 | print SCRIPT << "EOF";
|
|---|
| 3592 | \$Global::pb_stop_on_error = $Global::pb_stop_on_error;
|
|---|
| 3593 | pb_temp_init($pbkeep);
|
|---|
| 3594 | pb_conf_init("$ENV{'PBPROJ'}");
|
|---|
| 3595 |
|
|---|
| 3596 | EOF
|
|---|
| 3597 |
|
|---|
| 3598 | if ($vtype eq "ve") {
|
|---|
| 3599 | $vetype = pb_ve_get_type($vetype);
|
|---|
| 3600 | if ($vetype ne "docker") {
|
|---|
| 3601 | print SCRIPT << "EOF";
|
|---|
| 3602 | # For VE we first need to mount some FS
|
|---|
| 3603 | pb_system("mount -t proc /proc /proc") unless (-d "/proc/$$");
|
|---|
| 3604 | EOF
|
|---|
| 3605 | }
|
|---|
| 3606 | print SCRIPT << "EOF";
|
|---|
| 3607 | # For VE we need a good null dev
|
|---|
| 3608 | # Except for RedHat 6.2 where it's good and doesnt like being recreated
|
|---|
| 3609 | EOF
|
|---|
| 3610 | print SCRIPT "pb_system('rm -f /dev/null; mknod /dev/null c 1 3; chmod 777 /dev/null');\n" unless (($pbos->{'name'} =~ /^redhat/) && ($pbos->{'version'} =~ /^6/));
|
|---|
| 3611 | } elsif ($vtype =~ /(v|r)m/) {
|
|---|
| 3612 | # Nothing to do now.
|
|---|
| 3613 | my $useless = 0;
|
|---|
| 3614 | } else {
|
|---|
| 3615 | die "Unknown virtual type $vtype";
|
|---|
| 3616 | }
|
|---|
| 3617 |
|
|---|
| 3618 | print SCRIPT << 'EOF';
|
|---|
| 3619 |
|
|---|
| 3620 | # Adds $pbac->{$ENV{'PBPROJ'}} as an account if needed
|
|---|
| 3621 | #
|
|---|
| 3622 | my $file="/etc/passwd";
|
|---|
| 3623 | open(PBFILE,$file) || die "Unable to open $file";
|
|---|
| 3624 | my $found = 0;
|
|---|
| 3625 | while (<PBFILE>) {
|
|---|
| 3626 | EOF
|
|---|
| 3627 | print SCRIPT << "EOF";
|
|---|
| 3628 | \$found = 1 if (/^$pbac->{$ENV{'PBPROJ'}}:/);
|
|---|
| 3629 | EOF
|
|---|
| 3630 |
|
|---|
| 3631 | # TODO: use an external parameter
|
|---|
| 3632 | my $home = "/home";
|
|---|
| 3633 | # Solaris doesn't like that we use /home
|
|---|
| 3634 | $home = "/export/home" if ($pbos->{'type'} eq "pkg");
|
|---|
| 3635 |
|
|---|
| 3636 | print SCRIPT << "EOF";
|
|---|
| 3637 | }
|
|---|
| 3638 | close(PBFILE);
|
|---|
| 3639 |
|
|---|
| 3640 | if ( \$found == 0 ) {
|
|---|
| 3641 | if ( ! -d "$home" ) {
|
|---|
| 3642 | pb_mkdir_p("$home");
|
|---|
| 3643 | }
|
|---|
| 3644 | EOF
|
|---|
| 3645 | # TODO: Level of portability of these cmds ? Critical now for RM
|
|---|
| 3646 | # TODO: Check existence before adding to avoid errors
|
|---|
| 3647 | print SCRIPT << "EOF";
|
|---|
| 3648 | pb_system("/usr/sbin/groupadd $pbac->{$ENV{'PBPROJ'}}","Adding group $pbac->{$ENV{'PBPROJ'}}");
|
|---|
| 3649 | pb_system("/usr/sbin/useradd -g $pbac->{$ENV{'PBPROJ'}} -m -d $home/$pbac->{$ENV{'PBPROJ'}} $pbac->{$ENV{'PBPROJ'}}","Adding user $pbac->{$ENV{'PBPROJ'}} (group $pbac->{$ENV{'PBPROJ'}} - home $home/$pbac->{$ENV{'PBPROJ'}})");
|
|---|
| 3650 | }
|
|---|
| 3651 | EOF
|
|---|
| 3652 |
|
|---|
| 3653 | # Copy the content of our local conf file to the VM/VE/RM
|
|---|
| 3654 | my $content = pb_get_content(pb_distro_conffile());
|
|---|
| 3655 | print SCRIPT << "EOF";
|
|---|
| 3656 | #
|
|---|
| 3657 | # Create a temporary local conf file for distribution support
|
|---|
| 3658 | # This is created here before its use later. Its place is hardcoded, so no choice for the path
|
|---|
| 3659 | #
|
|---|
| 3660 | my \$tempconf = pb_distro_conffile();
|
|---|
| 3661 | pb_mkdir_p(dirname(\$tempconf));
|
|---|
| 3662 | open(CONF,"> \$tempconf") || die "Unable to create \$tempconf";
|
|---|
| 3663 | print CONF q{$content};
|
|---|
| 3664 | close(CONF);
|
|---|
| 3665 | EOF
|
|---|
| 3666 |
|
|---|
| 3667 | if ($vtype =~ /(v|r)m/) {
|
|---|
| 3668 | print SCRIPT << "EOF";
|
|---|
| 3669 | # allow ssh entry to build
|
|---|
| 3670 | #
|
|---|
| 3671 | mkdir "$home/$pbac->{$ENV{'PBPROJ'}}/.ssh",0700;
|
|---|
| 3672 | # Allow those accessing root to access the build account
|
|---|
| 3673 | copy("\$ENV{'HOME'}/.ssh/authorized_keys","$home/$pbac->{$ENV{'PBPROJ'}}/.ssh/authorized_keys");
|
|---|
| 3674 | chmod 0600,".ssh/authorized_keys";
|
|---|
| 3675 | pb_system("chown -R $pbac->{$ENV{'PBPROJ'}}:$pbac->{$ENV{'PBPROJ'}} $home/$pbac->{$ENV{'PBPROJ'}}","Finish setting up the account env for $pbac->{$ENV{'PBPROJ'}}");
|
|---|
| 3676 |
|
|---|
| 3677 | EOF
|
|---|
| 3678 | }
|
|---|
| 3679 | print SCRIPT << 'EOF';
|
|---|
| 3680 | # No passwd for build account only keys
|
|---|
| 3681 | $file="/etc/shadow";
|
|---|
| 3682 | if (-f $file) {
|
|---|
| 3683 | open(PBFILE,$file) || die "Unable to open $file";
|
|---|
| 3684 | open(PBOUT,"> $file.new") || die "Unable to open $file.new";
|
|---|
| 3685 | while (<PBFILE>) {
|
|---|
| 3686 | EOF
|
|---|
| 3687 | print SCRIPT << "EOF";
|
|---|
| 3688 | s/^$pbac->{$ENV{'PBPROJ'}}:\!\!:/$pbac->{$ENV{'PBPROJ'}}:*:/;
|
|---|
| 3689 | s/^$pbac->{$ENV{'PBPROJ'}}:\!:/$pbac->{$ENV{'PBPROJ'}}:*:/; #SLES 9 e.g.
|
|---|
| 3690 | s/^$pbac->{$ENV{'PBPROJ'}}:\\*LK\\*:/$pbac->{$ENV{'PBPROJ'}}:NP:/; #Solaris e.g.
|
|---|
| 3691 | EOF
|
|---|
| 3692 | print SCRIPT << 'EOF';
|
|---|
| 3693 | print PBOUT $_;
|
|---|
| 3694 | }
|
|---|
| 3695 | close(PBFILE);
|
|---|
| 3696 | close(PBOUT);
|
|---|
| 3697 | rename("$file.new",$file);
|
|---|
| 3698 | chmod 0640,$file;
|
|---|
| 3699 | }
|
|---|
| 3700 |
|
|---|
| 3701 | # TODO: systemd support
|
|---|
| 3702 | # Keep the VM in text mode
|
|---|
| 3703 | $file="/etc/inittab";
|
|---|
| 3704 | if (-f $file) {
|
|---|
| 3705 | open(PBFILE,$file) || die "Unable to open $file";
|
|---|
| 3706 | open(PBOUT,"> $file.new") || die "Unable to open $file.new";
|
|---|
| 3707 | while (<PBFILE>) {
|
|---|
| 3708 | s/^(..):5:initdefault:$/$1:3:initdefault:/;
|
|---|
| 3709 | print PBOUT $_;
|
|---|
| 3710 | }
|
|---|
| 3711 | close(PBFILE);
|
|---|
| 3712 | close(PBOUT);
|
|---|
| 3713 | rename("$file.new",$file);
|
|---|
| 3714 | chmod 0640,$file;
|
|---|
| 3715 | }
|
|---|
| 3716 |
|
|---|
| 3717 | # pb has to be added to portage group on gentoo
|
|---|
| 3718 |
|
|---|
| 3719 | # We need to have that pb_distro_get_context function
|
|---|
| 3720 | # Get it from Project-Builder::Distribution
|
|---|
| 3721 | # And we now need the conf file required for this to work created above
|
|---|
| 3722 |
|
|---|
| 3723 | my $pbos = pb_distro_get_context();
|
|---|
| 3724 | print "distro tuple: ".Dumper($pbos)."\n";
|
|---|
| 3725 |
|
|---|
| 3726 | # Adapt sudoers
|
|---|
| 3727 | # sudo is not default on Solaris and needs to be installed first
|
|---|
| 3728 | # from http://www.sunfreeware.com/programlistsparc10.html#sudo
|
|---|
| 3729 | if ($pbos->{'type'} eq "pkg") {
|
|---|
| 3730 | $file="/usr/local/etc/sudoers";
|
|---|
| 3731 | } else {
|
|---|
| 3732 | $file="/etc/sudoers";
|
|---|
| 3733 | }
|
|---|
| 3734 | open(PBFILE,$file) || die "Unable to open $file";
|
|---|
| 3735 | open(PBOUT,"> $file.new") || die "Unable to open $file.new";
|
|---|
| 3736 | while (<PBFILE>) {
|
|---|
| 3737 | EOF
|
|---|
| 3738 | # Skip what will be generated
|
|---|
| 3739 | print SCRIPT << "EOF";
|
|---|
| 3740 | next if (/^$pbac->{$ENV{'PBPROJ'}}\\s+/);
|
|---|
| 3741 | next if (/^Defaults:$pbac->{$ENV{'PBPROJ'}}\\s+/);
|
|---|
| 3742 | next if (/^Defaults:root\\s+\!requiretty/);
|
|---|
| 3743 | next if (/^Defaults:root\\s+env_keep/);
|
|---|
| 3744 | EOF
|
|---|
| 3745 | print SCRIPT << 'EOF';
|
|---|
| 3746 | s/Defaults\s+requiretty/# disable Defaults: requiretty/;
|
|---|
| 3747 | print PBOUT $_;
|
|---|
| 3748 | }
|
|---|
| 3749 | close(PBFILE);
|
|---|
| 3750 | EOF
|
|---|
| 3751 | print SCRIPT << "EOF";
|
|---|
| 3752 | # Some distro force requiretty at compile time, so disable here
|
|---|
| 3753 | print PBOUT "Defaults:$pbac->{$ENV{'PBPROJ'}} !requiretty\\n";
|
|---|
| 3754 | print PBOUT "Defaults:root !requiretty\\n";
|
|---|
| 3755 | EOF
|
|---|
| 3756 | # RH 6.2 sudo doesn't support env_keep
|
|---|
| 3757 | if (($pbos->{'name'} ne "redhat") && ($pbos->{'version'} ne "6.2")) {
|
|---|
| 3758 | print SCRIPT << "EOF";
|
|---|
| 3759 | # Keep proxy configuration while using sudo
|
|---|
| 3760 | print PBOUT "Defaults:$pbac->{$ENV{'PBPROJ'}} env_keep += \\\"http_proxy ftp_proxy\\\"\\n";
|
|---|
| 3761 | print PBOUT "Defaults:root env_keep += \\\"http_proxy ftp_proxy\\\"\\n";
|
|---|
| 3762 | EOF
|
|---|
| 3763 | }
|
|---|
| 3764 | # Try to restrict security to what is really needed
|
|---|
| 3765 | if ($vtype =~ /^vm/) {
|
|---|
| 3766 | my $hpath = pb_distro_get_param($pbos,pb_conf_get("ospathcmd-halt"));
|
|---|
| 3767 | my @sudocmds = pb_get_sudocmds($pbos,$ntpline,"sudo $hpath","sudo /bin/date");
|
|---|
| 3768 | print SCRIPT << "EOF";
|
|---|
| 3769 | # This is needed in order to be able on VM to halt the machine from the $pbac->{$ENV{'PBPROJ'}} account at least
|
|---|
| 3770 | # Build account $pbac->{$ENV{'PBPROJ'}} in VM also needs to setup date and install deps.
|
|---|
| 3771 | # Nothing else should be needed
|
|---|
| 3772 | EOF
|
|---|
| 3773 | foreach my $c (@sudocmds) {
|
|---|
| 3774 | print SCRIPT "print PBOUT \"$pbac->{$ENV{'PBPROJ'}} ALL = NOPASSWD: $c\\n\";\n";
|
|---|
| 3775 | }
|
|---|
| 3776 | } elsif ($vtype =~ /^rm/) {
|
|---|
| 3777 | my @sudocmds = pb_get_sudocmds($pbos,$ntpline);
|
|---|
| 3778 | print SCRIPT << "EOF";
|
|---|
| 3779 | # Build account $pbac->{$ENV{'PBPROJ'}} in RM only needs to setup date and install deps if needed each time
|
|---|
| 3780 | EOF
|
|---|
| 3781 | foreach my $c (@sudocmds) {
|
|---|
| 3782 | print SCRIPT "print PBOUT \"$pbac->{$ENV{'PBPROJ'}} ALL = NOPASSWD: $c\\n\";\n";
|
|---|
| 3783 | }
|
|---|
| 3784 | } else {
|
|---|
| 3785 | print SCRIPT << "EOF";
|
|---|
| 3786 | # Build account $pbac->{$ENV{'PBPROJ'}} for VE needs to do a lot in the host (and chroot), so allow without restriction for now
|
|---|
| 3787 | print PBOUT "$pbac->{$ENV{'PBPROJ'}} ALL=(ALL) NOPASSWD:ALL\n";
|
|---|
| 3788 | EOF
|
|---|
| 3789 | }
|
|---|
| 3790 | my $sudomode = pb_distro_get_param($pbos,pb_conf_get("ossudoersmode"));
|
|---|
| 3791 | print SCRIPT << 'EOF';
|
|---|
| 3792 | close(PBOUT);
|
|---|
| 3793 | rename("$file.new",$file);
|
|---|
| 3794 | EOF
|
|---|
| 3795 | print SCRIPT << "EOF";
|
|---|
| 3796 | chmod 0$sudomode,\$file;
|
|---|
| 3797 |
|
|---|
| 3798 | EOF
|
|---|
| 3799 |
|
|---|
| 3800 | if ($vtype =~ /(v|r)m/) {
|
|---|
| 3801 | # Sync date
|
|---|
| 3802 | # do it after sudoers is setup
|
|---|
| 3803 | print SCRIPT "my \$res = pb_system(\"$ntpline\",\"Updating time with $ntpline\",\"mayfailverbose\");\n";
|
|---|
| 3804 | print SCRIPT "if (\$res != 0) {\n";
|
|---|
| 3805 | # try again with another method
|
|---|
| 3806 | $ntpline = pb_date2v($vtype,$pbos,1);
|
|---|
| 3807 | print SCRIPT " pb_system(\"$ntpline\",\"Updating time with $ntpline\",\"mayfailverbose\");\n";
|
|---|
| 3808 | print SCRIPT "}\n";
|
|---|
| 3809 | }
|
|---|
| 3810 |
|
|---|
| 3811 | print SCRIPT << 'EOF';
|
|---|
| 3812 |
|
|---|
| 3813 | # We may need a proxy configuration. Get it from the local env
|
|---|
| 3814 | pb_apply_conf_proxy($pbos);
|
|---|
| 3815 |
|
|---|
| 3816 | # First install all required packages
|
|---|
| 3817 | pb_system("dnf clean all","Cleaning dnf env","mayfail") if (($pbos->{'name'} eq "fedora") && ($pbos->{'version'} >= 22));
|
|---|
| 3818 | pb_system("yum clean all","Cleaning yum env","mayfail") if ((($pbos->{'name'} eq "fedora") && ($pbos->{'version'} < 22)) || ($pbos->{'name'} eq "asianux") || ($pbos->{'name'} eq "rhel"));
|
|---|
| 3819 | my ($ospkgdep) = pb_conf_get_if("ospkgdep");
|
|---|
| 3820 |
|
|---|
| 3821 | my $pkgdep = pb_distro_get_param($pbos,$ospkgdep);
|
|---|
| 3822 | pb_distro_installdeps(undef,$pbos,pb_distro_only_deps_needed($pbos,join(' ',split(/,/,$pkgdep))));
|
|---|
| 3823 |
|
|---|
| 3824 | EOF
|
|---|
| 3825 | my $itype = pb_distro_get_param($pbos,pb_conf_get("pbinstalltype"));
|
|---|
| 3826 | # Install from sandbox mean a file base install
|
|---|
| 3827 | $itype = "file" if (defined $sbx);
|
|---|
| 3828 | if ($itype =~ /^file/) {
|
|---|
| 3829 | my $cmdget;
|
|---|
| 3830 | if (defined $sbx) {
|
|---|
| 3831 | # Install from sandbox mean using the result of the just passed sbx2build command
|
|---|
| 3832 | # Get content saved in cms2build
|
|---|
| 3833 | my ($pkg) = pb_conf_read("$ENV{'PBDESTDIR'}/$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}.pb","pbpkg");
|
|---|
| 3834 | my $pbextdir = pb_get_extdir();
|
|---|
| 3835 | die "Unable to get package list" if (not defined $pkg);
|
|---|
| 3836 |
|
|---|
| 3837 | # We consider 2 specific packages
|
|---|
| 3838 | my $vertag1 = $pkg->{"ProjectBuilder"};
|
|---|
| 3839 | my $vertag2 = $pkg->{"project-builder"};
|
|---|
| 3840 | # get the version of the current package - maybe different
|
|---|
| 3841 | pb_log(2,"Vertag1: $vertag1\n");
|
|---|
| 3842 | pb_log(2,"Vertag2: $vertag2\n");
|
|---|
| 3843 | my ($pbver1,$tmp1) = split(/-/,$vertag1);
|
|---|
| 3844 | my ($pbver2,$tmp2) = split(/-/,$vertag2);
|
|---|
| 3845 | $cmdget = "mv /tmp/ProjectBuilder-$pbver1$pbextdir.tar.gz ProjectBuilder-latest.tar.gz ; mv /tmp/project-builder-$pbver2$pbextdir.tar.gz project-builder-latest.tar.gz";
|
|---|
| 3846 | } else {
|
|---|
| 3847 | # TODO: shouldn't we have a variable to specify the source file?
|
|---|
| 3848 | # And shouldn't we be getting the one that matches the current pb version?
|
|---|
| 3849 | # For the moment, just take the latest stable one
|
|---|
| 3850 | my $wget = pb_check_req("wget",0);
|
|---|
| 3851 | $cmdget = "$wget --passive-ftp ftp://ftp.project-builder.org/src/ProjectBuilder-latest.tar.gz; $wget --passive-ftp ftp://ftp.project-builder.org/src/project-builder-latest.tar.gz";
|
|---|
| 3852 | }
|
|---|
| 3853 | print SCRIPT << 'EOF';
|
|---|
| 3854 | # Then install manually the missing perl modules
|
|---|
| 3855 | my ($osperldep,$osperlver) = pb_conf_get_if("osperldep","osperlver");
|
|---|
| 3856 |
|
|---|
| 3857 | my $perldep = pb_distro_get_param($pbos,$osperldep);
|
|---|
| 3858 | my $bashopt = "";
|
|---|
| 3859 | $bashopt = "-x" if ($pbdebug ge 1);
|
|---|
| 3860 | my $verbopt = "mayfail";
|
|---|
| 3861 | $verbopt = "mayfailverbose" if ($pbdebug ge 1);
|
|---|
| 3862 | foreach my $m (split(/,/,$perldep)) {
|
|---|
| 3863 | # Skip empty deps
|
|---|
| 3864 | next if ($m =~ /^\s*$/);
|
|---|
| 3865 | my $dir = $m;
|
|---|
| 3866 | $dir =~ s/-.*//;
|
|---|
| 3867 | pb_system("echo \"rm -rf $m* ; wget http://search.cpan.org/CPAN/modules/by-module/$dir/$m-$osperlver->{$m}.tar.gz ; gzip -cd $m-$osperlver->{$m}.tar.gz | tar xf - ; cd $m* ; if [ -f Build.PL ]; then perl Build.PL; ./Build ; ./Build install ; else perl Makefile.PL; make ; make install ; fi; cd .. ; rm -rf $m*\" | bash -e $bashopt" ,"Installing perl module $m-$osperlver->{$m}",$verbopt);
|
|---|
| 3868 | }
|
|---|
| 3869 | EOF
|
|---|
| 3870 | print SCRIPT << 'EOF';
|
|---|
| 3871 | pb_system("rm -rf ProjectBuilder-* ; rm -rf project-builder-* ; rm -rf `perl -V:installvendorlib | awk -F\"'\" '{print \$2}'`/ProjectBuilder ;
|
|---|
| 3872 | EOF
|
|---|
| 3873 | print SCRIPT " $cmdget ; ";
|
|---|
| 3874 | print SCRIPT << 'EOF'
|
|---|
| 3875 | gzip -cd ProjectBuilder-latest.tar.gz | tar xf - ; cd ProjectBuilder-* ; perl Makefile.PL ; make ; make install ; cd .. ; rm -rf ProjectBuilder-* ; gzip -cd project-builder-latest.tar.gz | tar xf - ; cd project-builder-* ; perl Makefile.PL ; make ; make install ; cd .. ; rm -rf project-builder-* ;","Building Project-Builder");
|
|---|
| 3876 | EOF
|
|---|
| 3877 | } elsif ($itype =~ /^pkg/) {
|
|---|
| 3878 | # pkg based install. We need to point to the project-builder.org repository
|
|---|
| 3879 | print SCRIPT << 'EOF';
|
|---|
| 3880 | my $pkgforpb = pb_distro_get_param($pbos,pb_conf_get_if("ospkg"));
|
|---|
| 3881 | pb_distro_setuposrepo($pbos);
|
|---|
| 3882 | pb_distro_installdeps(undef,$pbos,pb_distro_only_deps_needed($pbos,join(' ',split(/,/,$pkgforpb))));
|
|---|
| 3883 | EOF
|
|---|
| 3884 | } else {
|
|---|
| 3885 | # Unknown install type
|
|---|
| 3886 | die("Unknown install type $itype->{$ENV{'PBPROJ'}} for param pbinstalltype");
|
|---|
| 3887 | }
|
|---|
| 3888 | print SCRIPT << 'EOF';
|
|---|
| 3889 | pb_system("pbdistrocheck",undef,"verbose");
|
|---|
| 3890 | pb_system("pb -h",undef,"verbose");
|
|---|
| 3891 | EOF
|
|---|
| 3892 | if ($vtype eq "ve"){
|
|---|
| 3893 | if ($vetype ne "docker") {
|
|---|
| 3894 | print SCRIPT << 'EOF';
|
|---|
| 3895 | # For VE we need to umount some FS at the end
|
|---|
| 3896 |
|
|---|
| 3897 | pb_system("umount /proc","Unmounting /proc","mayfail");
|
|---|
| 3898 | EOF
|
|---|
| 3899 | }
|
|---|
| 3900 | print SCRIPT << 'EOF';
|
|---|
| 3901 | # Create a basic network file if not already there
|
|---|
| 3902 |
|
|---|
| 3903 | my $nf="/etc/sysconfig/network";
|
|---|
| 3904 | if ((! -f $nf) && ($pbos->{'type'} eq "rpm") && ($pbos->{'family'} ne "novell")) {
|
|---|
| 3905 | open(NF,"> $nf") || die "Unable to create $nf";
|
|---|
| 3906 | print NF "NETWORKING=yes\n";
|
|---|
| 3907 | print NF "HOSTNAME=localhost\n";
|
|---|
| 3908 | close(NF);
|
|---|
| 3909 | }
|
|---|
| 3910 | chmod 0755,$nf;
|
|---|
| 3911 | EOF
|
|---|
| 3912 | }
|
|---|
| 3913 |
|
|---|
| 3914 | # Adds pb_distro_get_context and all functions needed from ProjectBuilder::Distribution, Conf and Base
|
|---|
| 3915 | foreach my $m ("ProjectBuilder/Base.pm","ProjectBuilder/Distribution.pm","ProjectBuilder/Conf.pm") {
|
|---|
| 3916 | foreach my $d (@INC) {
|
|---|
| 3917 | my $f = "$d/$m";
|
|---|
| 3918 | if (-f "$f") {
|
|---|
| 3919 | open(PBD,"$f") || die "Unable to open $f: $!";
|
|---|
| 3920 | while (<PBD>) {
|
|---|
| 3921 | next if (/^package/);
|
|---|
| 3922 | next if (/^use Exporter/);
|
|---|
| 3923 | next if (/^use ProjectBuilder::/);
|
|---|
| 3924 | next if (/^our /);
|
|---|
| 3925 | print SCRIPT $_;
|
|---|
| 3926 | }
|
|---|
| 3927 | close(PBD);
|
|---|
| 3928 | # We just need the first one of each file wrt @INC - hopefully that's the right one.
|
|---|
| 3929 | last;
|
|---|
| 3930 | }
|
|---|
| 3931 | }
|
|---|
| 3932 | }
|
|---|
| 3933 | # Use a fake pb_version_init version here
|
|---|
| 3934 | print SCRIPT << "EOF";
|
|---|
| 3935 | sub pb_version_init {
|
|---|
| 3936 |
|
|---|
| 3937 | return("$projectbuilderver","$projectbuilderrev");
|
|---|
| 3938 | }
|
|---|
| 3939 | 1;
|
|---|
| 3940 | EOF
|
|---|
| 3941 | close(SCRIPT);
|
|---|
| 3942 | chmod 0755,"$pbscript{$v}";
|
|---|
| 3943 |
|
|---|
| 3944 | $pm->finish if (defined $pbparallel);
|
|---|
| 3945 | }
|
|---|
| 3946 | $pm->wait_all_children if (defined $pbparallel);
|
|---|
| 3947 | die "Aborting, one or more of the children failed." if ((not $all_ok) && ($Global::pb_stop_on_error));
|
|---|
| 3948 |
|
|---|
| 3949 | # These build scripts need to be run as root and force stop of VM at end
|
|---|
| 3950 | $ENV{'PBACCOUNT'} = "root";
|
|---|
| 3951 |
|
|---|
| 3952 | $sbx = "" if (not defined $sbx);
|
|---|
| 3953 | # Launch the VM/VE/RM
|
|---|
| 3954 | pb_log(2,"DEBUG: before parallel launch, pbscript hash is:".Dumper(%pbscript)."\n");
|
|---|
| 3955 | pb_parallel_launchv(\%pbscript,$vtype,uc($vtype)."Script".$sbx,$pbstep,$pbimage,$pbforce,0,$pbsnap);
|
|---|
| 3956 |
|
|---|
| 3957 | return;
|
|---|
| 3958 | }
|
|---|
| 3959 |
|
|---|
| 3960 | # Function to create a snapshot named 'pb' for VMs and a compressed tar for VEs
|
|---|
| 3961 | sub pb_snap2v {
|
|---|
| 3962 |
|
|---|
| 3963 | my $vtype = shift;
|
|---|
| 3964 | my $pbstep = 2;
|
|---|
| 3965 |
|
|---|
| 3966 | my ($vm,$all) = pb_get2v($vtype);
|
|---|
| 3967 |
|
|---|
| 3968 | # Script generated
|
|---|
| 3969 | my $pbscript = "$ENV{'PBDESTDIR'}/snapv.$$";
|
|---|
| 3970 |
|
|---|
| 3971 | my ($pbac) = pb_conf_get($vtype."login");
|
|---|
| 3972 |
|
|---|
| 3973 | foreach my $v (@$vm) {
|
|---|
| 3974 | if ($vtype eq "ve") {
|
|---|
| 3975 | # Get distro context
|
|---|
| 3976 | my $pbos = pb_distro_get_context($v);
|
|---|
| 3977 | my ($vepath) = pb_conf_get("vepath");
|
|---|
| 3978 |
|
|---|
| 3979 | # Test if an existing snapshot exists and remove it if there is a VE
|
|---|
| 3980 | if ((-f "$vepath->{$ENV{'PBPROJ'}}/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}.tar.gz") &&
|
|---|
| 3981 | (! -d "$vepath->{$ENV{'PBPROJ'}}/$pbos->{'name'}/$pbos->{'version'}/$pbos->{'arch'}")) {
|
|---|
| 3982 | pb_system("sudo rm -f $vepath->{$ENV{'PBPROJ'}}/$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}.tar.gz","Removing previous snapshot $pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}.tar.gz");
|
|---|
| 3983 | }
|
|---|
| 3984 | }
|
|---|
| 3985 |
|
|---|
| 3986 | # Prepare the script to be executed on the VM/VE
|
|---|
| 3987 | open(SCRIPT,"> $pbscript") || die "Unable to create $pbscript";
|
|---|
| 3988 | print SCRIPT << 'EOF';
|
|---|
| 3989 | #!/bin/bash
|
|---|
| 3990 | sleep 2
|
|---|
| 3991 | EOF
|
|---|
| 3992 | close(SCRIPT);
|
|---|
| 3993 | chmod 0755,"$pbscript";
|
|---|
| 3994 |
|
|---|
| 3995 | # Force shutdown of VM/VE
|
|---|
| 3996 | # Force snapshot of VM/VE
|
|---|
| 3997 | pb_script2v($pbscript,$vtype,$pbstep,1,$v,1);
|
|---|
| 3998 | }
|
|---|
| 3999 | return;
|
|---|
| 4000 | }
|
|---|
| 4001 |
|
|---|
| 4002 | # Function to update VMs/VEs/RMs with the latest distribution content
|
|---|
| 4003 | sub pb_update2v {
|
|---|
| 4004 |
|
|---|
| 4005 | my $vtype = shift;
|
|---|
| 4006 | my $pbstep = 2;
|
|---|
| 4007 |
|
|---|
| 4008 | my ($vm,$all) = pb_get2v($vtype);
|
|---|
| 4009 |
|
|---|
| 4010 | # Script generated
|
|---|
| 4011 | my $pbscript = "$ENV{'PBDESTDIR'}/updatev.$$";
|
|---|
| 4012 |
|
|---|
| 4013 | my ($pbac) = pb_conf_get($vtype."login");
|
|---|
| 4014 |
|
|---|
| 4015 | foreach my $v (@$vm) {
|
|---|
| 4016 | # Get distro context
|
|---|
| 4017 | my $pbos = pb_distro_get_context($v);
|
|---|
| 4018 |
|
|---|
| 4019 | # Prepare the script to be executed on the VM/VE/RM
|
|---|
| 4020 | # in $ENV{'PBDESTDIR'}/updatev
|
|---|
| 4021 | open(SCRIPT,"> $pbscript") || die "Unable to create $pbscript";
|
|---|
| 4022 |
|
|---|
| 4023 | print SCRIPT << 'EOF';
|
|---|
| 4024 | #!/bin/bash
|
|---|
| 4025 | sleep 2
|
|---|
| 4026 | EOF
|
|---|
| 4027 | # VE needs a good /proc
|
|---|
| 4028 | $vetype = pb_ve_get_type($vetype);
|
|---|
| 4029 | if (($vtype eq "ve") && ($vetype ne "docker")) {
|
|---|
| 4030 | print SCRIPT "sudo /bin/mount -t proc /proc /proc\n";
|
|---|
| 4031 | }
|
|---|
| 4032 | print SCRIPT "$pbos->{'update'}\n";
|
|---|
| 4033 | if (($vtype eq "ve") && ($vetype ne "docker")) {
|
|---|
| 4034 | print SCRIPT "sudo /bin/umount /proc\n";
|
|---|
| 4035 | }
|
|---|
| 4036 | close(SCRIPT);
|
|---|
| 4037 | chmod 0755,"$pbscript";
|
|---|
| 4038 |
|
|---|
| 4039 | # Force shutdown of VM except
|
|---|
| 4040 | pb_script2v($pbscript,$vtype,$pbstep,1,$v);
|
|---|
| 4041 | }
|
|---|
| 4042 | return;
|
|---|
| 4043 | }
|
|---|
| 4044 |
|
|---|
| 4045 | sub pb_announce {
|
|---|
| 4046 |
|
|---|
| 4047 | my $antype = shift;
|
|---|
| 4048 |
|
|---|
| 4049 | # Get all required parameters
|
|---|
| 4050 | my ($pbpackager,$pbrepo) = pb_conf_get("pbpackager","pbrepo");
|
|---|
| 4051 | my ($pkgv, $pkgt, $testver) = pb_conf_get_if("pkgver","pkgtag","testver");
|
|---|
| 4052 | if (((not defined $testver) || (not defined $testver->{$ENV{'PBPROJ'}}) || ($testver->{$ENV{'PBPROJ'}} !~ /true/i)) && ($antype eq "Clean")) {
|
|---|
| 4053 | # We just clean for test versions
|
|---|
| 4054 | pb_log(0,"Unable to clean SSH repository for non testver version\n");
|
|---|
| 4055 | return;
|
|---|
| 4056 | }
|
|---|
| 4057 | my $pkg = pb_cms_get_pkg($defpkgdir,$extpkgdir);
|
|---|
| 4058 | my @pkgs = @$pkg;
|
|---|
| 4059 | my %pkgs;
|
|---|
| 4060 | my $first = 0;
|
|---|
| 4061 |
|
|---|
| 4062 | # Get all distros concerned
|
|---|
| 4063 | my $pbos = pb_distro_get_context();
|
|---|
| 4064 | my $distrolist = pb_get_distros($pbos,undef);
|
|---|
| 4065 | my %dl;
|
|---|
| 4066 | my %theorlist;
|
|---|
| 4067 | my %archlist;
|
|---|
| 4068 | foreach my $d (split(/,/,$distrolist)) {
|
|---|
| 4069 | my ($d1,$d2,$d3) = split(/-/,$d);
|
|---|
| 4070 | $dl{$d1}++;
|
|---|
| 4071 | }
|
|---|
| 4072 |
|
|---|
| 4073 | # Command to find packages on repo
|
|---|
| 4074 | my $findstr = "find ".join(" ",keys %dl)." ";
|
|---|
| 4075 | my $srcstr = "";
|
|---|
| 4076 | # Generated announce files
|
|---|
| 4077 | my @files;
|
|---|
| 4078 |
|
|---|
| 4079 | foreach my $pbpkg (@pkgs) {
|
|---|
| 4080 | if ($first != 0) {
|
|---|
| 4081 | $findstr .= "-o ";
|
|---|
| 4082 | }
|
|---|
| 4083 | $first++;
|
|---|
| 4084 | if ((defined $pkgv) && (defined $pkgv->{$pbpkg})) {
|
|---|
| 4085 | $pbver = $pkgv->{$pbpkg};
|
|---|
| 4086 | } else {
|
|---|
| 4087 | $pbver = $ENV{'PBPROJVER'};
|
|---|
| 4088 | }
|
|---|
| 4089 | if ((defined $pkgt) && (defined $pkgt->{$pbpkg})) {
|
|---|
| 4090 | $pbtag = $pkgt->{$pbpkg};
|
|---|
| 4091 | } else {
|
|---|
| 4092 | $pbtag = $ENV{'PBPROJTAG'};
|
|---|
| 4093 | }
|
|---|
| 4094 |
|
|---|
| 4095 | # TODO: use virtual/real names here now
|
|---|
| 4096 | my $pbrealpkg = $pbpkg;
|
|---|
| 4097 | my $pbrealpkgrpm = pb_cms_get_real_pkg($pbpkg,"rpm");
|
|---|
| 4098 | my $pbrealpkgdeb = pb_cms_get_real_pkg($pbpkg,"deb");
|
|---|
| 4099 | if ($antype eq "Clean") {
|
|---|
| 4100 | # We only clean test versions anyway
|
|---|
| 4101 | $pbtag = "0";
|
|---|
| 4102 | my $nver = $pbver;
|
|---|
| 4103 | my $ntag = "[2-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]";
|
|---|
| 4104 | $pbver .= $ntag;
|
|---|
| 4105 | $findstr .= "-name \'$pbrealpkgrpm-$pbver-$pbtag\.*.rpm\' -o -name \'$pbrealpkgrpm-debug-$pbver-$pbtag\.*.rpm\' -o -name \'$pbrealpkgdeb"."_$pbver-$pbtag"."_*\.deb\' -o -name \'$pbrealpkgdeb"."_$pbver-$pbtag.dsc\' -o -name \'$pbrealpkgdeb"."_$pbver-$pbtag.tar.gz\' -o -name \'$pbrealpkg-$nver"."_p$ntag\.ebuild\' -o -name \'$pbrealpkg-$pbver-$pbtag*\.pkg\.gz\' -o -name \'$pbrealpkg-$pbver-$pbtag*\.sd\' ";
|
|---|
| 4106 | $srcstr .= "src/$pbrealpkg-$pbver.tar.gz src/$pbrealpkg-$pbver.pbconf.tar.gz ";
|
|---|
| 4107 | } else {
|
|---|
| 4108 | # "Announce" and "Check"
|
|---|
| 4109 | my @date=pb_get_date();
|
|---|
| 4110 | # the matching is only done on packages made the same day for test version. Hopefully this is enough
|
|---|
| 4111 | my $nver;
|
|---|
| 4112 | if ((defined $testver) && (defined $testver->{$ENV{'PBPROJ'}}) && ($testver->{$ENV{'PBPROJ'}} =~ /true/i)) {
|
|---|
| 4113 | $pbtag = "0";
|
|---|
| 4114 | my $ntag .= strftime("%Y%m%d*", @date);
|
|---|
| 4115 | $nver = $pbver."_p$ntag*";
|
|---|
| 4116 | $pbver .= "$ntag*";
|
|---|
| 4117 | } else {
|
|---|
| 4118 | $nver = $pbver."-r$pbtag";
|
|---|
| 4119 | }
|
|---|
| 4120 | $findstr .= "-name \'$pbrealpkgrpm-$pbver-$pbtag\.*.rpm\' -o -name \'$pbrealpkgdeb"."_$pbver-$pbtag"."_*\.deb\' -o -name \'$pbrealpkg-$nver\.ebuild\' -o -name \'$pbrealpkg-$pbver\.pkg\.gz\' -o -name \'$pbrealpkg-$pbver\.sd\' ";
|
|---|
| 4121 | }
|
|---|
| 4122 |
|
|---|
| 4123 | if ($antype eq "Announce") {
|
|---|
| 4124 | my $chglog;
|
|---|
| 4125 |
|
|---|
| 4126 | pb_cms_init($pbinit);
|
|---|
| 4127 | # Get project info on log file and generate tmp files used later on
|
|---|
| 4128 | $chglog = "$ENV{'PBROOTDIR'}/$pbpkg/pbcl";
|
|---|
| 4129 | $chglog = "$ENV{'PBROOTDIR'}/pbcl" if (! -f $chglog);
|
|---|
| 4130 | $chglog = undef if (! -f $chglog);
|
|---|
| 4131 |
|
|---|
| 4132 | open(OUT,"> $ENV{'PBTMP'}/$pbpkg.ann") || die "Unable to create $ENV{'PBTMP'}/$pbpkg.ann: $!";
|
|---|
| 4133 | my $pb;
|
|---|
| 4134 | $pb->{'realpkg'} = $pbrealpkg;
|
|---|
| 4135 | $pb->{'ver'} = $pbver;
|
|---|
| 4136 | $pb->{'tag'} = $pbtag;
|
|---|
| 4137 | $pb->{'date'} = $pbdate;
|
|---|
| 4138 | $pb->{'extdir'} = pb_get_extdir();
|
|---|
| 4139 | $pb->{'chglog'} = $chglog;
|
|---|
| 4140 | $pb->{'packager'} = $pbpackager;
|
|---|
| 4141 | $pb->{'proj'} = $ENV{'PBPROJ'};
|
|---|
| 4142 | $pb->{'repo'} = $pbrepo;
|
|---|
| 4143 | $pb->{'pbos'}->{'type'} = "announce";
|
|---|
| 4144 | $pb->{'pbos'}->{'suffix'} = "none";
|
|---|
| 4145 | pb_changelog($pb,\*OUT,"yes");
|
|---|
| 4146 | close(OUT);
|
|---|
| 4147 | push(@files,"$ENV{'PBTMP'}/$pbpkg.ann");
|
|---|
| 4148 | } elsif ($antype eq "Check") {
|
|---|
| 4149 | # For the check we also build the theoritical complete list we should get
|
|---|
| 4150 | foreach my $d (split(/,/,$distrolist)) {
|
|---|
| 4151 | $pbos = pb_distro_get_context($d);
|
|---|
| 4152 | if ($pbos->{'type'} eq "rpm") {
|
|---|
| 4153 | $theorlist{"$pbos->{'name'}/$pbos->{'version'}/$pbos->{'arch'}/$pbrealpkgrpm-$pbver-$pbtag$pbos->{'suffix'}"} = 0;
|
|---|
| 4154 | } elsif ($pbos->{'type'} eq "deb") {
|
|---|
| 4155 | $theorlist{"$pbos->{'name'}/$pbos->{'version'}/$pbrealpkgdeb"."_$pbver-$pbtag"} = 0;
|
|---|
| 4156 | # TODO are we always using the last arch ?
|
|---|
| 4157 | $archlist{"$pbos->{'name'}/$pbos->{'version'}/$pbrealpkgdeb"."_$pbver-$pbtag"} = "$pbos->{'arch'}";
|
|---|
| 4158 | } elsif ($pbos->{'type'} eq "ebuild") {
|
|---|
| 4159 | my $prefix = "-r";
|
|---|
| 4160 | $prefix = "_p" if ((defined $testver) && (defined $testver->{$ENV{'PBPROJ'}}) && ($testver->{$ENV{'PBPROJ'}} =~ /true/i));
|
|---|
| 4161 | $theorlist{"$pbos->{'name'}/$pbos->{'version'}/$pbrealpkg-$pbver$prefix$pbtag.ebuild"} = 0;
|
|---|
| 4162 | $archlist{"$pbos->{'name'}/$pbos->{'version'}/$pbrealpkg-$pbver$prefix$pbtag.ebuild"} = "$pbos->{'arch'}";
|
|---|
| 4163 | } elsif ($pbos->{'type'} eq "pkg") {
|
|---|
| 4164 | $theorlist{"$pbos->{'name'}/$pbos->{'version'}/$pbos->{'arch'}/$pbrealpkg-$pbver-$pbtag.pkg.gz"} = 0;
|
|---|
| 4165 | } else {
|
|---|
| 4166 | pb_log(1,"No theoritical list possible for type $pbos->{'type'}\n");
|
|---|
| 4167 | }
|
|---|
| 4168 | }
|
|---|
| 4169 | }
|
|---|
| 4170 | pb_log(2,"theorlist initial: ".Dumper(%theorlist)."\n");
|
|---|
| 4171 | pb_log(2,"archlist: ".Dumper(%archlist)."\n");
|
|---|
| 4172 | }
|
|---|
| 4173 | if ($antype eq "Announce") {
|
|---|
| 4174 | $findstr .= " | grep -Ev \'src.rpm\'";
|
|---|
| 4175 | } elsif ($antype eq "Clean") {
|
|---|
| 4176 | $findstr .= " | xargs rm -f -v $srcstr ";
|
|---|
| 4177 | }
|
|---|
| 4178 |
|
|---|
| 4179 | # Prepare the command to run and execute it
|
|---|
| 4180 | open(PBS,"> $ENV{'PBTMP'}/pbscript") || die "Unable to create $ENV{'PBTMP'}/pbscript";
|
|---|
| 4181 | print PBS "#!/bin/bash\n";
|
|---|
| 4182 | print PBS "set -x\n" if ($pbdebug gt 1);
|
|---|
| 4183 | print PBS "$findstr | sort 2> /dev/null\n";
|
|---|
| 4184 | close(PBS);
|
|---|
| 4185 | chmod 0755,"$ENV{'PBTMP'}/pbscript";
|
|---|
| 4186 | pb_send2target("Announce","$ENV{'PBTMP'}/pbscript");
|
|---|
| 4187 |
|
|---|
| 4188 | my $sl = "Project $ENV{'PBPROJ'} version $ENV{'PBPROJVER'} is now available";
|
|---|
| 4189 | if ($antype eq "Announce") {
|
|---|
| 4190 | # Get subject line
|
|---|
| 4191 | pb_log(0,"Please enter the title of your announce\n");
|
|---|
| 4192 | pb_log(0,"(By default: $sl)\n");
|
|---|
| 4193 | my $sl2 = <STDIN>;
|
|---|
| 4194 | $sl = $sl2 if ($sl2 !~ /^$/);
|
|---|
| 4195 |
|
|---|
| 4196 | # Prepare a template of announce
|
|---|
| 4197 | open(ANN,"> $ENV{'PBTMP'}/announce.html") || die "Unable to create $ENV{'PBTMP'}/announce.html: $!";
|
|---|
| 4198 | print ANN << "EOF";
|
|---|
| 4199 | $sl</p>
|
|---|
| 4200 |
|
|---|
| 4201 | <p>The project team is happy to announce the availability of a newest version of $ENV{'PBPROJ'} $ENV{'PBPROJVER'}. Enjoy it as usual!</p>
|
|---|
| 4202 | <p>
|
|---|
| 4203 | Now available at <a href="$pbrepo->{$ENV{'PBPROJ'}}">$pbrepo->{$ENV{'PBPROJ'}}</a>
|
|---|
| 4204 | </p>
|
|---|
| 4205 | <p>
|
|---|
| 4206 | EOF
|
|---|
| 4207 | }
|
|---|
| 4208 |
|
|---|
| 4209 | open(LOG,"$ENV{'PBTMP'}/system.$$.log") || die "Unable to read $ENV{'PBTMP'}/system.$$.log: $!";
|
|---|
| 4210 | if ($antype eq "Announce") {
|
|---|
| 4211 | my $col = 2;
|
|---|
| 4212 | my $i = 1;
|
|---|
| 4213 | print ANN << 'EOF';
|
|---|
| 4214 | <TABLE WIDTH="100%" CELLPADDING="0" CELLSPACING="0" BORDER="0">
|
|---|
| 4215 | <TR>
|
|---|
| 4216 | EOF
|
|---|
| 4217 | while (<LOG>) {
|
|---|
| 4218 | print ANN "<TD><A HREF=\"$pbrepo->{$ENV{'PBPROJ'}}/$_\">$_</A></TD>";
|
|---|
| 4219 | $i++;
|
|---|
| 4220 | if ($i > $col) {
|
|---|
| 4221 | print ANN "</TR>\n<TR>";
|
|---|
| 4222 | $i = 1;
|
|---|
| 4223 | }
|
|---|
| 4224 | }
|
|---|
| 4225 | } elsif ($antype eq "Clean") {
|
|---|
| 4226 | while (<LOG>) {
|
|---|
| 4227 | # skip errors
|
|---|
| 4228 | next if ($_ !~ /^removed /);
|
|---|
| 4229 | pb_log(0,"$_");
|
|---|
| 4230 | }
|
|---|
| 4231 | } else {
|
|---|
| 4232 | # In "Check" mode we need to compare the 2 lists (real and theoritical)
|
|---|
| 4233 | while (<LOG>) {
|
|---|
| 4234 | # Get package name and remove what is in extra for the theoritical list (arch at the end)
|
|---|
| 4235 | chomp();
|
|---|
| 4236 | # skip find errors
|
|---|
| 4237 | next if (/^find:/);
|
|---|
| 4238 | my $p = $_;
|
|---|
| 4239 | $p =~ s/\.(i[3456]86|x86_64|noarch|src)\.rpm$//;
|
|---|
| 4240 | $p =~ s/_(i[3456]86|amd64|all)\.deb$//;
|
|---|
| 4241 | $p =~ s/(-0\.[0-9]{8})[0-9]{6}/$1*/ if ((defined $testver) && (defined $testver->{$ENV{'PBPROJ'}}) && ($testver->{$ENV{'PBPROJ'}} =~ /true/i));
|
|---|
| 4242 | $p =~ s/(-r|_p[0-9]+)\.ebuild/$1*/ if ((defined $testver) && (defined $testver->{$ENV{'PBPROJ'}}) && ($testver->{$ENV{'PBPROJ'}} =~ /true/i));
|
|---|
| 4243 | $theorlist{$p} = -2 if (not defined $theorlist{$p});
|
|---|
| 4244 | $theorlist{$p} = $theorlist{$p} + 1;
|
|---|
| 4245 | }
|
|---|
| 4246 | pb_log(2,"theorlist after check: ".Dumper(%theorlist)."\n");
|
|---|
| 4247 | }
|
|---|
| 4248 | close(LOG);
|
|---|
| 4249 |
|
|---|
| 4250 | # Nothing more for the cleanssh case
|
|---|
| 4251 | return if ($antype eq "Clean");
|
|---|
| 4252 |
|
|---|
| 4253 | if ($antype eq "Check") {
|
|---|
| 4254 | my ($chkex) = pb_conf_get_if("checkexclude");
|
|---|
| 4255 | my $vmbuildlist = "";
|
|---|
| 4256 | my $vebuildlist = "";
|
|---|
| 4257 | my $rmbuildlist = "";
|
|---|
| 4258 | my @pt = pb_conf_get_if("vmlist","velist","rmlist");
|
|---|
| 4259 | foreach my $t (sort keys %theorlist) {
|
|---|
| 4260 | if (defined $theorlist{$t} and $theorlist{$t} >= 1) {
|
|---|
| 4261 | pb_log(1,"Packages found for $t\n");
|
|---|
| 4262 | } elsif (defined $theorlist{$t} and $theorlist{$t} < 0) {
|
|---|
| 4263 | pb_log(0,"Extra Package found for $t\n");
|
|---|
| 4264 | } else {
|
|---|
| 4265 | pb_log(2,"Analyzing $t\n");
|
|---|
| 4266 | my ($os,$ver,$arch,$package) = split(/\//,$t);
|
|---|
| 4267 | # Some distro have no arch subdir
|
|---|
| 4268 | if (not defined $package) {
|
|---|
| 4269 | $package = $arch;
|
|---|
| 4270 | # TODO: If both arch have failed, we just make the last one
|
|---|
| 4271 | $arch = $archlist{$t} if (defined $archlist{$t});
|
|---|
| 4272 | }
|
|---|
| 4273 | my $pbos = pb_distro_get_context("$os-$ver-$arch");
|
|---|
| 4274 | my $pkgn = $package;
|
|---|
| 4275 | if ($pbos->{'type'} ne "deb") {
|
|---|
| 4276 | # package name is more easily found from the end for non deb
|
|---|
| 4277 | # as '-' is the separator, but it can also be used in names
|
|---|
| 4278 | $pkgn = reverse($package);
|
|---|
| 4279 | # search the second '-' and isolate the now last part which is the full name
|
|---|
| 4280 | $pkgn =~ s/([^-]+)-([^-]+)-([\S])+$/$3/;
|
|---|
| 4281 | } else {
|
|---|
| 4282 | $pkgn =~ s/([^_]+)_([\S])+$/$2/;
|
|---|
| 4283 | }
|
|---|
| 4284 | my $found = 0;
|
|---|
| 4285 | # Handle the exclusion of OSes
|
|---|
| 4286 | my $excl = "";
|
|---|
| 4287 | $excl .= $chkex->{$pkgn} if (defined $chkex->{$pkgn});
|
|---|
| 4288 | $excl .= $chkex->{"all"} if (defined $chkex->{"all"});
|
|---|
| 4289 |
|
|---|
| 4290 | pb_log(2,"Searching in excl $excl\n");
|
|---|
| 4291 | foreach my $ex (split(/,/,$excl)) {
|
|---|
| 4292 | $found = 1 if ("$os-$ver-$arch" =~ /^$ex/);
|
|---|
| 4293 | }
|
|---|
| 4294 | # Skip as excluded
|
|---|
| 4295 | next if ($found == 1);
|
|---|
| 4296 | pb_log(0,"Package NOT found for $t\n");
|
|---|
| 4297 | # Avoid duplicates in list
|
|---|
| 4298 | next if ($vmbuildlist =~ /$os-$ver-$arch/);
|
|---|
| 4299 | next if ($vebuildlist =~ /$os-$ver-$arch/);
|
|---|
| 4300 | next if ($rmbuildlist =~ /$os-$ver-$arch/);
|
|---|
| 4301 | # check with which method we need to build
|
|---|
| 4302 | if ((defined $pt[0]->{$ENV{'PBPROJ'}}) and ($pt[0]->{$ENV{'PBPROJ'}} =~ /$os-$ver-$arch/)) {
|
|---|
| 4303 | $vmbuildlist = "$os-$ver-$arch" if ($vmbuildlist eq "");
|
|---|
| 4304 | $vmbuildlist .= ",$os-$ver-$arch" if ($vmbuildlist !~ /$os-$ver-$arch/);
|
|---|
| 4305 | next;
|
|---|
| 4306 | }
|
|---|
| 4307 | if ((defined $pt[1]->{$ENV{'PBPROJ'}}) and ($pt[1]->{$ENV{'PBPROJ'}} =~ /$os-$ver-$arch/)) {
|
|---|
| 4308 | $vebuildlist = "$os-$ver-$arch" if ($vebuildlist eq "");
|
|---|
| 4309 | $vebuildlist .= ",$os-$ver-$arch" if ($vebuildlist !~ /$os-$ver-$arch/);
|
|---|
| 4310 | next;
|
|---|
| 4311 | }
|
|---|
| 4312 | if ((defined $pt[2]->{$ENV{'PBPROJ'}}) and ($pt[2]->{$ENV{'PBPROJ'}} =~ /$os-$ver-$arch/)) {
|
|---|
| 4313 | $rmbuildlist = "$os-$ver-$arch" if ($rmbuildlist eq "");
|
|---|
| 4314 | $rmbuildlist .= ",$os-$ver-$arch" if ($rmbuildlist !~ /$os-$ver-$arch/);
|
|---|
| 4315 | }
|
|---|
| 4316 | }
|
|---|
| 4317 | }
|
|---|
| 4318 | # If we want to rebuild automatically, let's do it
|
|---|
| 4319 | if (defined $opts{'rebuild'}) {
|
|---|
| 4320 | # SandBox or CMS
|
|---|
| 4321 | pb_log(0,"Rebuilding from SandBox\n");
|
|---|
| 4322 | pb_log(0,"for VMs: $vmbuildlist\n") if ($vmbuildlist ne "");
|
|---|
| 4323 | pb_log(0,"for VEs: $vebuildlist\n") if ($vebuildlist ne "");
|
|---|
| 4324 | pb_log(0,"for RMs: $rmbuildlist\n") if ($rmbuildlist ne "");
|
|---|
| 4325 | pb_cms2build("SandBox");
|
|---|
| 4326 | # Which mode
|
|---|
| 4327 | $ENV{'PBV'} = $vmbuildlist;
|
|---|
| 4328 | pb_build2v("vm","build") if ($vmbuildlist ne "");
|
|---|
| 4329 | $ENV{'PBV'} = $vebuildlist;
|
|---|
| 4330 | pb_build2v("ve","build") if ($vebuildlist ne "");
|
|---|
| 4331 | $ENV{'PBV'} = $rmbuildlist;
|
|---|
| 4332 | pb_build2v("rm","build") if ($rmbuildlist ne "");
|
|---|
| 4333 | }
|
|---|
| 4334 | # For the check part this is now finished
|
|---|
| 4335 | return;
|
|---|
| 4336 | }
|
|---|
| 4337 |
|
|---|
| 4338 | print ANN << "EOF";
|
|---|
| 4339 | </TR>
|
|---|
| 4340 | </TABLE>
|
|---|
| 4341 | </p>
|
|---|
| 4342 |
|
|---|
| 4343 | <p>As usual source packages are also available in the same directory.</p>
|
|---|
| 4344 |
|
|---|
| 4345 | <p>
|
|---|
| 4346 | Changes are :
|
|---|
| 4347 | </p>
|
|---|
| 4348 | <p>
|
|---|
| 4349 | EOF
|
|---|
| 4350 | # Get each package changelog content
|
|---|
| 4351 | foreach my $f (sort(@files)) {
|
|---|
| 4352 | open(IN,"$f") || die "Unable to read $f:$!";
|
|---|
| 4353 | while (<IN>) {
|
|---|
| 4354 | print ANN $_;
|
|---|
| 4355 | }
|
|---|
| 4356 | close(IN);
|
|---|
| 4357 | print ANN "</p><p>\n";
|
|---|
| 4358 | }
|
|---|
| 4359 | print ANN "</p>\n";
|
|---|
| 4360 | close(ANN);
|
|---|
| 4361 |
|
|---|
| 4362 | # Allow for modification
|
|---|
| 4363 | my $editor = "vi";
|
|---|
| 4364 | $editor = $ENV{'EDITOR'} if (defined $ENV{'EDITOR'});
|
|---|
| 4365 | pb_system("$editor $ENV{'PBTMP'}/announce.html","Allowing modification of the announce","noredir");
|
|---|
| 4366 |
|
|---|
| 4367 | # Store it in DB for external usage (Web pages generation)
|
|---|
| 4368 | my $dbh = pb_connect_db();
|
|---|
| 4369 |
|
|---|
| 4370 | # To read whole file
|
|---|
| 4371 | local $/;
|
|---|
| 4372 | open(ANN,"$ENV{'PBTMP'}/announce.html") || die "Unable to read $ENV{'PBTMP'}/announce.html: $!";
|
|---|
| 4373 | my $announce = <ANN>;
|
|---|
| 4374 | close(ANN);
|
|---|
| 4375 |
|
|---|
| 4376 | pb_log(2,"INSERT INTO announces VALUES (NULL, $pbdate, $announce)");
|
|---|
| 4377 | my $sth = $dbh->prepare(qq{INSERT INTO announces VALUES (NULL,?,?)})
|
|---|
| 4378 | || die "Unable to insert into db";
|
|---|
| 4379 | $sth->execute($pbdate, $announce);
|
|---|
| 4380 | $sth->finish();
|
|---|
| 4381 | $dbh->disconnect;
|
|---|
| 4382 |
|
|---|
| 4383 | # Then deliver it on the Web
|
|---|
| 4384 | # $TOOLHOME/livwww www
|
|---|
| 4385 |
|
|---|
| 4386 | # Mail it to project's ML
|
|---|
| 4387 | open(ML,"| w3m -dump -T text/html > $ENV{'PBTMP'}/announce.txt") || die "Unable to create $ENV{'PBTMP'}/announce.txt: $!";
|
|---|
| 4388 | print ML << 'EOF';
|
|---|
| 4389 | <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/x html1/DTD/xhtml1-strict.dtd">
|
|---|
| 4390 |
|
|---|
| 4391 | <html xmlns="http://www.w3.org/1999/xhtml" dir="ltr" xml:lang="en" lang="en">
|
|---|
| 4392 | <head>
|
|---|
| 4393 | </head>
|
|---|
| 4394 | <body>
|
|---|
| 4395 | <p>
|
|---|
| 4396 | EOF
|
|---|
| 4397 | open(ANN,"$ENV{'PBTMP'}/announce.html") || die "Unable to read $ENV{'PBTMP'}/announce.html: $!";
|
|---|
| 4398 | while(<ANN>) {
|
|---|
| 4399 | print ML $_;
|
|---|
| 4400 | }
|
|---|
| 4401 | print ML << 'EOF';
|
|---|
| 4402 | </body>
|
|---|
| 4403 | </html>
|
|---|
| 4404 | EOF
|
|---|
| 4405 | close(ML);
|
|---|
| 4406 |
|
|---|
| 4407 | # To read whole file
|
|---|
| 4408 | local $/;
|
|---|
| 4409 | open(ANN,"$ENV{'PBTMP'}/announce.txt") || die "Unable to read $ENV{'PBTMP'}/announce.txt: $!";
|
|---|
| 4410 | my $msg = <ANN>;
|
|---|
| 4411 | close(ANN);
|
|---|
| 4412 |
|
|---|
| 4413 | # Preparation of headers
|
|---|
| 4414 | eval
|
|---|
| 4415 | {
|
|---|
| 4416 | require Mail::Sendmail;
|
|---|
| 4417 | Mail::Sendmail->import();
|
|---|
| 4418 | };
|
|---|
| 4419 | if ($@) {
|
|---|
| 4420 | # Mail::Sendmail not found not sending mail !
|
|---|
| 4421 | pb_log(0,"No Mail::Sendmail module found so not sending any mail !\n");
|
|---|
| 4422 | } else {
|
|---|
| 4423 | my ($pbml,$pbsmtp) = pb_conf_get("pbml","pbsmtp");
|
|---|
| 4424 | my %mail = (
|
|---|
| 4425 | To => $pbml->{$ENV{'PBPROJ'}},
|
|---|
| 4426 | From => $pbpackager->{$ENV{'PBPROJ'}},
|
|---|
| 4427 | Smtp => $pbsmtp->{$ENV{'PBPROJ'}},
|
|---|
| 4428 | Body => $msg,
|
|---|
| 4429 | Subject => "[ANNOUNCE] $sl",
|
|---|
| 4430 | );
|
|---|
| 4431 |
|
|---|
| 4432 | # Send mail
|
|---|
| 4433 | if (! sendmail(%mail)) {
|
|---|
| 4434 | if ((defined $Mail::Sendmail::error) and (defined $Mail::Sendmail::log)) {
|
|---|
| 4435 | die "Unable to send mail ($Mail::Sendmail::error): $Mail::Sendmail::log";
|
|---|
| 4436 | }
|
|---|
| 4437 | }
|
|---|
| 4438 | }
|
|---|
| 4439 | }
|
|---|
| 4440 |
|
|---|
| 4441 | #
|
|---|
| 4442 | # Creates a set of HTML file containing the news for the project
|
|---|
| 4443 | # based on what has been generated by the pb_announce function
|
|---|
| 4444 | #
|
|---|
| 4445 | sub pb_web_news2html {
|
|---|
| 4446 |
|
|---|
| 4447 | my $dest = shift || $ENV{'PBTMP'};
|
|---|
| 4448 |
|
|---|
| 4449 | # Get all required parameters
|
|---|
| 4450 | my ($pkgv, $pkgt) = pb_conf_get_if("pkgver","pkgtag");
|
|---|
| 4451 |
|
|---|
| 4452 |
|
|---|
| 4453 | my $dbh = pb_connect_db();
|
|---|
| 4454 | # For date handling
|
|---|
| 4455 | $ENV{LANGUAGE}="C";
|
|---|
| 4456 | my $firstjan = strftime("%Y-%m-%d", 0, 0, 0, 1, 0, localtime->year(), 0, 0, -1);
|
|---|
| 4457 | my $oldfirst = strftime("%Y-%m-%d", 0, 0, 0, 1, 0, localtime->year()-1, 0, 0, -1);
|
|---|
| 4458 | pb_log(2,"firstjan: $firstjan, oldfirst: $oldfirst, pbdate:$pbdate\n");
|
|---|
| 4459 | my $all = $dbh->selectall_arrayref("SELECT id,date,announce FROM announces ORDER BY date DESC");
|
|---|
| 4460 | my %news;
|
|---|
| 4461 | $news{"cy"} = ""; # current year's news
|
|---|
| 4462 | $news{"ly"} = ""; # last year news
|
|---|
| 4463 | $news{"py"} = ""; # previous years news
|
|---|
| 4464 | $news{"fp"} = ""; # first page news
|
|---|
| 4465 | my $cpt = 4; # how many news for first page
|
|---|
| 4466 | # Extract info from DB
|
|---|
| 4467 | foreach my $row (@$all) {
|
|---|
| 4468 | my ($id, $date, $announce) = @$row;
|
|---|
| 4469 | $news{"cy"} = $news{"cy"}."<p><B>$date</B> $announce\n" if ((($date cmp $pbdate) le 0) && (($firstjan cmp $date) le 0));
|
|---|
| 4470 | $news{"ly"} = $news{"ly"}."<p><B>$date</B> $announce\n" if ((($date cmp $firstjan) le 0) && (($oldfirst cmp $date) le 0));
|
|---|
| 4471 | $news{"py"} = $news{"py"}."<p><B>$date</B> $announce\n" if (($date cmp $oldfirst) le 0);
|
|---|
| 4472 | $news{"fp"} = $news{"fp"}."<p><B>$date</B> $announce\n" if ($cpt > 0);
|
|---|
| 4473 | $cpt--;
|
|---|
| 4474 | }
|
|---|
| 4475 | pb_log(1,"news{fp}: ".$news{"fp"}."\n");
|
|---|
| 4476 | $dbh->disconnect;
|
|---|
| 4477 |
|
|---|
| 4478 | # Generate the HTML content
|
|---|
| 4479 | foreach my $pref (keys %news) {
|
|---|
| 4480 | open(NEWS,"> $dest/pb_web_$pref"."news.html") || die "Unable to create $dest/pb_web_$pref"."news.html: $!";
|
|---|
| 4481 | print NEWS "$news{$pref}";
|
|---|
| 4482 | close(NEWS);
|
|---|
| 4483 | }
|
|---|
| 4484 | }
|
|---|
| 4485 |
|
|---|
| 4486 | sub pb_connect_db {
|
|---|
| 4487 |
|
|---|
| 4488 | # Store in DB for external usage (Web pages generation)
|
|---|
| 4489 | my $db = "$ENV{'PBCONFDIR'}/announces3.sql";
|
|---|
| 4490 |
|
|---|
| 4491 | my $precmd = "";
|
|---|
| 4492 | if (! -f $db) {
|
|---|
| 4493 | $precmd = "CREATE TABLE announces (id INTEGER PRIMARY KEY AUTOINCREMENT, date DATE, announce VARCHAR[65535])";
|
|---|
| 4494 | # we should add the $db to the VCS as well here
|
|---|
| 4495 | }
|
|---|
| 4496 |
|
|---|
| 4497 | my $dbh = DBI->connect("dbi:SQLite:dbname=$db","","",
|
|---|
| 4498 | { RaiseError => 1, AutoCommit => 1 })
|
|---|
| 4499 | || die "Unable to connect to $db";
|
|---|
| 4500 |
|
|---|
| 4501 | if ($precmd ne "") {
|
|---|
| 4502 | my $sth = $dbh->prepare(qq{$precmd})
|
|---|
| 4503 | || die "Unable to create table into $db";
|
|---|
| 4504 | $sth->execute();
|
|---|
| 4505 | }
|
|---|
| 4506 |
|
|---|
| 4507 | return($dbh);
|
|---|
| 4508 | }
|
|---|
| 4509 |
|
|---|
| 4510 |
|
|---|
| 4511 | # Return the SSH key file to use
|
|---|
| 4512 | # Potentially create it if needed
|
|---|
| 4513 |
|
|---|
| 4514 | sub pb_ssh_get {
|
|---|
| 4515 |
|
|---|
| 4516 | my $create = shift || 0; # Do not create keys by default. In that case prefer native keys, not pb's ones
|
|---|
| 4517 | my $target = shift || "localhost";
|
|---|
| 4518 | my $nport = shift || "22";
|
|---|
| 4519 |
|
|---|
| 4520 | my ($pbagent) = pb_conf_get_if("pbusesshagent");
|
|---|
| 4521 | # use ssh-agent if asked so.
|
|---|
| 4522 | return(undef) if (($create == 0) && (defined $pbagent->{$ENV{'PBPROJ'}}) && ($pbagent->{$ENV{'PBPROJ'}} =~ /true/io));
|
|---|
| 4523 |
|
|---|
| 4524 | # Check the SSH environment
|
|---|
| 4525 | my $keyfile = undef;
|
|---|
| 4526 |
|
|---|
| 4527 | # Check whether ecdsa is accepted by the remote host
|
|---|
| 4528 | my $ecdsa = 0;
|
|---|
| 4529 | my $dsa = 0;
|
|---|
| 4530 | open(SCAN,"ssh-keyscan -p $nport -t ecdsa $target 2>/dev/null |") || pb_log(0,"Unable to check ECDSA support for $target");
|
|---|
| 4531 | while(<SCAN>) {
|
|---|
| 4532 | $ecdsa = 1 if ($_ =~ /ecdsa-/);
|
|---|
| 4533 | pb_log(2,"Found ECDSA support on $target ($nport)\n");
|
|---|
| 4534 | }
|
|---|
| 4535 | close(SCAN);
|
|---|
| 4536 |
|
|---|
| 4537 | open(SCAN,"ssh-keyscan -p $nport -t dsa $target 2>/dev/null |") || pb_log(0,"Unable to check DSA support for $target");
|
|---|
| 4538 | while(<SCAN>) {
|
|---|
| 4539 | $dsa = 1 if ($_ =~ /ssh-dss/);
|
|---|
| 4540 | pb_log(2,"Found DSA support on $target ($nport)\n");
|
|---|
| 4541 | }
|
|---|
| 4542 | close(SCAN);
|
|---|
| 4543 |
|
|---|
| 4544 | # We have specific keys by default - create them if needed
|
|---|
| 4545 | if (!(-e "$ENV{'HOME'}/.ssh/pb_ecdsa") && ($create eq 1)) {
|
|---|
| 4546 | my $res = pb_system("ssh-keygen -q -b 1024 -N '' -f $ENV{'HOME'}/.ssh/pb_ecdsa -t ecdsa","Generating ECDSA SSH keys for pb");
|
|---|
| 4547 | if (($res != 0) && !(-e "$ENV{'HOME'}/.ssh/pb_dsa") && ($create eq 1)) {
|
|---|
| 4548 | # ecdsa may not be supported if old ssh
|
|---|
| 4549 | pb_system("ssh-keygen -q -b 1024 -N '' -f $ENV{'HOME'}/.ssh/pb_dsa -t dsa","Generating DSA SSH keys for pb");
|
|---|
| 4550 | }
|
|---|
| 4551 | }
|
|---|
| 4552 |
|
|---|
| 4553 | #$keyfile = "$ENV{'HOME'}/.ssh/id_rsa" if (-s "$ENV{'HOME'}/.ssh/id_rsa");
|
|---|
| 4554 | # We still favoud DSA and fall back to ECDSA if not available
|
|---|
| 4555 | if ($dsa != 0) {
|
|---|
| 4556 | # And we favour a specific key over a generic one except if in delivery to ftp server
|
|---|
| 4557 | $keyfile = "$ENV{'HOME'}/.ssh/id_dsa" if ((-s "$ENV{'HOME'}/.ssh/id_dsa") && ($create eq 0));
|
|---|
| 4558 | $keyfile = "$ENV{'HOME'}/.ssh/pb_dsa" if (-s "$ENV{'HOME'}/.ssh/pb_dsa");
|
|---|
| 4559 | } else {
|
|---|
| 4560 | # And we favour a specific key over a generic one except if in delivery to ftp server
|
|---|
| 4561 | $keyfile = "$ENV{'HOME'}/.ssh/id_ecdsa" if ((-s "$ENV{'HOME'}/.ssh/id_ecdsa") && ($ecdsa != 0) && ($create eq 0));
|
|---|
| 4562 | $keyfile = "$ENV{'HOME'}/.ssh/pb_ecdsa" if ((-s "$ENV{'HOME'}/.ssh/pb_ecdsa") && ($ecdsa != 0));
|
|---|
| 4563 | }
|
|---|
| 4564 | if (defined $keyfile) {
|
|---|
| 4565 | pb_log(2,"Using ssh key file $keyfile\n");
|
|---|
| 4566 | } else {
|
|---|
| 4567 | pb_log(0, "Unable to find your public ssh key under $ENV{'HOME'}/.ssh\n");
|
|---|
| 4568 | }
|
|---|
| 4569 | return($keyfile);
|
|---|
| 4570 | }
|
|---|
| 4571 |
|
|---|
| 4572 |
|
|---|
| 4573 | # Returns the pid of a running VM command using a specific VM file, and the port used if the VM exists
|
|---|
| 4574 | sub pb_check_ps {
|
|---|
| 4575 | my $vmcmd = shift;
|
|---|
| 4576 | my $vmm = shift;
|
|---|
| 4577 | my $vexist = 0; # FALSE by default
|
|---|
| 4578 | my $vmport = undef; # NONE by default
|
|---|
| 4579 |
|
|---|
| 4580 | open(PS, "ps auxhww|") || die "Unable to call ps";
|
|---|
| 4581 | while (<PS>) {
|
|---|
| 4582 | next if (! /$vmcmd/);
|
|---|
| 4583 | next if (! /$vmm/);
|
|---|
| 4584 | my $void1;
|
|---|
| 4585 | ($void1, $vexist, $vmport) = split(/ +/,$_,3);
|
|---|
| 4586 | pb_log(2,"pb_check_ps $vmport\n");
|
|---|
| 4587 | $vmport =~ s/.*=tcp:127\.0\.0\.1:([0-9]+)-:22.*/$1/;
|
|---|
| 4588 | chomp($vmport);
|
|---|
| 4589 | pb_log(2,"pb_check_ps found a VM $vexist using port $vmport\n");
|
|---|
| 4590 | last;
|
|---|
| 4591 | }
|
|---|
| 4592 | return($vexist,$vmport);
|
|---|
| 4593 | }
|
|---|
| 4594 |
|
|---|
| 4595 |
|
|---|
| 4596 | sub pb_extract_build_files {
|
|---|
| 4597 |
|
|---|
| 4598 | my $src=shift;
|
|---|
| 4599 | my $dir=shift;
|
|---|
| 4600 | my $ddir=shift;
|
|---|
| 4601 | my $mandatory=shift || "spec";
|
|---|
| 4602 |
|
|---|
| 4603 | my $flag = "mayfail" if (($mandatory eq "patch") || ($mandatory eq "src"));
|
|---|
| 4604 | my $res;
|
|---|
| 4605 |
|
|---|
| 4606 | if ($src =~ /tar\.gz$/) {
|
|---|
| 4607 | $res = pb_system("tar xfpz $src $dir","Extracting $mandatory files from $src",$flag);
|
|---|
| 4608 | } elsif ($src =~ /tar\.bz2$/) {
|
|---|
| 4609 | $res = pb_system("tar xfpj $src $dir","Extracting $mandatory files from $src",$flag);
|
|---|
| 4610 | } else {
|
|---|
| 4611 | die "Unknown compression algorithm for $src";
|
|---|
| 4612 | }
|
|---|
| 4613 | # If not mandatory return now
|
|---|
| 4614 | return() if (($res != 0) and (($mandatory eq "patch") || ($mandatory eq "src")));
|
|---|
| 4615 | return(pb_move_extracted_files($dir,$ddir));
|
|---|
| 4616 | }
|
|---|
| 4617 |
|
|---|
| 4618 | sub pb_move_extracted_files {
|
|---|
| 4619 |
|
|---|
| 4620 | my $dir = shift;
|
|---|
| 4621 | my $ddir = shift;
|
|---|
| 4622 | my @files;
|
|---|
| 4623 |
|
|---|
| 4624 | # In a recursive function , we need a local var as DIR handle
|
|---|
| 4625 | my $bdir;
|
|---|
| 4626 |
|
|---|
| 4627 | opendir($bdir,"$dir") || confess "Unable to open directory $dir: $!";
|
|---|
| 4628 | foreach my $f (readdir($bdir)) {
|
|---|
| 4629 | next if ($f =~ /^\./);
|
|---|
| 4630 | # Skip potential patch dir
|
|---|
| 4631 | next if ($f =~ /^pbpatch/);
|
|---|
| 4632 | # Skip potential source dir
|
|---|
| 4633 | next if ($f =~ /^pbsrc/);
|
|---|
| 4634 | # Skip potential backup files
|
|---|
| 4635 | next if ($f =~ /~$/);
|
|---|
| 4636 | if ((-d "$dir/$f") && (! -l "$dir/$f")) {
|
|---|
| 4637 | # Case of the bug debian subdir
|
|---|
| 4638 | pb_mkdir_p("$ddir/$f");
|
|---|
| 4639 | push @files,pb_move_extracted_files("$dir/$f","$ddir/$f");
|
|---|
| 4640 | } else {
|
|---|
| 4641 | move("$dir/$f","$ddir") || die "Unable to move $dir/$f to $ddir";
|
|---|
| 4642 | pb_log(2,"mv $dir/$f $ddir\n");
|
|---|
| 4643 | push @files,"$ddir/$f";
|
|---|
| 4644 | }
|
|---|
| 4645 | }
|
|---|
| 4646 | closedir($bdir);
|
|---|
| 4647 | # Not enough but still a first cleanup
|
|---|
| 4648 | pb_rm_rf("$dir");
|
|---|
| 4649 | return(@files);
|
|---|
| 4650 | }
|
|---|
| 4651 |
|
|---|
| 4652 | sub pb_list_bfiles {
|
|---|
| 4653 |
|
|---|
| 4654 | my $dir = shift;
|
|---|
| 4655 | my $pbpkg = shift;
|
|---|
| 4656 | my $bfiles = shift;
|
|---|
| 4657 | my $pkgfiles = shift;
|
|---|
| 4658 | my $supfiles = shift;
|
|---|
| 4659 | # subdir to keep if recursive mode, empty by default
|
|---|
| 4660 | my $subdir = shift || "";
|
|---|
| 4661 | # In a recursive function , we need a local var as DIR handle
|
|---|
| 4662 | my $bdir;
|
|---|
| 4663 |
|
|---|
| 4664 | pb_log(2,"DEBUG: entering pb_list_bfiles in $dir: ".Dumper($bfiles)."\n");
|
|---|
| 4665 | opendir($bdir,"$dir") || die "Unable to open dir $dir: $!";
|
|---|
| 4666 | foreach my $f (readdir($bdir)) {
|
|---|
| 4667 | pb_log(3,"DEBUG: pb_list_bfiles found $f\n");
|
|---|
| 4668 | next if ($f =~ /^\./);
|
|---|
| 4669 | if (-d "$dir/$f") {
|
|---|
| 4670 | # Recurse for directories (Debian 3.0 format e.g.)
|
|---|
| 4671 | pb_log(2,"DEBUG: pb_list_bfiles recurse in $dir/$f\n");
|
|---|
| 4672 | pb_list_bfiles("$dir/$f",$pbpkg,$bfiles,$pkgfiles,$supfiles,$f);
|
|---|
| 4673 | next;
|
|---|
| 4674 | }
|
|---|
| 4675 |
|
|---|
| 4676 | my $key = $f;
|
|---|
| 4677 | # if recursive then store also the subdir
|
|---|
| 4678 | $key = "$subdir/$f" if ($subdir ne "");
|
|---|
| 4679 | $bfiles->{$key} = "$dir/$f";
|
|---|
| 4680 | $bfiles->{$key} =~ s~$ENV{'PBROOTDIR'}~~;
|
|---|
| 4681 | if (defined $supfiles->{$pbpkg}) {
|
|---|
| 4682 | $pkgfiles->{$key} = "$dir/$f" if ($f =~ /$supfiles->{$pbpkg}/);
|
|---|
| 4683 | }
|
|---|
| 4684 | }
|
|---|
| 4685 | closedir($bdir);
|
|---|
| 4686 | pb_log(2,"DEBUG: exiting pb_list_bfiles: ".Dumper($bfiles)."\n");
|
|---|
| 4687 | }
|
|---|
| 4688 |
|
|---|
| 4689 | sub pb_add_comma {
|
|---|
| 4690 |
|
|---|
| 4691 | my $str = shift;
|
|---|
| 4692 | my $addstr = shift;
|
|---|
| 4693 |
|
|---|
| 4694 | $str .= "," if (defined $str);
|
|---|
| 4695 | $str .= $addstr;
|
|---|
| 4696 | return($str);
|
|---|
| 4697 | }
|
|---|
| 4698 |
|
|---|
| 4699 | sub pb_list_sfiles {
|
|---|
| 4700 |
|
|---|
| 4701 | my $sdir = shift;
|
|---|
| 4702 | my $ptr = shift;
|
|---|
| 4703 | my $pbos = shift;
|
|---|
| 4704 | my $extdir = shift;
|
|---|
| 4705 |
|
|---|
| 4706 | pb_log(2,"DEBUG: entering pb_list_sfiles: ".Dumper($ptr)."\n");
|
|---|
| 4707 | my $key = "$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}";
|
|---|
| 4708 |
|
|---|
| 4709 | # Prepare local sources for this distro - They are always applied first - May be a problem one day
|
|---|
| 4710 | # This function works for both patches and additional sources
|
|---|
| 4711 | foreach my $p (sort(<$sdir/*>)) {
|
|---|
| 4712 | $ptr->{$key} = pb_add_comma($ptr->{$key},"file://$p") if (($p =~ /\.all$/) || ($p =~ /\.$pbos->{'os'}$/) || ($p =~ /\.$pbos->{'type'}$/) || ($p =~ /\.$pbos->{'family'}$/) || ($p =~ /\.$pbos->{'name'}$/) || ($p =~ /\.$pbos->{'name'}-$pbos->{'version'}$/) ||($p =~ /\.$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}$/));
|
|---|
| 4713 | }
|
|---|
| 4714 |
|
|---|
| 4715 | # Prepare also remote sources to be included - Applied after the local ones
|
|---|
| 4716 | foreach my $p ("all","$pbos->{'os'}","$pbos->{'type'}","$pbos->{'family'}","$pbos->{'name'}","$pbos->{'name'}-$pbos->{'version'}","$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}") {
|
|---|
| 4717 | my $f = "$extdir.".".$p";
|
|---|
| 4718 | next if (not -f $f);
|
|---|
| 4719 | if (not open(PATCH,$f)) {
|
|---|
| 4720 | pb_display("Unable to open existing external source file content $f\n");
|
|---|
| 4721 | next;
|
|---|
| 4722 | }
|
|---|
| 4723 | while (<PATCH>) {
|
|---|
| 4724 | chomp();
|
|---|
| 4725 | $ptr->{$key} = pb_add_comma($ptr->{$key},"$_");
|
|---|
| 4726 | }
|
|---|
| 4727 | close(PATCH);
|
|---|
| 4728 | }
|
|---|
| 4729 | pb_log(2,"DEBUG: exiting pb_list_sfiles: ".Dumper($ptr)."\n");
|
|---|
| 4730 | return($ptr);
|
|---|
| 4731 | }
|
|---|
| 4732 |
|
|---|
| 4733 | #
|
|---|
| 4734 | # Return the list of packages we are working on in a non CMS action
|
|---|
| 4735 | #
|
|---|
| 4736 | sub pb_get_pkg {
|
|---|
| 4737 |
|
|---|
| 4738 | my @pkgs = ();
|
|---|
| 4739 |
|
|---|
| 4740 | # In script actions that file may not exist.
|
|---|
| 4741 | return(\@pkgs) if ((not defined $ENV{'PBDESTDIR'}) || (not defined $ENV{'PBPROJVER'}) || (not defined $ENV{'PBPROJTAG'}) || (! -f "$ENV{'PBDESTDIR'}/$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}.pb"));
|
|---|
| 4742 |
|
|---|
| 4743 | my ($var) = pb_conf_read("$ENV{'PBDESTDIR'}/$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}.pb","pbpkg");
|
|---|
| 4744 | @pkgs = keys %$var if (defined $var);
|
|---|
| 4745 |
|
|---|
| 4746 | pb_log(0,"Packages: ".join(',',@pkgs)."\n") if (@pkgs);
|
|---|
| 4747 | return(\@pkgs);
|
|---|
| 4748 | }
|
|---|
| 4749 |
|
|---|
| 4750 | # Manages VM/RM SSH port communication
|
|---|
| 4751 | sub pb_get_port {
|
|---|
| 4752 |
|
|---|
| 4753 | my $port = shift;
|
|---|
| 4754 | my $pbos = shift;
|
|---|
| 4755 | my $cmt = shift;
|
|---|
| 4756 | my $nport;
|
|---|
| 4757 |
|
|---|
| 4758 | die "No port passed in parameter. Report to dev team\n" if (not defined $port);
|
|---|
| 4759 | # key is project on VM, but machine tuple for RM
|
|---|
| 4760 | if ($cmt =~ /^RM/i) {
|
|---|
| 4761 | $nport = $port->{"$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}"};
|
|---|
| 4762 | } else {
|
|---|
| 4763 | $nport = $port->{$ENV{'PBPROJ'}};
|
|---|
| 4764 | }
|
|---|
| 4765 | pb_log(2,"pb_get_port with $nport\n");
|
|---|
| 4766 | if ($cmt =~ /^VM/i) {
|
|---|
| 4767 | # Maybe a port was given as parameter so overwrite
|
|---|
| 4768 | $nport = "$pbport" if (defined $pbport);
|
|---|
| 4769 | # Maybe in // mode so use the env var set up as an offset to the base port
|
|---|
| 4770 | $nport = $nport + $ENV{'PBVMPORT'} -1 if ((defined $pbparallel) && (defined $ENV{'PBVMPORT'}));
|
|---|
| 4771 | }
|
|---|
| 4772 | pb_log(2,"pb_get_port returns $nport\n");
|
|---|
| 4773 | return($nport);
|
|---|
| 4774 | }
|
|---|
| 4775 |
|
|---|
| 4776 | sub pb_set_port {
|
|---|
| 4777 |
|
|---|
| 4778 | my ($pid,$ident) = @_;
|
|---|
| 4779 | pb_log(2,"pb_set_port for VM ($pid), id $ident\n");
|
|---|
| 4780 | $ENV{'PBVMPORT'} = $ident;
|
|---|
| 4781 | pb_log(2,"pb_set_port sets PBVMPORT in env to $ENV{'PBVMPORT'}\n");
|
|---|
| 4782 | }
|
|---|
| 4783 |
|
|---|
| 4784 | sub pb_set_parallel {
|
|---|
| 4785 |
|
|---|
| 4786 | my $vtype = shift;
|
|---|
| 4787 |
|
|---|
| 4788 | pb_log(2,"pb_set_parallel vtype: $vtype\n");
|
|---|
| 4789 | # Take care of memory size if VM, parallel mode and more than 1 action
|
|---|
| 4790 | if ((defined $pbparallel) && ($pbparallel ne 1) && ($vtype eq "vm")) {
|
|---|
| 4791 | eval
|
|---|
| 4792 | {
|
|---|
| 4793 | require Linux::SysInfo;
|
|---|
| 4794 | Linux::SysInfo->import();
|
|---|
| 4795 | };
|
|---|
| 4796 | if ($@) {
|
|---|
| 4797 | # Linux::SysInfo not found
|
|---|
| 4798 | pb_log(1,"ADVISE: Install Linux::SysInfo to benefit from automatic parallelism optimization.\nOr optimize manually pbparallel in your pb.conf file\nUsing $pbparallel processes max at a time for the moment\nWARNING: This may consume too much memory for your system\n");
|
|---|
| 4799 | } else {
|
|---|
| 4800 | # Using the memory size
|
|---|
| 4801 | my $si = Linux::SysInfo::sysinfo();
|
|---|
| 4802 | if (not defined $si) {
|
|---|
| 4803 | pb_log(1,"ADVISE: Install Linux::SysInfo to benefit from automatic parallelism optimization.\nOr optimize manually pbparallel in your pb.conf file\nUsing $pbparallel processes max at a time for the moment\nWARNING: This may consume too much memory for your system\n");
|
|---|
| 4804 | } else {
|
|---|
| 4805 | # Keep the number of VM whose memory can be allocated
|
|---|
| 4806 | my $ram = $si->{"totalram"}-$si->{"sharedram"}-$si->{"bufferram"};
|
|---|
| 4807 | my $ram2;
|
|---|
| 4808 | my ($vmmem) = pb_conf_get_if("vmmem");
|
|---|
| 4809 |
|
|---|
| 4810 | my $v = "default";
|
|---|
| 4811 | if ((defined $vmmem) and (defined $vmmem->{$v})) {
|
|---|
| 4812 | $ram2 = $vmmem->{$v};
|
|---|
| 4813 | } else {
|
|---|
| 4814 | # Default for KVM/QEMU
|
|---|
| 4815 | $ram2 = 128;
|
|---|
| 4816 | }
|
|---|
| 4817 | $pbparallel = sprintf("%d",$ram/$ram2);
|
|---|
| 4818 | }
|
|---|
| 4819 | pb_log(1,"Using $pbparallel processes at a time\n");
|
|---|
| 4820 | }
|
|---|
| 4821 | }
|
|---|
| 4822 | pb_log(2,"pb_set_parallel returns: $pbparallel\n") if (defined $pbparallel);
|
|---|
| 4823 | return($pbparallel);
|
|---|
| 4824 | }
|
|---|
| 4825 |
|
|---|
| 4826 | sub pb_get_sudocmds {
|
|---|
| 4827 |
|
|---|
| 4828 | my $pbos = shift;
|
|---|
| 4829 | my @cmds = @_;
|
|---|
| 4830 | my %sudocmds;
|
|---|
| 4831 |
|
|---|
| 4832 | pb_log(2,"pb_get_sudocmds entering with lines:".Dumper(@cmds)."\n");
|
|---|
| 4833 | foreach my $c (split(/;/,$pbos->{'update'}),split(/;/,$pbos->{'install'}),@cmds) {
|
|---|
| 4834 | pb_log(2,"pb_get_sudocmds analyses $c\n");
|
|---|
| 4835 | next if ($c !~ /^\s*sudo/);
|
|---|
| 4836 | # remove sudo and leading spaces
|
|---|
| 4837 | $c =~ s/^\s*sudo\s+//;
|
|---|
| 4838 | # keep only the command, not the params
|
|---|
| 4839 | $c =~ s/([^\s]+)\s.*$/$1/;
|
|---|
| 4840 | $sudocmds{$c} = "";
|
|---|
| 4841 | }
|
|---|
| 4842 | pb_log(2,"pb_get_sudocmds returns ".Dumper(keys %sudocmds)."\n");
|
|---|
| 4843 | return(keys %sudocmds);
|
|---|
| 4844 | }
|
|---|
| 4845 |
|
|---|
| 4846 | sub pb_sign_setenv {
|
|---|
| 4847 |
|
|---|
| 4848 | my ($passfile, $passphrase, $passpath) = pb_conf_get_if("pbpassfile","pbpassphrase","pbpasspath");
|
|---|
| 4849 | $ENV{'PBPASSPHRASE'} = $passphrase->{$ENV{'PBPROJ'}} if ((not defined $ENV{'PBPASSPHRASE'}) && (defined $passphrase->{$ENV{'PBPROJ'}}));
|
|---|
| 4850 | $ENV{'PBPASSFILE'} = $passfile->{$ENV{'PBPROJ'}} if ((not defined $ENV{'PBPASSFILE'})&& (defined $passfile->{$ENV{'PBPROJ'}})) ;
|
|---|
| 4851 | $ENV{'PBPASSPATH'} = $passpath->{$ENV{'PBPROJ'}} if ((not defined $ENV{'PBPASSPATH'})&& (defined $passpath->{$ENV{'PBPROJ'}})) ;
|
|---|
| 4852 |
|
|---|
| 4853 | eval
|
|---|
| 4854 | {
|
|---|
| 4855 | require RPM4::Sign;
|
|---|
| 4856 | RPM4::Sign->import();
|
|---|
| 4857 | };
|
|---|
| 4858 | if ($@) {
|
|---|
| 4859 | # RPM4::Sign not found
|
|---|
| 4860 | pb_log(1,"WARNING: Install RPM4::Sign to benefit from automatic package signing.\n");
|
|---|
| 4861 | } else {
|
|---|
| 4862 | return(undef) if (((not defined $ENV{'PBPASSPHRASE'}) and (not defined $ENV{'PBPASSFILE'})) || (not defined $ENV{'PBPACKAGER'}) || (not defined $ENV{'PBPASSPATH'}));
|
|---|
| 4863 | my $sign = RPM4::Sign->new(
|
|---|
| 4864 | passphrase => $ENV{'PBPASSPHRASE'},
|
|---|
| 4865 | name => $ENV{'PBPACKAGER'},
|
|---|
| 4866 | path => $ENV{'PBPASSPATH'},
|
|---|
| 4867 | password_file => $ENV{'PBPASSFILE'},
|
|---|
| 4868 | );
|
|---|
| 4869 | return(undef) if (not defined $sign);
|
|---|
| 4870 | return(undef) if (not defined $sign->{name});
|
|---|
| 4871 | return(undef) if (not defined $sign->{path});
|
|---|
| 4872 | return(undef) if ((not defined $sign->{passphrase}) && (not defined $sign->{password_file}));
|
|---|
| 4873 | return(undef) if (not defined $sign->{keyid});
|
|---|
| 4874 |
|
|---|
| 4875 | return($sign);
|
|---|
| 4876 | }
|
|---|
| 4877 | }
|
|---|
| 4878 |
|
|---|
| 4879 | sub pb_sign_file {
|
|---|
| 4880 |
|
|---|
| 4881 | my $file = shift;
|
|---|
| 4882 |
|
|---|
| 4883 | eval
|
|---|
| 4884 | {
|
|---|
| 4885 | require Crypt::OpenPGP;
|
|---|
| 4886 | Crypt::OpenPGP->import();
|
|---|
| 4887 | };
|
|---|
| 4888 | if ($@) {
|
|---|
| 4889 | # Crypt::OpenPGP not found
|
|---|
| 4890 | pb_log(1,"WARNING: Install Crypt::OpenPGP to benefit from debian Release file signing.\n");
|
|---|
| 4891 | } else {
|
|---|
| 4892 | my $sign = pb_sign_setenv();
|
|---|
| 4893 | my $pgp = Crypt::OpenPGP->new;
|
|---|
| 4894 | my $pgpsign = $pgp->sign(
|
|---|
| 4895 | Filename => $file,
|
|---|
| 4896 | KeyID => $sign->{keyid},
|
|---|
| 4897 | Passphrase => $sign->{passphrase},
|
|---|
| 4898 | Detach => 1,
|
|---|
| 4899 | Armour => 1,
|
|---|
| 4900 | );
|
|---|
| 4901 | open(DEST, "> $file.gpg") || confess "Unable to write to $file.gpg";
|
|---|
| 4902 | print DEST $pgpsign if (defined $pgpsign);
|
|---|
| 4903 | close(DEST);
|
|---|
| 4904 | }
|
|---|
| 4905 | }
|
|---|
| 4906 |
|
|---|
| 4907 | sub pb_sign_pkgs {
|
|---|
| 4908 |
|
|---|
| 4909 | my $pbos = shift;
|
|---|
| 4910 | my $made = shift;
|
|---|
| 4911 |
|
|---|
| 4912 | pb_log(2,"entering pb_sign_pkg: $made ".Dumper($pbos)."\n");
|
|---|
| 4913 | pb_sign_setenv();
|
|---|
| 4914 | # Remove extra spaces
|
|---|
| 4915 | $made =~ s/\s+/ /g;
|
|---|
| 4916 | $made =~ s/^\s//g;
|
|---|
| 4917 | $made =~ s/\s$//g;
|
|---|
| 4918 |
|
|---|
| 4919 | if ($pbos->{'type'} eq "rpm") {
|
|---|
| 4920 | my $sign = pb_sign_setenv();
|
|---|
| 4921 | pb_log(0,"Signing RPM packages...\n");
|
|---|
| 4922 | pb_log(2,"pb_sign_pkg: pkgs:".Dumper(split(/ /,$made))."\n");
|
|---|
| 4923 | $sign->rpmssign(split(/ /,$made));
|
|---|
| 4924 | } elsif ($pbos->{'type'} eq "deb") {
|
|---|
| 4925 | my $changes = "";
|
|---|
| 4926 | foreach my $c (split(/ /,$made)) {
|
|---|
| 4927 | $changes .= " $ENV{'PBBUILDDIR'}/$c" if (($c =~ /\.changes$/) && (-f "$ENV{PBBUILDDIR}/$c"));
|
|---|
| 4928 | }
|
|---|
| 4929 | my $debsigncmd = pb_check_req("debsign",1);
|
|---|
| 4930 | pb_system("$debsigncmd -m\'$ENV{'PBPACKAGER'}\' $changes","Signing DEB packages","mayfail") if (($changes ne "") && (defined $debsigncmd));
|
|---|
| 4931 | } else {
|
|---|
| 4932 | pb_log(0,"I don't know yet how to sign packages for type $pbos->{'type'}.\nPlease give feedback to dev team\n");
|
|---|
| 4933 | }
|
|---|
| 4934 | pb_log(2,"exiting pb_sign_pkg\n");
|
|---|
| 4935 | }
|
|---|
| 4936 |
|
|---|
| 4937 | # return list of all distributions supported, comma separated
|
|---|
| 4938 | sub pb_get_distros {
|
|---|
| 4939 |
|
|---|
| 4940 | my $pbos = shift;
|
|---|
| 4941 | my $pbtarget = shift;
|
|---|
| 4942 |
|
|---|
| 4943 | my @dists = ("$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}");
|
|---|
| 4944 |
|
|---|
| 4945 | # Get list of distributions for which we need to generate build files if no target
|
|---|
| 4946 | if (not defined $pbtarget) {
|
|---|
| 4947 | my @pt = pb_conf_get_if("vmlist","velist","rmlist");
|
|---|
| 4948 | foreach my $pt (@pt) {
|
|---|
| 4949 | push(@dists, split(/,/, $pt->{$ENV{PBPROJ}})) if defined $pt->{$ENV{PBPROJ}};
|
|---|
| 4950 | }
|
|---|
| 4951 | # remove any whitespace
|
|---|
| 4952 | grep(s/\s+//go, @dists);
|
|---|
| 4953 | }
|
|---|
| 4954 | return(join(",",@dists));
|
|---|
| 4955 | }
|
|---|
| 4956 |
|
|---|
| 4957 | sub pb_get_extdir {
|
|---|
| 4958 |
|
|---|
| 4959 | # the pbrc file should contain it and whatever the key, we take it
|
|---|
| 4960 | my ($ed) = pb_conf_read("$ENV{'PBDESTDIR'}/pbrc","pbextdir");
|
|---|
| 4961 | pb_log(2,"ed: ".Dumper($ed)."\n");
|
|---|
| 4962 | my $pbextdir = "";
|
|---|
| 4963 | foreach my $k (keys %$ed) {
|
|---|
| 4964 | $pbextdir = $ed->{$k};
|
|---|
| 4965 | # In case we have an empty field, empty it completely
|
|---|
| 4966 | pb_log(2,"pbextdir: ***$pbextdir***\n");
|
|---|
| 4967 | $pbextdir =~ s/^\s*$//;
|
|---|
| 4968 | }
|
|---|
| 4969 | pb_log(2,"pbextdir: ***$pbextdir***\n");
|
|---|
| 4970 | return($pbextdir);
|
|---|
| 4971 | }
|
|---|
| 4972 |
|
|---|
| 4973 | # Unused now
|
|---|
| 4974 | sub pb_keep_step {
|
|---|
| 4975 |
|
|---|
| 4976 | my $pbos = shift;
|
|---|
| 4977 | my $pbstep = shift;
|
|---|
| 4978 |
|
|---|
| 4979 | $pbstep = 3 if (not defined $pbstep);
|
|---|
| 4980 |
|
|---|
| 4981 | my %h;
|
|---|
| 4982 | my $h = \%h;
|
|---|
| 4983 | $h = pb_conf_cache("$ENV{'PBDESTDIR'}/$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}.pb",$h);
|
|---|
| 4984 | $h->{'pbstep'}->{"$pbos->{'name'}-$pbos->{'version'}-$pbos->{'arch'}"} = $pbstep;
|
|---|
| 4985 | pb_conf_write("$ENV{'PBDESTDIR'}/$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}.pb",$h);
|
|---|
| 4986 | }
|
|---|
| 4987 |
|
|---|
| 4988 | sub create_solaris_prototype {
|
|---|
| 4989 |
|
|---|
| 4990 | my $uidgid = "bin bin";
|
|---|
| 4991 | my $pkgdestdir = $ENV{'PBSOLDESTDIR'};
|
|---|
| 4992 |
|
|---|
| 4993 | return if ($_ =~ /^$pkgdestdir$/);
|
|---|
| 4994 | if (-d $_) {
|
|---|
| 4995 | my $n = $File::Find::name;
|
|---|
| 4996 | $n =~ s~$pkgdestdir/~~;
|
|---|
| 4997 | print PROTO "d none $n 0755 $uidgid\n";
|
|---|
| 4998 | } elsif (-x $_) {
|
|---|
| 4999 | my $n = $File::Find::name;
|
|---|
| 5000 | $n =~ s~$pkgdestdir/~~;
|
|---|
| 5001 | print PROTO "f none $n 0755 $uidgid\n";
|
|---|
| 5002 | } elsif (-f $_) {
|
|---|
| 5003 | my $n = $File::Find::name;
|
|---|
| 5004 | $n =~ s~$pkgdestdir/~~;
|
|---|
| 5005 | print PROTO "f none $n 0644 $uidgid\n";
|
|---|
| 5006 | }
|
|---|
| 5007 | }
|
|---|
| 5008 |
|
|---|
| 5009 | sub pb_ssh_setup {
|
|---|
| 5010 |
|
|---|
| 5011 | my $vtype = shift;
|
|---|
| 5012 | my $nport = shift;
|
|---|
| 5013 |
|
|---|
| 5014 | my $keyfile;
|
|---|
| 5015 | my $vmhost;
|
|---|
| 5016 |
|
|---|
| 5017 | pb_log(1,"Entering pb_ssh_setup\n");
|
|---|
| 5018 | ($vmhost) = pb_conf_get($vtype."host");
|
|---|
| 5019 | # Prepare the key to be used and transfered remotely
|
|---|
| 5020 | $keyfile = pb_ssh_get(1,$vmhost->{$ENV{'PBPROJ'}},$nport);
|
|---|
| 5021 | return if (not defined $keyfile);
|
|---|
| 5022 |
|
|---|
| 5023 | # We call true to avoid problems if SELinux is not activated, but chcon is present and returns in that case 1
|
|---|
| 5024 | pb_system("cat $keyfile.pub | ssh -q -o UserKnownHostsFile=/dev/null -p $nport -i $keyfile root\@$vmhost->{$ENV{'PBPROJ'}} \"mkdir -p .ssh ; chmod 700 .ssh ; cat >> .ssh/authorized_keys ; chmod 600 .ssh/authorized_keys ; if [ -x /usr/bin/chcon ]; then /usr/bin/chcon -Rt home_ssh_t .ssh 2> /dev/null; /bin/true; fi\"","Copying local keys to $vtype. This may require the root password");
|
|---|
| 5025 | # once this is done, we can do what we need on the VM/RM remotely
|
|---|
| 5026 |
|
|---|
| 5027 | # in particular we can remove duplicate in .ssh/authorized_keys of our key if needed
|
|---|
| 5028 | # Store the pub key part in a variable
|
|---|
| 5029 | open(FILE,"$keyfile.pub") || die "Unable to open $keyfile.pub";
|
|---|
| 5030 | my ($zero0,$zero1,$zero2) = split(/ /,<FILE>);
|
|---|
| 5031 | close(FILE);
|
|---|
| 5032 | my $key = "\Q$zero1";
|
|---|
| 5033 | my $perls = "$ENV{'PBTMP'}/perls.$$";
|
|---|
| 5034 |
|
|---|
| 5035 | open(FILE,"> $perls") || die "Unable to open $perls";
|
|---|
| 5036 | print FILE << 'EOF';
|
|---|
| 5037 | my $file1="$ENV{'HOME'}/.ssh/authorized_keys";
|
|---|
| 5038 | open(PBFILE,$file1) || die "Unable to open $file1";
|
|---|
| 5039 | open(PBOUT,"> $file1.new") || die "Unable to open $file1.new";
|
|---|
| 5040 | my $count = 0;
|
|---|
| 5041 | while (<PBFILE>) {
|
|---|
| 5042 | EOF
|
|---|
| 5043 | print FILE << "EOF";
|
|---|
| 5044 | if (/ $key /) {
|
|---|
| 5045 | \$count++;
|
|---|
| 5046 | }
|
|---|
| 5047 | print PBOUT \$_ if ((\$count <= 1) || (\$_ !~ / $key /));
|
|---|
| 5048 | }
|
|---|
| 5049 | close(PBFILE);
|
|---|
| 5050 | close(PBOUT);
|
|---|
| 5051 | rename("\$file1.new",\$file1);
|
|---|
| 5052 | chmod 0600,\$file1;
|
|---|
| 5053 | EOF
|
|---|
| 5054 | close(FILE);
|
|---|
| 5055 | pb_system("cat $perls | ssh -q -o UserKnownHostsFile=/dev/null -p $nport -i $keyfile root\@$vmhost->{$ENV{'PBPROJ'}} perl","","quiet");
|
|---|
| 5056 | return;
|
|---|
| 5057 | }
|
|---|
| 5058 |
|
|---|
| 5059 | # Returns debian architecture
|
|---|
| 5060 | #
|
|---|
| 5061 | sub pb_get_debarch {
|
|---|
| 5062 |
|
|---|
| 5063 | my $pbos = shift;
|
|---|
| 5064 |
|
|---|
| 5065 | my $debarch = $pbos->{'arch'};
|
|---|
| 5066 | $debarch = "amd64" if ($pbos->{'arch'} eq "x86_64");
|
|---|
| 5067 |
|
|---|
| 5068 | return($debarch);
|
|---|
| 5069 | }
|
|---|
| 5070 |
|
|---|
| 5071 | sub pb_get_debpc {
|
|---|
| 5072 |
|
|---|
| 5073 | my ($projcomponent_map) = pb_conf_get_if("projcomponent");
|
|---|
| 5074 | pb_log(2,"projcomponent = ".Dumper($projcomponent_map)."\n");
|
|---|
| 5075 | my $projcomponent = $projcomponent_map->{$ENV{PBPROJ}};
|
|---|
| 5076 | $projcomponent ||= 'contrib';
|
|---|
| 5077 |
|
|---|
| 5078 | return($projcomponent);
|
|---|
| 5079 | }
|
|---|
| 5080 |
|
|---|
| 5081 | 1;
|
|---|
