From 5b3f3221cab4677807e03128c3000eaa12f3a9ad Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Thu, 22 Nov 2007 16:50:51 +0000 Subject: allow to specify upload media for DKMS packages --- iurt2 | 3 +++ lib/Iurt/DKMS.pm | 2 ++ 2 files changed, 5 insertions(+) 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 to limit rebuild to", sub { my ($tmp, $media) = @_; $tmp->[0]{media} = $media; 1 }, "Limiting rebuild to the given media regexp"], + ["u", "umedia", 1, "", + "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 -- cgit v1.2.1