summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-06-07 22:22:08 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-06-07 22:22:08 +0000
commited721d84609cb863c236c9e7bd087aa6a362df3b (patch)
tree9b8be32ee086e82e574ecf502f16dc6c3483504b
parent03396877116a0728d02b4f48861121e73e38a368 (diff)
downloaddrakx-backup-do-not-use-ed721d84609cb863c236c9e7bd087aa6a362df3b.tar
drakx-backup-do-not-use-ed721d84609cb863c236c9e7bd087aa6a362df3b.tar.gz
drakx-backup-do-not-use-ed721d84609cb863c236c9e7bd087aa6a362df3b.tar.bz2
drakx-backup-do-not-use-ed721d84609cb863c236c9e7bd087aa6a362df3b.tar.xz
drakx-backup-do-not-use-ed721d84609cb863c236c9e7bd087aa6a362df3b.zip
no_comment
-rw-r--r--Makefile8
-rwxr-xr-xmake_boot_img5
-rw-r--r--perl-install/Makefile2
-rw-r--r--perl-install/install2.pm2
-rw-r--r--perl-install/install_steps.pm2
-rw-r--r--perl-install/install_steps_auto_install.pm1
-rw-r--r--perl-install/lang.pm15
-rw-r--r--perl-install/run_program.pm4
-rw-r--r--perl-install/share/aliases1
-rw-r--r--perl-install/share/list34
10 files changed, 53 insertions, 21 deletions
diff --git a/Makefile b/Makefile
index 7f7c420ee..57e7c819d 100644
--- a/Makefile
+++ b/Makefile
@@ -1,7 +1,7 @@
ARCH := $(patsubst i%86,i386,$(shell uname -m))
ARCH := $(patsubst sparc%,sparc,$(ARCH))
-RELEASE_BOOT_IMG = hd.img cdrom.img network.img
+RELEASE_BOOT_IMG = hd.img cdrom.img network.img blank.img
ifeq (i386,$(ARCH))
BOOT_IMG = pcmcia_ks.img network_ks.img
RELEASE_BOOT_IMG += pcmcia.img
@@ -100,10 +100,10 @@ upload: tar install
touch /tmp/mdkinst_done
cd $(ROOTDEST)/Mandrake ; tar cfz mdkinst.tgz mdkinst
- lftp -c "open mandrakesoft.com; cd $(UPLOAD_DEST)/images ; mput $(ROOTDEST)/images/*.img"
lftp -c "open mandrakesoft.com; cd ~/tmp ; put $(ROOTDEST)/Mandrake/mdkinst.tgz ; put /tmp/mdkinst_done ; cd $(UPLOAD_DEST)/Mandrake/base ; lcd $(ROOTDEST)/Mandrake/base ; put mdkinst_stage2.gz rescue_stage2.gz compss compssList compssUsers hdlists ; cd $(UPLOAD_DEST)/misc ; lcd ~/gi/tools/ ; put make_mdkinst_stage2" #,gendepslist,rpm2header"
- lftp -c "open mandrakesoft.com; cd $(UPLOAD_DEST)/dosutils/autoboot/mdkinst ; put $(ROOTDEST)/dosutils/autoboot/mdkinst/vmlinuz ; mput $(ROOTDEST)/dosutils/autoboot/mdkinst/initrd.*"
- lftp -c "open mandrakesoft.com; cd $(UPLOAD_DEST)/lnx4win ; lcd $(ROOTDEST)/lnx4win ; put initrd.gz vmlinuz"
+# lftp -c "open mandrakesoft.com; cd $(UPLOAD_DEST)/images ; mput $(ROOTDEST)/images/*.img"
+# lftp -c "open mandrakesoft.com; cd $(UPLOAD_DEST)/dosutils/autoboot/mdkinst ; put $(ROOTDEST)/dosutils/autoboot/mdkinst/vmlinuz ; mput $(ROOTDEST)/dosutils/autoboot/mdkinst/initrd.*"
+# lftp -c "open mandrakesoft.com; cd $(UPLOAD_DEST)/lnx4win ; lcd $(ROOTDEST)/lnx4win ; put initrd.gz vmlinuz"
lftp -c "open mandrakesoft.com; cd $(UPLOAD_DEST_CONTRIB)/others/src ; put ../gi.tar.bz2"
rm -f $(ROOTDEST)/Mandrake/mdkinst.tgz
rm -f /tmp/mdkinst_done
diff --git a/make_boot_img b/make_boot_img
index 601c70992..2eb091fa7 100755
--- a/make_boot_img
+++ b/make_boot_img
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-@ARGV >= 2 or die "usage: $0 <image> cdrom|hd|network|network_ks|pcmcia|live|tftp|tftprd\n";
+@ARGV >= 2 or die "usage: $0 <image> cdrom|hd|network|blank|network_ks|pcmcia|live|tftp|tftprd\n";
use Config;
Config->import;
@@ -26,6 +26,7 @@ _ "$sudo mkdir $mnt" unless -e $mnt;
_ "$sudo mkdir ${mnt}2" unless -e "${mnt}2";
$install = $ {{
+ blank => "full-install",
live => "full-install",
tftp => "full-install",
tftprd => "full-install",
@@ -63,7 +64,7 @@ sub initrd {
install_s("$instdir/$install", "$mnt/sbin/install");
_ "$sudo cp -f install_${type}_modules/* $mnt/modules/" if -d "install_${type}_modules";
- _ "$sudo cp -f modules$I/${ltype}_modules.cgz $mnt/modules/modules$I.cgz";
+ _ "$sudo cp -f modules$I/${ltype}_modules.cgz $mnt/modules/modules$I.cgz" if $ltype ne "blank";
_ "$sudo cp -f modules$I/modules.dep $mnt/modules/";
_ "$sudo umount $mnt";
diff --git a/perl-install/Makefile b/perl-install/Makefile
index 5584ee23f..77a3762be 100644
--- a/perl-install/Makefile
+++ b/perl-install/Makefile
@@ -110,7 +110,7 @@ endif
cd $(DEST)/usr/bin ; mv insmod insmod_
rmdir $(DEST)/bin $(DEST)/sbin
- perl -ane 'symlink "$$F[1]", "$(DEST)/usr/bin/$$F[0]"' aliases
+ perl -ane 'symlink "$$F[1]", "$(DEST)/usr/bin/$$F[0]"' share/aliases
for i in fonts keyboards locales gconv; do tar xfy `../tools/specific_arch share/$$i.tar.bz2` -C $(DEST); done
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 071da6a3a..cb6df9274 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -743,7 +743,7 @@ sub main {
-e "$o->{prefix}/usr/bin/urpmi" or eval { commands::rm("-rf", "$o->{prefix}/var/lib/urpmi") };
#- have the really bleeding edge ddebug.log for this f*cking msec :-/
- eval { commands::cp('-f', "/tmp/ddebug.log", "/tmp/exec.log", "$o->{prefix}/root") };
+ eval { commands::cp('-f', "/tmp/ddebug.log", "$o->{prefix}/root") };
#- ala pixel? :-) [fpons]
sync(); sync();
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 21b8b6dd4..83891d4dc 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -51,7 +51,7 @@ sub leavingStep {
log::l("step `$step' finished");
if (-d "$o->{prefix}/root") {
- eval { commands::cp('-f', "/tmp/ddebug.log", "/tmp/exec.log", "$o->{prefix}/root") };
+ eval { commands::cp('-f', "/tmp/ddebug.log", "$o->{prefix}/root") };
install_any::g_auto_install();
}
diff --git a/perl-install/install_steps_auto_install.pm b/perl-install/install_steps_auto_install.pm
index 6792708ca..333215dab 100644
--- a/perl-install/install_steps_auto_install.pm
+++ b/perl-install/install_steps_auto_install.pm
@@ -22,6 +22,7 @@ sub enteringStep($$$) {
sub ask_warn {
log::l(ref $_[1] ? join " ", @{$_[1]} : $_[1]);
}
+sub wait_message {}
sub errorInStep {
print "error :(\n";
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 0638f2840..0350cd680 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -337,17 +337,12 @@ sub load_po($) {
sub load_console_font {
my ($lang) = @_;
my ($charset) = $languages{$lang}[1] ;
- my $f = "-f lat0-sun16";
-
- if (my $c = $charsets{$charset}) {
- if ($c->[0]) { $f = "-f " . $c->[0] ; }
- if ($c->[1]) { $f = $f . " -u " . $c->[1] ; }
- if ($c->[2]) { $f = $f . " -m " . $c->[2] ; }
- }
-
- log::l("loading console font: consolechars $f");
- system("consolechars $f");
+ my ($f, $u, $m) = @{$charsets{$charset} || []};
+ run_program::run('consolechars',
+ ('-f', $f || 'lat0-sun16'),
+ $u ? ('-u', $u) : (),
+ $m ? ('-m', $m) : ());
}
#-sub load_font {
diff --git a/perl-install/run_program.pm b/perl-install/run_program.pm
index 73d8a9995..c6fa53234 100644
--- a/perl-install/run_program.pm
+++ b/perl-install/run_program.pm
@@ -33,12 +33,12 @@ sub rooted {
$stderrm =~ s/2//;
open STDERR, "$stderrm $root$stderr" or die "run_program can't output in $root$stderr (mode `$stderrm')";
} else {
- open STDERR, ">> /tmp/exec.log" or open STDOUT, ">> /dev/tty7" or die "run_program can't log, give me access to /tmp/exec.log";
+ open STDERR, ">> /tmp/ddebug.log" or open STDOUT, ">> /dev/tty7" or die "run_program can't log, give me access to /tmp/ddebug.log";
}
if ($stdout) {
open STDOUT, "$stdoutm $root$stdout" or die "run_program can't output in $root$stdout (mode `$stdoutm')";
} else {
- open STDOUT, ">> /tmp/exec.log" or open STDOUT, ">> /dev/tty7" or die "run_program can't log, give me access to /tmp/exec.log";
+ open STDOUT, ">> /tmp/ddebug.log" or open STDOUT, ">> /dev/tty7" or die "run_program can't log, give me access to /tmp/ddebug.log";
}
$root and chroot $root;
diff --git a/perl-install/share/aliases b/perl-install/share/aliases
index 674c956eb..a5fa7def8 100644
--- a/perl-install/share/aliases
+++ b/perl-install/share/aliases
@@ -1,5 +1,6 @@
raidstop raidstart
sh ash
+gunzip gzip
install2 perl-install/install2
commands perl-install/commands
runinstall2 install2
diff --git a/perl-install/share/list b/perl-install/share/list
index aba226dc8..c1112ce32 100644
--- a/perl-install/share/list
+++ b/perl-install/share/list
@@ -50,6 +50,40 @@
/usr/lib/gconv/ISO8859-6.so
/usr/lib/gtk/themes/engines/libpixmap.so
/usr/lib/gtk/themes/engines/libpixmap.la
+/usr/lib/kbd/consolefonts/arm8.psf.gz
+/usr/lib/kbd/consolefonts/t_geors.psf.gz
+/usr/lib/kbd/consolefonts/lat0-sun16.psf.gz
+/usr/lib/kbd/consolefonts/lat2-sun16.psf.gz
+/usr/lib/kbd/consolefonts/iso03.f16.psf.gz
+/usr/lib/kbd/consolefonts/lat4u-16.psf.gz
+/usr/lib/kbd/consolefonts/iso05.f16.psf.gz
+/usr/lib/kbd/consolefonts/iso06.f16.psf.gz
+/usr/lib/kbd/consolefonts/iso07.f16.psf.gz
+/usr/lib/kbd/consolefonts/iso08.f16.psf.gz
+/usr/lib/kbd/consolefonts/iso09.f16.psf.gz
+/usr/lib/kbd/consolefonts/tlat7.psf.gz
+/usr/lib/kbd/consolefonts/tlat8.psf.gz
+/usr/lib/kbd/consolefonts/koi8-8x16.psf.gz
+/usr/lib/kbd/consolefonts/koi8u_8x16.psf.gz
+/usr/lib/kbd/consolefonts/tcvn8x16.psf.gz
+/usr/lib/kbd/consolefonts/viscii10-8x16.psf.gz
+/usr/lib/kbd/consoletrans/armscii8.uni
+/usr/lib/kbd/consoletrans/trivial.trans
+/usr/lib/kbd/consoletrans/geors.uni
+/usr/lib/kbd/consoletrans/geors_to_geops.trans
+/usr/lib/kbd/consoletrans/iso15.acm.gz
+/usr/lib/kbd/consoletrans/iso02.acm.gz
+/usr/lib/kbd/consoletrans/iso03.acm.gz
+/usr/lib/kbd/consoletrans/iso04.acm.gz
+/usr/lib/kbd/consoletrans/iso05.sfm.gz
+/usr/lib/kbd/consoletrans/iso05_to_cp1251.trans
+/usr/lib/kbd/consoletrans/iso06.sfm.gz
+/usr/lib/kbd/consoletrans/iso07.sfm.gz
+/usr/lib/kbd/consoletrans/iso08.sfm.gz
+/usr/lib/kbd/consoletrans/iso09.sfm.gz
+/usr/lib/kbd/consoletrans/tcvn.sfm.gz
+/usr/lib/kbd/consoletrans/viscii.uni
+/usr/lib/kbd/consoletrans/viscii1.0_to_viscii1.1.trans
/usr/lib/libimlib-png.so
/usr/lib/perl5/5.6.0/AutoLoader.pm
/usr/lib/perl5/5.6.0/Carp.pm