summaryrefslogtreecommitdiffstats
path: root/sshd_wizard
diff options
context:
space:
mode:
Diffstat (limited to 'sshd_wizard')
-rwxr-xr-xsshd_wizard/Sshd.pm18
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",