summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorAntoine Ginies <aginies@mandriva.com>2005-07-06 03:05:11 +0000
committerAntoine Ginies <aginies@mandriva.com>2005-07-06 03:05:11 +0000
commit6d1f5f74a8ed8dd8c9209d0f478a0c4231a5a1fd (patch)
tree52fa94572490044a13197021710d1b29e8682815 /perl-install
parent38c5de0bbbb2df2d57892b8c05101a235f63c0a4 (diff)
downloaddrakx-backup-do-not-use-6d1f5f74a8ed8dd8c9209d0f478a0c4231a5a1fd.tar
drakx-backup-do-not-use-6d1f5f74a8ed8dd8c9209d0f478a0c4231a5a1fd.tar.gz
drakx-backup-do-not-use-6d1f5f74a8ed8dd8c9209d0f478a0c4231a5a1fd.tar.bz2
drakx-backup-do-not-use-6d1f5f74a8ed8dd8c9209d0f478a0c4231a5a1fd.tar.xz
drakx-backup-do-not-use-6d1f5f74a8ed8dd8c9209d0f478a0c4231a5a1fd.zip
fix undefined options
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/standalone/draknfs7
1 files changed, 3 insertions, 4 deletions
diff --git a/perl-install/standalone/draknfs b/perl-install/standalone/draknfs
index a69c6ab61..71d1c6b9e 100644
--- a/perl-install/standalone/draknfs
+++ b/perl-install/standalone/draknfs
@@ -352,11 +352,10 @@ sub add_modify_entry {
my ($anonu, $anong);
$anonuid->get_text and $anonu = "anonuid=" . $anonuid->get_text;
$anongid->get_text and $anong = "anongid=" . $anongid->get_text;
- if ($lsync->get_text =~ /yes/) { $lsync_data = "sync" } elsif ($lsync->get_text =~ /no/) { $lsync_data = "async" } else { $lsync_data = "" }
- if ($lr->get_text =~ /yes/) { $lr_data = "ro" } elsif ($lr->get_text =~ /no/) { $lr_data = "rw" } else { $lr_data = "" }
- if ($lsecure->get_text =~ /yes/) { $lsecure_data = "secure" } elsif ($lsecure->get_text =~ /no/) { $lsecure_data = "insecure" } else { $lsecure_data = "" }
+ if ($lsync->get_text =~ /yes/) { $lsync_data = "sync" } elsif ($lsync->get_text =~ /no/) { $lsync_data = "async" } else { undef $lsync_data }
+ if ($lr->get_text =~ /yes/) { $lr_data = "ro" } elsif ($lr->get_text =~ /no/) { $lr_data = "rw" } else { undef $lr_data }
+ if ($lsecure->get_text =~ /yes/) { $lsecure_data = "secure" } elsif ($lsecure->get_text =~ /no/) { $lsecure_data = "insecure" } else { undef $lsecure_data }
my $all_right = join(",", grep { defined $_ } $luserid->get_text, $anonu, $anong, $lsync_data, $lsecure_data, $lr_data);
- print "---------- $all_right -----\n";
if ($wanted =~ /add/) {
my $test_dir = $dir->get_text;
-d $test_dir or err_dialog(N("Error!"), N("Please enter a directory to share.")) and return;