Author: jsrain
Date: Tue Jul 13 16:29:50 2010
New Revision: 62235
URL: http://svn.opensuse.org/viewcvs/yast?rev=62235&view=rev
Log:
store software changes during upgrade proposal
Added:
branches/tmp/jsrain/unattended-migration/autoinstallation/src/clients/inst_store_upgrade_software.ycp
Added: branches/tmp/jsrain/unattended-migration/autoinstallation/src/clients/inst_store_upgrade_software.ycp
URL: http://svn.opensuse.org/viewcvs/yast/branches/tmp/jsrain/unattended-migration/autoinstallation/src/clients/inst_store_upgrade_software.ycp?rev=62235&view=auto
==============================================================================
--- branches/tmp/jsrain/unattended-migration/autoinstallation/src/clients/inst_store_upgrade_software.ycp (added)
+++ branches/tmp/jsrain/unattended-migration/autoinstallation/src/clients/inst_store_upgrade_software.ycp Tue Jul 13 16:29:50 2010
@@ -0,0 +1,63 @@
+{
+ import "GetInstArgs";
+ import "Popup";
+ import "Profile";
+ import "Installation";
+
+ if ( GetInstArgs::going_back())
+ return `auto;
+
+ // find out status of patterns
+ list > patterns = Pkg::ResolvableProperties ("", `pattern, "");
+ patterns = filter (map p, patterns, {
+ return p["status"]:nil == `selected || p["status"]:nil == `removed;
+ });
+ patterns = filter (map p, patterns, {
+ return p["transact_by"]:nil == `user || p["transact_by"]:nil == `app_high;
+ });
+
+ list<string> patterns_to_remove = [];
+ list<string> patterns_to_install = maplist (map p, patterns, {
+ if (p["status"]:nil == `selected)
+ return p["name"]:"";
+ else
+ patterns_to_remove = add (patterns_to_remove, p["name"]:"");
+ return nil;
+ });
+ y2internal ("Patterns to install: %1", patterns_to_install);
+ y2internal ("Patterns to remove: %1", patterns_to_remove);
+
+ // find out status of packages
+ list > packages = Pkg::ResolvableProperties ("", `package, "");
+ packages = filter (map p, packages, {
+ return p["status"]:nil == `selected || p["status"]:nil == `removed;
+ });
+ packages = filter (map p, packages, {
+ return p["transact_by"]:nil == `user || p["transact_by"]:nil == `app_high;
+ });
+
+ list<string> packages_to_remove = [];
+ list<string> packages_to_install = maplist (map p, packages, {
+ if (p["status"]:nil == `selected)
+ return p["name"]:"";
+ else
+ packages_to_remove = add (packages_to_remove, p["name"]:"");
+ return nil;
+ });
+ y2internal ("Packages to install: %1", packages_to_install);
+ y2internal ("Packages to remove: %1", packages_to_remove);
+
+ map software = $[
+ "packages": packages_to_install,
+ "patterns": patterns_to_install,
+ "remove-packages": packages_to_remove,
+ "remove-patterns": patterns_to_remove,
+ ];
+
+ Profile::current["software"] = software;
+ Profile::Save (Installation::destdir + "/autoupg_updated.xml");
+
+
+ return `auto;
+}
+
--
To unsubscribe, e-mail: yast-commit+unsubscribe@opensuse.org
For additional commands, e-mail: yast-commit+help@opensuse.org
