home *** CD-ROM | disk | FTP | other *** search
- /**
- * File: clients/update.ycp
- * Module: System update
- * Summary: Main update client
- * Authors: Klaus Kaempf <kkaempf@suse.de>
- * Arvin Schnell <arvin@suse.de>
- *
- * $Id: update.ycp 34202 2006-11-09 12:31:44Z locilka $
- */
-
- {
- textdomain "update";
-
- // somewhere, DirInstall is imported that wants Pkg in the constructor
- import "PackageLock";
- // check whether having the packager for ourselves
- if (! PackageLock::Check ())
- return `abort;
-
- import "Mode";
- import "Update";
- import "Wizard";
- import "ProductControl";
- import "Label";
-
- // set normal mode and update
- Mode::SetMode ("update");
-
- Update::disallow_upgrade = true;
- Update::onlyUpdateInstalled = true;
- Update::deleteOldPackages = false;
-
- ProductControl::custom_control_file = "/usr/share/YaST2/control/update.xml";
-
- Wizard::OpenNextBackDialog();
- Wizard::SetNextButton(`next, Label::AcceptButton());
- if (!ProductControl::Init())
- {
- y2error("control file %1 not found", ProductControl::custom_control_file );
- }
- list<map> stage_mode = [$["stage": "normal", "mode": Mode::mode() ]];
- ProductControl::AddWizardSteps(stage_mode);
-
- symbol ret = ProductControl::Run();
-
- Wizard::CloseDialog ();
-
- return `next;
- }
-