home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / boot / i386 / root / usr / share / YaST2 / clients / autoinst_test_clone.ycp < prev    next >
Encoding:
Text File  |  2006-11-29  |  752 b   |  31 lines
  1. {
  2.     textdomain "autoinst";
  3.     import "XML";
  4.     import "Wizard";
  5.     import "Popup";
  6.     import "Mode";
  7.     Mode::SetMode ("autoinst_config");
  8.     include "autoinstall/xml.ycp";
  9.     Wizard::CreateDialog();
  10.     Popup::ShowFeedback(_("Reading configuration data..."), _("This may take a while"));
  11.  
  12.     profileSetup();
  13.     string client = "";
  14.  
  15.     if (size (WFM::Args ()) > 0 && (is (WFM::Args(0), string)))
  16.     {
  17.         client = (string)WFM::Args(0);
  18.     }
  19.  
  20.     WFM::CallFunction( client + "_auto", ["Read"]);
  21.     any result = WFM::CallFunction( client + "_auto", ["Export"]);
  22.     map current = $[];
  23.     current[client] = result;
  24.     XML::YCPToXMLFile(`profile, current,  client + ".xml");
  25.     Popup::ClearFeedback();
  26.  
  27.     Wizard::CloseDialog();
  28.  
  29.  
  30. }
  31.