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 / proxy_finish.ycp < prev    next >
Text File  |  2006-11-29  |  2KB  |  78 lines
  1. /**
  2.  * File:
  3.  *  proxy_finish.ycp
  4.  *
  5.  * Module:
  6.  *  Step of base installation finish
  7.  *
  8.  * Authors:
  9.  *  Jiri Srain <jsrain@suse.cz>
  10.  *
  11.  * $Id: proxy_finish.ycp 27936 2006-02-13 20:01:14Z olh $
  12.  *
  13.  */
  14.  
  15. {
  16.  
  17. textdomain "installation";
  18.  
  19. import "Stage";
  20.  
  21. any ret = nil;
  22. string func = "";
  23. map param = $[];
  24.  
  25. /* Check arguments */
  26. if(size(WFM::Args()) > 0 && is(WFM::Args(0), string)) {
  27.     func = (string)WFM::Args(0);
  28.     if(size(WFM::Args()) > 1 && is(WFM::Args(1), map))
  29.     param = (map)WFM::Args(1);
  30. }
  31.  
  32. y2milestone ("starting proxy_finish");
  33. y2debug("func=%1", func);
  34. y2debug("param=%1", param);
  35.  
  36. if (func == "Info")
  37. {
  38.     return (any)$[
  39.     "steps" : 1,
  40.     // progress step title
  41.     "title" : _("Saving proxy configuration..."),
  42.     "when" : [ `installation, `update, `autoinst ],
  43.     ];
  44. }
  45. else if (func == "Write")
  46. {
  47.     if (Stage::initial ())
  48.     {
  49.         string proxy = (string) SCR::Read (.etc.install_inf.Proxy);
  50.         string proxyport = (string) SCR::Read (.etc.install_inf.ProxyPort);
  51.         string proxyproto = (string) SCR::Read (.etc.install_inf.ProxyProto);
  52.  
  53.         if (proxy != nil && proxyport != nil && proxyproto != nil)
  54.         {
  55.             string fullproxy = proxyproto + "://" + proxy + ":" + proxyport + "/";
  56.  
  57.             y2milestone ("setting proxy to %1", fullproxy);
  58.  
  59.             // maybe use Proxy module
  60.             SCR::Write (.sysconfig.proxy.HTTP_PROXY, fullproxy);
  61.             SCR::Write (.sysconfig.proxy.FTP_PROXY, fullproxy);
  62.             SCR::Write (.sysconfig.proxy, nil);
  63.         }
  64.     }
  65. }
  66. else
  67. {
  68.     y2error ("unknown function: %1", func);
  69.     ret = nil;
  70. }
  71.  
  72. y2debug("ret=%1", ret);
  73. y2milestone("proxy_finish finished");
  74. return ret;
  75.  
  76.  
  77. } /* EOF */
  78.