1 files changed, 0 insertions, 138 deletions
diff --git a/rescue/make_rescue_img b/rescue/make_rescue_img
deleted file mode 100755
index 32a5f1417..000000000
--- a/rescue/make_rescue_img
+++ /dev/null
@@ -1,138 +0,0 @@
-#!/usr/bin/perl
-
-use MDK::Common;
-use lib "../perl-install";
-use keyboard;
-
-my $lib = (arch() =~ /x86_64/ ? "lib64" : "lib");
-my $tmp = "/tmp/rescue_tmp";
-my $rescue = "rescue.clp";
-
-my $sudo = '';
-if ($>) {
-    $sudo = "sudo";
-    $ENV{PATH} = "/sbin:/usr/sbin:$ENV{PATH}";
-}
-
-BEGIN { undef *_ }
-sub __ { print @_, "\n"; system(@_) }
-sub _ { __ @_; $? and die }
-
-sub install_raw {
-    s|^/|| foreach @_;
-    _ "tar c -C / @_ | tar x -C $tmp" if @_;
-}
-sub install_deref {
-    s|^/|| foreach @_;
-    _ "tar c -C / --dereference @_ | tar x -C $tmp" if @_;
-}
-
-sub install_l {
-    my @l = @_;
-
-    @l = uniq(map { chomp_($_) } @l);
-    push @l, 
-      `ldd @l 2>/dev/null | grep "=>" | perl -pe 's/.*=> //; s/ .*//; s,^/(lib|lib64)/.*?/,/\\1/,'`;
-
-    my ($deref, $raw) = partition { /lib.*\.so/ || readlink("/$_") =~ m|/etc/alternatives| } uniq(map { chomp_($_) } @l);
-    install_raw(@$raw);
-    install_deref(@$deref);
-}
-
-sub installown($$) {
-    my ($own, $dir) = @_;
-    return if -e "$tmp$dir$own";
-    mkdir_p("$tmp$dir");
-    _ "cp -a $own $tmp$dir";
-}
-
-_ "$sudo rm -rf $tmp" if -e $tmp;
-_ "mkdir $tmp";
-_ 'find . -name "*~" | xargs rm -f';
-foreach (cat_("dirs")) {
-    chomp;
-    mkdir_p("$tmp$_");
-}
-_ "cp -a tree/* $tmp";
-_ "find $tmp -name 'CVS*' | xargs rm -rf";
-_ "perl devices.pl $tmp/dev";
-substInFile { s/DISTRIB_DESCR/$ENV{DISTRIB_DESCR}/ } "$tmp/etc/issue";
-
-install_raw(keyboard::loadkeys_files());
-my %keytable_conflicts;
-my @less_important_keytables = qw(am_old am_phonetic no-dvorak fr_CH-latin1);
-foreach (keyboard::loadkeys_files()) {
-    my ($dir, $fname) = (dirname($_), basename($_));
-    my ($name) = $fname =~ /(.*)\.kmap\.gz/ or next;
-    next if member($name, @less_important_keytables);
-    if (my ($short) = $name =~ m|(.+?)[\W_]|) {
-	$keytable_conflicts{$short} and warn("conflict between $keytable_conflicts{$short} and $name for short name $short (choosing the first)\n"), next;
-	$keytable_conflicts{$short} = $name;
-	# create the short name based on the long one
-	symlinkf($fname, "$tmp$dir/$short.kmap.gz");
-    }
-}
-
-my $perl_version = join ".", unpack "C3", $^V;
-my @bad;
-my @files = map { 
-    chomp;
-    s/PERL_VERSION/$perl_version/g;
-    s|/LIB/|/$lib/|g;
-    my @l = glob($_) or push @bad, $_;
-    m|\*.*/| && @l != 1 and die "multiple match for $_\n";
-    @l;
-} (cat_("list"), cat_(`../tools/specific_arch list`));
-@bad and die "files missing\n" . join("\n", @bad) . "\n";
-install_l(@files);
-
-foreach (cat_("aliases")) {
-    chomp; my ($f, $dest) = split;
-    symlink $dest, "$tmp$f";
-}
-
--e "../kernel/all.kernels" or die "use ./update_kernel in gi/kernel first\n";
-
-my $main = chomp_(`cat ../kernel/all.kernels/.main`);
-
-_ "cp ../kernel/all.kernels/$main/modules.{cz,dep} $tmp/modules";
-
-installown("drvinst", "/usr/bin");
-installown("guessmounts", "/usr/bin");
-installown("install_bootloader", "/usr/bin");
-if (arch() =~ /^i.86|x86_64/) {
-    installown("restore_ms_boot", "/usr/bin");
-}
-installown("lsparts", "/usr/bin");
-installown("rescue-doc", "/usr/bin");
-_ "cd ../mdk-stage1 && make rescue-gui dhcp-client";
-installown("../mdk-stage1/rescue-gui", "/usr/bin");
-installown("../mdk-stage1/dhcp-client", "/usr/sbin");
-
-#- note that on biarch systems, we may need to have both /lib and /lib64
-__ "strip $tmp/{lib,$lib,bin,sbin}/* $tmp/usr/{bin,sbin}/* 2>/dev/null";
-
-if ($ENV{PARTIMAGE_DIR}) {
-    _ "rpm2cpio $ENV{PARTIMAGE_RPM} | (cd $tmp ; cpio -idu ./usr/sbin/partimage)";
-    my $server = 'partimaged';
-    substInFile {
-	$_ = <<EOF if /^\s*rescue-gui/;
-  if grep -q save_all /proc/cmdline; then
-      drvinst ; dhcp-client ; partimage -s $server -b save_all $ENV{PARTIMAGE_DIR}; reboot
-  fi
-  if grep -q rest_all /proc/cmdline; then
-      local=/tmp/image$ENV{PARTIMAGE_DIR}
-      if [ -d \$local ]; then
-          partimage -b rest_all \$local; reboot
-      else
-          drvinst ; dhcp-client ; partimage -s $server -b rest_all $ENV{PARTIMAGE_DIR}; reboot
-      fi
-  fi
-EOF
-    } "$tmp/etc/rc.sysinit";
-}
-
-exit 0 if $ARGV[0];
-
-_ "mkisofs -quiet -D -R $tmp | create_compressed_fs - 65536 $rescue 200 2>/dev/null";
-_ "$sudo rm -rf $tmp";