1 files changed, 12 insertions, 0 deletions
diff --git a/move/move.pm b/move/move.pm
index 3d4f5e905..8df980c3e 100644
--- a/move/move.pm
+++ b/move/move.pm
@@ -58,6 +58,16 @@ drakx_stuff:
     member($_, @ALLOWED_LANGS) or delete $lang::langs{$_} foreach keys %lang::langs;
 }
 
+sub lomount_clp {
+    my ($name) = @_;
+    my ($clp, $dir) = ("/image_raw/live_tree_$name.clp", "/image_$name");
+
+    mkdir_p($dir);
+    my $dev = devices::find_free_loop();
+    run_program::run('losetup', '-r', '-e', 'gz', $dev, $clp);
+    run_program::run('mount', '-r', $dev, $dir);
+}
+
 sub install2::startMove {
     my $o = $::o;
     
@@ -103,6 +113,8 @@ Continue at your own risk."), formatError($@) ]) if $@;
     output("/var/run/console/$username", 1);
     run_program::run('pam_console_apply');
 
+    lomount_clp('totem') if ! -x '/usr/bin/totem';
+
     if (fork()) {
 	sleep 1;
         log::l("DrakX waves bye-bye");