diff options
Diffstat (limited to 'sshd_wizard/Sshd.pm')
| -rwxr-xr-x | sshd_wizard/Sshd.pm | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/sshd_wizard/Sshd.pm b/sshd_wizard/Sshd.pm index 4a4b3f0d..d9a28aa3 100755 --- a/sshd_wizard/Sshd.pm +++ b/sshd_wizard/Sshd.pm @@ -1,7 +1,7 @@ #!/usr/bin/perl # Drakwizard -# Copyright (C) 2002,2005 Mandriva +# Copyright (C) 2002,2008 Mandriva # # Authors: antoine Ginies <aginies@mandriva> # @@ -29,11 +29,11 @@ use Libconf::Templates; use Libconf::Glueconf::Networking::Sshd_config; -my $wiz = new MDK::Wizard::Wizcommon; +my $wiz = new MDK::Wizard:::Wizcommon; my $in = interactive->vnew; my $conf = "/etc/ssh/sshd_config"; my $DOMAINNAME = chomp_(`dnsdomainname`); -my $SHORTHOSTNAME = chomp_(`hostname -s`); +#my $SHORTHOSTNAME = chomp_(`hostname -s`); # we ask glueconf to give us the structure representing /etc/ssh/sshd_config my $sshd = new Libconf::Glueconf::Networking::Sshd_config({ filename => '/etc/ssh/sshd_config' }); @@ -47,12 +47,12 @@ my $o = { var => { wiz_port => '', }, - init => sub { - my ($err, $msg) = test_host_domain($SHORTHOSTNAME, $DOMAINNAME); - if (!$err) { - $in->ask_warn(N('Error'), $msg); - die 'wizcancel'; - } +# init => sub { +# my ($err, $msg) = test_host_domain($SHORTHOSTNAME, $DOMAINNAME); +# if (!$err) { +# $in->ask_warn(N('Error'), $msg); +# die 'wizcancel'; +# } }, needed_rpm => [ 'openssh-server' ], defaultimage => "/usr/share/wizards/sshd_wizard/images/IC-Dssh-48.png", |