summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorAntoine Ginies <aginies@mandriva.com>2005-08-25 08:08:49 +0000
committerAntoine Ginies <aginies@mandriva.com>2005-08-25 08:08:49 +0000
commit96d800423463dd4e57ee71aee1d45997be57143c (patch)
tree2817a1d838c39827fd919f85bcf359dc55a7cfcc /perl-install
parenta98c827c53b8500a7965ff76cabb2d1670ec5537 (diff)
downloaddrakx-96d800423463dd4e57ee71aee1d45997be57143c.tar
drakx-96d800423463dd4e57ee71aee1d45997be57143c.tar.gz
drakx-96d800423463dd4e57ee71aee1d45997be57143c.tar.bz2
drakx-96d800423463dd4e57ee71aee1d45997be57143c.tar.xz
drakx-96d800423463dd4e57ee71aee1d45997be57143c.zip
use err_diag instead of ask_warn
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/draksambashare7
1 files changed, 4 insertions, 3 deletions
diff --git a/perl-install/standalone/draksambashare b/perl-install/standalone/draksambashare
index f957a087b..78ce7dc29 100755
--- a/perl-install/standalone/draksambashare
+++ b/perl-install/standalone/draksambashare
@@ -376,11 +376,12 @@ sub modify_entry {
cancel_clicked => sub { $w->destroy },
ok_clicked => sub {
my $share = $share_name->get_text;
- #$comment->get_text or $::in->ask_warn(N("Information"), N("Please enter a Comment for this share."));
- #! -d $samba->{$share}{path} or $::in->ask_warn(N("Error"), N("Please provide a directory."));
+ my $test_dir = $dir->get_text;
+ $comment->get_text or err_dialog(N("Information"), N("Please enter a Comment for this share.")) and return 1;
+ -d $test_dir or err_dialog(N("Error!"), N("Please enter a directory to share.")) and return;
foreach ($create_mask->get_text, $directory_mask->get_text) {
if ($_ && !/^\d+$/) {
- $::in->ask_warn(N("Error"), N("Create mask, create mode and directory mask should be numeric. ie: 0755.")) and return 1;
+ err_dialog(N("Error"), N("Create mask, create mode and directory mask should be numeric. ie: 0755.")) and return 1;
}
}
# update gui treeview