package fs::any; # $Id: any.pm 269745 2010-06-02 11:21:42Z pterjan $ use diagnostics; use strict; use common; use fsedit; use fs::mount_point; use run_program; sub get_hds { my ($all_hds, $fstab, $manual_fstab, $partitioning_flags, $skip_mtab, $o_in) = @_; my $probed_all_hds = fsedit::get_hds($partitioning_flags, $o_in); my $hds = $probed_all_hds->{hds}; if (is_empty_array_ref($hds)) { #- no way die N("An error occurred - no valid devices were found on which to create new filesystems. Please check your hardware for the cause of this problem"); } #- try to figure out if the same number of hds is available, use them if ok. @{$all_hds->{hds} || []} == @$hds and return 1; fs::get_raw_hds('', $probed_all_hds); fs::add2all_hds($probed_all_hds, @$manual_fstab); %$all_hds = %$probed_all_hds; @$fstab = fs::get::really_all_fstab($all_hds); if (!$skip_mtab) { #- do not mount the windows partition fs::merge_info_from_mtab($fstab); fs::mount_point::suggest_mount_points_always($fstab); } 1; } sub write_hds { my ($all_hds, $fstab, $set_mount_defaults, $on_reboot_needed, $opts) = @_; if (!$::testing) { my $hds = $all_hds->{hds}; partition_table::write($_) foreach @$hds; $_->{rebootNeeded} and $on_reboot_needed->() foreach @$hds; } fs::set_removable_mntpoints($all_hds); fs::mount_options::set_all_default($all_hds, %$opts, lang::fs_options($opts->{locale})) if $set_mount_defaults; @$fstab = fs::get::fstab($all_hds); } sub set_cdrom_symlink { my ($raw_hds) = @_; foreach (grep { $_->{media_type} eq 'cdrom' } @$raw_hds) { next if $_->{device_alias}; my $alias = basename($_->{mntpoint}) or next; log::l("using alias $alias for $_->{device}"); $_->{device_alias} = $alias; symlink($_->{device}, "/dev/$alias") if $::prefix; # do create the symlink to have it during install (otherwise fs::wild_device::from_part will give a non accessible device) symlink($_->{device}, "$::prefix/dev/$alias"); } } sub check_hds_boot_and_root { my ($all_hds, $fstab) = @_; fs::get::root_($fstab) or die "Oops, no root partition"; if (arch() =~ /ppc/ && detect_devices::get_mac_generation() =~ /NewWorld/) { die "Need bootstrap partition to boot system!" if !(defined $partition_table::mac::bootstrap_part); } if (arch() =~ /ia64/ && !fs::get::has_mntpoint("/boot/efi", $all_hds)) { die N("You must have a FAT partition mounted in /boot/efi"); } } sub create_minimal_files() { mkdir "$::prefix/$_", 0755 foreach qw(dev etc etc/profile.d etc/rpm etc/sysconfig etc/sysconfig/console etc/sysconfig/network-scripts etc/sysconfig/console/consolefonts etc/sysconfig/console/consoletrans home mnt tmp var var/tmp var/lib var/lib/rpm var/lib/urpmi); mkdir "$::prefix/$_", 0700 foreach qw(root root/tmp root/drakx); devices::make("$::prefix/dev/null"); chmod 0666, "$::prefix/dev/null"; } sub prepare_minimal_root() { fs::any::create_minimal_files(); run_program::run('mount', '--bind', '/dev', "$::prefix/dev"); eval { fs::mount::mount('none', "$::prefix/proc", 'proc') }; eval { fs::mount::mount('none', "$::prefix/sys", 'sysfs') }; eval { fs::mount::usbfs($::prefix) }; } sub getAvailableSpace { my ($fstab, $o_skip_mounted) = @_; #- make sure of this place to be available for installation, this could help a lot. #- currently doing a very small install use 36Mb of postinstall-rpm, but installing #- these packages may eat up to 90Mb (of course not all the server may be installed!). #- 65mb may be a good choice to avoid almost all problem of insuficient space left... my $minAvailableSize = 65 * sqr(1024); my $n = !$::testing && !$o_skip_mounted && getAvailableSpace_mounted($::prefix) || getAvailableSpace_raw($fstab) * 512 / 1.07; $n - max(0.1 * $n, $minAvailableSize); } sub getAvailableSpace_mounted { my ($prefix) = @_; my $dir = -d "$prefix/usr" ? "$prefix/usr" : $prefix; my (undef, $free) = MDK::Common::System::df($dir) or return; log::l("getAvailableSpace_mounted $free KB"); $free * 1024 || 1; } sub getAvailableSpace_raw { my ($fstab) = @_; do { $_->{mntpoint} eq '/usr' and return $_->{size} } foreach @$fstab; do { $_->{mntpoint} eq '/' and return $_->{size} } foreach @$fstab; if ($::testing) { my $nb = 450; log::l("taking ${nb}MB for testing"); return MB($nb); } die "missing root partition"; } 1;