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 / update.ycp < prev    next >
Encoding:
Text File  |  2006-11-29  |  1.2 KB  |  50 lines
  1. /**
  2.  * File:    clients/update.ycp
  3.  * Module:    System update
  4.  * Summary:    Main update client
  5.  * Authors:    Klaus Kaempf <kkaempf@suse.de>
  6.  *        Arvin Schnell <arvin@suse.de>
  7.  *
  8.  * $Id: update.ycp 34202 2006-11-09 12:31:44Z locilka $
  9.  */
  10.  
  11. {
  12.     textdomain "update";
  13.  
  14.     // somewhere, DirInstall is imported that wants Pkg in the constructor
  15.     import "PackageLock";
  16.     // check whether having the packager for ourselves
  17.     if (! PackageLock::Check ())
  18.     return `abort;
  19.  
  20.     import "Mode";
  21.     import "Update";
  22.     import "Wizard";
  23.     import "ProductControl";
  24.     import "Label";
  25.  
  26.     // set normal mode and update
  27.     Mode::SetMode ("update");
  28.  
  29.     Update::disallow_upgrade = true;
  30.     Update::onlyUpdateInstalled = true;
  31.     Update::deleteOldPackages = false;
  32.  
  33.     ProductControl::custom_control_file =  "/usr/share/YaST2/control/update.xml";
  34.  
  35.     Wizard::OpenNextBackDialog();
  36.     Wizard::SetNextButton(`next, Label::AcceptButton());
  37.     if (!ProductControl::Init())
  38.     {
  39.         y2error("control file %1 not found", ProductControl::custom_control_file );
  40.     }
  41.     list<map> stage_mode = [$["stage": "normal",  "mode": Mode::mode() ]];
  42.     ProductControl::AddWizardSteps(stage_mode);
  43.  
  44.     symbol ret = ProductControl::Run();
  45.  
  46.     Wizard::CloseDialog ();
  47.  
  48.     return `next;
  49. }
  50.