Context Navigation

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

Last change on this file since 300 was 300, checked in by Bruno Cornec, 16 years ago
Adds support for supplemental files in projects (such as init scripts different for different distributions such as in collectl)
Property svn:executable set to ``*
File size: 33.1 KB

Rev	Line
[5]	1	#!/usr/bin/perl -w
	2	#
	3	# Project Builder main application
	4	#
	5	# $Id$
	6	#
	7	# Copyright B. Cornec 2007
	8	# Provided under the GPL v2
	9
[22]	10	# Syntax: see at end
[9]	11
[18]	12	use strict 'vars';
[5]	13	use Getopt::Std;
[9]	14	use Data::Dumper;
	15	use English;
[16]	16	use File::Basename;
[26]	17	use File::Copy;
[13]	18	use Time::localtime qw(localtime);
	19	use POSIX qw(strftime);
[5]	20
[73]	21	# Global variables
[17]	22	use lib qw (lib);
[74]	23	use ProjectBuilder::Distribution qw (pb_distro_init);
	24	use ProjectBuilder::Version qw (pb_version_init);
[204]	25	use ProjectBuilder::Base qw (pb_conf_read pb_conf_get pb_cms_init pb_mkdir_p pb_system pb_rm_rf pb_get_filters pb_filter_file pb_filter_file_pb pb_cms_export pb_cms_log pb_cms_isdiff pb_cms_copy pb_cms_checkout);
[5]	26
	27	my %opts; # CLI Options
[9]	28	my $action; # action to realize
	29	my $test = "FALSE";
	30	my $option = "";
	31	my @pkgs;
[95]	32	my $pbtag; # Global Tag variable
	33	my $pbver; # Global Version variable
[141]	34	my $pbscript; # Name of the script
[77]	35	my %pbver; # per package
	36	my %pbtag; # per package
[53]	37	my $pbrev; # Global REVISION variable
[16]	38	my @date=(localtime->sec(), localtime->min(), localtime->hour(), localtime->mday(), localtime->mon(), localtime->year(), localtime->wday(), localtime->yday(), localtime->isdst());
	39	my $pbdate = strftime("%Y-%m-%d", @date);
[112]	40	my $pbdatecvs = strftime("%Y-%m-%d %H:%M:%S", @date);
[108]	41	my $debug = 0;
[152]	42	my $pbaccount; # Login to use to connect to the VM
[162]	43	my $pbport; # Port to use to connect to the VM
[199]	44	my $newver; # New version to create
[262]	45	my $iso; # ISO iage for the VM to create
[108]	46	my $LOG = \*STDOUT;
[5]	47
[262]	48	getopts('a:hi:l:m:P:p:qr:s:tvV:',\%opts);
[5]	49
[75]	50	my ($projectbuilderver,$projectbuilderrev) = pb_version_init();
[21]	51	if (defined $opts{'h'}) {
[74]	52	pb_syntax();
[21]	53	exit(0);
	54	}
	55	if (defined $opts{'v'}) {
	56	$debug++;
	57	}
	58	if (defined $opts{'q'}) {
	59	$debug=-1;
	60	}
[22]	61	if (defined $opts{'l'}) {
	62	open(LOG,"> $opts{'l'}") \|\| die "Unable to log to $opts{'l'}: $!";
	63	$LOG = *LOG;
	64	$debug = 0 if ($debug == -1);
	65	}
[9]	66	# Handles test option
	67	if (defined $opts{'t'}) {
	68	$test = "TRUE";
	69	# Works only for SVN
	70	$option = "-r BASE";
	71	}
[5]	72
[67]	73	# Handle root of the project if defined
	74	if (defined $opts{'r'}) {
	75	$ENV{'PBROOT'} = $opts{'r'};
	76	}
[91]	77	# Handle virtual machines if any
	78	if (defined $opts{'m'}) {
	79	$ENV{'PBVM'} = $opts{'m'};
	80	}
[141]	81	if (defined $opts{'s'}) {
	82	$pbscript = $opts{'s'};
	83	}
[152]	84	if (defined $opts{'a'}) {
	85	$pbaccount = $opts{'a'};
	86	}
[162]	87	if (defined $opts{'P'}) {
	88	$pbport = $opts{'P'};
	89	}
[199]	90	if (defined $opts{'V'}) {
	91	$newver = $opts{'V'};
	92	}
[262]	93	if (defined $opts{'i'}) {
	94	$iso = $opts{'i'};
	95	}
[108]	96
	97	# Get Action
	98	$action = shift @ARGV;
	99	die pb_syntax() if (not defined $action);
	100
[300]	101	my ($pbrc, $filteredfiles, $supfiles, $defpkgdir, $extpkgdir);
[273]	102	my $pbinit = undef;
	103	$pbinit = 1 if ($action =~ /^newproj$/);
[108]	104
[59]	105	# Handles project name if any
[108]	106	# And get global params
[59]	107	if (defined $opts{'p'}) {
[300]	108	($ENV{'PBPROJ'},$debug,$LOG, $pbrc, $filteredfiles, $supfiles, $defpkgdir, $extpkgdir)
[273]	109	= pb_env_init($opts{'p'},$pbinit);
[59]	110	} else {
[300]	111	($ENV{'PBPROJ'},$debug,$LOG, $pbrc, $filteredfiles, $supfiles, $defpkgdir, $extpkgdir)
[273]	112	= pb_env_init(undef,$pbinit);
[59]	113	}
	114
[108]	115	print $LOG "Project: $ENV{'PBPROJ'}\n" if ($debug >= 0);
[22]	116	print $LOG "Action: $action\n" if ($debug >= 0);
[9]	117
[91]	118	# Keep those project values to store them at the end each time
[83]	119	my $pbprojtag = $ENV{'PBTAG'};
	120	my $pbprojver = $ENV{'PBVER'};
	121
[9]	122	# Act depending on action
	123	if ($action =~ /^cms2build$/) {
[77]	124	pb_cms2build();
	125	} elsif ($action =~ /^build2pkg$/) {
	126	pb_build2pkg();
	127	} elsif ($action =~ /^cms2pkg$/) {
	128	pb_cms2build();
	129	pb_build2pkg();
[88]	130	} elsif ($action =~ /^build2ssh$/) {
	131	pb_build2ssh();
[220]	132	} elsif ($action =~ /^cms2ssh$/) {
	133	pb_cms2build();
	134	pb_build2ssh();
[88]	135	} elsif ($action =~ /^pkg2ssh$/) {
	136	pb_pkg2ssh();
[91]	137	} elsif ($action =~ /^build2vm$/) {
	138	pb_build2vm();
	139	} elsif ($action =~ /^cms2vm$/) {
	140	pb_cms2build();
	141	pb_build2vm();
[141]	142	} elsif ($action =~ /^launchvm$/) {
[262]	143	pb_launchvm($ENV{'PBVM'},0);
[142]	144	} elsif ($action =~ /^script2vm$/) {
	145	pb_script2vm($pbscript);
[199]	146	} elsif ($action =~ /^newver$/) {
	147	pb_newver();
[262]	148	} elsif ($action =~ /^newvm$/) {
	149	pb_launchvm($ENV{'PBVM'},1);
[273]	150	} elsif ($action =~ /^newproj$/) {
	151	# Nothing to do - already done in pb_env_init
[106]	152	} elsif ($action =~ /^clean$/) {
[77]	153	} else {
	154	print $LOG "'$action' is not available\n";
	155	pb_syntax();
	156	}
	157
	158	sub pb_cms2build {
	159
[112]	160	my $ptr = pb_get_pkg($defpkgdir,$extpkgdir);
[22]	161	@pkgs = @$ptr;
[112]	162	my $cms=pb_cms_init($ENV{'PBPROJ'});
[9]	163
[98]	164	my ($pkgv, $pkgt) = pb_conf_read("$ENV{'PBCONF'}/$ENV{'PBPROJ'}.pb","pkgver","pkgtag");
[174]	165
	166	# declare packager for filtering
	167	my ($tmp) = pb_conf_get("packager");
	168	my $pbpackager = $tmp->{$ENV{'PBPROJ'}};
	169
[27]	170	foreach my $pbpkg (@pkgs) {
[115]	171	$ENV{'PBPKG'} = $pbpkg;
[274]	172	$ENV{'PBVER'} = $pbprojver;
	173	$ENV{'PBTAG'} = $pbprojtag;
[98]	174	if ((defined $pkgv) && (defined $pkgv->{$pbpkg})) {
	175	$pbver = $pkgv->{$pbpkg};
[115]	176	$ENV{'PBVER'} = $pbver;
[9]	177	} else {
[16]	178	$pbver = $ENV{'PBVER'};
[9]	179	}
[98]	180	if ((defined $pkgt) && (defined $pkgt->{$pbpkg})) {
	181	$pbtag = $pkgt->{$pbpkg};
[115]	182	$ENV{'PBTAG'} = $pbtag;
[9]	183	} else {
[16]	184	$pbtag = $ENV{'PBTAG'};
[9]	185	}
[95]	186
[16]	187	$pbrev = $ENV{'PBREVISION'};
[112]	188	print $LOG "\n";
	189	print $LOG "Management of $pbpkg $pbver-$pbtag (rev $pbrev)\n";
[9]	190	die "Unable to get env var PBDESTDIR" if (not defined $ENV{'PBDESTDIR'});
[16]	191	# Clean up dest if necessary. The export will recreate it
[27]	192	my $dest = "$ENV{'PBDESTDIR'}/$pbpkg-$pbver";
[74]	193	pb_rm_rf($dest) if (-d $dest);
[9]	194
	195	# Export CMS tree for the concerned package to dest
	196	# And generate some additional files
	197	$OUTPUT_AUTOFLUSH=1;
[29]	198
[9]	199	# computes in which dir we have to work
[113]	200	my $dir = $defpkgdir->{$pbpkg};
	201	$dir = $extpkgdir->{$pbpkg} if (not defined $dir);
[114]	202	print "def:".Dumper($defpkgdir)." ext: ".Dumper($extpkgdir)." \n" if ($debug >= 1);
[112]	203	pb_cms_export($cms,$pbdatecvs,"$ENV{'PBROOT'}/$dir",$dest);
[9]	204
[285]	205	# Get project info on authors and log file
	206	my $chglog = "$ENV{'PBCONF'}/$pbpkg/pbcl";
	207	$chglog = "$ENV{'PBCONF'}/pbcl" if (! -f $chglog);
	208	$chglog = undef if (! -f $chglog);
	209
	210	my $authors = "$ENV{'PBCONF'}/$pbpkg/pbauthors";
	211	$authors = "$ENV{'PBCONF'}/pbauthors" if (! -f $authors);
	212	$authors = "/dev/null" if (! -f $authors);
	213
[9]	214	# Extract cms log history and store it
[285]	215	if ((defined $chglog) && (! -f "$dest/NEWS")) {
	216	print $LOG "Generating NEWS file from $chglog\n";
	217	copy($chglog,"$dest/NEWS") \|\| die "Unable to create $dest/NEWS";
	218	}
	219	pb_cms_log($cms,"$ENV{'PBROOT'}/$dir",$dest,$chglog,$authors);
[29]	220
[21]	221	my %build;
[91]	222
	223	my ($ptr) = pb_conf_get("vmlist");
	224	foreach my $d (split(/,/,$ptr->{$ENV{'PBPROJ'}})) {
	225	my ($name,$ver) = split(/_/,$d);
[11]	226	chomp($ver);
[99]	227	my ($ddir, $dver, $dfam, $dtype, $pbsuf) = pb_distro_init($name,$ver);
	228	print $LOG "DEBUG: distro tuple: ".Dumper($ddir, $dver, $dfam, $dtype, $pbsuf)."\n" if ($debug >= 1);
[22]	229	print $LOG "DEBUG Filtering PBDATE => $pbdate, PBTAG => $pbtag, PBVER => $pbver\n" if ($debug >= 1);
[13]	230
[16]	231	# Filter build files from the less precise up to the most with overloading
[13]	232	# Filter all files found, keeping the name, and generating in dest
[16]	233
	234	# Find all build files first relatively to PBROOT
[300]	235	# Find also all specific files referenced in the .pb conf file
[16]	236	my %bfiles;
[300]	237	my %pkgfiles;
[27]	238	print $LOG "DEBUG dir: $ENV{'PBCONF'}/$pbpkg\n" if ($debug >= 1);
[21]	239	$build{"$ddir-$dver"} = "yes";
[27]	240	if (-d "$ENV{'PBCONF'}/$pbpkg/$dtype") {
	241	opendir(BDIR,"$ENV{'PBCONF'}/$pbpkg/$dtype") \|\| die "Unable to open dir $ENV{'PBCONF'}/$pbpkg/$dtype: $!";
[16]	242	foreach my $f (readdir(BDIR)) {
	243	next if ($f =~ /^\./);
[27]	244	$bfiles{$f} = "$ENV{'PBCONF'}/$pbpkg/$dtype/$f";
[16]	245	$bfiles{$f} =~ s~$ENV{'PBROOT'}~~;
[300]	246	if (defined $supfiles->{$pbpkg}) {
	247	$pkgfiles{$f} = "$ENV{'PBCONF'}/$pbpkg/$dtype/$f" if ($f =~ /$supfiles->{$pbpkg}/);
	248	}
[16]	249	}
[13]	250	closedir(BDIR);
[27]	251	} elsif (-d "$ENV{'PBCONF'}/$pbpkg/$dfam") {
	252	opendir(BDIR,"$ENV{'PBCONF'}/$pbpkg/$dfam") \|\| die "Unable to open dir $ENV{'PBCONF'}/$pbpkg/$dfam: $!";
[16]	253	foreach my $f (readdir(BDIR)) {
	254	next if ($f =~ /^\./);
[27]	255	$bfiles{$f} = "$ENV{'PBCONF'}/$pbpkg/$dfam/$f";
[16]	256	$bfiles{$f} =~ s~$ENV{'PBROOT'}~~;
[300]	257	if (defined $supfiles->{$pbpkg}) {
	258	$pkgfiles{$f} = "$ENV{'PBCONF'}/$pbpkg/$dfam/$f" if ($f =~ /$supfiles->{$pbpkg}/);
	259	}
[16]	260	}
	261	closedir(BDIR);
[27]	262	} elsif (-d "$ENV{'PBCONF'}/$pbpkg/$ddir") {
	263	opendir(BDIR,"$ENV{'PBCONF'}/$pbpkg/$ddir") \|\| die "Unable to open dir $ENV{'PBCONF'}/$pbpkg/$ddir: $!";
[16]	264	foreach my $f (readdir(BDIR)) {
	265	next if ($f =~ /^\./);
[27]	266	$bfiles{$f} = "$ENV{'PBCONF'}/$pbpkg/$ddir/$f";
[16]	267	$bfiles{$f} =~ s~$ENV{'PBROOT'}~~;
[300]	268	if (defined $supfiles->{$pbpkg}) {
	269	$pkgfiles{$f} = "$ENV{'PBCONF'}/$pbpkg/$ddir/$f" if ($f =~ /$supfiles->{$pbpkg}/);
	270	}
[16]	271	}
[13]	272	closedir(BDIR);
[27]	273	} elsif (-d "$ENV{'PBCONF'}/$pbpkg/$ddir-$dver") {
	274	opendir(BDIR,"$ENV{'PBCONF'}/$pbpkg/$ddir-$dver") \|\| die "Unable to open dir $ENV{'PBCONF'}/$pbpkg/$ddir-$dver: $!";
[16]	275	foreach my $f (readdir(BDIR)) {
	276	next if ($f =~ /^\./);
[27]	277	$bfiles{$f} = "$ENV{'PBCONF'}/$pbpkg/$ddir-$dver/$f";
[16]	278	$bfiles{$f} =~ s~$ENV{'PBROOT'}~~;
[300]	279	if (defined $supfiles->{$pbpkg}) {
	280	$pkgfiles{$f} = "$ENV{'PBCONF'}/$pbpkg/$ddir-$dver/$f" if ($f =~ /$supfiles->{$pbpkg}/);
	281	}
[16]	282	}
[13]	283	closedir(BDIR);
	284	} else {
[21]	285	$build{"$ddir-$dver"} = "no";
[13]	286	next;
	287	}
[22]	288	print $LOG "DEBUG bfiles: ".Dumper(\%bfiles)."\n" if ($debug >= 1);
[13]	289
[15]	290	# Get all filters to apply
[77]	291	my $ptr = pb_get_filters($pbpkg, $dtype, $dfam, $ddir, $dver);
[15]	292
[19]	293	# Apply now all the filters on all the files concerned
	294	# destination dir depends on the type of file
	295	if (defined $ptr) {
[300]	296	foreach my $f (values %bfiles,values %pkgfiles) {
[297]	297	pb_filter_file_pb("$ENV{'PBROOT'}/$f",$ptr,"$dest/pbconf/$ddir-$dver/".basename($f),$dtype,$pbsuf,$ENV{'PBPROJ'},$pbpkg,$pbver,$pbtag,$pbrev,$pbdate,$defpkgdir,$extpkgdir,$pbpackager,$chglog);
[16]	298	}
[15]	299	}
[18]	300	}
[21]	301	if ($debug >= 0) {
	302	my @found;
	303	my @notfound;
	304	foreach my $b (keys %build) {
	305	push @found,$b if ($build{$b} =~ /yes/);
	306	push @notfound,$b if ($build{$b} =~ /no/);
	307	}
[22]	308	print $LOG "Build files generated for ".join(',',@found)."\n";
	309	print $LOG "No Build files found for ".join(',',@notfound)."\n";
[21]	310	}
[236]	311	# Get the generic filter (all.pbf) and
	312	# apply those to the non-build files including those
	313	# generated by pbinit if applicable
	314
	315	# Get only all.pbf filter
[237]	316	$ptr = pb_get_filters($pbpkg);
[236]	317
	318	my $liste ="";
	319	if (defined $filteredfiles->{$pbpkg}) {
	320	foreach my $f (split(/,/,$filteredfiles->{$pbpkg})) {
[298]	321	pb_filter_file("$ENV{'PBROOT'}/$dir/$f",$ptr,"$dest/$f",$ENV{'PBPROJ'},$pbpkg,$pbver,$pbtag,$pbrev,$pbdate,$pbpackager);
[238]	322	$liste = "$f $liste";
[236]	323	}
	324	}
[239]	325	print $LOG "Files ".$liste."have been filtered\n";
[236]	326
[265]	327	# Prepare the dest directory for archive
	328	if (-x "$ENV{'PBCONF'}/$pbpkg/pbinit") {
[298]	329	pb_filter_file("$ENV{'PBCONF'}/$pbpkg/pbinit",$ptr,"$ENV{'PBTMP'}/pbinit",$ENV{'PBPROJ'},$pbpkg,$pbver,$pbtag,$pbrev,$pbdate,$pbpackager);
[266]	330	chmod 0755,"$ENV{'PBTMP'}/pbinit";
	331	pb_system("cd $dest ; $ENV{'PBTMP'}/pbinit","Executing init script from $ENV{'PBCONF'}/$pbpkg/pbinit");
[265]	332	}
	333
[18]	334	# Archive dest dir
[69]	335	chdir "$ENV{'PBDESTDIR'}" \|\| die "Unable to change dir to $ENV{'PBDESTDIR'}";
[25]	336	# Possibility to look at PBSRC to guess more the filename
[94]	337	pb_system("tar cfz $pbpkg-$pbver.tar.gz $pbpkg-$pbver","Creating $pbpkg tar files compressed");
[31]	338	print $LOG "Under $ENV{'PBDESTDIR'}/$pbpkg-$pbver.tar.gz\n" if ($debug >= 0);
[83]	339
[70]	340	# Keep track of what is generated for default
[113]	341	open(LAST,"> $pbrc->{$ENV{'PBPROJ'}}") \|\| die "Unable to create $pbrc->{$ENV{'PBPROJ'}}";
[83]	342	print LAST "pbroot $pbprojver-$pbprojtag = $ENV{'PBROOT'}\n";
	343	close(LAST);
	344
	345	# Keep track of per package version
	346	if (! -f "$ENV{'PBDESTDIR'}/$pbprojver-$pbprojtag.pb") {
	347	open(PKG,">$ENV{'PBDESTDIR'}/$pbprojver-$pbprojtag.pb") \|\| die "Unable to create $ENV{'PBDESTDIR'}/$pbprojver-$pbprojtag.pb";
	348	print PKG "# Empty\n";
	349	close(PKG);
	350	}
[89]	351	my ($pkg) = pb_conf_read("$ENV{'PBDESTDIR'}/$pbprojver-$pbprojtag.pb","pbpkg");
[83]	352	$pkg = { } if (not defined $pkg);
[88]	353	if ((not defined $pkg->{$pbpkg}) \|\| ($pkg->{$pbpkg} ne "$pbver-$pbtag")) {
	354	$pkg->{$pbpkg} = "$pbver-$pbtag";
[83]	355	}
	356
[88]	357	print $LOG "DEBUG pkg: ".Dumper($pkg)."\n" if ($debug >= 1);
[83]	358	open(PKG,"> $ENV{'PBDESTDIR'}/$pbprojver-$pbprojtag.pb") \|\| die "Unable to create $ENV{'PBDESTDIR'}/$pbprojver-$pbprojtag.pb";
[88]	359	foreach my $p (keys %$pkg) {
	360	print PKG "pbpkg $p = $pkg->{$p}\n";
[83]	361	}
	362	close(PKG);
[288]	363
	364	# Final cleanup
	365	pb_rm_rf($dest) if (-d $dest);
[9]	366	}
[77]	367	}
[22]	368
[77]	369	sub pb_build2pkg {
	370
[22]	371	# Get list of packages to build
[112]	372	my $ptr = pb_get_pkg($defpkgdir,$extpkgdir);
[22]	373	@pkgs = @$ptr;
	374
	375	# Get the running distro to build on
[99]	376	my ($ddir, $dver, $dfam, $dtype, $pbsuf) = pb_distro_init();
	377	print $LOG "DEBUG: distro tuple: ".join(',',($ddir, $dver, $dfam, $dtype, $pbsuf))."\n" if ($debug >= 1);
[22]	378
[83]	379	# Get content saved in cms2build
[89]	380	my ($pkg) = pb_conf_read("$ENV{'PBDESTDIR'}/$pbprojver-$pbprojtag.pb","pbpkg");
[83]	381	$pkg = { } if (not defined $pkg);
	382
[174]	383	# declare packager
	384	my ($tmp) = pb_conf_get("packager");
	385	my $pbpackager = $tmp->{$ENV{'PBPROJ'}};
	386
[25]	387	chdir "$ENV{'PBBUILDDIR'}";
[126]	388	my $made = ""; # pkgs made during build
[27]	389	foreach my $pbpkg (@pkgs) {
[88]	390	my $vertag = $pkg->{$pbpkg};
[77]	391	# get the version of the current package - maybe different
	392	($pbver,$pbtag) = split(/-/,$vertag);
	393
[27]	394	my $src="$ENV{'PBDESTDIR'}/$pbpkg-$pbver.tar.gz";
[67]	395	print $LOG "Source file: $src\n" if ($debug >= 0);
[25]	396
[149]	397	print $LOG "Working directory: $ENV{'PBBUILDDIR'}\n" if ($debug >= 0);
[25]	398	if ($dtype eq "rpm") {
	399	foreach my $d ('RPMS','SRPMS','SPECS','SOURCES','BUILD') {
[28]	400	if (! -d "$ENV{'PBBUILDDIR'}/$d") {
[96]	401	pb_mkdir_p("$ENV{'PBBUILDDIR'}/$d") \|\| die "Please ensure that you can write into $ENV{'PBBUILDDIR'} to create $d\nchown the $ENV{'PBBUILDDIR'} directory to your uid";
[28]	402	}
[25]	403	}
	404
[188]	405	symlink "$src","$ENV{'PBBUILDDIR'}/SOURCES/".basename($src) \|\| die "Unable to symlink $src in $ENV{'PBBUILDDIR'}/SOURCES";
[25]	406	# We need to first extract the spec file
[28]	407	my @specfile;
[77]	408	@specfile = pb_extract_build_files($src,"$pbpkg-$pbver/pbconf/$ddir-$dver/","$ENV{'PBBUILDDIR'}/SPECS");
[25]	409
[28]	410	print $LOG "specfile: ".Dumper(\@specfile)."\n" if ($debug >= 1);
[25]	411	# set LANGUAGE to check for correct log messages
	412	$ENV{'LANGUAGE'}="C";
[28]	413	#system("ls -R $ENV{'PBBUILDDIR'}") if ($debug >= 1);
	414	foreach my $f (@specfile) {
	415	if ($f =~ /\.spec$/) {
[291]	416	pb_system("rpmbuild --define \'packager $pbpackager\' --define \"_topdir $ENV{'PBBUILDDIR'}\" -ba $f","Building package with $f under $ENV{'PBBUILDDIR'}");
[28]	417	last;
	418	}
	419	}
[136]	420	$made="$made RPMS//$pbpkg-$pbver-$pbtag$pbsuf..rpm SRPMS/$pbpkg-$pbver-$pbtag$pbsuf.src.rpm";
[149]	421	if (-f "/usr/bin/rpmlint") {
	422	pb_system("rpmlint $made","Checking validity of rpms with rpmlint");
[150]	423	}
[118]	424	} elsif ($dtype eq "deb") {
[149]	425	chdir "$ENV{'PBBUILDDIR'}" \|\| die "Unable to chdir to $ENV{'PBBUILDDIR'}";
[274]	426	pb_system("tar xfz $src","Extracting sources");
[149]	427
	428	chdir "$pbpkg-$pbver" \|\| die "Unable to chdir to $pbpkg-$pbver";
	429	symlink "pbconf/$ddir-$dver","debian" \|\| die "Unable to symlink to pbconf/$ddir-$dver";
[199]	430	chmod 0755,"debian/rules";
[149]	431	pb_system("dpkg-buildpackage -us -uc -rfakeroot","Building package");
[136]	432	$made="$made $pbpkg"."_.deb $pbpkg"."_.dsc $pbpkg"."_*.tar.gz";
[87]	433	} elsif ($dtype eq "ebuild") {
[149]	434	my @ebuildfile;
	435	# For gentoo we need to take pb as subsystem name
[295]	436	# We put every apps here under sys-apps. hope it's correct
	437	# We use pb's home dir in order o have a single OVERLAY line
	438	my $tmpd = "$ENV{'HOME'}/portage/pb/sys-apps/$pbpkg";
	439	pb_mkdir_p($tmpd) if (! -d "$tmpd");
	440	pb_mkdir_p("$ENV{'HOME'}/portage/distfiles") if (! -d "$ENV{'HOME'}/portage/distfiles");
[149]	441
[295]	442	# We need to first extract the ebuild file
	443	@ebuildfile = pb_extract_build_files($src,"$pbpkg-$pbver/pbconf/$ddir-$dver/","$tmpd");
[149]	444
	445	# Prepare the build env for gentoo
	446	my $found = 0;
[295]	447	my $pbbd = $ENV{'HOME'};
[150]	448	$pbbd =~ s\|/\|\\/\|g;
[295]	449	if (-r "/etc/make.conf") {
	450	open(MAKE,"/etc/make.conf");
	451	while (<MAKE>) {
	452	$found = 1 if (/$pbbd\/portage/);
	453	}
	454	close(MAKE);
[149]	455	}
	456	if ($found == 0) {
[295]	457	pb_system("sudo sh -c 'echo PORTDIR_OVERLAY=\"$ENV{'HOME'}/portage\" >> /etc/make.conf'");
[149]	458	}
[295]	459	#$found = 0;
	460	#if (-r "/etc/portage/package.keywords") {
	461	#open(KEYW,"/etc/portage/package.keywords");
	462	#while (<KEYW>) {
	463	#$found = 1 if (/portage\/pb/);
	464	#}
	465	#close(KEYW);
	466	#}
	467	#if ($found == 0) {
	468	#pb_system("sudo sh -c \"echo portage/pb >> /etc/portage/package.keywords\"");
	469	#}
[149]	470
	471	# Build
	472	foreach my $f (@ebuildfile) {
	473	if ($f =~ /\.ebuild$/) {
[295]	474	move($f,"$tmpd/$pbpkg-$pbver.ebuild");
	475	pb_system("cd $tmpd ; ebuild $pbpkg-$pbver.ebuild clean ; ebuild $pbpkg-$pbver.ebuild digest ; ebuild $pbpkg-$pbver.ebuild package");
	476	# Now move it where pb expects it
	477	pb_mkdir_p("$ENV{'PBBUILDDIR'}/portage/pb/sys-apps/$pbpkg");
	478	move("$tmpd/$pbpkg-$pbver.ebuild","$ENV{'PBBUILDDIR'}/portage/pb/sys-apps/$pbpkg");
[149]	479	}
	480	}
	481
[295]	482	$made="$made portage/pb/sys-apps/$pbpkg/$pbpkg-$pbver.ebuild";
[118]	483	} elsif ($dtype eq "slackware") {
[136]	484	$made="$made build-$pbpkg/$pbpkg-$pbver-*-$pbtag.tgz";
[118]	485	pb_mkdir_p("$ENV{'PBBUILDDIR'}/install") if (! -d "$ENV{'PBBUILDDIR'}/install");
[87]	486	} else {
[118]	487	die "Unknown dtype format $dtype";
[87]	488	}
	489	}
[118]	490	# Keep track of what is generated so that we can get them back from VMs
[129]	491	open(KEEP,"> $ENV{'PBBUILDDIR'}/pbgen-$pbprojver-$pbprojtag") \|\| die "Unable to create $ENV{'PBBUILDDIR'}/pbgen-$pbprojver-$pbprojtag";
[118]	492	print KEEP "$made\n";
	493	close(KEEP);
[87]	494	}
	495
[88]	496	sub pb_build2ssh {
[90]	497	pb_send2ssh("Sources");
	498	}
[87]	499
[90]	500	sub pb_pkg2ssh {
	501	pb_send2ssh("Packages");
	502	}
	503
[108]	504	# By default deliver to the the public site hosting the
	505	# ftp structure (or whatever) or a VM
[90]	506	sub pb_send2ssh {
	507
	508	my $cmt = shift;
[118]	509	my $vm = shift \|\| undef;
[142]	510	my $vmexist = shift \|\| 0; # 0 is FALSE
[200]	511	my $vmpid = shift \|\| 0; # 0 is FALSE
[108]	512	my $host = shift \|\| "sshhost";
	513	my $login = shift \|\| "sshlogin";
	514	my $dir = shift \|\| "sshdir";
	515	my $port = shift \|\| "sshport";
[203]	516	my $tmout = shift \|\| "vmtmout";
[158]	517	my $cmd = "";
[90]	518
[87]	519	# Get list of packages to build
[112]	520	my $ptr = pb_get_pkg($defpkgdir,$extpkgdir);
[87]	521	@pkgs = @$ptr;
	522
[136]	523	# Get the running distro to consider
[118]	524	my ($odir,$over) = (undef, undef);
	525	if (defined $vm) {
	526	($odir,$over) = split(/_/,$vm);
	527	}
	528	my ($ddir, $dver, $dfam, $dtype, $pbsuf) = pb_distro_init($odir,$over);
[99]	529	print $LOG "DEBUG: distro tuple: ".join(',',($ddir, $dver, $dfam, $dtype, $pbsuf))."\n" if ($debug >= 1);
[87]	530
	531	# Get content saved in cms2build
[89]	532	my ($pkg) = pb_conf_read("$ENV{'PBDESTDIR'}/$pbprojver-$pbprojtag.pb","pbpkg");
[87]	533	$pkg = { } if (not defined $pkg);
	534
[118]	535	my $src = "";
[87]	536	chdir "$ENV{'PBBUILDDIR'}";
	537	foreach my $pbpkg (@pkgs) {
[88]	538	my $vertag = $pkg->{$pbpkg};
[87]	539	# get the version of the current package - maybe different
	540	($pbver,$pbtag) = split(/-/,$vertag);
	541
[118]	542	if (($cmt eq "Sources") \|\| ($cmt eq "VMs")) {
[158]	543	$src = "$src $ENV{'PBDESTDIR'}/$pbpkg-$pbver.tar.gz";
[166]	544	if ($cmd eq "") {
	545	$cmd = "ln -sf $pbpkg-$pbver.tar.gz $pbpkg-latest.tar.gz";
	546	} else {
	547	$cmd = "$cmd ; ln -sf $pbpkg-$pbver.tar.gz $pbpkg-latest.tar.gz";
	548	}
[118]	549	}
	550	}
	551	if ($cmt eq "VMs") {
[132]	552	$src="$src $ENV{'PBDESTDIR'}/pbscript $ENV{'PBCONF'}/$ENV{'PBPROJ'}.pb $ENV{'PBDESTDIR'}/$pbprojver-$pbprojtag.pb $ENV{'PBETC'}";
[142]	553	} elsif ($cmt eq "Script") {
	554	$src="$src $ENV{'PBDESTDIR'}/pbscript";
[118]	555	} elsif ($cmt eq "Packages") {
	556	# Get package list from file made during build2pkg
[129]	557	open(KEEP,"$ENV{'PBBUILDDIR'}/pbgen-$pbprojver-$pbprojtag") \|\| die "Unable to read $ENV{'PBBUILDDIR'}/pbgen-$pbprojver-$pbprojtag";
[126]	558	$src = <KEEP>;
[118]	559	chomp($src);
	560	close(KEEP);
	561	if ($dtype eq "rpm") {
	562	# Also make a pbscript to generate yum/urpmi bases
[108]	563	# $src = "$src $ENV{'PBDESTDIR'}/pbscript"
[118]	564	} elsif ($dtype eq "deb") {
	565	# Also make a pbscript to generate apt bases
	566	# $src = "$src $ENV{'PBDESTDIR'}/pbscript"
[90]	567	}
[87]	568	}
[132]	569	# Remove potential leading spaces (cause pb with basename)
	570	$src =~ s/^ *//;
[129]	571	my $basesrc = "";
[131]	572	foreach my $i (split(/ +/,$src)) {
	573	$basesrc .= " ".basename($i);
[130]	574	}
[118]	575
[128]	576	print $LOG "Sources handled ($cmt): $src\n" if ($debug >= 0);
[290]	577	my ($sshhost,$sshlogin,$sshdir,$sshport,$vmtmout,$testver) = pb_conf_get($host,$login,$dir,$port,$tmout,"testver");
[88]	578	my $mac = "$sshlogin->{$ENV{'PBPROJ'}}\@$sshhost->{$ENV{'PBPROJ'}}";
[152]	579	# Overwrite account value if passed as parameter
	580	$mac = "$pbaccount\@$sshhost->{$ENV{'PBPROJ'}}" if (defined $pbaccount);
[108]	581	my $tdir;
[136]	582	my $bdir;
[142]	583	if (($cmt eq "Sources") \|\| ($cmt eq "Script")) {
[108]	584	$tdir = "$sshdir->{$ENV{'PBPROJ'}}/src";
	585	} elsif ($cmt eq "VMs") {
[136]	586	$tdir = dirname("$sshdir->{$ENV{'PBPROJ'}}")."/delivery";
	587	$bdir = dirname("$sshdir->{$ENV{'PBPROJ'}}")."/build";
	588	# Remove a potential $ENV{'HOME'} as bdir should be relative to pb's home
	589	$bdir =~ s\|\$ENV.+\}/\|\|;
[90]	590	} elsif ($cmt eq "Packages") {
[108]	591	$tdir = "$sshdir->{$ENV{'PBPROJ'}}/$ddir/$dver";
[290]	592	if (defined $testver->{$ENV{'PBPROJ'}}) {
[289]	593	# This is a test pkg => target dir is under test
	594	$tdir .= "/test";
[291]	595	}
[90]	596	} else {
	597	return;
[22]	598	}
[239]	599	my $nport = $sshport->{$ENV{'PBPROJ'}};
	600	$nport = "$pbport" if (defined $pbport);
	601
[136]	602	# Remove a potential $ENV{'HOME'} as tdir should be relative to pb's home
[132]	603	$tdir =~ s\|\$ENV.+\}/\|\|;
	604
[203]	605	my $tm = $vmtmout->{$ENV{'PBPROJ'}};
[239]	606	pb_system("ssh -q -p $nport $mac \"mkdir -p $tdir ; cd $tdir ; echo \'for i in $basesrc; do if [ -f \$i ]; then rm -f \$i; fi; done\ ; $cmd' \| bash\"","Preparing $tdir on $mac");
	607	pb_system("cd $ENV{'PBBUILDDIR'} ; scp -p -P $nport $src $mac:$tdir 2> /dev/null","$cmt delivery in $tdir on $mac");
	608	pb_system("ssh -q -p $nport $mac \"echo \'cd $tdir ; if [ -f pbscript ]; then ./pbscript; fi\' \| bash\"","Executing pbscript on $mac if needed");
[108]	609	if ($cmt eq "VMs") {
[128]	610	# Get back info on pkg produced, compute their name and get them from the VM
[239]	611	pb_system("scp -p -P $nport $mac:$bdir/pbgen-$pbprojver-$pbprojtag $ENV{'PBBUILDDIR'} 2> /dev/null","Get package names in $bdir on $mac");
[129]	612	open(KEEP,"$ENV{'PBBUILDDIR'}/pbgen-$pbprojver-$pbprojtag") \|\| die "Unable to read $ENV{'PBBUILDDIR'}/pbgen-$pbprojver-$pbprojtag";
[118]	613	my $src = <KEEP>;
	614	chomp($src);
	615	close(KEEP);
[131]	616	$src =~ s/^ *//;
[136]	617	pb_mkdir_p("$ENV{'PBBUILDDIR'}/$odir/$over");
[139]	618	# Change pgben to make the next send2ssh happy
[143]	619	my $made = "";
[139]	620	open(KEEP,"> $ENV{'PBBUILDDIR'}/pbgen-$pbprojver-$pbprojtag") \|\| die "Unable to write $ENV{'PBBUILDDIR'}/pbgen-$pbprojver-$pbprojtag";
[136]	621	foreach my $p (split(/ +/,$src)) {
[139]	622	my $j = basename($p);
[239]	623	pb_system("scp -p -P $nport $mac:\'$bdir/$p\' $ENV{'PBBUILDDIR'}/$odir/$over 2> /dev/null","Package recovery of $j in $bdir from $mac");
[144]	624	$made="$made $odir/$over/$j" if (($dtype ne "rpm") \|\| ($j !~ /.src.rpm$/));
[136]	625	}
[143]	626	print KEEP "$made\n";
[139]	627	close(KEEP);
[239]	628	pb_system("ssh -q -p $nport $mac \"rm -rf $tdir $bdir\"","VM cleanup on $mac");
[288]	629	pb_send2ssh("Packages","$odir"."_"."$over");
[142]	630	if (! $vmexist) {
[239]	631	pb_system("ssh -q -p $nport $mac \"sudo /sbin/halt -p \"; sleep $tm ; echo \'if [ -d /proc/$vmpid ]; then kill -9 $vmpid; fi \' \| bash ; sleep 10","VM $vm halt (pid $vmpid)");
[142]	632	}
[141]	633	pb_rm_rf("$ENV{'PBBUILDDIR'}/$odir");
[108]	634	}
[9]	635	}
[16]	636
[142]	637	sub pb_script2vm {
	638	my $pbscript=shift;
[141]	639
	640	# Prepare the script to be executed on the VM
	641	# in $ENV{'PBDESTDIR'}/pbscript
[142]	642	if ((defined $pbscript ) && ($pbscript ne "$ENV{'PBDESTDIR'}/pbscript")) {
	643	copy($pbscript,"$ENV{'PBDESTDIR'}/pbscript") \|\| die "Unable to create $ENV{'PBDESTDIR'}/pbscript";
	644	chmod 0755,"$ENV{'PBDESTDIR'}/pbscript";
	645	}
[141]	646
[142]	647	my ($vm,$all) = pb_get_vm();
	648
[141]	649	foreach my $v (@$vm) {
[142]	650	# Launch the VM
[262]	651	my ($vmexist,$vmpid) = pb_launchvm($v,0);
[141]	652
[274]	653	# Skip that VM if it something went wrong
	654	next if (($vmpid == 0) && ($vmexist ==0));
	655
[142]	656	# Gather all required files to send them to the VM
	657	# and launch the build thourgh pbscript
[200]	658	pb_send2ssh("Script","$v",$vmexist,$vmpid,"vmhost","vmlogin","pbrc","vmport","vmtmout");
[169]	659
[142]	660	}
	661	}
	662
	663	sub pb_launchvm {
	664	my $vm = shift;
[262]	665	my $create = shift \|\| 0; # By default do not create a VM
[142]	666
[262]	667	die "-i iso parameter needed" if (((not defined $iso) \|\| ($iso eq "")) && ($create != 0));
[142]	668	die "No VM defined, unable to launch" if (not defined $vm);
	669	# Keep only the first VM in case many were given
	670	$vm =~ s/,.*//;
	671
	672	# Launch the VMs
[262]	673	my ($ptr,$vmopt,$vmport,$vmpath,$vmtmout,$vmsize) = pb_conf_get("vmtype","vmopt","vmport","vmpath","vmtmout","vmsize");
[142]	674	my $vmtype = $ptr->{$ENV{'PBPROJ'}};
[262]	675	if (not defined $ENV{'PBVMOPT'}) {
[142]	676	$ENV{'PBVMOPT'} = "";
	677	}
[262]	678	if (defined $vmopt->{$ENV{'PBPROJ'}}) {
[296]	679	$ENV{'PBVMOPT'} .= " $vmopt->{$ENV{'PBPROJ'}}" if ($ENV{'PBVMOPT'} !~ / $vmopt->{$ENV{'PBPROJ'}}/);
[262]	680	}
[239]	681	my $nport = $vmport->{$ENV{'PBPROJ'}};
	682	$nport = "$pbport" if (defined $pbport);
[142]	683
	684	my $cmd;
	685	my $vmcmd; # has to be used for pb_check_ps
	686	my $vmm; # has to be used for pb_check_ps
	687	if ($vmtype eq "qemu") {
	688	my $arch = `uname -m`;
	689	chomp($arch);
	690	my $qemucmd32;
	691	my $qemucmd64;
	692	if ($arch eq "x86_64") {
	693	$qemucmd32 = "/usr/bin/qemu-system-i386";
	694	$qemucmd64 = "/usr/bin/qemu";
[141]	695	} else {
[142]	696	$qemucmd32 = "/usr/bin/qemu";
	697	$qemucmd64 = "/usr/bin/qemu-system-x86_64";
[141]	698	}
[142]	699	if ($vm =~ /_64/) {
	700	$vmcmd = "$qemucmd64 -no-kqemu";
	701	} else {
	702	$vmcmd = "$qemucmd32";
	703	}
	704	$vmm = "$vmpath->{$ENV{'PBPROJ'}}/$vm.qemu";
[262]	705	if ($create != 0) {
	706	$ENV{'PBVMOPT'} .= " -cdrom $iso -boot d";
[142]	707	}
[239]	708	$cmd = "$vmcmd $ENV{'PBVMOPT'} -redir tcp:$nport:10.0.2.15:22 $vmm"
[142]	709	} elsif ($vmtype eq "xen") {
	710	} elsif ($vmtype eq "vmware") {
	711	} else {
	712	die "VM of type $vmtype not supported. Report to the dev team";
	713	}
[199]	714	my ($tmpcmd,$void) = split(/ +/,$cmd);
	715	my $vmexist = pb_check_ps($tmpcmd,$vmm);
[200]	716	my $vmpid = 0;
[142]	717	if (! $vmexist) {
[262]	718	if ($create != 0) {
	719	pb_system("/usr/bin/qemu-img create -f qcow2 $vmm $vmsize->{$ENV{'PBPROJ'}}","Creating the QEMU VM");
	720	}
	721	if (! -f "$vmm") {
[274]	722	print "Unable to find VM $vmm\n";
	723	} else {
	724	pb_system("$cmd &","Launching the VM $vmm");
	725	pb_system("sleep $vmtmout->{$ENV{'PBPROJ'}}","Waiting for VM $vm to come up");
	726	$vmpid = pb_check_ps($tmpcmd,$vmm);
[262]	727	}
[200]	728	} else {
	729	print "Found an existing VM $vmm (pid $vmexist)\n";
[141]	730	}
[200]	731	return($vmexist,$vmpid);
[141]	732	}
[142]	733
[105]	734	sub pb_build2vm {
[108]	735	# Prepare the script to be executed on the VM
	736	# in $ENV{'PBDESTDIR'}/pbscript
[220]	737	my ($ntp) = pb_conf_get("vmntp");
	738	my $vmntp = $ntp->{$ENV{'PBPROJ'}};
[118]	739	open(SCRIPT,"> $ENV{'PBDESTDIR'}/pbscript") \|\| die "Unable to create $ENV{'PBDESTDIR'}/pbscript";
	740	print SCRIPT "#!/bin/bash\n";
[126]	741	print SCRIPT "echo ... Execution needed\n";
[132]	742	print SCRIPT "# This is in directory delivery\n";
[118]	743	print SCRIPT "# Setup the variables required for building\n";
	744	print SCRIPT "export PBPROJ=$ENV{'PBPROJ'}\n";
[132]	745	print SCRIPT "# Preparation for pb\n";
	746	print SCRIPT "mkdir -p ../pbconf\n";
	747	print SCRIPT "mv $ENV{'PBPROJ'}.pb ../pbconf\n";
	748	print SCRIPT "mv .pbrc \$HOME\n";
	749	print SCRIPT "cd ..\n";
[268]	750	# Force new date to be in the future compared to the date of the tar file by adding 1 minute
[226]	751	my @date=(localtime->sec(), localtime->min(), localtime->hour(), localtime->mday(), localtime->mon(), localtime->year(), localtime->wday(), localtime->yday(), localtime->isdst());
[268]	752	$date[1]++;
[220]	753	my $upddate = strftime("%m%d%H%M%Y", @date);
	754	print SCRIPT "echo Setting up date on $vmntp...\n";
[268]	755	# Or use ntpdate if available
[220]	756	print SCRIPT "sudo date $upddate\n";
[118]	757	print SCRIPT "export PBROOT=\`pwd\`\n";
	758	print SCRIPT "# Build\n";
[127]	759	my $p = "";
[272]	760	$p = join(' ',@ARGV) if (defined $ARGV[0]);
[132]	761	print SCRIPT "echo Building packages on VM...\n";
[166]	762	print SCRIPT "pb -p $ENV{'PBPROJ'} build2pkg $p\n";
[118]	763	close(SCRIPT);
	764	chmod 0755,"$ENV{'PBDESTDIR'}/pbscript";
	765
[142]	766	my ($vm,$all) = pb_get_vm();
	767
[106]	768	# Send tar files when we do a global generation
	769	pb_build2ssh() if ($all == 1);
[118]	770
	771	foreach my $v (@$vm) {
[142]	772	# Launch the VM
[262]	773	my ($vmexist,$vmpid) = pb_launchvm($v,0);
[118]	774
[274]	775	# Skip that VM if it something went wrong
	776	next if (($vmpid == 0) && ($vmexist == 0));
	777
[142]	778	# Gather all required files to send them to the VM
	779	# and launch the build thourgh pbscript
[200]	780	pb_send2ssh("VMs","$v",$vmexist,$vmpid,"vmhost","vmlogin","pbrc","vmport","vmtmout");
[118]	781	}
[105]	782	}
	783
[262]	784
[199]	785	sub pb_newver {
	786
[204]	787	die "-V Version parameter needed" if ((not defined $newver) \|\| ($newver eq ""));
[199]	788	my $cms=pb_cms_init($ENV{'PBPROJ'});
	789	if ($cms->{$ENV{'PBPROJ'}} ne "svn") {
	790	die "Only SVN is supported at the moment";
	791	}
	792	my $res = pb_cms_isdiff($cms);
	793	die "You need to have no differences before creating a new version" if ($res != 0);
	794	my $cmsurl = pb_cms_getinfo($cms);
[204]	795	my $newurl = dirname($cmsurl)."/$newver";
	796	pb_cms_copy($cms,$cmsurl,$newurl);
[208]	797	pb_cms_checkout($cms,$newurl,"$ENV{'PBROOT'}/../$newver");
	798	my $oldver=basename($cmsurl);
[211]	799	open(FILE,"$ENV{'PBROOT'}/../$newver/pbconf/$ENV{'PBPROJ'}.pb") \|\| die "Unable to open $ENV{'PBROOT'}/../$newver/pbconf/$ENV{'PBPROJ'}.pb";
	800	open(OUT,"> $ENV{'PBROOT'}/../$newver/pbconf/$ENV{'PBPROJ'}.pb.new") \|\| die "Unable to write to $ENV{'PBROOT'}/../$newver/pbconf/$ENV{'PBPROJ'}.pb.new";
[208]	801	while(<FILE>) {
[209]	802	s/projver\s+$ENV{'PBPROJ'}\s=\s$oldver/projver $ENV{'PBPROJ'} = $newver/;
[211]	803	print OUT $_;
[208]	804	}
	805	close(FILE);
[211]	806	close(OUT);
	807	rename("$ENV{'PBROOT'}/../$newver/pbconf/$ENV{'PBPROJ'}.pb.new","$ENV{'PBROOT'}/../$newver/pbconf/$ENV{'PBPROJ'}.pb");
[208]	808	pb_cms_checkin($cms,"$ENV{'PBROOT'}/../$newver");
[199]	809	}
	810
[293]	811	#
	812	# Return the list of packages we are working on
	813	#
[77]	814	sub pb_get_pkg {
[16]	815
[22]	816	my @pkgs;
[108]	817	my $defpkgdir = shift;
	818	my $extpkgdir = shift;
[22]	819
	820	# Get packages list
	821	if (not defined $ARGV[0]) {
[112]	822	@pkgs = keys %$defpkgdir;
[22]	823	} elsif ($ARGV[0] =~ /^all$/) {
[112]	824	@pkgs = keys %$defpkgdir;
	825	push(@pkgs, keys %$extpkgdir);
[22]	826	} else {
	827	@pkgs = @ARGV;
	828	}
	829	print $LOG "Packages: ".join(',',@pkgs)."\n" if ($debug >= 0);
	830	return(\@pkgs);
	831	}
	832
[105]	833	#
	834	# Return the list of VMs we are working on
	835	# $all is a flag to know if we return all of them
	836	# or only some (if all we publish also tar files in addition to pkgs
	837	#
[91]	838	sub pb_get_vm {
	839
	840	my @vm;
[105]	841	my $all = 0;
[91]	842
	843	# Get VM list
[105]	844	if ((not defined $ENV{'PBVM'}) \|\| ($ENV{'PBVM'} =~ /^all$/)) {
[108]	845	my ($ptr) = pb_conf_get("vmlist");
[274]	846	my $ptr2 = $ptr->{$ENV{'PBPROJ'}};
	847	$ptr2 =~ s/,/_64,/g;
	848	$ptr2 =~ s/$/_64/g;
	849	$ENV{'PBVM'} = "$ptr->{$ENV{'PBPROJ'}},$ptr2";
[105]	850	$all = 1;
[91]	851	}
[274]	852	print $LOG "VMs: $ENV{'PBVM'}\n";
[105]	853	@vm = split(/,/,$ENV{'PBVM'});
	854	return(\@vm,$all);
[91]	855	}
	856
[145]	857	# Returns the pid of a running VM command using a specific VM file
[142]	858	sub pb_check_ps {
	859	my $vmcmd = shift;
	860	my $vmm = shift;
	861	my $vmexist = 0; # FALSE by default
	862
	863	open(PS, "ps auxhww\|") \|\| die "Unable to call ps";
	864	while (<PS>) {
	865	next if (! /$vmcmd/);
	866	next if (! /$vmm/);
	867	my ($void1, $void2);
	868	($void1, $vmexist, $void2) = split(/ +/);
	869	last;
	870	}
	871	return($vmexist);
	872	}
	873
	874
[77]	875	sub pb_extract_build_files {
[25]	876
	877	my $src=shift;
	878	my $dir=shift;
[26]	879	my $ddir=shift;
[28]	880	my @files;
[25]	881
[188]	882	if ($src =~ /tar\.gz$/) {
	883	pb_system("tar xfpz $src $dir","Extracting build files");
	884	} elsif ($src =~ /tar\.bz2$/) {
	885	pb_system("tar xfpj $src $dir","Extracting build files");
	886	} else {
	887	die "Unknown compression algorithm for $src";
	888	}
[25]	889	opendir(DIR,"$dir") \|\| die "Unable to open directory $dir";
	890	foreach my $f (readdir(DIR)) {
	891	next if ($f =~ /^\./);
[26]	892	move("$dir/$f","$ddir") \|\| die "Unable to move $dir/$f to $ddir";
[28]	893	print $LOG "mv $dir/$f $ddir\n" if ($debug >= 1);
	894	push @files,"$ddir/$f";
[25]	895	}
	896	closedir(DIR);
[26]	897	# Not enough but still a first cleanup
[74]	898	pb_rm_rf("$dir");
[28]	899	return(@files);
[25]	900	}
	901
[74]	902	sub pb_syntax {
[21]	903
[53]	904	print "pb (aka project-builder) Version $projectbuilderver-$projectbuilderrev\n";
	905	print "\n";
[288]	906	print "Syntax: pb [-vhqt][-r pbroot][-p project][[-s script -a account -P port] -m \"mach-1[,...]\"][-i iso] <action> [<pkg1>...]\n";
[21]	907	print "\n";
	908	print "-h : This help file\n";
	909	print "-q : Quiet mode\n";
	910	print "-t : Test mode (not done yet)\n";
	911	print "-v : Verbose mode\n";
	912	print "\n";
[142]	913	print "-m machine : Name of the Virtual Machines (VM) you want\n";
	914	print " to build on (coma separated). All if none precised\n";
[91]	915	print " (or use the env variable PBVM) \n";
[69]	916	print "\n";
[141]	917	print "-s script : Name of the script you want\n";
	918	print " to execute on the related VMs.\n";
	919	print "\n";
[288]	920	print "-i iso : Name of the ISO image of the distribution you want\n";
	921	print " to install on the related VMs.\n";
	922	print "\n";
[152]	923	print "-a account : Name of the account to use\n";
	924	print " to connect on the related VMs.\n";
	925	print "\n";
[199]	926	print "-P port : Number of the port to use\n";
	927	print " to connect on the related VMs.\n";
	928	print "\n";
[21]	929	print "-p project : Name of the project you're working on\n";
	930	print " (or use the env variable PBPROJ) \n";
	931	print "\n";
[91]	932	print "-r pbroot : Path Name of project under the CMS \n";
	933	print " (or use the env variable PBROOT) \n";
	934	print "\n";
[199]	935	print "-V newver : New version of the project to create\n";
	936	print " from the current one. \n";
	937	print "\n";
[21]	938	print "<action> can be:\n";
	939	print "\n";
[105]	940	print "\tcms2build: Create tar files for the project under your CMS\n";
[21]	941	print "\t CMS supported are SVN and CVS\n";
[22]	942	print "\t parameters are packages to build\n";
	943	print "\t if not using default list\n";
[21]	944	print "\n";
	945	print "\tbuild2pkg: Create packages for your running distribution \n";
	946	print "\n";
[169]	947	print "\tcms2pkg: cms2build + build2pkg\n";
	948	print "\n";
[105]	949	print "\tbuild2ssh: Send the tar files to a SSH host \n";
	950	print "\n";
[220]	951	print "\tcms2ssh: cms2build + build2ssh\n";
	952	print "\n";
[105]	953	print "\tpkg2ssh: Send the packages built to a SSH host \n";
	954	print "\n";
[142]	955	print "\tbuild2vm: Create packages in VMs, launching them if needed\n";
	956	print "\t and send those packages to a SSH host once built\n";
	957	print "\t VM type supported are QEMU \n";
[136]	958	print "\n";
[169]	959	print "\tcms2vm: cms2build + build2vm\n";
	960	print "\n";
[142]	961	print "\tlaunchvm: Launch one virtual machine\n";
[141]	962	print "\n";
[142]	963	print "\tscript2vm: Launch one virtual machine if needed \n";
[285]	964	print "\t and executes a script on it \n";
[142]	965	print "\n";
[262]	966	print "\tnewvm: Create a new virtual machine\n";
[199]	967	print "\n";
[262]	968	print "\tnewver: Create a new version of the project derived \n";
	969	print "\t from the current one \n";
	970	print "\n";
[273]	971	print "\tnewproj: Create a new project and a template set of \n";
	972	print "\t configuration files under pbconf \n";
	973	print "\n";
[21]	974	}

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

Download in other formats: