summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakupdate_fstab
Commit message (Expand)AuthorAgeFilesLines
* update copyright noticesThierry Vignaud2004-01-221-1/+1
* fix typo (pixel sux)Pascal Rigaux2003-09-151-1/+1
* re-enable supermountPascal Rigaux2003-09-091-1/+1
* new perl_checker compliancePascal Rigaux2003-04-171-7/+9
* have fd0 & fd1 be recognised as known entries, even if we don't probe themPascal Rigaux2003-03-121-0/+1
* allow removing device "non kudzu flagged" (for harddrake)Pascal Rigaux2003-02-271-3/+4
* help perl_checkerPascal Rigaux2003-02-131-2/+2
* any::get_secure_level() doesn't exist anymore, use security::level::get() ins...Pascal Rigaux2002-12-191-1/+2
* fix blind copyright copyThierry Vignaud2002-11-201-1/+1
* use flag "kudzu" for entries automatically handled by drakupdate_fstabPascal Rigaux2002-09-111-0/+11
* force non-supermount, supermount is too buggyPascal Rigaux2002-09-091-1/+1
* do not use standalone (so that no "explaination" are generated)Pascal Rigaux2002-09-041-2/+2
* fix check_hard_drivesPascal Rigaux2002-08-291-1/+2
* in --auto, print the mount points add/removed for use in hotplugPascal Rigaux2002-08-291-4/+13
* - add option --autoPascal Rigaux2002-08-291-1/+19
* new prog drakupdate_fstabPascal Rigaux2002-08-281-0/+123
generated by cgit v1.2.1 (git 2.21.0) at 2024-12-05 00:28:33 +0000
n class="hl ipl">$fs->{fs_name}"; sysread $fs->{fd}, $buf, $fs->{cluster_size} or die "reading at sector #$pos failed on device $fs->{fs_name}"; $buf; } sub write_cluster($$$) { my ($fs, $cluster, $buf) = @_; my $pos = $fs->{cluster_offset} / 512 + $cluster * ($fs->{cluster_size} / 512); c::lseek_sector(fileno $fs->{fd}, $pos, 0) or die "seeking to sector #$pos failed on device $fs->{fs_name}"; syswrite $fs->{fd}, $buf or die "writing at sector #$pos failed on device $fs->{fs_name}"; } sub read_file($$) { my ($fs, $cluster) = @_; my $buf = ''; for (; !resize_fat::fat::is_eof($cluster); $cluster = resize_fat::fat::next($fs, $cluster)) { $cluster == 0 and die "Bad FAT: unterminated chain\n"; $buf .= read_cluster($fs, $cluster); } $buf; } sub check_mounted($) { my ($f) = @_; local *F; open F, "/proc/mounts" or die "error opening /proc/mounts\n"; foreach (<F>) { /^$f\s/ and die "device is mounted"; } } sub open { my ($fs) = @_; check_mounted($fs->{device}); sysopen $fs->{fd}, $fs->{fs_name}, 2 or sysopen $fs->{fd}, $fs->{fs_name}, 0 or die "error opening device $fs->{fs_name} for writing\n"; }
generated by cgit v1.2.1 (git 2.21.0) at 2024-12-05 00:28:29 +0000