drakx - Mageia Installer and base platform for many utilities

diff options

Diffstat (limited to 'perl-install')

-rw-r--r--

1 files changed, 5 insertions, 5 deletions

package any; # $Id$ use diagnostics; use strict; #-###################################################################################### #- misc imports #-###################################################################################### use common; use detect_devices; use partition_table qw(:types); use fsedit; use fs; use lang; use run_program; use keyboard; use devices; use modules; use log; use c; sub drakx_version { sprintf "DrakX v%s built %s", $::testing ? ('TEST', scalar gmtime()) : (split('/', cat_("$ENV{SHARE_PATH}/VERSION")))[2,3]; } sub facesdir { my ($prefix) = @_; "$prefix/usr/share/mdk/faces/"; } sub face2png { my ($face, $prefix) = @_; facesdir($prefix) . $face . ".png"; } sub facesnames { my ($prefix) = @_; my $dir = facesdir($prefix); my @l = grep { /^[A-Z]/ } all($dir); map { if_(/(.*)\.png/, $1) } (@l ? @l : all($dir)); } sub addKdmIcon { my ($prefix, $user, $icon) = @_; my $dest = "$prefix/usr/share/faces/$user.png"; eval { cp_af(facesdir($prefix) . $icon . ".png", $dest) } if $icon; } sub allocUsers { my ($prefix, $users) = @_; my @m = my @l = facesnames($prefix); foreach (grep { !$_->{icon} || $_->{icon} eq "automagic" } @$users) { $_->{auto_icon} = splice(@m, rand(@m), 1); #- known biased (see cookbook for better) log::l("auto_icon is $_->{auto_icon}"); @m = @l unless @m; } } sub addUsers { my ($prefix, $users) = @_; allocUsers($prefix, $users); foreach my $u (@$users) { run_program::rooted($prefix, "usermod", "-G", join(",", @{$u->{groups}}), $u->{name}) if !is_empty_array_ref($u->{groups}); addKdmIcon($prefix, $u->{name}, delete $u->{auto_icon} || $u->{icon}); } } sub crypt { my ($password, $md5) = @_; crypt($password, $md5 ? '$1$' . salt(8) : salt(2)); } sub enableShadow { my ($prefix) = @_; run_program::rooted($prefix, "pwconv") or log::l("pwconv failed"); run_program::rooted($prefix, "grpconv") or log::l("grpconv failed"); } sub hdInstallPath() { my $tail = first(readlink("/tmp/image") =~ m|^/tmp/hdimage/(.*)|); my $head = first(readlink("/tmp/hdimage") =~ m|$::prefix(.*)|); $tail && ($head ? "$head/$tail" : "/mnt/hd/$tail"); } sub kernelVersion { my $kernel = readlink "$::prefix/boot/vmlinuz" || first(all("$::prefix/boot")); first($kernel =~ /vmlinuz-(.*)/); } sub mkbootdisk { my ($in, $bootloader, $fstab) = @_; if (arch() =~ /sparc/) { #- as probing floppies is a bit more different on sparc, assume always /dev/fd0. #- [pixel] uh, but in that case it would be better to change detect_devices::floppies, no? $in->ask_okcancel('', N("A custom bootdisk provides a way of booting into your Linux system without depending on the normal bootloader. This is useful if you don't want to install SILO on your system, or another operating system removes SILO, or SILO doesn't work with your hardware configuration. A custom bootdisk can also be used with the Mandrake rescue image, making it much easier to recover from severe system failures. If you want to create a bootdisk for your system, insert a floppy in the first drive and press \"Ok\".")) or return; } else { $in->ask_yesorno('', formatAlaTeX( N("A custom bootdisk provides a way of booting into your Linux system without depending on the normal bootloader. This is useful if you don't want to install LILO (or grub) on your system, or another operating system removes LILO, or LILO doesn't work with your hardware configuration. A custom bootdisk can also be used with the Mandrake rescue image, making it much easier to recover from severe system failures. Would you like to create a bootdisk for your system? %s", isThisFs('xfs', fsedit::get_root($fstab)) ? N(" (WARNING! You're using XFS for your root partition, creating a bootdisk on a 1.44 Mb floppy will probably fail, because XFS needs a very large driver).") : ''))) or return; } my $floppy_dev; my @l = detect_devices::floppies_dev() or die \N("Sorry, no floppy drive available"); my %l = ( 'fd0' => N("First floppy drive"), 'fd1' => N("Second floppy drive"),


context:
space:
mode: