From f1d6b8a9d3c06f74e904959887cf043d09aff687 Mon Sep 17 00:00:00 2001
From: Dexter Morgan <dmorgan@mageia.org>
Date: Thu, 2 Jun 2011 20:51:50 +0000
Subject: Branch for updates

---
 common/Wizcommon.pm | 75 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 75 insertions(+)
 create mode 100644 common/Wizcommon.pm

(limited to 'common/Wizcommon.pm')

diff --git a/common/Wizcommon.pm b/common/Wizcommon.pm
new file mode 100644
index 00000000..7e58107a
--- /dev/null
+++ b/common/Wizcommon.pm
@@ -0,0 +1,75 @@
+#!/usr/bin/perl
+
+# Copyright (C) 2003 Mandrakesoft
+#
+# Author: Florent Villard <warly@mandrakesoft.com>
+#         A Ginies
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2, or (at your option)
+# any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
+package MDK::Wizard::Wizcommon;
+use strict;
+use standalone;
+use common;
+use MDK::Common;
+use MDK::Wizard::IFCFG;
+
+our @ISA = qw(Exporter);
+our @EXPORT = qw(check_started check_starts_on_boot test_host_domain);
+
+my $net;
+
+sub check_dhcp {
+    $net->is_dhcp and return 'dhcp_warning';
+}
+
+sub new {
+    my ($class) = @_;
+    $net = new MDK::Wizard::IFCFG;
+    bless {
+	    net => $net,
+       }, $class;
+}
+
+sub check_started {
+  my ($service) = @_;
+  my ($isrunning) = chomp_(`pidof $service`) =~ /(\d+)/m;
+  if (!$isrunning) {
+    return 'error_end';
+  }
+}
+
+sub check_starts_on_boot($$) {
+    my ($in, $servicename) = @_;
+    if (!services::starts_on_boot($servicename)) {
+	my $start_service = $in->ask_yesorno(N("Start %s server on boot", $servicename), N("Would you like to start the %s service automatically on every boot?", $servicename), 1);
+	if ($start_service) {
+	    services::start_service_on_boot($servicename);
+	}
+    }
+}
+
+sub test_host_domain {
+  my ($SHORTHOSTNAME, $DOMAINNAME) = @_;
+  if ($SHORTHOSTNAME =~ /localhost/) {
+    return 0, N("You need to readjust your hostname. 'localhost' is not a correct hostname for a DNS server. Hostname must be a FQDN: Fully Qualified Domain Name");
+  }
+  if (member($DOMAINNAME, qw(localdomain (none))) && -z $DOMAINNAME) {
+    return 0, N("You need to readjust your domainname. For a DNS server you need a correct domainname, not equal to localdomain or none. Hostname must be a FQDN: Fully Qualified Domain Name. Launch drakconnect to adjust it.");
+  }
+  return 1;
+}
+
+1;
-- 
cgit v1.2.1