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 / lvm_config.ycp < prev    next >
Encoding:
Text File  |  2006-11-29  |  3.6 KB  |  129 lines
  1. /**
  2.  * File:
  3.  *   lvm_config.ycp
  4.  *
  5.  * Module:
  6.  *    configuration of lvm in installed system
  7.  * Summary:
  8.  *
  9.  * Authors:
  10.  *   mike <mike@suse.de>
  11.  *
  12.  * $Id: lvm_config.ycp 29327 2006-03-23 13:01:30Z fehr $
  13.  *
  14.  */
  15.  
  16.  
  17. {
  18.  
  19. textdomain "storage";
  20.  
  21. import "CommandLine";
  22. import "Label";
  23. import "Wizard";
  24. import "Package";
  25. import "Storage";
  26.  
  27. include "wizard/sequencer.ycp";
  28. include "partitioning/custom_part_testdata.ycp";
  29. include "partitioning/partition_defines.ycp";
  30. include "partitioning/lvm_ui_dialogs.ycp";
  31.  
  32. /////////////////////////////////////////////////////////////////////
  33. //                          WORKFLOW                               //
  34. /////////////////////////////////////////////////////////////////////
  35.  
  36. define symbol Dummy_NextStep()
  37.     ``{
  38.     Popup::ContinueCancel( Label::NextButton() );
  39.     return( `next );
  40.     }
  41.  
  42. map Aliases = $[
  43.     "config_ui"            : ``(WFM::CallFunction("lvm_config_ui")),
  44.     "apply_prepdisk"    : ``(WFM::CallFunction("inst_prepdisk")),
  45.     "finish_prepdisk"   : ``(WFM::CallFunction("inst_prepdisk"))
  46.     ];
  47.  
  48. map dummy_Aliases = $[
  49.     "config_ui"            : ``(WFM::CallFunction("lvm_config_ui")),
  50.     "apply_prepdisk"    : ``(Dummy_NextStep() ),
  51.     "finish_prepdisk"   : ``(Dummy_NextStep() )
  52.     ];
  53.  
  54. map Sequence = $[
  55.     "ws_start"  : "config_ui",
  56.  
  57.     "config_ui" : $[ `abort   :    `abort ,
  58.              `apply   : "apply_prepdisk",
  59.              `finish  : "finish_prepdisk" ],
  60.     "apply_prepdisk" : $[ `abort   :    `abort ,
  61.               `next    : "config_ui" ],
  62.     "finish_prepdisk": $[ `abort   :    `abort ,
  63.               `next    : `end ]
  64.     ];
  65.  
  66.  
  67. /////////////////////////////////////////////////////////////////////
  68. //                                   I N I T                       //
  69. /////////////////////////////////////////////////////////////////////
  70.  
  71. define any LVMSequence () {
  72.  
  73.     //////////////////////////////////////////////////////////////////////
  74.     // Reset Info about LVM and Partitioning
  75.     //////////////////////////////////////////////////////////////////////
  76.  
  77.     Wizard::SetDesktopIcon("lvm_config");
  78.  
  79.     //---------------------------------------------------------------
  80.  
  81.     term diag = 
  82.     `VBox( `Heading( _("LVM Configuration") ),
  83.            `HBox( get_config_content( [], [], [""], "        0GB", "        0GB", true )),
  84.            `HBox( 
  85.                   `Left( `PushButton(`id(`help),  Label::HelpButton())),
  86.               `Left( `PushButton(`id(`abort), Label::AbortButton())),
  87.               // button text
  88.               `Right(`PushButton(`id(`apply), _("A&pply"))),
  89.               `Right(`PushButton(`id(`finish), Label::FinishButton()))
  90.             )
  91.          );
  92.     UI::OpenDialog( `opt(`defaultsize), diag );
  93.  
  94.     Package::InstallAll( ["lvm2"] );
  95.  
  96.     Storage::SwitchUiAutomounter( false );
  97.  
  98.     /////////////////////////////////////////////////////////////////
  99.     any result = WizardSequencer (Aliases, Sequence);
  100.     // any result = WizardSequencer (dummy_Aliases, Sequence);
  101.     /////////////////////////////////////////////////////////////////////////////////
  102.  
  103.     Storage::SwitchUiAutomounter( true );
  104.  
  105.     if( result == `end )
  106.     {
  107.         // popup text
  108.     Popup::Message (_("All the settings were written and are ready to use."));
  109.     }
  110.  
  111.     UI::CloseDialog();
  112.     return result;
  113. }
  114.  
  115. /* -- the command line description map -------------------------------------- */
  116. map cmdline = $[
  117.     "id"        : "lvm_comfig",
  118.     // translators: command line help text for lvm_config module
  119.     "help"        : _("LVM configuration"),
  120.     // custom help text (should replace default one)
  121.     "customhelp"       : _("Command line interface for the lvm_config module is not available"),
  122.     "guihandler"    : LVMSequence,
  123. ];
  124.  
  125. CommandLine::Run (cmdline);
  126. return true;
  127.  
  128. }
  129.