Kill unionfs support

1 files changed, 7 insertions, 142 deletions

diff --git a/lib/Iurt/Chroot.pm b/lib/Iurt/Chroot.pm
index eb1bea5..77a1463 100644
--- a/lib/Iurt/Chroot.pm
+++ b/lib/Iurt/Chroot.pm
@@ -12,9 +12,7 @@ use File::Path 'mkpath';
 
 our @EXPORT = qw(
     clean_chroot_tmp
-    clean_unionfs
     clean_all_chroot_tmp
-    clean_all_unionfs
     clean_chroot
     update_chroot
     dump_rpmmacros
@@ -207,83 +205,17 @@ sub add_local_user {
 }
 
 sub create_temp_chroot {
-    my ($run, $config, $cache, $union_id, $chroot_tmp, $chroot_tar, $o_srpm) = @_;
+    my ($run, $config, $cache, $chroot_tmp, $chroot_tar, $o_srpm) = @_;
 
     my $home = $config->{local_home};
     my $debug_tag = $run->{debug_tag};
-    my $unionfs_dir = $run->{unionfs_dir};
-
-    if ($run->{unionfs_tmp}) {
-	my $mount_point = "$unionfs_dir/unionfs.$run->{run}.$union_id";
-	plog(2, "cleaning temp chroot $mount_point");
-	if (!clean_mnt($run, $mount_point, $run->{verbose})) {
-	    dump_cache_par($run);
-	    die "FATAL: can't kill remaining processes acceding $mount_point";
-	}
-	my $tmpfs;
-
-	# we cannont just rm -rf $tmpfs, this create defunct processes
-	# afterwards (and lock particularly hard the urpmi database)
-	#
-	$union_id = clean_unionfs($unionfs_dir, $run, $run->{run}, $union_id);
-	$tmpfs = "$unionfs_dir/tmpfs.$run->{run}.$union_id";
-	$chroot_tmp = "$unionfs_dir/unionfs.$run->{run}.$union_id";
-
-	if (!-d $tmpfs) {
-	    if (!mkpath($tmpfs)) {
-		plog("ERROR: Could not create $tmpfs ($!)");
-		return;
-	    }
-	}
-	if (! -d $chroot_tmp) {
-	    if (!mkpath($chroot_tmp)) {
-		plog("ERROR: Could not create $chroot_tmp ($!)");
-		return;
-	    }
-	}
-	if ($cache->{no_unionfs}{$o_srpm}) {
-	    $run->{unionfs_tmp} = 0;
-	    clean_chroot($chroot_tmp, $chroot_tar, $run, $config);
-	} else {
-	    # if the previous package has been built without unionfs, chroot need to be cleaned
-	    if (!$run->{unionfs_tmp}) {
-		clean_chroot($chroot_tmp, $chroot_tar, $run, $config);
-	    } else {
-		# only detar the chroot if not already
-		clean_chroot($chroot_tmp, $chroot_tar, $run, $config, 0, 1);
-	    }
-	    $run->{unionfs_tmp} = 1;
-	    if (system(qq($sudo mount -t tmpfs none $tmpfs &>/dev/null))) {
-		plog("ERROR: can't mount $tmpfs ($!)"); 
-		return;
-	    }
-	    if (system(qq($sudo mount -o dirs=$tmpfs=rw:$home/chroot_$run->{distro_tag}$debug_tag=ro -t unionfs none $chroot_tmp &>/dev/null))) {
-		plog("ERROR: can't mount $tmpfs and $home/chroot_$run->{distro_tag}$debug_tag with unionfs ($!)");
-		return;
-	    }
-	    if (system("$sudo mount -t proc none $chroot_tmp/proc &>/dev/null")) {
-		plog("ERROR: can't mount /proc in chroot $chroot_tmp ($!)");
-		return;
-	    }
-	    if (!-d "$chroot_tmp/dev/pts") {
-		if (sudo($run, $config, "--mkdir", "$chroot_tmp/dev/pts")) {
-		    plog("ERROR: can't create /dev/pts in chroot $chroot_tmp ($!)");
-		    return;
-		}
 
-		if (system($sudo, "mount", "-t", "devpts", "none", "$chroot_tmp/dev/pts &>/dev/null")) {
-		    plog("ERROR: can't mount /dev/pts in the chroot $chroot_tmp ($!)");
-		    return;
-		}
-	    }
-	}
-    } else {
-	plog("Install new chroot");
-	plog('DEBUG', "... in $chroot_tmp");
-	clean_chroot($chroot_tmp, $chroot_tar, $run, $config) or return;
-	update_chroot($chroot_tmp, $run, $config);
-    }
-    $union_id, $chroot_tmp;
+    plog("Install new chroot");
+    plog('DEBUG', "... in $chroot_tmp");
+    clean_chroot($chroot_tmp, $chroot_tar, $run, $config) or return;
+    update_chroot($chroot_tmp, $run, $config);
+
+    $chroot_tmp;
 }
 
 sub remove_chroot {
@@ -329,53 +261,6 @@ sub clean_all_chroot_tmp {
     closedir $dir;
 }
 
-sub clean_unionfs {
-    my ($unionfs_dir, $_run, $r, $union_id) = @_;
-
-    -d "$unionfs_dir/unionfs.$r.$union_id" or return $union_id;
-    plog(2, "cleaning unionfs $unionfs_dir/unionfs.$r.$union_id");
-    my $nok = 1;
-    my $path = "$unionfs_dir/unionfs.$r.$union_id";
-
-    while ($nok) {
-	$nok = 0;
-	foreach my $fs ([ 'proc', 'proc' ], [ 'dev/pts', 'devpts' ]) {
-	    my ($dir, $type) = @$fs;
-	    if (-d "$path/$dir" && check_mounted("$path/$dir", $type)) {
-		plog(1, "clean_unionfs: umounting $path/$dir\n");
-		if (system("$sudo umount $path/$dir &>/dev/null")) { 
-		    plog("ERROR: could not umount $path/$dir");
-		}
-	    }
-	}
-	foreach my $t ('unionfs', 'tmpfs') {
-	    # unfortunately quite oftem the unionfs is busy and could not
-	    # be unmounted
-
-	    my $d = "$unionfs_dir/$t.$r.$union_id";
-	    if (-d $d && check_mounted($d, $t)) {
-		$nok = 1;
-		system("$sudo /sbin/fuser -k $d &> /dev/null");
-		plog(3, "umounting $d");
-		if (system(qq($sudo umount $d &> /dev/null))) {
-		    plog(2, "WARNING: could not umount $d ($!)");
-		    return $union_id + 1;
-		}
-	    }
-	}
-    }
-
-    foreach my $t ('unionfs', 'tmpfs') {
-	my $d = "$unionfs_dir/$t.$r.$union_id";
-	plog(2, "removing $d");
-	if (system($sudo, 'rm', '-rf', $d)) {
-	    plog("ERROR: removing $d failed ($!)");
-	    return $union_id + 1;
-	}
-    }
-    $union_id;
-}
-
 sub clean_chroot_tmp {
     my ($run, $chroot_dir, $dir) = @_;
     my $d = "$chroot_dir/$dir";
@@ -590,24 +475,4 @@ sub check_chroot {
     create_chroot($chroot, $chroot_tar, $run, $config, $opt);
 }
 
-sub clean_all_unionfs {
-    my ($run, $unionfs_dir) = @_;
-
-    plog(2, "Cleaning old unionfs remaining dir in $unionfs_dir");
-
-    my $dir;
-    if (!opendir $dir, $unionfs_dir) {
-	plog(0, "FATAL could not open $unionfs_dir ($!)");
-	return;
-    }
-
-    foreach (readdir $dir) {
-	/unionfs\.((?:0\.)?\d+)\.(\d*)$/ or next;
-	clean_unionfs($unionfs_dir, $run, $1, $2);
-    }
-
-    closedir $dir;
-}
-
-
 1;