YaST/Tips/Custom Modules/Hostname and domain name configuration

From openSUSE

/**
 * File:	clients/inst_linkat-client-hostname.ycp
 * Summary:	Mandatory hostname configuration for the Linkat project
 * Authors:	Jordi Massaguer i Pla <jordi.massaguer [aŧ] opentrends [dot] es>
 * Copyright (c) 2007 Departament d'educació de la Generalitat de Catalunya
 */

{

textdomain "network";

import "Arch";
import "DNS";
import "GetInstArgs";
import "NetworkConfig";
import "String";

include "network/services/dns.ycp";


/* Called backwards */
//if(GetInstArgs::going_back())
//   return `auto;

DNS::Read ();			// handles NetworkConfig too

srandom ();
DNS::hostname = "linkat-" + String::Random (4); // #157107
DNS::domain = "intracentre";

// propose settings
NetworkConfig::DHCP["DHCLIENT_SET_HOSTNAME"] = false;

symbol ret = HostnameDialog ();

if (ret == `next)
{
    // do not let Lan override us, #152218
    DNS::proposal_valid = true;
    DNS::Write ();		// handles NetworkConfig too
}

return ret;

/* EOF */
}