allow to specify kernel for which DKMS packages should be rebuilt

2 files changed, 6 insertions, 1 deletions

diff --git a/iurt2 b/iurt2
index 870f28f..f7e58a4 100755
--- a/iurt2
+++ b/iurt2
@@ -99,6 +99,9 @@ $run{todo} = [];
         ["u", "umedia", 1, "<upload media>",
         "Media where rebuilt DKMS packages will be uploaded",
         sub { my ($tmp, $media) = @_; $tmp->[0]{umedia} = $media; 1 }, "Uploading rebuilt DKMS packages to the given media"], 
+        ["v", "kversion", 1, "<kernel version>",
+        "kernel for which DKMS packages should be rebuilt",
+        sub { my ($tmp, $kversion) = @_; $tmp->[0]{kversion} = $kversion; 1 }, "Rebuilding only for given kernel version"],
         ["p", "package", 1, "<package>",
         "DKMS package which should be rebuilt",
         sub { my ($tmp, $package) = @_; $tmp->[0]{package} = $package; 1 }, "Rebuilding only given DKMS packages"],
diff --git a/lib/Iurt/DKMS.pm b/lib/Iurt/DKMS.pm
index 81a4619..e5a8b95 100644
--- a/lib/Iurt/DKMS.pm
+++ b/lib/Iurt/DKMS.pm
@@ -83,9 +83,11 @@ sub search_dkms {
 	    } elsif ($rpm =~ /^kernel-((?:[^-]+-)?[^-]+.*)-[^-]+-[^-]+\.[^.]+\.rpm/ && $rpm !~ /win4lin|latest|debug|stripped|BOOT|xen|doc/) {
 		# we do not check for kernel in this media
 		$kmedia_ok or next;
+		my $version = $1;
+		my $package_ok = $run->{dkms}{kversion} ? $version =~ /$run->{dkms}{kversion}/ : 1;
+		$package_ok or next;
 		my $hdr = RPM4::Header->new("$path/$rpm");
 		my $files = $hdr->queryformat('[%{FILENAMES} ])');
-		my $version = $1;
 		if ($version =~ /(.*)source-(.*)/ || $version =~ /(.*)devel-(.*)/) {
 		    my $source = "$1$2";
 		    my ($sourcedir) = $files =~ m, /usr/src/([^/ ]+),;