package any; # $Id$
use diagnostics;
use strict;
#-######################################################################################
#- misc imports
#-######################################################################################
use common;
use detect_devices;
use partition_table;
use fs::type;
use lang;
use run_program;
use devices;
use modules;
use log;
use fs;
use c;
sub facesdir() {
"$::prefix/usr/share/mdk/faces/";
}
sub face2png {
my ($face) = @_;
facesdir() . $face . ".png";
}
sub facesnames() {
my $dir = facesdir();
my @l = grep { /^[A-Z]/ } all($dir);
map { if_(/(.*)\.png/, $1) } (@l ? @l : all($dir));
}
sub addKdmIcon {
my ($user, $icon) = @_;
my $dest = "$::prefix/usr/share/faces/$user.png";
eval { cp_af(facesdir() . $icon . ".png", $dest) } if $icon;
}
sub alloc_user_faces {
my ($users) = @_;
my @m = my @l = facesnames();
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 create_user {
my ($u, $authentication) = @_;
my @existing = stat("$::prefix/home/$u->{name}");
if (!getpwnam($u->{name})) {
my $uid = $u->{uid} || $existing[4];
if ($uid && getpwuid($uid)) {
undef $uid; #- suggested uid already in use
}
my $gid = $u->{gid} || $existing[5] || int getgrnam($u->{name});
if ($gid) {
if (getgrgid($gid)) {
undef $gid if getgrgid($gid) ne $u->{name};
} else {
run_program::rooted($::prefix, 'groupadd', '-g', $gid, $u->{name});
}
} elsif ($u->{rename_from}) {
run_program::rooted($::prefix, 'groupmod', '-n', $u->{name}, $u->{rename_from});
}
require authentication;
my $symlink_home_from = $u->{rename_from} && (getpwnam($u->{rename_from}))[7];
run_program::raw({ root => $::prefix, sensitive_arguments => 1 },
($u->{rename_from} ? 'usermod' : 'adduser'),
'-p', authentication::user_crypted_passwd($u, $authentication),
if_($uid, '-u', $uid), if_($gid, '-g', $gid),
if_($u->{realname}, '-c', $u->{realname}),
if_($u->{home}, '-d', $u->{home}, if_($u->{rename_from}, '-m')),
if_($u->{shell}, '-s', $u->{shell}),
($u->{rename_from}
? ('-l', $u->{name}, $u->{rename_from})
: $u->{name}));
symlink($u->{home}, $symlink_home_from) if $symlink_home_from;
}
my (undef, undef, $uid, $gid, undef, undef, undef, $home) = getpwnam($u->{name});
if (@existing && $::isInstall && ($uid != $existing[4] || $gid != $existing[5])) {
log::l("chown'ing $home from $existing[4].$existing[5] to $uid.$gid");
eval { common::chown_('recursive', $uid, $gid, "$::prefix$home") };
}
}
sub add_users {
my ($users, $authentication) = @_;
alloc_user_faces($users);
foreach (@$users) {
create_user($_, $authentication);
run_program::rooted($::prefix, "usermod", "-G", join(",", @{$_->{groups}}), $_->{name}) if !is_empty_array_ref($_->{groups});
addKdmIcon($_->{name}, delete $_->{auto_icon} || $_->{icon});
}
}
sub install_bootloader_pkgs {
my ($do_pkgs, $b) = @_;
bootloader::ensure_pkg_is_installed($do_pkgs, $b);
install_acpi_pkgs($do_pkgs, $b);
}
sub install_acpi_pkgs {
my ($do_pkgs, $b) = @_;
my $acpi = bootloader::get_append_with_key($b, 'acpi');
my $use_acpi = !member($acpi, 'off', 'ht');
if ($use_acpi) {
$do_pkgs->ensure_is_installed('acpi', '/usr/bin/acpi', $::isInstall);
$do_pkgs->ensure_is_installed('acpid', '/usr/sbin/acpid', $::isInstall);
}
require services;
services::set_status($_, $use_acpi, $::isInstall) foreach qw(acpi acpid);
}
sub setupBootloaderBeforeStandalone {
my ($do_pkgs, $b, $all_hds, $fstab) = @_;
require keyboard;
my $keyboard = keyboard::read_or_default();
my $allow_fb = listlength(cat_("/proc/fb"));
my $cmdline = cat_('/proc/cmdline');
my $vga_fb = first($cmdline =~ /\bvga=(\S+)/);
my $quiet = $cmdline =~ /\bsplash=silent\b/;
setupBootloaderBefore($do_pkgs, $b, $all_hds, $fstab, $keyboard, $allow_fb, $vga_fb, $quiet);
}
sub setupBootloaderBefore {
my ($do_pkgs, $bootloader, $all_hds, $fstab, $keyboard, $allow_fb, $vga_fb, $quiet) = @_;
require bootloader;
#- auto_install backward compatibility
#- one should now use {message_text}
if ($bootloader->{message} =~ m!^[^/]!) {
$bootloader->{message_text} = delete $bootloader->{message};
}
#- remove previous ide-scsi lines
bootloader::modify_append($bootloader, sub {
my ($_simple, $dict) = @_;
@$dict = grep { $_->[1] ne 'ide-scsi' } @$dict;
});
if (cat_("/proc/cmdline") =~ /mem=nopentium/) {
bootloader::set_append_with_key($bootloader, mem => 'nopentium');
}
if (cat_("/proc/cmdline") =~ /\b(pci)=(\S+)/) {
bootloader::set_append_with_key($bootloader, $1, $2);
}
if (my ($acpi) = cat_("/proc/cmdline") =~ /\bacpi=(\w+)/) {
if ($acpi eq 'ht') {
#- the user is using the default, which may not be the best
my $year = detect_devices::computer_info()->{BIOS_Year};
if ($year >= 2002) {
log::l("forcing ACPI on recent bios ($year)");
$acpi = '';
}
}
bootloader::set_append_with_key($bootloader, acpi => $acpi);
}
if (cat_("/proc/cmdline") =~ /\bnoapic/) {
bootloader::set_append_simple($bootloader, 'noapic');
}
if (cat_("/proc/cmdline") =~ /\bnoresume/) {
bootloader::set_append_simple($bootloader, 'noresume');
} elsif (bootloader::get_append_simple($bootloader, 'noresume')) {
} else {
my ($MemTotal) = cat_("/proc/meminfo") =~ /^MemTotal:\s*(\d+)/m;
if (my ($biggest_swap) = sort { $b->{size} <=> $a->{size} } grep { isSwap($_) } @$fstab) {
log::l("MemTotal: $MemTotal < ", $biggest_swap->{size} / 2);
if ($MemTotal < $biggest_swap->{size} / 2) {
bootloader::set_append_with_key($bootloader, resume => fs::wild_device::from_part('', $biggest_swap));
}
}
}
#- check for valid fb mode to enable a default boot with frame buffer.
my $vga = $allow_fb && (!detect_devices::matching_desc__regexp('3D Rage LT') &&
!detect_devices::matching_desc__regexp('Rage Mobility [PL]') &&
!detect_devices::matching_desc__regexp('i740') &&
!detect_devices::matching_desc__regexp('Matrox') &&
!detect_devices::matching_desc__regexp('Tseng.*ET6\d00') &&
!detect_devices::matching_desc__regexp('SiS.*SG86C2.5') &&
!detect_devices::matching_desc__regexp('SiS.*559[78]') &&
!detect_devices::matching_desc__regexp('SiS.*300') &&
!detect_devices::matching_desc__regexp('SiS.*540') &&
!detect_devices::matching_desc__regexp('SiS.*6C?326') &&
!detect_devices::matching_desc__regexp('SiS.*6C?236') &&
!detect_devices::matching_desc__regexp('Voodoo [35]|Voodoo Banshee') && #- 3d acceleration seems to bug in fb mode
!detect_devices::matching_desc__regexp('828[14][05].* CGC') #- i810 & i845 now have FB support during install but we disable it afterwards
);
my $force_vga = $allow_fb && (detect_devices::matching_desc__regexp('SiS.*630') || #- SiS 630 need frame buffer.
detect_devices::matching_desc__regexp('GeForce.*Integrated') #- needed for fbdev driver (hack).
);
#- propose the default fb mode for kernel fb, if bootsplash is installed.
my $need_fb = $do_pkgs->are_installed('bootsplash');
bootloader::suggest($bootloader, $all_hds,
vga_fb => ($force_vga || $vga && $need_fb) && $vga_fb,
quiet => $quiet);
$bootloader->{keytable} ||= keyboard::keyboard2kmap($keyboard);
}
sub setupBootloader {
my ($in, $b, $all_hds, $fstab, $security) = @_;
require bootloader;
general:
{
local $::Wizard_no_previous = 1 if $::isStandalone;
setupBootloader__general($in, $b, $all_hds, $fstab, $security) or return 0;
}
setupBootloader__boot_bios_drive($in, $b, $all_hds->{hds}) or goto general;
{
local $::Wizard_finished = 1 if $::isStandalone;
setupBootloader__entries($in, $b, $all_hds, $fstab) or goto general;
}
1;
}
sub setupBootloaderUntilInstalled {
my ($in, $b, $all_hds, $fstab, $security) = @_;
do {
my $before = fs::fstab_to_string($all_hds);
setupBootloader($in, $b, $all_hds, $fstab, $security) or $in->exit;
if ($before ne fs::fstab_to_string($all_hds)) {
#- for /tmp using tmpfs when "clean /tmp" is chosen
fs::write_fstab($all_hds);
}
} while !installBootloader($in, $b, $all_hds);
}
sub installBootloader {
my ($in, $b, $all_hds) = @_;
return if detect_devices::is_xbox();
install_bootloader_pkgs($in->do_pkgs, $b);
eval { run_program::rooted($::prefix, 'echo | lilo -u') } if $::isInstall && !$::o->{isUpgrade} && -e "$::prefix/etc/lilo.conf" && glob("$::prefix/boot/boot.*");
retry:
eval {
my $_w = $in->wait_message(N("Please wait"), N("Bootloader installation in progress"));
bootloader::install($b, $all_hds);
};
if (my $err = $@) {
$err =~ /wizcancel/ and return;
$err =~ s/^\w+ failed// or die;
$err = formatError($err);
while ($err =~ s/^Warning:.*//m) {}
if (my ($dev) = $err =~ /^Reference:\s+disk\s+"(.*?)".*^Is the above disk an NT boot disk?/ms) {
if ($in->ask_yesorno('',
formatAlaTeX(N("LILO wants to assign a new Volume ID to drive %s. However, changing
the Volume ID of a Windows NT, 2000, or XP boot disk is a fatal Windows error.
This caution does not apply to Windows 95 or 98, or to NT data disks.
Assign a new Volume ID?", $dev)))) {
$b->{force_lilo_answer} = 'n';
} else {
$b->{'static-bios-codes'} = 1;
}
goto retry;
} else {
$in->ask_warn('', [ N("Installation of bootloader failed. The following error occurred:"), $err ]);
return;
}
} elsif (arch() =~ /ppc/) {
if (detect_devices::get_mac_model() !~ /IBM/) {
my $of_boot = bootloader::dev2yaboot($b->{boot});
$in->ask_warn('', N("You may need to change your Open Firmware boot-device to\n enable the bootloader. If you do not see the bootloader prompt at\n reboot, hold down Command-Option-O-F at reboot and enter:\n setenv boot-device %s,\\\\:tbxi\n Then type: shut-down\nAt your next boot you should see the bootloader prompt.", $of_boot));
}
}
1;
}
sub setupBootloader_simple {
my ($in, $b, $all_hds, $fstab, $security) = @_;
my $hds = $all_hds->{hds};
require bootloader;
bootloader::ensafe_first_bios_drive($hds)
|| $b->{bootUnsafe} || arch() =~ /ppc/ or return 1; #- default is good enough
if (arch() !~ /ia64/) {
setupBootloader__mbr_or_not($in, $b, $hds, $fstab) or return 0;
} else {
general:
setupBootloader__general($in, $b, $all_hds, $fstab, $security) or return 0;
}
setupBootloader__boot_bios_drive($in, $b, $hds) or goto general;
1;
}
sub setupBootloader__boot_bios_drive {
my ($in, $b, $hds) = @_;
if (arch() =~ /ppc/ ||
!is_empty_hash_ref($b->{bios})) {
#- some bios mapping already there
return 1;
} elsif (bootloader::mixed_kind_of_disks($hds) && $b->{boot} =~ /\d$/) { #- on a partition
# see below
} else {
return 1;
}
log::l("_ask_boot_bios_drive");
my $hd = $in->ask_from_listf('', N("You decided to install the bootloader on a partition.
This implies you already have a bootloader on the hard drive you boot (eg: System Commander).
On which drive are you booting?"), \&partition_table::description, $hds) or return 0;
log::l("mixed_kind_of_disks chosen $hd->{device}");
$b->{first_hd_device} = "/dev/$hd->{device}";
1;
}
sub setupBootloader__mbr_or_not {
my ($in, $b, $hds, $fstab) = @_;
log::l("setupBootloader__mbr_or_not");
if (arch() =~ /ppc/) {
if (defined $partition_table::mac::bootstrap_part) {
$b->{boot} = $partition_table::mac::bootstrap_part;
log::l("set bootstrap to $b->{boot}");
} else {
die "no bootstrap partition - yaboot.conf creation failed";
}
} else {
my $floppy = detect_devices::floppy();
my @l = (
bootloader::ensafe_first_bios_drive($hds) ?
(map { [ N("First sector (MBR) of drive %s", partition_table::description($_)) => '/dev/' . $_->{device} ] } @$hds)
:
[ N("First sector of drive (MBR)") => '/dev/' . $hds->[0]{device} ],
[ N("First sector of the root partition") => '/dev/' . fs::get::root($fstab, 'boot')->{device} ],
if_($floppy,
[ N("On Floppy") => "/dev/$floppy" ],
),
[ N("Skip") => '' ],
);
my $default = find { $_->[1] eq $b->{boot} } @l;
$in->ask_from_({ title => N("Bootloader Installation"),
interactive_help_id => 'setupBootloaderBeginner',
},
[
{ label => N("Where do you want to install the bootloader?"), title => 1 },
{ val => \$default, list => \@l, format => sub { $_[0][0] }, type => 'list' },
]
);
my $new_boot = $default->[1];
#- remove bios mapping if the user changed the boot device
delete $b->{bios} if $new_boot && $new_boot ne $b->{boot};
$b->{boot} = $new_boot or return;
}
1;
}
sub setupBootloader__general {
my ($in, $b, $all_hds, $fstab, $security) = @_;
return if detect_devices::is_xbox();
my @method_choices = bootloader::method_choices($all_hds);
my $prev_force_acpi = my $force_acpi = bootloader::get_append_with_key($b, 'acpi') !~ /off|ht/;
my $prev_enable_apic = my $enable_apic = !bootloader::get_append_simple($b, 'noapic');
my $prev_enable_lapic = my $enable_lapic = !bootloader::get_append_simple($b, 'nolapic');
my $prev_enable_smp = my $enable_smp = !bootloader::get_append_simple($b, 'nosmp');
my $prev_clean_tmp = my $clean_tmp = any { $_->{mntpoint} eq '/tmp' } @{$all_hds->{special} ||= []};
my $prev_boot = $b->{boot};
my $prev_method = $b->{method};
$b->{password2} ||= $b->{password} ||= '';
$::Wizard_title = N("Boot Style Configuration");
if (arch() !~ /ppc/) {
my (@boot_devices, %boot_devices);
foreach (bootloader::allowed_boot_parts($b, $all_hds)) {
my $dev = "/dev/$_->{device}";
push @boot_devices, $dev;
$boot_devices{$dev} = $_->{info} ? "$dev ($_->{info})" : $dev;
}
$in->ask_from_({ #messages => N("Bootloader main options"),
title => N("Bootloader main options"),
interactive_help_id => 'setupBootloader',
}, [
#title => N("Bootloader main options"),
{ label => N("Bootloader"), title => 1 },
{ label => N("Bootloader to use"), val => \$b->{method}, list => \@method_choices, format => \&bootloader::method2text },
if_(arch() !~ /ia64/,
{ label => N("Boot device"), val => \$b->{boot}, list => \@boot_devices, format => sub { $boot_devices{$_[0]} } },
),
{ label => N("Main options"), title => 1 },
{ label => N("Delay before booting default image"), val => \$b->{timeout} },
{ text => N("Enable ACPI"), val => \$force_acpi, type => 'bool' },
{ text => N("Enable SMP"), val => \$enable_smp, type => 'bool', advanced => 1 },
{ text => N("Enable APIC"), val => \$enable_apic, type => 'bool', advanced => 1, disabled => sub { !$enable_lapic } },
{ text => N("Enable Local APIC"), val => \$enable_lapic, type => 'bool', advanced => 1 },
if_($security >= 4 || $b->{password} || $b->{restricted},
{ label => N("Password"), val => \$b->{password}, hidden => 1,
validate => sub {
my $ok = $b->{password} eq $b->{password2} or $in->ask_warn('', [ N("The passwords do not match"), N("Please try again") ]);
my $ok2 = !($b->{password} && $b->{method} eq 'grub-graphic') or $in->ask_warn('', N("You can not use a password with %s", bootloader::method2text($b->{method})));
$ok && $ok2;
} },
{ label => N("Password (again)"), val => \$b->{password2}, hidden => 1 },
{ text => N("Restrict command line options"), val => \$b->{restricted}, type => "bool", text => N("restrict"),
validate => sub { my $ok = !$b->{restricted} || $b->{password} or $in->ask_warn('', N("Option ``Restrict command line options'' is of no use without a password")); $ok } },
),
{ text => N("Clean /tmp at each boot"), val => \$clean_tmp, type => 'bool', advanced => 1 },
]) or return 0;
} else {
$b->{boot} = $partition_table::mac::bootstrap_part;
$in->ask_from_({ messages => N("Bootloader main options"),
title => N("Bootloader main options"),
interactive_help_id => 'setupYabootGeneral',
}, [
{ label => N("Bootloader to use"), val => \$b->{method}, list => \@method_choices, format => \&bootloader::method2text },
{ label => N("Init Message"), val => \$b->{'init-message'} },
{ label => N("Boot device"), val => \$b->{boot}, list => [ map { "/dev/$_" } (map { $_->{device} } (grep { isAppleBootstrap($_) } @$fstab)) ] },
{ label => N("Open Firmware Delay"), val => \$b->{delay} },
{ label => N("Kernel Boot Timeout"), val => \$b->{timeout} },
{ label => N("Enable CD Boot?"), val => \$b->{enablecdboot}, type => "bool" },
{ label => N("Enable OF Boot?"), val => \$b->{enableofboot}, type => "bool" },
{ label => N("Default OS?"), val => \$b->{defaultos}, list => [ 'linux', 'macos', 'macosx', 'darwin' ] },
]) or return 0;
}
#- remove bios mapping if the user changed the boot device
delete $b->{bios} if $b->{boot} ne $prev_boot;
if ($b->{boot} =~ m!/dev/md\d+$!) {
$b->{'raid-extra-boot'} = 'mbr';
} else {
delete $b->{'raid-extra-boot'} if $b->{'raid-extra-boot'} eq 'mbr';
}
bootloader::ensure_pkg_is_installed($in->do_pkgs, $b) or goto &setupBootloader__general;
bootloader::suggest_message_text($b) if ! -e "$::prefix/boot/message-text"; #- in case we switch from grub to lilo
if ($prev_force_acpi != $force_acpi) {
bootloader::set_append_with_key($b, acpi => ($force_acpi ? '' : 'ht'));
}
if ($prev_enable_smp != $enable_smp) {
($enable_smp ? \&bootloader::remove_append_simple : \&bootloader::set_append_simple)->($b, 'nosmp');
}
if ($prev_enable_apic != $enable_apic) {
($enable_apic ? \&bootloader::remove_append_simple : \&bootloader::set_append_simple)->($b, 'noapic');
($enable_apic ? \&bootloader::set_append_simple : \&bootloader::remove_append_simple)->($b, 'apic');
}
if ($prev_enable_lapic != $enable_lapic) {
($enable_lapic ? \&bootloader::remove_append_simple : \&bootloader::set_append_simple)->($b, 'nolapic');
($enable_lapic ? \&bootloader::set_append_simple : \&bootloader::remove_append_simple)->($b, 'lapic');
}
if ($prev_clean_tmp != $clean_tmp) {
if ($clean_tmp && !fs::get::has_mntpoint('/tmp', $all_hds)) {
push @{$all_hds->{special}}, { device => 'none', mntpoint => '/tmp', fs_type => 'tmpfs' };
} else {
@{$all_hds->{special}} = grep { $_->{mntpoint} ne '/tmp' } @{$all_hds->{special}};
}
}
if (bootloader::main_method($prev_method) eq 'lilo' &&
bootloader::main_method($b->{method}) eq 'grub') {
log::l("switching for lilo to grub, ensure we don't read lilo.conf anymore");
renamef("$::prefix/etc/lilo.conf", "$::prefix/etc/lilo.conf.unused");
}
1;
}
sub setupBootloader__entries {
my ($in, $b, $all_hds, $fstab) = @_;
require Xconfig::resolution_and_depth;
my $Modify = sub {
require network::network; #- to list network profiles
my ($e) = @_;
my $default = my $old_default = $e->{label} eq $b->{default};
my $vga = Xconfig::resolution_and_depth::from_bios($e->{vga});
my ($append, $netprofile) = bootloader::get_append_netprofile($e);
my %hd_infos = map { $_->{device} => $_->{info} } fs::get::hds($all_hds);
my %root_descr = map {
my $info = delete $hd_infos{$_->{rootDevice}};
my $dev = "/dev/$_->{device}";
my $info_ = $info ? "$dev ($info)" : $dev;
($dev => $info_, fs::wild_device::from_part('', $_) => $info_);
} @$fstab;
my @l;
if ($e->{type} eq "image") {
@l = (
{ label => N("Image"), val => \$e->{kernel_or_dev}, list => [ map { "/boot/$_" } bootloader::installed_vmlinuz() ], not_edit => 0 },
{ label => N("Root"), val => \$e->{root}, list => [ map { fs::wild_device::from_part('', $_) } @$fstab ], format => sub { $root_descr{$_[0]} } },
{ label => N("Append"), val => \$append },
if_($e->{xen},
{ label => N("Xen append"), val => \$e->{xen_append} }
),
if_(arch() !~ /ppc|ia64/,
{ label => N("Video mode"), val => \$vga, list => [ '', Xconfig::resolution_and_depth::bios_vga_modes() ], format => \&Xconfig::resolution_and_depth::to_string, advanced => 1 },
),
{ label => N("Initrd"), val => \$e->{initrd}, list => [ map { if_(/^initrd/, "/boot/$_") } all("$::prefix/boot") ], not_edit => 0, advanced => 1 },
{ label => N("Network profile"), val => \$netprofile, list => [ sort(uniq('', $netprofile, network::network::netprofile_list())) ], advanced => 1 },
);
} else {
@l = (
{ label => N("Root"), val => \$e->{kernel_or_dev}, list => [ map { "/dev/$_->{device}" } @$fstab, detect_devices::floppies() ] },
);
}
if (arch() !~ /ppc/) {
@l = (
{ label => N("Label"), val => \$e->{label} },
@l,
{ text => N("Default"), val => \$default, type => 'bool' },
);
} e
$o->{in}->do_pkgs->install($pkg);
}
if (! -e $file) {
$o->{in}->ask_warn('', _("Mandatory package %s is missing", $pkg));
return;
}
1;
}
sub what_provides {
my ($o, $name) = @_;
my ($what) = split '\n', `urpmq '$name' 2>/dev/null`;
split '\|', $what;
}
sub is_installed {
my ($o, @l) = @_;
run_program::run('rpm', '>', '/dev/null', '-q', @l);
}
sub are_installed {
my ($o, @l) = @_;
my @l2;
run_program::run('rpm', '>', \@l2, '-q', '--qf', "%{name}\n", @l);
intersection(\@l, [ map { chomp_($_) } @l2 ]);
}
sub remove {
my ($o, @l) = @_;
$o->{in}->suspend;
standalone::explanations("removed packages @l");
my $ret = system('rpm', '-e', @l) == 0;
$o->{in}->resume;
$ret;
}
sub remove_nodeps {
my ($o, @l) = @_;
$o->{in}->suspend;
standalone::explanations("removed (with --nodeps) packages @l");
my $ret = system('rpm', '-e', '--nodeps', @l) == 0;
$o->{in}->resume;
$ret;
}
################################################################################
package standalone;
#- stuff will go to special /var/log/explanations file
my $standalone_name;
sub explanations { c::syslog(c::LOG_INFO()|c::LOG_LOCAL1(), "@_") }
@common_functs = qw(renamef linkf symlinkf output substInFile mkdir_p rm_rf cp_af touch setVarsInSh setExportedVarsInSh setExportedVarsInCsh update_gnomekderc);
@builtin_functs = qw(chmod chown unlink link symlink rename system);
@drakx_modules = qw(Xconfig::card Xconfig::default Xconfig::main Xconfig::monitor Xconfig::parse Xconfig::proprietary Xconfig::resolution_and_depth Xconfig::screen Xconfig::test Xconfig::various Xconfig::xfree Xconfig::xfree3 Xconfig::xfree4 Xconfig::xfreeX any bootloader bootlook c class_discard commands crypto detect_devices devices diskdrake diskdrake::hd_gtk diskdrake::interactive diskdrake::removable diskdrake::removable_gtk diskdrake::smbnfs_gtk fs fsedit http keyboard lang log loopback lvm modparm modules mouse my_gtk network network::adsl network::ethernet network::isdn_consts network::isdn network::modem network::netconnect network::network network::nfs network::smb network::tools partition_table partition_table_bsd partition_table::dos partition_table::empty partition_table::gpt partition_table::mac partition_table::raw partition_table::sun printer printerdrake proxy raid run_program scanner services steps swap timezone tinyfirewall);
sub import {
($standalone_name = $0) =~ s|.*/||;
c::openlog("$standalone_name"."[$$]");
explanations('### Program is starting ###');
eval "*MDK::Common::$_ = *$_" foreach @common_functs;
foreach my $f (@builtin_functs) {
eval "*$_"."::$f = *$f" foreach @drakx_modules;
eval "*".caller()."::$f = *$f";
}
}
sub renamef {
explanations "moved file $_[0] to $_[1]";
goto &MDK::Common::File::renamef;
}
sub linkf {
explanations "hard linked file $_[0] to $_[1]";
goto &MDK::Common::File::linkf;
}
sub symlinkf {
explanations "symlinked file $_[0] to $_[1]";
goto &MDK::Common::File::symlinkf;
}
sub output {
explanations "created file $_[0]";
goto &MDK::Common::File::output;
}
sub substInFile(&@) {
explanations "modified file $_[1]";
goto &MDK::Common::File::substInFile;
}
sub mkdir_p {
explanations "created directory $_[0] (and parents if necessary)";
goto &MDK::Common::File::mkdir_p;
}
sub rm_rf {
explanations "removed files/directories (recursively) @_";
goto &MDK::Common::File::rm_rf;
}
sub cp_af {
my $retval = MDK::Common::File::cp_af @_;
my $dest = pop @_;
explanations "copied recursively @_ to $dest";
return $retval;
}
sub touch {
explanations "touched file @_";
goto &MDK::Common::File::touch;
}
sub setVarsInSh {
explanations "modified file $_[0]";
goto &MDK::Common::System::setVarsInSh;
}
sub setExportedVarsInSh {
explanations "modified file $_[0]";
goto &MDK::Common::System::setExportedVarsInSh;
}
sub setExportedVarsInCsh {
explanations "modified file $_[0]";
goto &MDK::Common::System::setExportedVarsInCsh;
}
sub update_gnomekderc {
explanations "modified file $_[0]";
goto &MDK::Common::System::update_gnomekderc;
}
sub chmod {
my $retval = CORE::chmod @_;
my $mode = shift @_;
explanations sprintf("changed mode of %s to %o", $_, $mode) foreach @_;
return $retval;
}
sub chown {
my $retval = CORE::chown @_;
my $uid = shift @_;
my $gid = shift @_;
explanations sprintf("changed owner of $_ to $uid.$gid") foreach @_;
return $retval;
}
sub unlink {
explanations "removed files/directories @_";
CORE::unlink @_;
}
sub link {
explanations "hard linked file $_[0] to $_[1]";
CORE::link $_[0], $_[1];
}
sub symlink {
explanations "symlinked file $_[0] to $_[1]";
CORE::symlink $_[0], $_[1];
}
sub rename {
explanations "renamed file $_[0] to $_[1]";
CORE::rename $_[0], $_[1];
}
sub system {
explanations "launched command: @_";
CORE::system @_;
}
1;