summaryrefslogtreecommitdiffstats
path: root/tools
Commit message (Expand)AuthorAgeFilesLines
* (create_initial_devices) kill itThierry Vignaud2015-03-051-6/+0
* unbreak !draklive caseThierry Vignaud2015-03-051-2/+7
* unbreak drakliveThierry Vignaud2015-03-051-1/+1
* pre-create /dev/null & co before mounting devtmpfsThierry Vignaud2014-12-201-2/+2
* pre-create /dev/null & co again (for draklive)Thierry Vignaud2014-10-261-0/+6
* try harder to umount everything when sg went havrocThierry Vignaud2014-10-231-0/+4
* introduce mount() functionThierry Vignaud2014-10-231-12/+17
* perl_checker cleanupsThierry Vignaud2014-10-211-2/+2
* document --stage2-update in --helpThierry Vignaud2014-10-211-0/+1
* mount /dev -o roThierry Vignaud2014-10-211-1/+1
* don't bother create /dev/usb nowThierry Vignaud2014-10-201-1/+1
* adapt to the fact that stage2 expects a /dev fully populated by udevThierry Vignaud2014-10-201-6/+2
* advise to install xephyr if missingThierry Vignaud2013-12-201-1/+1
* tools: Get rid of the 'many matches for binary' warning due to usrmove.Colin Guthrie2013-12-021-1/+3
* tools: Prefer /usr/sbin over /usr/bin.Colin Guthrie2013-12-021-1/+1
* add --depth in order to force 16bit colors modeThierry Vignaud2013-11-241-0/+3
* do not compile/include xhost+ anymore (unused for years)Thierry Vignaud2013-11-181-1/+1
* install/rescue: Adapt to a dracut based stage1.Colin Guthrie2013-10-291-0/+8
* log substitions in verbose modeThierry Vignaud2013-04-231-0/+1
* really fix link :-(Thierry Vignaud2013-04-041-1/+1
* always copy /etc/resolv.conf againThierry Vignaud2013-04-041-3/+1
* fix locationThierry Vignaud2013-04-041-1/+1
* do not copy /etc/resolv.conf in chroot if not neededThierry Vignaud2013-04-041-1/+3
* simplifyThierry Vignaud2013-04-041-1/+1
* export blkid cache (small speedup)Thierry Vignaud2012-12-281-2/+3
* factorizeThierry Vignaud2012-12-281-11/+7
* add support for straceThierry Vignaud2012-12-231-0/+2
* rename $gdb as $wrapperThierry Vignaud2012-12-231-4/+4
* perl_checker cleanupThierry Vignaud2012-12-101-1/+1
* fix debugfs dir path and do not attempt to create it since it is already in s...Olivier Blin2012-09-011-4/+4
* more usbfs removal fixesThomas Backlund2012-09-011-1/+2
* - drakx-in-chroot:Thomas Backlund2012-09-011-2/+2
* drakx-in-chroot: unmount /dev in chrootOlivier Blin2012-05-061-1/+1
* installer: allow generation of host-only initrd during installColin Guthrie2012-04-101-2/+16
* text mode needs /dev/ttyThierry Vignaud2012-02-271-1/+1
* add .gitignore files so that empty directories end in archives createdThierry Vignaud2012-01-234-0/+4
* revert last changeThierry Vignaud2012-01-201-1/+1
* let's please vimThierry Vignaud2012-01-201-1/+1
* add support for --gdbThierry Vignaud2012-01-081-1/+15
* supplement blacklistThierry Vignaud2012-01-081-1/+3
* Synthesized commit during git-svn import combining previous Mandriva history ...Mageia SVN-Git Migration2011-02-069-300/+3
* (install) only run 'ldd' on files, not directory (fix some warnings atThierry Vignaud2010-02-031-1/+1
* properly fix FileHandle issuePascal Terjan2009-10-071-1/+2
* Include MDK::Common after XML::Parser as XML::Parser breaks if File::Sync was...Pascal Terjan2009-10-071-1/+1
* perl_checker cleanupThierry Vignaud2009-03-171-1/+0
* enable to emulate iso-on-disk installationThierry Vignaud2009-03-171-2/+15
* (create_initial_devices) copy /dev/*random tooThierry Vignaud2009-03-091-1/+1
* simplify previous commit (detect when @l becomes empty instead of not doingPascal Rigaux2008-10-231-7/+5
* do not uselessly wait on stdin if no files have to be filteredOlivier Blin2008-10-151-3/+5
* document --textThierry Vignaud2008-10-081-0/+1
generated by cgit v1.2.1 (git 2.21.0) at 2025-03-06 03:36:41 +0000
lass="hl opt">)/, and push @options, qw(-b 4096 -R stride=16); #- For RAID only. run_program::run("mke2fs", devices::make($dev), @options) or die _("%s formatting of %s failed", "ext2", $dev); } sub format_dos($@) { my ($dev, @options) = @_; run_program::run("mkdosfs", devices::make($dev), @options) or die _("%s formatting of %s failed", "dos", $dev); } sub format_part($;@) { my ($part, @options) = @_; $part->{isFormatted} and return; log::l("formatting device $part->{device} (type ", type2name($part->{type}), ")"); if (isExt2($part)) { format_ext2($part->{device}, @options); } elsif (isDos($part)) { format_dos($part->{device}, @options); } elsif (isWin($part)) { format_dos($part->{device}, @options, '-F', 32); } elsif (isSwap($part)) { my $check_blocks = grep { /^-c$/ } @options; swap::make($part->{device}, $check_blocks); } else { die _("don't know how to format %s in type %s", $_->{device}, type2name($_->{type})); } $part->{isFormatted} = 1; } sub mount($$$;$) { my ($dev, $where, $fs, $rdonly) = @_; log::l("mounting $dev on $where as type $fs"); -d $where or commands::mkdir_('-p', $where); if ($fs eq 'nfs') { log::l("calling nfs::mount($dev, $where)"); nfs::mount($dev, $where) or die _("nfs mount failed"); } elsif ($fs eq 'smb') { die "no smb yet..."; } else { $dev = devices::make($dev) if $fs ne 'proc'; my $flag = 0;#c::MS_MGC_VAL(); $flag |= c::MS_RDONLY() if $rdonly; my $mount_opt = ""; if ($fs eq 'vfat') { $mount_opt = "check=relaxed"; eval { modules::load('vfat') }; #- try using vfat eval { modules::load('msdos') } if $@; #- otherwise msdos... } log::l("calling mount($dev, $where, $fs, $flag, $mount_opt)"); syscall_('mount', $dev, $where, $fs, $flag, $mount_opt) or die _("mount failed: ") . "$!"; } local *F; open F, ">>/etc/mtab" or return; #- fail silently, must be read-only /etc print F "$dev $where $fs defaults 0 0\n"; } #- takes the mount point to umount (can also be the device) sub umount($) { my ($mntpoint) = @_; log::l("calling umount($mntpoint)"); syscall_('umount', $mntpoint) or die _("error unmounting %s: %s", $mntpoint, "$!"); my @mtab = cat_('/etc/mtab'); #- don't care about error, if we can't read, we won't manage to write... (and mess mtab) local *F; open F, ">/etc/mtab" or return; foreach (@mtab) { print F $_ unless /(^|\s)$mntpoint\s/; } } sub mount_part($;$$) { my ($part, $prefix, $rdonly) = @_; $part->{isMounted} and return; unless ($::testing) { if (isSwap($part)) { swap::swapon($part->{device}); } else { $part->{mntpoint} or die "missing mount point"; mount(devices::make($part->{device}), ($prefix || '') . $part->{mntpoint}, type2fs($part->{type}), $rdonly); } } $part->{isMounted} = $part->{isFormatted} = 1; #- assume that if mount works, partition is formatted } sub umount_part($;$) { my ($part, $prefix) = @_; $part->{isMounted} or return; unless ($::testing) { isSwap($part) ? swap::swapoff($part->{device}) : umount(($prefix || '') . ($part->{mntpoint} || devices::make($part->{device}))); } $part->{isMounted} = 0; } sub mount_all($;$$) { my ($fstab, $prefix, $hd_dev) = @_; #- hd_dev is the device used for hd install log::l("mounting all filesystems"); $hd_dev ||= cat_("/proc/mounts") =~ m|/tmp/(\S+)\s+/tmp/hdimage| unless $::isStandalone; #- order mount by alphabetical ordre, that way / < /home < /home/httpd... foreach (grep { $_->{mntpoint} } sort { ($a->{mntpoint} || '') cmp ($b->{mntpoint} || '') } @$fstab) { if ($hd_dev && $_->{device} eq $hd_dev) { my $dir = "$prefix$_->{mntpoint}"; $dir =~ s|/+$||; log::l("special hd case ($dir)"); rmdir $dir; symlink "/tmp/hdimage", $dir; } else { mount_part($_, $prefix); } } } sub umount_all($;$) { my ($fstab, $prefix) = @_; log::l("unmounting all filesystems"); foreach (sort { $b->{mntpoint} cmp $a->{mntpoint} } @$fstab) { $_->{mntpoint} and umount_part($_, $prefix); } } #- do some stuff before calling write_fstab sub write($$$$) { my ($prefix, $fstab, $manualFstab, $useSupermount) = @_; $fstab = [ @{$fstab||[]}, @{$manualFstab||[]} ]; log::l("resetting /etc/mtab"); local *F; open F, "> $prefix/etc/mtab" or die "error resetting $prefix/etc/mtab"; my @to_add = ( $useSupermount ? [ split ' ', '/mnt/floppy /mnt/floppy supermount fs=vfat,dev=/dev/fd0 0 0' ] : [ split ' ', '/dev/fd0 /mnt/floppy auto sync,user,noauto,nosuid,nodev,unhide 0 0' ], [ split ' ', 'none /proc proc defaults 0 0' ], [ split ' ', 'none /dev/pts devpts mode=0620 0 0' ], (map_index { my $i = $::i ? $::i + 1 : ''; mkdir "$prefix/mnt/cdrom$i", 0755;#- or log::l("failed to mkdir $prefix/mnt/cdrom$i: $!"); symlinkf $_->{device}, "$prefix/dev/cdrom$i" or log::l("failed to symlink $prefix/dev/cdrom$i: $!"); chown 0, 22, "$prefix/dev/$_->{device}"; $useSupermount ? [ "/mnt/cdrom$i", "/mnt/cdrom$i", "supermount", "fs=iso9660,dev=/dev/cdrom$i", 0, 0 ] : [ "/dev/cdrom$i", "/mnt/cdrom$i", "auto", "user,noauto,nosuid,exec,nodev,ro", 0, 0 ]; } detect_devices::cdroms()), (map_index { #- for zip drives, the right partition is the 4th. my $i = $::i ? $::i + 1 : ''; mkdir "$prefix/mnt/zip$i", 0755 or log::l("failed to mkdir $prefix/mnt/zip$i: $!"); symlinkf "$_->{device}4", "$prefix/dev/zip$i" or log::l("failed to symlink $prefix/dev/zip$i: $!"); $useSupermount ? [ "/mnt/zip$i", "/mnt/zip$i", "supermount", "fs=vfat,dev=/dev/zip$i", 0, 0 ] : [ "/dev/zip$i", "/mnt/zip$i", "auto", "user,noauto,nosuid,exec,nodev", 0, 0 ]; } detect_devices::zips())); write_fstab($fstab, $prefix, @to_add); } sub write_fstab($;$$) { my ($fstab, $prefix, @to_add) = @_; $prefix ||= ''; #- get the list of devices and mntpoint to remove existing entries #- and @to_add take precedence over $fstab to handle removable device #- if they are mounted OR NOT during install. my @new = grep { $_ ne 'none' } map { @$_[0,1] } @to_add; my %new; @new{@new} = undef; unshift @to_add, map { my ($dir, $options, $freq, $passno) = qw(/dev/ defaults 0 0); $options = $_->{options} || $options; isExt2($_) and ($freq, $passno) = (1, ($_->{mntpoint} eq '/') ? 1 : 2); isNfs($_) and $dir = '', $options ||= 'ro,nosuid,rsize=8192,wsize=8192'; #- keep in mind the new line for fstab. @new{($_->{mntpoint}, "$dir$_->{device}")} = undef; #- tested? devices::make("$prefix/$dir$_->{device}") if $_->{device} && $dir && !$_->{noMakeDevice}; eval { devices::make("$prefix/$dir$_->{device}") } if $_->{device} && $dir; mkdir "$prefix/$_->{mntpoint}", 0755 if $_->{mntpoint} && !isSwap($_); [ ( $_->{device} =~ /^\// ? $_->{device} : "$dir$_->{device}" ), $_->{mntpoint}, type2fs($_->{type}), $options, $freq, $passno ]; } grep { $_->{mntpoint} && type2fs($_->{type}) && !isFat($_) && ! exists $new{$_->{mntpoint}} && ! exists $new{"/dev/$_->{device}"} } @$fstab; #- inserts dos/win partitions in fstab. #- backward compatible win kdeicons script to handle upgrade correctly? #- take into account an already provided mount point. unshift @to_add, map_index { my $i = $::i ? $::i + 1 : ''; my $device = $_->{device} =~ /^\/dev\/(.*)$/ ? $1 : $_->{device}; my $mntpoint = $_->{mntpoint} ? $_->{mntpoint} : "/mnt/DOS_$device"; #- keep in mind the new line for fstab. @new{($mntpoint, "/dev/$device")} = undef; mkdir "$prefix/$mntpoint", 0755 or log::l("failed to mkdir $prefix/$mntpoint: $!"); eval { devices::make("$prefix/dev/$device") }; [ "/dev/$device", $mntpoint, "vfat", "user,exec,conv=binary", 0, 0 ]; } grep { isFat($_) && ! exists $new{"/dev/$_->{device}"} } @$fstab; push @to_add, sort { $a->[1] cmp $b->[1] } grep { !exists $new{$_->[0]} && !exists $new{$_->[1]} } map { [ split ] } cat_("$prefix/etc/fstab"); log::l("writing $prefix/etc/fstab"); local *F; open F, "> $prefix/etc/fstab" or die "error writing $prefix/etc/fstab"; print F join(" ", @$_), "\n" foreach @to_add; } sub check_mount_all_fstab($;$) { my ($fstab, $prefix) = @_; $prefix ||= ''; foreach (sort { ($a->{mntpoint} || '') cmp ($b->{mntpoint} || '') } @$fstab) { #- avoid unwanted mount in fstab. next if ($_->{device} =~ /none/ || $_->{type} =~ /nfs|smbfs|ncpfs|proc/ || $_->{options} =~ /noauto|ro/); #- TODO fsck eval { mount(devices::make($_->{device}), $prefix . $_->{mntpoint}, $_->{type}, 0); }; if ($@) { log::l("unable to mount partition $_->{device} on $prefix/$_->{mntpoint}"); } } }
generated by cgit v1.2.1 (git 2.21.0) at 2025-03-06 03:36:39 +0000