diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-08-13 19:03:01 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-08-13 19:03:01 +0000 |
| commit | 7e8dafb1d5172f74dd5204ab4009d7f19b6d1d5d (patch) | |
| tree | fb120c22302447a807c3673e3371e471254b1dfd /perl-install/fs.pm | |
| parent | aa19bdfd007143ebe13a762072ab12302b8f3a74 (diff) | |
| download | drakx-7e8dafb1d5172f74dd5204ab4009d7f19b6d1d5d.tar drakx-7e8dafb1d5172f74dd5204ab4009d7f19b6d1d5d.tar.gz drakx-7e8dafb1d5172f74dd5204ab4009d7f19b6d1d5d.tar.bz2 drakx-7e8dafb1d5172f74dd5204ab4009d7f19b6d1d5d.tar.xz drakx-7e8dafb1d5172f74dd5204ab4009d7f19b6d1d5d.zip | |
backend davfs (WebDAV) support
Diffstat (limited to 'perl-install/fs.pm')
| -rw-r--r-- | perl-install/fs.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/perl-install/fs.pm b/perl-install/fs.pm index 4ebf33f37..01f8f3ac4 100644 --- a/perl-install/fs.pm +++ b/perl-install/fs.pm @@ -140,6 +140,7 @@ sub add2all_hds { my $s = isThisFs('nfs', $_) ? 'nfss' : isThisFs('smbfs', $_) ? 'smbs' : + isThisFs('davfs', $_) ? 'davs' : 'special'; push @{$all_hds->{$s}}, $_; } @@ -202,7 +203,7 @@ sub prepare_write_fstab { my @smb_credentials; my @l = map { my $device = - $_->{device} eq 'none' || member($_->{type}, qw(nfs smbfs)) ? + $_->{device} eq 'none' || member($_->{type}, qw(nfs smbfs davfs)) ? $_->{device} : isLoopback($_) ? ($_->{mntpoint} eq '/' ? "/initrd/loopfs" : "$_->{loopback_device}{mntpoint}") . $_->{loopback_file} : @@ -312,6 +313,7 @@ sub mount_options_unpack { vfat => [ qw(umask=0) ], nfs => [ qw(rsize=8192 wsize=8192) ], smbfs => [ qw(username= password=) ], + davfs => [ qw(username= password= uid= gid=) ], reiserfs => [ 'notail' ], ); push @{$per_fs{$_}}, 'usrquota', 'grpquota' foreach 'ext2', 'ext3', 'xfs'; @@ -525,6 +527,7 @@ sub get_raw_hds { my @fstab = read_fstab($prefix, "/etc/fstab", 'all_options'); $all_hds->{nfss} = [ grep { isThisFs('nfs', $_) } @fstab ]; $all_hds->{smbs} = [ grep { isThisFs('smbfs', $_) } @fstab ]; + $all_hds->{davs} = [ grep { isThisFs('davfs', $_) } @fstab ]; $all_hds->{special} = [ (grep { isThisFs('tmpfs', $_) } @fstab), { device => 'none', mntpoint => '/proc', type => 'proc' }, @@ -680,7 +683,7 @@ sub mount { my @fs_modules = qw(vfat hfs romfs ufs reiserfs xfs jfs ext3); - if (member($fs, 'smb', 'smbfs', 'nfs', 'ntfs') && $::isStandalone) { + if (member($fs, 'smb', 'smbfs', 'nfs', 'davfs', 'ntfs') && $::isStandalone) { system('mount', '-t', $fs, $dev, $where, '-o', $options) == 0 or die _("mounting partition %s in directory %s failed", $dev, $where); return; #- do not update mtab, already done by mount(8) } elsif (member($fs, 'ext2', 'proc', 'usbdevfs', 'iso9660', @fs_modules)) { |