From 2b8d4b9ebf8449d474ffde8ae3d88fa1e6e9008a Mon Sep 17 00:00:00 2001
From: Antoine Ginies <aginies@mandriva.com>
Date: Fri, 6 Feb 2004 12:12:00 +0000
Subject: now use check_started

---
 dhcp_wizard/Dhcp.pm | 25 +++++++++++++++++--------
 1 file changed, 17 insertions(+), 8 deletions(-)

(limited to 'dhcp_wizard/Dhcp.pm')

diff --git a/dhcp_wizard/Dhcp.pm b/dhcp_wizard/Dhcp.pm
index d3dbccae..441ba0fa 100755
--- a/dhcp_wizard/Dhcp.pm
+++ b/dhcp_wizard/Dhcp.pm
@@ -25,11 +25,12 @@ package MDK::Wizard::Dhcp;
 use strict;
 
 use common;
+use services;
 use MDK::Wizard::Varspaceval;
 use MDK::Wizard::Wizcommon;
 
 my $wiz = new MDK::Wizard::Wizcommon;
-my $interface = 'eth1';
+my $interface = 'eth0';
 my $wiz_ip_server = $wiz->{net}->itf_get("IPADDR");
 if (!$wiz_ip_server) {
   ($wiz_ip_server) = `/sbin/ip addr show dev $interface` =~ /^\s*inet\s+(\d+\.\d+\.\d+\.\d+)/m;
@@ -113,18 +114,25 @@ $o->{pages} = {
 				   { label => N("Lowest IP Address:"), fixed_val => \$o->{var}{ip1} },
 				   { label => N("Highest IP Address:"), fixed_val => \$o->{var}{ip2} },
 				   { label => N("Gateway IP Address:"), fixed_val => \$o->{var}{gateway} },
-				   { label => N("Interface:"), fixed_val => \$o->{var}{interface} },
+				   { label => N("Interface:"), fixed_val => \$o->{var}{einterface} },
 				   { label => N("Enable PXE:"), fixed_val => \$o->{var}{pxeornot} },
 				  ],
 			  post => \&do_it,
 			  next => 'end'
 			 },
-	      end => {
-	        name => N("Congratulations") . "\n\n" . N("The wizard successfully configured the DHCP services of your server."),
-		end => 1,
-	        next => 0
-	  },
-};
+	       end => {
+		       name => N("Congratulations") . "\n\n" . N("The wizard successfully configured the DHCP services of your server."),
+		       end => 1,
+		       next => 0
+		      },
+	       error_end => {
+			     name => N("Failed"),
+                             data => [ { label => N("Relaunch drakwizard, and try to change some parameters.") } ],
+                             no_back => 1,
+                             end => 1,
+                             next => 0,
+                            },
+	      };
 
 sub compute_range {
     my $n;
@@ -251,6 +259,7 @@ mask = $wiz_ip_netmask, rng1 = $wiz_ip_range1, rng2 = $wiz_ip_range2, dname = $w
         services::start('dhcpd')
     }
     10;
+    check_started('dhcpd');
 }
 
 sub new {
-- 
cgit v1.2.1