2 # mockbuild - mass RPM build driver for use with mock and many kernel-devel
4 # from Simon Wilkinson for OpenAFS
5 # for "modern" yum, use "showdupesfromrepos=1" in all cfg files in /etc/mock
15 my $rootbase="/var/lib/mock/";
16 my $resultbase="/tmp/result/";
17 my $stashbase="/disk/scratch/repository/";
18 my $mockcommand = "/usr/bin/mock";
23 my %platconf = ( "fedora-5-i386" => { osver => "fc5",
26 updaterepo => 'updates-released',
27 results => 'fc5/i386' },
28 "fedora-5-x86_64" => { osver => "fc5",
31 updaterepo => 'updates-released',
32 results => 'fc5/x86_64' },
33 "fedora-6-i386" => { osver => "fc6",
36 updaterepo => 'updates-released',
37 results => "fc6/i386" },
38 "fedora-6-x86_64" => { osver => "fc6",
41 updaterepo => 'updates-released',
42 results => "fc6/x86_64" },
43 "fedora-7-i386" => { osver => "fc7",
46 updaterepo => 'updates-released',
47 results => "fc7/i386" },
48 "fedora-7-x86_64" => { osver => "fc7",
51 updaterepo => 'updates-released',
52 results => "fc7/x86_64" },
53 "fedora-8-i386" => { osver => "fc8",
56 updaterepo => 'updates-released',
57 results => "fc8/i386" },
58 "fedora-8-x86_64" => { osver => "fc8",
61 updaterepo => 'updates-released',
62 results => "fc8/x86_64" },
63 "centos-4-i386" => { osver => "el4",
66 updaterepo => 'update',
67 results => 'el4/i386' },
68 "centos-4-x86_64" => { osver => "el4",
71 updaterepo => 'update',
72 results => "el4/x86_64" },
73 "centos-5-i386" => { osver => "el5",
76 updaterepo => 'update',
77 results => "el5/i386" },
78 "centos-5-x86_64" => { osver => "el5",
81 updaterepo => 'update',
82 results => "el5/x86_64" },
83 # "fedora-development-i386" => { osver => "fcd",
86 # results => 'fedora-devel/i386'},
87 # "fedora-development-x86_64" => { osver => "fcd",
89 # basearch => 'x86_64',
90 # results => 'fedora-devel/x86_64'}
93 # The following are kernels that we can't successfully build modules against
94 # due to issues in the packaged kernel-devel RPM.
97 "2.6.21-2950.fc8" => { "xen" => 1} # Missing build ID
100 my @platforms = @ARGV;
101 my $srpm = pop @platforms;
103 if (!$srpm || $#platforms==-1) {
104 print "Usage: $0 <platform> [<platform> [<platform> ...] ] <srpm>\n";
105 print " Platform may be:\n";
106 foreach ("all", sort(keys(%platconf))) { print " ".$_."\n"; };
110 my $oafsversion = `rpm -q --queryformat=%{VERSION} -p $srpm` or die $!;
112 my $oafsrelease = `rpm -q --queryformat=%{RELEASE} -p $srpm` or die $!;
114 $oafsrelease=~s/^[^\.]*\.(.*)$/$1/;
116 print "Release is $oafsrelease\n";
118 if ($platforms[0] eq "all" and $#platforms == 0) {
119 @platforms = keys(%platconf);
122 foreach my $platform (@platforms) {
123 print "*******************************************************************\n";
124 print "Building for $platform\n";
125 die "Unknown platform $platform" if !$platconf{$platform};
126 my $osver = $platconf{$platform}{'osver'};
127 my $root = $rootbase.$platform."/root";
128 my $mockresults = $rootbase.$platform."/result";
129 my $resultdir = $resultbase.$platconf{$platform}{'results'};
130 my $basearch = $platconf{$platform}{'basearch'};
131 my $rpmstashdir = $stashbase.$platconf{$platform}{'results'}."/";
134 if (exists($platconf{$platform}{'updaterepo'})) {
135 $yumcachedir = $rootbase."cache/".$platform."/yum_cache/".
136 $platconf{$platform}{'updaterepo'}."/packages/";
139 File::Path::mkpath($resultdir, 0, 0755);
141 if (system($mockcommand, "-r", $platform, "init") != 0) {
142 die "Initialising the root failed: $?\n";
147 print "-------------------------------------------------------------------\n";
148 print "Finding available kernel modules\n";
150 my $arbitraryversion = "";
151 my $modules=`$suser -c 'yum --installroot $root provides kernel-devel'`;
152 if ($modules eq "") {
153 $modules=`$suser -c 'yum -d 2 --installroot $root provides kernel-devel'`;
156 foreach $modulen (split(/\n/, $modules)) {
157 my ($pk, $colon, $comment)=split(/\s+/, $modulen);
158 if ($pk =~ /^kernel/) {
159 $modulel{$pk} = "$pk";
162 $modulen=join(" ", keys(%modulel));
163 $modules=`$suser -c 'yum --installroot $root list $modulen'`;
165 foreach my $module (split(/\n/, $modules)) {
166 my ($package, $version, $repo)=split(/\s+/, $module);
167 my ($arch) = ($package=~/\.(.*)$/);
168 my ($variant) = ($package=~/kernel-(.*)-devel/);
169 $variant = "" if !defined($variant);
170 next if ($package !~ /^kernel/);
171 next if ($arch eq "noarch");
173 if (exists($badkernels{$version}) && ($badkernels{$version}{$variant}));
174 if ($platform=~/fedora-5/) {
175 next if ($variant eq "xen0"); # Fedora 5 has some bad xen0 kernel-devels
176 next if ($variant eq "smp");
178 print "$arch : $variant : $version\n";
179 $modulelist{$arch} ={} if !$modulelist{$arch};
180 $modulelist{$arch}{$version} = {} if !$modulelist{$arch}{$version};
181 $modulelist{$arch}{$version}{$variant} = 1;
182 $arbitraryversion = $version;
185 if (!$arbitraryversion) {
186 die "Unable to find a valid kernel-devel package for $platform\n";
189 print "-------------------------------------------------------------------\n";
190 print "Building the userland RPMs\n";
191 my @rpms = ('', '-authlibs', '-authlibs-devel', '-client', '-compat',
192 '-debuginfo', '-devel', '-docs', '-kernel-source', '-kpasswd',
196 foreach my $rpm (@rpms) {
197 if (! -f $resultdir."/openafs".$rpm."-".$oafsversion."-".$osver.".".
198 $oafsrelease.".".$basearch.".rpm") {
200 print $resultdir."/openafs".$rpm."-".$oafsversion."-".$osver.".".
201 $oafsrelease.".".$basearch.".rpm is missing!\n"
205 system($mockcommand." -r ".$platform." rebuild ".
206 ' --define "fedorakmod 1" '.
207 ' --define "kernvers '.$arbitraryversion.'" '.
208 ' --define "osvers '.$osver.'" '.
209 ' --define "build_modules 0" '.
210 ' --define "build_userspace 1" '.
211 ' --define "build_authlibs 1" '.
213 or die "build failed with : $!\n";
214 foreach my $rpm (@rpms) {
215 system("cp ".$mockresults."/openafs".$rpm."-".$oafsversion."-".
216 $osver.".".$oafsrelease.".".$basearch.".rpm ".
218 or die "Copy failed with : $!\n";
219 push @newrpms, $mockresults."/openafs".$rpm."-".$oafsversion."-".
220 $osver.".".$oafsrelease.".".$basearch.".rpm";
223 print "All userland RPMs present for $platform. Skipping build\n";
226 print "-------------------------------------------------------------------\n";
227 print "Building kernel modules\n";
229 foreach my $arch (keys(%modulelist)) {
230 foreach my $version (keys(%{$modulelist{$arch}})) {
231 my $kversion = $version;
236 @tobuild = keys(%{$modulelist{$arch}{$version}});
238 foreach my $variant (keys(%{$modulelist{$arch}{$version}})) {
239 my $dvariant=$variant;
240 $dvariant.="-" if ($dvariant);
241 if (!-f $resultdir."/kmod-openafs-".$dvariant.
242 $oafsversion."-".$oafsrelease.".".$kversion.".".
244 push @tobuild, $variant;
245 print $resultdir."/kmod-openafs-".$dvariant.
246 $oafsversion."-".$oafsrelease.".".$kversion.".".
247 $arch.".rpm is missing\n";
253 my $variants = join(" ", map {$_ or '\\\\\"\\\\\"'} @tobuild);
254 print "Building $arch module for kernel $version with variants $variants\n";
255 system ("setarch $arch $mockcommand -r $platform rebuild ".
257 ' --define "fedorakmod 1" '.
258 ' --define "osvers '.$osver.'" '.
259 ' --define "kernvers '.$version.'" '.
260 ' --define "kvariants '.$variants.'" '.
261 ' --define "build_modules 1" '.
262 ' --define "build_userspace 0" '.
264 or die "Build failed with : $!\n";
265 foreach my $variant (@tobuild) {
269 system("cp ".$mockresults."/kmod-openafs-".$variant.$oafsversion."-".$oafsrelease.".".$kversion.".".$arch.".rpm $resultdir") == 0
270 or die "Copy failed with : $!\n";
271 push @newrpms, $mockresults."/kmod-openafs-".$variant.$oafsversion."-".$oafsrelease.".".$kversion.".".$arch.".rpm";
274 print "All kernel modules already built for $version on $arch\n";
278 print "-------------------------------------------------------------------\n";
279 print "Creating repository data\n";
280 system ("cd $resultdir; createrepo .") == 0
281 or die "Unable to build repository data\n";
284 print "-------------------------------------------------------------------\n";
285 print "Stashing kernel-devel RPMs\n";
288 my $dirh = IO::Dir->new($yumcachedir);
289 if (defined($dirh)) {
291 while (defined($file = $dirh->read)) {
292 if ( $file=~/^kernel-devel/ &&
293 -f $yumcachedir.$file && ! -f $rpmstashdir.$file) {
294 print "Stashing $file for later use\n";
295 system("cp ".$yumcachedir.$file." ".$rpmstashdir.$file) == 0
296 or die "Copy failed with : $!\n";
303 print "Updating stash repodata\n";
304 system ("cd $rpmstashdir; createrepo .") == 0
305 or die "Unable to update RPM stash repository data\n";
310 print "=====================================================================\n";
311 print "All builds complete\nBuilt:\n";
312 print join("\n",@newrpms);