diff options
| -rw-r--r-- | perl-install/diskdrake/dav.pm | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/perl-install/diskdrake/dav.pm b/perl-install/diskdrake/dav.pm index 13f6e09fa..ad06f958c 100644 --- a/perl-install/diskdrake/dav.pm +++ b/perl-install/diskdrake/dav.pm @@ -42,9 +42,9 @@ sub config { my $dav = { %$dav_ }; #- working on a local copy so that "Cancel" works - my %actions = my @actions = actions(); my $action; while ($action ne 'Done') { + my %actions = my @actions = actions($dav); $action = $in->ask_from_list_('', format_dav_info($dav), [ map { $_->[0] } group_by2 @actions ], 'Done') or return; $actions{$action}->($in, $dav, $all_hds); @@ -53,7 +53,11 @@ sub config { } sub actions { + my ($dav) = @_; + ( + if_($dav && $dav->{isMounted}, __("Unmount") => sub { try('Unmount', @_) }), + if_($dav && $dav->{mntpoint} && !$dav->{isMounted}, __("Mount") => sub { try('Mount', @_) }), __("Server") => \&ask_server, __("Mount point") => \&mount_point, __("Options") => \&options, @@ -61,6 +65,15 @@ sub actions { ); } +sub try { + my ($name, $in, $dav) = @_; + my $f = $diskdrake::interactive::{$name} or die "unknown function $name"; + eval { $f->($in, {}, $dav) }; + if (my $err = $@) { + $in->ask_warn(_("Error"), formatError($err)); + } +} + sub ask_server { my ($in, $dav, $all_hds) = @_; |