summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorAntoine Ginies <aginies@mandriva.com>2005-07-05 06:47:30 +0000
committerAntoine Ginies <aginies@mandriva.com>2005-07-05 06:47:30 +0000
commitb550f48fe108f6b80669d52c2d494dc40c065cb6 (patch)
treed56c00508699c8af1968aedd65be7f7cf8de8002 /perl-install
parentfe83432531821870b3aacb595f26ff8cb6ba67e7 (diff)
downloaddrakx-b550f48fe108f6b80669d52c2d494dc40c065cb6.tar
drakx-b550f48fe108f6b80669d52c2d494dc40c065cb6.tar.gz
drakx-b550f48fe108f6b80669d52c2d494dc40c065cb6.tar.bz2
drakx-b550f48fe108f6b80669d52c2d494dc40c065cb6.tar.xz
drakx-b550f48fe108f6b80669d52c2d494dc40c065cb6.zip
various other fix to be able to build drakxtools
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/standalone/draknfs17
1 files changed, 9 insertions, 8 deletions
diff --git a/perl-install/standalone/draknfs b/perl-install/standalone/draknfs
index c1a6b70a5..c102009b3 100644
--- a/perl-install/standalone/draknfs
+++ b/perl-install/standalone/draknfs
@@ -244,20 +244,21 @@ sub add_modify_entry {
$anongid->get_text and $anong = "anongid=" . $anongid->get_text;
map { $_ and $all_right = $_ . "," . $all_right } $luserid->get_text, $anonu, $anong, $lsync->get_text, $lsecure->get_text, $lr->get_text;
if ($wanted =~ /add/) {
- -d $dir->get_text or err_dialog(N("Error!"), N("Please enter a directory to share.")) and return;
+ my $test_dir = $dir->get_text;
+ -d $test_dir or err_dialog(N("Error!"), N("Please enter a directory to share.")) and return;
$iter = $model->append;
$i = "-1";
push @listshare, {
- dir => $dir->get_text(),
- access => $access->get_text(),
+ dir => $dir->get_text,
+ access => $access->get_text,
right => $all_right,
- options => $options->get_text(),
+ options => $options->get_text,
};
}
$listshare[$i]{right} = $all_right;
- $listshare[$i]{access} = $access->get_text();
- $listshare[$i]{dir} = $dir->get_text();
- $listshare[$i]{options} = $options->get_text();
+ $listshare[$i]{access} = $access->get_text;
+ $listshare[$i]{dir} = $dir->get_text;
+ $listshare[$i]{options} = $options->get_text;
$model->set($iter,
COLUMN_DIR, $listshare[$i]{dir},
COLUMN_ACCESS, $listshare[$i]{access},
@@ -298,7 +299,7 @@ sub create_model() {
COLUMN_ACCESS, $a->{access},
COLUMN_RIGHT, $a->{right},
COLUMN_OPTIONS, $a->{options},
- ),
+ );
}
return $model;
}