diff options
author | Antoine Ginies <aginies@mandriva.com> | 2006-06-20 15:45:00 +0000 |
---|---|---|
committer | Antoine Ginies <aginies@mandriva.com> | 2006-06-20 15:45:00 +0000 |
commit | 3d6553c585664cd5a37a8ebbd7fbe265b98be868 (patch) | |
tree | 76a7fa6a154683b13c9c457bd551509a0d2e7f8d /samba_wizard/Samba.pm | |
parent | fc2cc58566b3e3fa34e34f8622f94411d476c56f (diff) | |
download | drakwizard-3d6553c585664cd5a37a8ebbd7fbe265b98be868.tar drakwizard-3d6553c585664cd5a37a8ebbd7fbe265b98be868.tar.gz drakwizard-3d6553c585664cd5a37a8ebbd7fbe265b98be868.tar.bz2 drakwizard-3d6553c585664cd5a37a8ebbd7fbe265b98be868.tar.xz drakwizard-3d6553c585664cd5a37a8ebbd7fbe265b98be868.zip |
fix ask_warn problem
Diffstat (limited to 'samba_wizard/Samba.pm')
-rwxr-xr-x | samba_wizard/Samba.pm | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/samba_wizard/Samba.pm b/samba_wizard/Samba.pm index dd1b0605..d665b980 100755 --- a/samba_wizard/Samba.pm +++ b/samba_wizard/Samba.pm @@ -33,6 +33,7 @@ use Libconf::Templates; use Libconf::Glueconf::Samba::Smb_conf; my $wiz = new MDK::Wizard::Wizcommon; +my $in = interactive->vnew; my $DOMAINNAME = chomp_(`dnsdomainname`); my $SHORTHOSTNAME = chomp_(`hostname -s`); @@ -98,7 +99,7 @@ $o->{pages} = { pre => sub { if (-f $wiz_samba_etc) { # $::isWizard = 1; -# $::in->ask_warn(N("Information"), N("It seems you previously setup a Samba server. This wizard will re-read your old configuration, and show you the Samba server type you choose")) and return 0; +# $in->ask_warn(N("Information"), N("It seems you previously setup a Samba server. This wizard will re-read your old configuration, and show you the Samba server type you choose")) and return 0; my $data = cat_($wiz_samba_etc); # detect old Samba type my ($old_type) = $data =~ /type=(\d)/; @@ -150,7 +151,7 @@ $o->{pages} = { ], complete => sub { if (!$o->{var}{wiz_domain_master}) { - $::in->ask_warn(N("Error"), N("The domain is wrong.")); + $in->ask_warn(N("Error"), N("The domain is wrong.")); return 1; } else { return 0 } }, @@ -180,7 +181,7 @@ $o->{pages} = { ], complete => sub { if ($o->{var}{wiz_wins_support} =~ /no/ and !$o->{var}{wiz_wins_server}) { - $::in->ask_warn(N("Error"), N("Your server doesn't support Wins. Please provide a Wins server, or leave blank Wins Support entry.")); + $in->ask_warn(N("Error"), N("Your server doesn't support Wins. Please provide a Wins server, or leave blank Wins Support entry.")); return 1; } else { return 0 } }, @@ -224,7 +225,7 @@ $o->{pages} = { ], complete => sub { if (!$o->{var}{wiz_password_server}) { - $::in->ask_warn(N("Error"), N("Please provide the password server.")); + $in->ask_warn(N("Error"), N("Please provide the password server.")); return 1; } else { return 0 } }, @@ -265,19 +266,19 @@ $o->{pages} = { ], complete => sub { if (!($o->{var}{wiz_ldap_suffix})) { - $::in->ask_warn(N("Error"), N("Please provide an LDAP suffix.")); + $in->ask_warn(N("Error"), N("Please provide an LDAP suffix.")); return 1; } if (! ($o->{var}{wiz_ldap_admin_dn})) { - $::in->ask_warn(N("Error"), N("Please enter an LDAP administrator.")); + $in->ask_warn(N("Error"), N("Please enter an LDAP administrator.")); return 1; } if (! ($o->{var}{wiz_ldap_root_pw})) { - $::in->ask_warn(N("Error"), N("Please enter an LDAP password.")); + $in->ask_warn(N("Error"), N("Please enter an LDAP password.")); return 1; } if ($o->{var}{wiz_ldap_root_pw} ne $o->{var}{wiz_ldap_root_pw_2}) { - $::in->ask_warn(N("Error"), N("Passwords do not match.")); + $in->ask_warn(N("Error"), N("Passwords do not match.")); return 1; } }, @@ -296,7 +297,7 @@ $o->{pages} = { ], complete => sub { if (!$o->{var}{wiz_workgroup}) { - $::in->ask_warn(N("Error"), N("The Workgroup is wrong.")); + $in->ask_warn(N("Error"), N("The Workgroup is wrong.")); return 1; } else { return 0 } }, @@ -312,7 +313,7 @@ $o->{pages} = { ], complete => sub { if (!$o->{var}{wiz_banner}) { - $::in->ask_warn(N("Error"), N("The Server Banner is incorrect.")); + $in->ask_warn(N("Error"), N("The Server Banner is incorrect.")); return 1; } else { return 0 } }, |