#!/usr/bin/perl -w

use strict;
use POSIX "uname";
use Data::Dumper;
use ProjectBuilder::Base;
use MondoRescue::Kernel;
use Getopt::Long qw(:config auto_abbrev no_ignore_case);

my %opts;							# CLI Options

GetOptions(
		"kernel|k:s" => \$opts{'k'},
		"verbose|v+" => \$opts{'v'},
);

$pbdebug = $opts{'v'};
$pbdebug = 0 if (not defined $pbdebug);
print join(' ',mr_kernel_get_modules($opts{'k'},@ARGV))."\n";