From 8ea9beca90c410e12593fedfb6e741dbdf8795d0 Mon Sep 17 00:00:00 2001
From: Mystery Man <unknown@mandriva.org>
Date: Tue, 15 Jun 2004 16:50:22 +0000
Subject: This commit was manufactured by cvs2svn to create branch
 'mandrakesoft'.

---
 move/tree/mdk_totem | 119 ----------------------------------------------------
 1 file changed, 119 deletions(-)
 delete mode 100755 move/tree/mdk_totem

(limited to 'move/tree/mdk_totem')

diff --git a/move/tree/mdk_totem b/move/tree/mdk_totem
deleted file mode 100755
index 2c8888562..000000000
--- a/move/tree/mdk_totem
+++ /dev/null
@@ -1,119 +0,0 @@
-#!/usr/bin/perl
-
-use lib qw(../../perl-install /usr/lib/libDrakX);
-use common;
-use interactive;
-
-sub busy_pids_and_files() {
-    my @pids = grep { $_ ne $$ && /^(\d+)$/ } all('/proc');
-
-    map {
-
-	my @l1 = grep {
-	    $_ && !m!^(/proc/|/dev/|pipe:|socket:)!;
-	} map { readlink($_) } "/proc/$_/exe", glob_("/proc/$_/fd/*");
-
-	my @l2 = grep { $_ } map { (split)[5] } cat_("/proc/$_/maps");
-
-	if (my @l = grep { m!^/(image(_boot)?|cdrom/live_tree)/! } @l1, @l2) {
-	    my $cmdline = join(' ', split('\0', cat_("/proc/$_/cmdline")));
-	    my $exe = readlink("/proc/$_/exe");
-	    { pid => $_, cmdline => $cmdline, exe => $exe, files => [ sort(uniq(@l)) ] };
-	} else {
-	    ();
-	}
-    } @pids;
-}
-
-sub remove_simple_daemons {
-    my (@busy) = @_;
-    foreach (@busy) {
-	$_->{to_kill} = $_->{cmdline} =~ m!\b(kdesud|kded|kdesktop|kicker|kio_uiserver|klaptopdaemon|artsd|portmap)\b!;
-    }
-    my @auto_killed = grep { $_->{to_restart} || $_->{to_kill} } @busy;
-
-    if (@auto_killed) {
-	kill 15, map { $_->{pid} } @auto_killed;
-	sleep 1;
-
-	$_ and system($_) foreach map { $_->{to_restart} } @auto_killed;
-
-	@busy = busy_pids_and_files(); #- update list
-    }
-    @busy;
-}
-
-my $in = interactive->vnew;
-
-my @busy = busy_pids_and_files();
-
-my $needed_processes = join('|', map { quotemeta }
-			'init',
-			'xfs',
-			'kdeinit: Running...', 
-			'/etc/X11/X',
-			'/sbin/devfsd',
-			);
-
-if (!$ENV{DEBUG} && find { $_->{cmdline} =~ /^($needed_processes)/ } @busy) {
-    exec 'totem' if $in->ask_okcancel('', N("You can only run with no CDROM support"));
-    $in->exit(1);
-}
-
-@busy = remove_simple_daemons(@busy);
-if (@busy) {
-    warn '*' x 80, "\n";
-    warn join("\n", "$_->{exe} ($_->{cmdline}) =>", map { "  $_" } @{$_->{files}}) . "\n" foreach @busy;
-    warn '*' x 80, "\n";
-
-    my @progs = map { 
-	my $s = $_->{cmdline};
-	$s =~ s!^/usr/bin/perl\s+([^-]\S*).*!$1!;
-	$s =~ s!/.*/!!;
-	$s =~ s!^kdeinit:\s+(\S+).*!$1!;
-	$s =~ s!\s.*!!;
-	$s;
-    } @busy;
-
-    my $choice = 'quit';
-    my @l = my %l = (
-		     kill => N("Kill those programs"), 
-		     keep => N("No CDROM support"), 
-		    );
-
-    $in->ask_from_({ 
-		     title => N("Error"),
-		     messages => N("You can't use another CDROM when the following programs are running: 
-%s", join(", ", uniq(sort @progs))) }, 
-		  [ { type => 'list', val => \$choice, list => first(list2kv(@l)), format => sub { $l{$_[0]} } } ]) or $in->exit;
-
-    if ($choice eq 'keep') {
-	exec 'totem' or $in->exit;
-    } else {
-	system('sudo', 'kill', map { $_->{pid} } @busy);
-	sleep 2;
-	system('sudo', 'kill', '-9', map { $_->{pid} } @busy);
-    }
-}
-
-my %file2loop = do {
-    my $_w = $in->wait_message('', N("Copying to memory to allow removing the CDROM"));
-    `GIVE_LOOP=1 mdk_move_loop to_memory always always_i18n totem nvidia` =~ /(.*?)=(.*)/g;
-};
-
-ugtk2::gtkset_mousecursor_normal(); #- for restoring a normal in any case
-ugtk2::flush();
-
-my $totem_pid = $$;
-
-if (my $pid = fork()) {
-    $ENV{MDKMOVE} = $pid;
-    $ENV{G_BROKEN_FILENAMES} = 1;
-    exec 'totem';
-} else {
-    exec 'sudo', 'mdk_behind_totem', 
-	'--boot-loop', $file2loop{'live_tree_boot.clp'},
-	'--main-loop', $file2loop{'live_tree.clp'},
-	'--totem-pid', $totem_pid,
-	'--user', $ENV{USER};
-}
-- 
cgit v1.2.1