diff options
| -rw-r--r-- | perl-install/NEWS | 1 | ||||
| -rw-r--r-- | perl-install/diskdrake/dav.pm | 11 |
2 files changed, 12 insertions, 0 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS index de13db4ce..4d9c32674 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -5,6 +5,7 @@ o Fix a crash with regexp when a /etc/davfs2/secrets line is finished with one or more blank characters without comments o added the ability to exit the davfs2 mountpoint settings panel + o added delete mountpoint support for davfs2 - adduserdrake o now use password weakness display - added password weakness display feature in interactive diff --git a/perl-install/diskdrake/dav.pm b/perl-install/diskdrake/dav.pm index e671a3ea2..6a7ae8770 100644 --- a/perl-install/diskdrake/dav.pm +++ b/perl-install/diskdrake/dav.pm @@ -65,6 +65,7 @@ sub actions { N_("Server") => \&ask_server, N_("Mount point") => \&mount_point, N_("Options") => \&options, + N_("Remove") => \&remove, N_("Done") => sub {}, ); } @@ -99,6 +100,16 @@ sub options { diskdrake::interactive::Options($in, {}, $dav, $all_hds); return; } + +sub remove { + my ($in, $dav, $all_hds) = @_; + if ($in->ask_yesorno(N("Warning"), N("Are you sure you want to delete this mountpoint?"))) { + @{$all_hds->{davs}} = grep($_->{mntpoint} ne $dav->{mntpoint}, @{$all_hds->{davs}}); + return 1; + } + return; +} + sub mount_point { my ($in, $dav, $all_hds) = @_; my $proposition = $dav->{device} =~ /(\w+)/ ? "/mnt/$1" : "/mnt/dav"; |