ACC SHELL

{
    textdomain "autoinst";
    import "XML";
    import "Wizard";
    import "Popup";
    import "Mode";
    Mode::SetMode ("autoinst_config");
    include "autoinstall/xml.ycp";
    Wizard::CreateDialog();
    Popup::ShowFeedback(_("Reading configuration data..."), _("This may take a while"));

    profileSetup();
    string client = "";

    if (size (WFM::Args ()) > 0 && (is (WFM::Args(0), string)))
    {
        client = (string)WFM::Args(0);
    }

    WFM::CallFunction( client + "_auto", ["Read"]);
    any result = WFM::CallFunction( client + "_auto", ["Export"]);
    map current = $[];
    current[client] = result;
    XML::YCPToXMLFile(`profile, current,  client + ".xml");
    Popup::ClearFeedback();

    Wizard::CloseDialog();


}