1 files changed, 0 insertions, 79 deletions
diff --git a/move/make_live b/move/make_live
deleted file mode 100755
index 3761ba30f..000000000
--- a/move/make_live
+++ /dev/null
@@ -1,79 +0,0 @@
-#!/usr/bin/perl
-
-use lib "../perl-install";
-use common;
-use pkgs;
-
-my @langs = map { /^../; $& } split /\s/, (cat_('move.pm') =~ /ALLOWED_LANGS = qw\((.*)\)/)[0];
-
-@ARGV <= 1 or die "usage: make_live [live_location=/tmp/live_tree]\n";
-
-sub installPackages {
-    rename "/etc/rpm/macros", "/etc/rpm/macros.";
-    output_p("/etc/rpm/macros", "%_install_langs " . join(":", @langs) . "\n");
-
-    mkdir_p("$::prefix/var/lib/rpm");
-    mkdir_p("$::prefix/root/drakx");
-
-
-    undef *install_any::setDefaultPackages;
-    *install_any::setDefaultPackages = sub {};
-
-    undef *install_any::getFile;
-    *install_any::getFile = sub {
-	my ($f, $o_method) = @_;
-	log::l("getFile $f:$o_method");
-	open(my $F, '/export/' . install_any::relGetFile($f)) or return;
-	$F;
-    };
-    install_any::setPackages(my $o = $::o = { 
-					     prefix => $::prefix, 
-					     meta_class => 'desktop', 
-					     default_packages => [
-                                 qw(XFree86-server XFree86-xfs XFree86-FBDev),
-                                 qw(acpi acpid), #- so that removing acpi=ht will work
-				 qw(mountloop),	#- crypted folders
-				 qw(zcip dhcpcd ppp kdenetwork-kppp rp-pppoe pptp-adsl speedtouch speedtouch_mgmt nfs-utils-clients samba-client tmdns wireless-tools adiusbadsl), #- network conf
-                                                                 ],
-					    });
-
-    my %compssUsersChoice = map { $_ => 1 } map { @{$_->{flags}} } values %{$o->{compssUsers}};
-    $compssUsersChoice{$_} = 1 foreach 'SYSTEM', 'DVD', 'USB', 'SOUND', 'BURNER', 'UTF8', 'DOCS', 'TV', '3D', 'INSTALL';
-    $compssUsersChoice{qq(LOCALES"$_")} = 1 foreach @langs;
-
-    pkgs::setSelectedFromCompssList($o->{packages}, \%compssUsersChoice, 4, 0);
-
-    my @toInstall = pkgs::packagesToInstall($o->{packages});
-    $ENV{DURING_INSTALL} = 1;
-    $ENV{LD_LIBRARY_PATH} = "/lib:/usr/lib:/usr/X11R6/lib:/usr/lib/qt3/lib";
-    pkgs::install($::prefix, 0, \@toInstall, $o->{packages});
-
-    eval { fs::umount("$::prefix/proc") };
-
-    unlink "/etc/rpm/macros";
-    rename "/etc/rpm/macros.", "/etc/rpm/macros";
-}
-
-my $cwd = chomp_(`pwd`);
-$::prefix = $ARGV[0] || '/tmp/live_tree';
-print "Making live in $::prefix directory.\n";
-
-{
-    eval { fs::umount("$::prefix/proc") };
-#    eval { rm_rf($::prefix) };
-    output_p("$::prefix/etc/fstab", "none /proc proc defaults 0 0\n");
-    installPackages();
-    system("chroot $::prefix ldconfig");
-    system("chroot $::prefix update-menus");
-    system("chroot $::prefix fc-cache");  #- generate cache in all directories mentioned in config file
-    system("chroot $::prefix kbuildsycoca --global");
-    rm_rf("$::prefix/dev"); # we don't need it, we use devfs
-}
-
-symlinkf('/var/lib/xkb', "$::prefix/etc/X11/xkb/compiled"); # don't want the relative path, prefering the absolute path
-system("find $::prefix/dev -type b -o -type c | xargs chmod a+rw");
-
-substInFile {
-    #- /lib is ro, for the moment we don't save, we'll see later if we may want to save (using /var/dev-state for example)
-    s|.*lib/dev-state.*||;
-} "$::prefix/etc/devfsd.conf";