ACC SHELL

/**
 * File:	test_proposal.ycp
 * Summary:	For testing the network and hardware proposals.
 * Author:	Michal Svec <msvec@suse.cz>
 *
 * $Id: test_inst_client.ycp 35857 2007-02-05 14:54:03Z locilka $
 */

{

import "Mode";
import "Stage";
import "Wizard";

/*
map args = $[];
args["enable_back"] = true;
args["enable_next"] = true;
*/

any aclient = WFM::Args (0);
if (!is (aclient, string))
     return false;
string client = (string) aclient;

// Client name does not start with "inst_"
if (! regexpmatch(client, "^inst_"))
{
    client = "inst_" + client;
}

Stage::Set ("continue");
Mode::SetMode ("installation");

Wizard::CreateDialog ();
WFM::call (client, []);
Wizard::CloseDialog ();

return true; 
/* EOF */
}