blob: baf1d21aa107caf40fb2ee1b2bd5d1fb15938a7d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
package MDV::Draklive::Media;
sub get_initrd_path {
my ($media) = @_;
'/' . $media->{storage} . '/initrd.gz';
}
#- mainly for storage-specific subroutines
sub get_storage_setting {
my ($media, $setting) = @_;
$storage{$media->{storage}}{$setting};
}
#- for actions that support an optional boot storage type
sub get_boot_setting {
my ($media, $setting, $opts) = @_;
$opts->{boot} ? $storage{$opts->{boot}}{$setting} : get_media_setting($media, $setting);
}
#- for user-customisable media setting, that can override storage setting
sub get_media_setting {
my ($media, $setting) = @_;
$media->{$setting} || $media->get_storage_setting($setting);
}
1;
|