summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorAurélien Lefebvre <alefebvre@mandriva.com>2009-08-17 12:56:29 +0000
committerAurélien Lefebvre <alefebvre@mandriva.com>2009-08-17 12:56:29 +0000
commitfe972aaf9ac7a74ec204d5f4ba7f80dd0ab0901e (patch)
tree6e5cc730d51d855f9cbd491a569294a14d1ce596 /perl-install
parent8fc30ca17ef0f39afc256ce634208171054206d7 (diff)
downloaddrakx-fe972aaf9ac7a74ec204d5f4ba7f80dd0ab0901e.tar
drakx-fe972aaf9ac7a74ec204d5f4ba7f80dd0ab0901e.tar.gz
drakx-fe972aaf9ac7a74ec204d5f4ba7f80dd0ab0901e.tar.bz2
drakx-fe972aaf9ac7a74ec204d5f4ba7f80dd0ab0901e.tar.xz
drakx-fe972aaf9ac7a74ec204d5f4ba7f80dd0ab0901e.zip
- diskdrake : added the ability to exit the davfs2 mountpoint settings panel
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/NEWS1
-rw-r--r--perl-install/diskdrake/dav.pm8
2 files changed, 7 insertions, 2 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index 07fdfe45d..de13db4ce 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -4,6 +4,7 @@
o when user does not specify user/pass with davfs2, fallback to nobody/nobody
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
- 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 4950b2bb0..e671a3ea2 100644
--- a/perl-install/diskdrake/dav.pm
+++ b/perl-install/diskdrake/dav.pm
@@ -37,6 +37,7 @@ sub create {
ask_server($in, $dav, $all_hds) or return;
push @{$all_hds->{davs}}, $dav;
config($in, $dav, $all_hds);
+ return;
}
sub config {
@@ -45,11 +46,12 @@ sub config {
my $dav = { %$dav_ }; #- working on a local copy so that "Cancel" works
my $action;
- while ($action ne 'Done') {
+ my $exit;
+ while (!$exit && $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);
+ $exit = $actions{$action}->($in, $dav, $all_hds);
}
%$dav_ = %$dav; #- applying
}
@@ -95,11 +97,13 @@ sub ask_server {
sub options {
my ($in, $dav, $all_hds) = @_;
diskdrake::interactive::Options($in, {}, $dav, $all_hds);
+ return;
}
sub mount_point {
my ($in, $dav, $all_hds) = @_;
my $proposition = $dav->{device} =~ /(\w+)/ ? "/mnt/$1" : "/mnt/dav";
diskdrake::interactive::Mount_point_raw_hd($in, $dav, $all_hds, $proposition);
+ return;
}
sub format_dav_info {