allow to specify upload media for DKMS packages

2 files changed, 5 insertions, 0 deletions

diff --git a/iurt2 b/iurt2
index 2c41fe3..7a6ba08 100755
--- a/iurt2
+++ b/iurt2
@@ -96,6 +96,9 @@ $run{todo} = [];
         ["m", "media", 1, "<media regexp>",  
         "Media Regexp to limit rebuild to",  
         sub { my ($tmp, $media) = @_; $tmp->[0]{media} = $media; 1 }, "Limiting rebuild to the given media regexp"], 
+        ["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"], 
 ], "[options]",  
     "Set the DKMS rebuild mode",
     sub { my ($opt) = @_; $run{dkms} = $opt; 1 }, "Running a DKMS rebuild run" ],
diff --git a/lib/Iurt/DKMS.pm b/lib/Iurt/DKMS.pm
index 9e2ffdb..9ed4333 100644
--- a/lib/Iurt/DKMS.pm
+++ b/lib/Iurt/DKMS.pm
@@ -188,6 +188,8 @@ sub dkms_compile {
 	my ($name, $version, $_modulesourcedir, $realversion, $file, $kernel, $modulesdir, $source, $sourcedir, $media) = @{$run->{dkms_todo}[$i]};
 	$done++;
 
+	$media = $run->{dkms}{umedia} if $run->{dkms}{umedia};
+
 	plog("dkms modules $name version $version for kernel $kernel [$done/$to_compile]");
 
 	# install kernel and dkms if not already installed