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	110	log stats plain
-rw-r--r--	Makefile	3913	log stats plain
d---------	docs	461	log stats plain
-rw-r--r--	live_update	2293	log stats plain
-rwxr-xr-x	make_boot_img	9611	log stats plain
-rwxr-xr-x	make_ks_from_floppy	306	log stats plain
d---------	mdk-stage1	1823	log stats plain
d---------	perl-install	3169	log stats plain
d---------	rescue	477	log stats plain
d---------	tools	879	log stats plain
-rwxr-xr-x	update_kernel	3310	log stats plain

\n"; if ($>) { $ENV{PATH} = "/sbin:/usr/sbin:$ENV{PATH}"; } my $in = 'interactive'->vnew('su'); if ($type eq 'fileshare') { require any; any::fileshare_config($in); $in->exit(0); } my $all_hds = fsedit::get_hds({}, $in); $SIG{__DIE__} = sub { my $m = chomp_($_[0]); log::l("ERROR: $m") }; fs::get_raw_hds('', $all_hds); fs::merge_info_from_fstab([ fsedit::get_really_all_fstab($all_hds) ]); fs::merge_info_from_mtab([ fsedit::get_really_all_fstab($all_hds) ]); $all_hds->{current_fstab} = fs::fstab_to_string($all_hds); if ($type eq 'hd') { diskdrake::interactive::main($in, $all_hds); } elsif ($type eq 'removable') { require diskdrake::removable; $para =~ s|^/dev/||; my ($raw_hd) = $para ? first(grep { $para eq $_->{device} } @{$all_hds->{raw_hds}}) || die "unknown removable $para\n" : $in->ask_from_listf('', '', \&diskdrake::interactive::format_raw_hd_info, $all_hds->{raw_hds}) or $in->exit(0); diskdrake::removable::main($in, $all_hds, $raw_hd); } elsif ($type eq 'dav') { ($::isEmbedded, my $isEmbedded) = (0, $::isEmbedded); require diskdrake::dav; diskdrake::dav::main($in, $all_hds); $::isEmbedded = $isEmbedded; } else { $in->ask_warn('', "Sorry only a gtk frontend is available") if !$in->isa('interactive::gtk'); require diskdrake::smbnfs_gtk; diskdrake::smbnfs_gtk::main($in, $all_hds, $type); } $in->exit(0);