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 / vm_network_proposal.ycp < prev    next >
Text File  |  2006-11-29  |  1KB  |  61 lines
  1. /**
  2.  * Module:    vm_network_proposal.ycp
  3.  *
  4.  * Author:    Ladislav Slezak <lslezak@suse.cz>
  5.  *
  6.  * Purpose:     Proposal for network configuration
  7.  *
  8.  * $Id: vm_network_proposal.ycp 27936 2006-02-13 20:01:14Z olh $
  9.  *
  10.  */
  11.  
  12. {
  13.     textdomain "vm";
  14.  
  15.     import "VM";
  16.     import "HTML";
  17.  
  18.     string func = (string) WFM::Args (0);
  19.     map param = (map) WFM::Args (1);
  20.     map ret = $[];
  21.  
  22.     if (func == "MakeProposal")
  23.     {
  24.     boolean force_reset      = param["force_reset"     ]:false;
  25.     boolean language_changed = param["language_changed"]:false;
  26.  
  27.     if (force_reset)
  28.     {
  29.         // reset user settings and propose new values
  30.         VM::ResetNetworkProposal();
  31.     }
  32.  
  33.     ret = $[ "preformatted_proposal" : HTML::List(VM::GetNetworkProposal()) ];
  34.  
  35.     map warn = VM::GetNetworkProposalWarning();
  36.     if (warn != nil && size(warn) > 0)
  37.     {
  38.         ret = union(ret, warn);
  39.     }
  40.     }
  41.     else if (func == "AskUser")
  42.     {
  43.     boolean has_next = param["has_next"]:false;
  44.     symbol result = (symbol) WFM::CallFunction ("inst_vm_network",
  45.                             [true, has_next]);
  46.     ret = $[ "workflow_sequence" : result ];
  47.     }
  48.     else if (func == "Description")
  49.     {
  50.     ret =  $[
  51.       // this is a heading
  52.       "rich_text_title"    :    _("Network"),
  53.       // this is a menu entry
  54.       "menu_title"    :    _("&Network"),
  55.       "id"        :    "vm_network_setting"
  56.     ];
  57.     }
  58.  
  59.     return ret;
  60. }
  61.