#!/usr/bin/perl -w

use strict;
use POSIX "uname";
use Data::Dumper;
use ProjectBuilder::Base;
use MondoRescue::Kernel;

my $ver = undef;

if ((defined $ARGV[0]) && ($ARGV[0] eq "-v")) {
	#$pbverbose = 1;
	shift;
}
if ((defined $ARGV[0]) && ($ARGV[0] eq "-k")) {
	shift;
	$ver = $ARGV[0];
	shift;
}
my ($modulepath,@allmodpaths) = mr_kernel_get_modules($ver,@ARGV);
print "modules path: $modulepath\n";
print "all modpaths: ".join(' ',@allmodpaths)."\n";