#!/usr/bin/perl

# Drakwizard

# Copyright (C) 2002,2003 Mandrakesoft
# 
# Authors: Arnaud Desmons <adesmons@mandrakesoft.com>
#          Florent Villard <warly@mandrakesoft.com>
#
# 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::Bind_client;
use lib qw(/usr/lib/libDrakX);
use strict;

use common;
use services;
use MDK::Wizard::Varspaceval;
use MDK::Wizard::Wizcommon;

my $wiz = new MDK::Wizard::Wizcommon;
my $wiz_ip_server = $wiz->{net}->itf_get("IPADDR");
my $wiz_domain_name = $wiz->{net}->network_get("DOMAINNAME");

my $o = { 
    name => N("DNS Client Wizard"),
    var => { 
	    client_ip => '',
	    client_name => ''
	},
    needed_rpm => [ ],
    defaultimage => "$ENV{__WIZ_HOME__}client_wizard/images/DNS.png",
    init => sub {
	if (! -f "/var/named/$wiz_domain_name.db") {
	    return (0, N("You must first run the DNS server wizard"))
	}
	1
    }
    };

$o->{pages} = { 
		  welcome => {
		      name => N("DNS Client Wizard") . "\n\n" . N("A client of your local network is a machine connected to the network having its own name and IP address.") . "\n\n" . N("This wizard will help you in adding a new client in your local DNS.") . "\n\n" . N("The server will use the informations you enter here to make the name of the client available to other machines into your network.") . "\n\n" . N("Press next to begin, or Cancel to leave this wizard."),
		      post => sub { $wiz->check_dhcp },
		  no_back => 1,
	          next => 'client_id'
	      },
	      client_id => {
	          name => N("Client identification:") . "\n\n" . N("Your client on the network will be identified by name, as in clientname.company.net. Every machine on the network must have a (unique) IP address, in the usual dotted syntax.") . "\n\n" . N("(you don't need to type the domain after the name)") . "\n\n" . N("Note that the given IP address and client name should be unique in the network."),
		  pre => sub {
		    $o->{var}{client_ip} = ip();
		    $o->{var}{client_name} = name();
		  },
                  data => [
		      { label => N("Name of the machine:"), val => \$o->{var}{client_name} },
		      { label => N("IP address of the machine:"), val => \$o->{var}{client_ip} },
		      ],
	          next => 'summary'
	      },
	      dhcp_warning => {
		name => N("Warning") . "\n\n" . N("You are in dhcp, server may not work with your configuration."),
		ignore => 1,
	        next => 'client_id'
	      },
	      system_error => {
		name => N("Error") . "\n\n" . N("System error, no configuration done"),
		ignore => 1,
	        next => 'client_id'
	      },
	      error => {
		name => N("Error") . "\n\n" . N("This is not a valid address... press next to continue"),
		ignore => 1,
	        next => 'client_id'
	      },
	      summary => {
	        name => N("Adding a new client to your network") . "\n\n" . N("The wizard collected the following parameters needed to add a client to your network:") . "\n\n" . N("To accept these values, and add your client, click the Next button or use the Back button to correct them."),
                data => [
		      { label => N("Client name"), fixed_val => \$o->{var}{client_name} },
		      { label => N("Client IP:"), fixed_val => \$o->{var}{client_ip} },
		  ],
		post => \&do_it,
	        next => 'end'
	      },
	      end => { 
	        name => N("Congratulations") . "\n\n" . N("The wizard successfully added the client."),
		end => 1,
	        next => 0
	  },
};

sub check_dhcp {
    $wiz->{net}->is_dhcp() and return 'dhcp_warning';
}

sub name {
    $wiz->{net}->network_get("HOSTNAME");
}

sub ip {
    $wiz_ip_server;
}