Attachment 104603 Details for Bug 210552

Testcase -- YCP Script

update_remove.ycp (text/plain), 2.29 KB, created by Lukas Ocilka on 2006-11-10 07:40:56 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Lukas Ocilka

Created: 2006-11-10 07:40:56 UTC

Size: 2.29 KB

patch

obsolete

>{
>    import "Mode";
>    Mode::SetMode ("update");
>
>    // "/"    == current
>    // "/mnt" == during update
>    string target = "/mnt";
>
>    y2milestone ("=== Initializing ===");
>    Pkg::TargetInitialize (target);
>    Pkg::TargetLoad();
>    
>    Pkg::SourceStartManager (true);
>    
>    // --> put this into the inst_kickoff.ycp
>
>    /**
>     * Removes all already installed patches and selections.
>     * See bugzilla #210552 for more information.
>     */
>    void RemoveObsoleteResolvables () {
>	// run only in update
>	if (! Mode::update ()) return;
>	
>	// for informative and debugging purpose
>	list <map <string, any> > resolvable_items = [];
>	// anything removed?
>	boolean call_solve = false;
>	y2milestone ("--------- removing obsolete patches and selections ---------");
>
>	// `patch removes [atom]s and [patch]es after Pkg::Solve()
>	// `selection removes also [package]s
>
>	foreach (symbol resolvable_type, [`patch, `selection], {
>	    y2milestone ("Getting installed resolvables type: %1", resolvable_type);
>
>	    // check if there are some of this kind installed
>	    resolvable_items = Pkg::ResolvableProperties ("", resolvable_type, "");
>	    y2milestone ("Available resolvables type %1: %2", resolvable_type, size (resolvable_items));
>	    resolvable_items = filter (map <string, any> resolvable_item, resolvable_items, {
>		return resolvable_item["status"]:nil == `installed;
>	    });
>
>	    y2debug ("All installed resolvables type %1: %2",
>		resolvable_type, resolvable_items
>	    );
>
>	    // at least one is installed
>	    if (size (resolvable_items) > 0) {
>		y2milestone ("There are %1 installed resolvables type: %2, removing...",
>		    size (resolvable_items), resolvable_type
>		);
>		call_solve = true;
>		// remove all resolvables of this kind
>		foreach (map <string, any> resolvable_item, resolvable_items, {
>		    Pkg::ResolvableRemove ((string) resolvable_item["name"]:nil, resolvable_type);
>		});
>	    } else {
>		y2milestone ("There are no installed resolvables type: %1", resolvable_type);
>	    }
>	});
>	
>	if (call_solve) {
>	    if (! Pkg::PkgSolve(true)) {
>		y2error("Cannot solve dependencies!");
>	    }
>	}
>	
>	y2milestone ("--------- removing obsolete patches and selections ---------");
>    }
>    
>    // main ()
>    RemoveObsoleteResolvables();
>    
>    // <-- put this into the inst_kickoff.ycp
>
>    Pkg::TargetFinish();
>}

Actions: View

Attachments on bug 210552: 101305 | 104603 | 104604 | 104619