summaryrefslogtreecommitdiffstats
path: root/lib/MDV/Draklive/Mounts.pm
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2008-10-29 00:57:05 +0000
committerOlivier Blin <oblin@mandriva.com>2008-10-29 00:57:05 +0000
commit14da6683acda76b094c886508c79dc78fbb5be11 (patch)
tree2dbf7745bdf706e28372300306a5168ac607bee8 /lib/MDV/Draklive/Mounts.pm
parentd482ef7beb82ae4144dc3155a17fa7d689e394ba (diff)
downloaddrakiso-14da6683acda76b094c886508c79dc78fbb5be11.tar
drakiso-14da6683acda76b094c886508c79dc78fbb5be11.tar.gz
drakiso-14da6683acda76b094c886508c79dc78fbb5be11.tar.bz2
drakiso-14da6683acda76b094c886508c79dc78fbb5be11.tar.xz
drakiso-14da6683acda76b094c886508c79dc78fbb5be11.zip
extract predefined and custom mounts/fs in MDV::Draklive::Mounts and MDV::Draklive::CustomMedia modules (breaks config files)
Diffstat (limited to 'lib/MDV/Draklive/Mounts.pm')
-rw-r--r--lib/MDV/Draklive/Mounts.pm87
1 files changed, 87 insertions, 0 deletions
diff --git a/lib/MDV/Draklive/Mounts.pm b/lib/MDV/Draklive/Mounts.pm
new file mode 100644
index 0000000..f7d630f
--- /dev/null
+++ b/lib/MDV/Draklive/Mounts.pm
@@ -0,0 +1,87 @@
+package MDV::Draklive::Mounts;
+
+use MDK::Common;
+
+my $_dir_distrib_sqfs = {
+ mountpoint => '/distrib',
+ type => 'squashfs',
+ path => '/distrib',
+ # perl -MMDK::Common -e 'print map_index { (32767 - $::i) . " $_" } grep { !m,^/(?:dev|proc|sys|live/distrib), } uniq(<>)' < bootlog.list > config/distrib.sort
+ sort => "config/distrib.sort",
+ build_from => '/',
+};
+my $_dir_memory = {
+ mountpoint => '/memory',
+ type => 'tmpfs',
+};
+
+my $_dir_modules = {
+ mountpoint => '/modules',
+ type => 'modules',
+ path => '/modules',
+ list => 'modules.lst',
+};
+
+our $simple_union = {
+ root => '/union',
+ overlay => 'unionfs',
+ dirs => [
+ {
+ mountpoint => '/media',
+ type => 'plain',
+ },
+ $_dir_memory,
+ ],
+ };
+
+our $squash_rw_union = {
+ root => '/union',
+ overlay => 'unionfs',
+ dirs => [
+ $_dir_distrib_sqfs,
+ {
+ mountpoint => '/media/system',
+ type => 'plain',
+ },
+ ],
+ };
+
+sub volatile_squash_union {
+ my ($o_modules) = @_;
+ {
+ root => '/union',
+ overlay => 'unionfs',
+ dirs => [
+ $_dir_distrib_sqfs,
+ if_($o_modules, $_dir_modules),
+ $_dir_memory,
+ ],
+ };
+}
+
+sub squash_union {
+ my ($default_size, $o_min_size, $o_modules) = @_;
+ {
+ root => '/union',
+ overlay => 'unionfs',
+ dirs => [
+ $_dir_distrib_sqfs,
+ if_($o_modules, $_dir_modules),
+ {
+ mountpoint => '/system',
+ type => 'loopfs',
+ pre_allocate => $default_size,
+ if_(defined $o_min_size, min_size => $o_min_size),
+ fs => 'ext2',
+ path => '/system'
+ },
+ {
+ mountpoint => '/system',
+ type => 'tmpfs',
+ fallback => 1,
+ },
+ ],
+ };
+}
+
+1;