drakx - Mageia Installer and base platform for many utilities

Mageia Installer and base platform for many utilities

Thierry Vignaud [tv]

Mode	Name	Size
-rw-r--r--	.cvsignore	47	log stats plain
-rw-r--r--	Makefile	3632	log stats plain
d---------	docs	829	log stats plain
d---------	kernel	236	log stats plain
-rw-r--r--	live_update	2414	log stats plain
-rwxr-xr-x	make_boot_img	14489	log stats plain
d---------	mdk-stage1	2436	log stats plain
d---------	perl-install	3801	log stats plain
d---------	rescue	753	log stats plain
d---------	tools	1163	log stats plain

tderrm); ($stdoutm, $stdout, @args) = @args if $args[0] =~ /^>>?$/; ($stderrm, $stderr, @args) = @args if $args[0] =~ /^2>>?$/; open STDIN, "/dev/null" or die "can't open /dev/null as stdin"; if ($stderr) { $stderrm =~ s/2//; open STDERR, "$stderrm $root$stderr" or die "run_program can't output in $root$stderr (mode `$stderrm')"; } elsif ($::isInstall) { 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')"; } elsif ($::isInstall) { 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; chdir "/"; if (ref $name) { unless (exec { $name->[0] } $name->[1], @args) { log::l("exec of $name->[0] failed: $!"); c::_exit(1); } } else { unless (exec $name, @args) { log::l("exec of $name failed: $!"); c::_exit(1); } } } }