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 / test_inst_client.ycp < prev    next >
Encoding:
Text File  |  2006-11-29  |  670 b   |  40 lines
  1. /**
  2.  * File:    test_proposal.ycp
  3.  * Summary:    For testing the network and hardware proposals.
  4.  * Author:    Michal Svec <msvec@suse.cz>
  5.  *
  6.  * $Id: test_inst_client.ycp 32528 2006-08-23 11:23:58Z jsrain $
  7.  */
  8.  
  9. {
  10.  
  11. import "Mode";
  12. import "Stage";
  13. import "Wizard";
  14.  
  15. /*
  16. map args = $[];
  17. args["enable_back"] = true;
  18. args["enable_next"] = true;
  19. */
  20.  
  21. any aclient = WFM::Args (0);
  22. if (!is (aclient, string))
  23.      return false;
  24. string client = (string) aclient;
  25. if (find (client, "inst_") != 0)
  26. {
  27.     client = "inst_" + client;
  28. }
  29.  
  30. Stage::Set ("continue");
  31. Mode::SetMode ("installation");
  32.  
  33. Wizard::CreateDialog ();
  34. WFM::call (client, []);
  35. Wizard::CloseDialog ();
  36.  
  37. return true; 
  38. /* EOF */
  39. }
  40.