summaryrefslogtreecommitdiffstats
path: root/perl-install
Commit message (Expand)AuthorAgeFilesLines
* no_commentPascal Rigaux2000-04-1215-78/+233
* *** empty log message ***Francois Pons2000-04-122-2/+6
* *** empty log message ***Francois Pons2000-04-126-8/+52
* updated language selectionsPablo Saratxaga2000-04-112-20/+49
* *** empty log message ***Francois Pons2000-04-117-22/+95
* no_commentPascal Rigaux2000-04-103-4/+11
* *** empty log message ***Francois Pons2000-04-106-19/+140
* Updated Danish and Norwegian filesPablo Saratxaga2000-04-102-295/+294
* *** empty log message ***Francois Pons2000-04-077-19/+48
* updated message for GRUBPablo Saratxaga2000-04-072-0/+2
* updated ca, es, zh_CN, noPablo Saratxaga2000-04-073-1049/+1068
* no_commentPascal Rigaux2000-04-062-0/+0
* no_commentPascal Rigaux2000-04-0614-134/+722
* *** empty log message ***Francois Pons2000-04-065-12/+17
* no_commentPascal Rigaux2000-04-0511-40/+94
* *** empty log message ***Francois Pons2000-04-057-83/+191
* *** empty log message ***Pascal Rigaux2000-04-051-1/+1
* update-poPablo Saratxaga2000-04-043-1278/+1369
* no_commentPascal Rigaux2000-04-046-15/+16
* Added Latvian languagePablo Saratxaga2000-04-041-0/+5
* *** empty log message ***Francois Pons2000-04-045-24/+50
* no_commentPascal Rigaux2000-04-043-17/+21
* no_commentPascal Rigaux2000-04-034-1/+14
* no_commentPascal Rigaux2000-04-031-2/+4
* no_commentPascal Rigaux2000-04-0315-125/+187
* *** empty log message ***Francois Pons2000-04-032-6/+8
* update-poPablo Saratxaga2000-04-023-1602/+1590
* changed '#' to 'Nr 'Pablo Saratxaga2000-04-022-2/+2
* *** empty log message ***Francois Pons2000-03-315-56/+72
* some more PPC keyboards choicesPablo Saratxaga2000-03-312-2/+8
* *** empty log message ***Francois Pons2000-03-3111-114/+206
* no_commentPascal Rigaux2000-03-302-4/+4
* no_commentPascal Rigaux2000-03-3013-126/+175
* update-poPablo Saratxaga2000-03-303-574/+695
* no_commentPascal Rigaux2000-03-3021-94/+240
* update-poPablo Saratxaga2000-03-293-399/+375
* *** empty log message ***Pascal Rigaux2000-03-291-165/+189
* update-poPablo Saratxaga2000-03-283-1368/+1385
* kbd fixesPablo Saratxaga2000-03-281-2/+2
* updated keyboard namesPablo Saratxaga2000-03-281-1/+1
* Updated Armenian keyboardsPablo Saratxaga2000-03-281-0/+0
* Updated Armenian kbdsPablo Saratxaga2000-03-281-0/+4
* updated Armenian kbdsPablo Saratxaga2000-03-281-2/+4
* no_commentPascal Rigaux2000-03-2611-35/+65
* Updated Slovakian filePablo Saratxaga2000-03-261-0/+4
* no_commentPascal Rigaux2000-03-2515-229/+254
* Updated Bulgarian and Spanish filesPablo Saratxaga2000-03-253-281/+250
* update-poPablo Saratxaga2000-03-243-423/+456
* no_commentPascal Rigaux2000-03-247-94/+66
* no_commentPascal Rigaux2000-03-237-13/+64
generated by cgit v1.2.1 (git 2.21.0) at 2025-03-02 10:28:20 +0000
>, "ext2", $dev); } sub format_dos($;$@) { my ($dev, $bad_blocks, @options) = @_; run_program::run("mkdosfs", devices::make($dev), @options, $bad_blocks ? "-c" : ()) or die _("%s formatting of %s failed", "dos", $dev); } sub format_part($;$) { my ($part, $bad_blocks) = @_; $part->{isFormatted} and return; log::l("formatting device $part->{device} (type ", type2name($part->{type}), ")"); if (isExt2($part)) { format_ext2($part->{device}, $bad_blocks); } elsif (isDos($part)) { format_dos($part->{device}, $bad_blocks); } elsif (isWin($part)) { format_dos($part->{device}, $bad_blocks, '-F', 32); } elsif (isSwap($part)) { swap::make($part->{device}, $bad_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; 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; isSwap($part) ? swap::swapoff($part->{device}) : umount(($prefix || '') . ($part->{mntpoint} || devices::make($part->{device}))); $part->{isMounted} = 0; } sub mount_all($;$) { my ($fstab, $prefix) = @_; log::l("mounting all filesystems"); #- order mount by alphabetical ordre, that way / < /home < /home/httpd... foreach (sort { ($a->{mntpoint} || '') cmp ($b->{mntpoint} || '') } @$fstab) { mount_part($_, $prefix) if $_->{mntpoint}; } } 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) = @_; log::l("resetting /etc/mtab"); local *F; open F, "> $prefix/etc/mtab" or die "error resetting $prefix/etc/mtab"; my @to_add = ( [ 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: $!"); [ "/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: $!"); [ "/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}; isExt2($_) and ($freq, $passno) = (1, ($_->{mntpoint} eq '/') ? 1 : 2); isNfs($_) and ($dir, $options) = ('', 'ro'); #- keep in mind the new line for fstab. @new{($_->{mntpoint}, $_->{"$dir$_->{device}"})} = undef; devices::make("$prefix/$dir$_->{device}") if $_->{device} && $dir; [ "$dir$_->{device}", $_->{mntpoint}, type2fs($_->{type}), $options, $freq, $passno ]; } grep { $_->{mntpoint} && type2fs($_->{type}) && ! exists $new{$_->{mntpoint}} && ! exists $new{"/dev/$_->{device}"} } @$fstab; my @current = cat_("$prefix/etc/fstab"); log::l("writing $prefix/etc/fstab"); local *F; open F, "> $prefix/etc/fstab" or die "error writing $prefix/etc/fstab"; foreach (@current) { my ($a, $b) = split; #- if we find one line of fstab containing either the same device or mntpoint, do not write it exists $new{$a} || exists $new{$b} and next; print F $_; } 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-02 10:28:20 +0000