[yast-commit] r52302 - in /trunk/wagon: package/yast2-wagon.changes src/clients/wagon_custom_url.ycp

Author: locilka Date: Thu Oct 16 16:13:05 2008 New Revision: 52302 URL: http://svn.opensuse.org/viewcvs/yast?rev=52302&view=rev Log: - Added wagon_custom_url client that allows user to select custom update URL manually and for PatchCD. Added: trunk/wagon/src/clients/wagon_custom_url.ycp Modified: trunk/wagon/package/yast2-wagon.changes Modified: trunk/wagon/package/yast2-wagon.changes URL: http://svn.opensuse.org/viewcvs/yast/trunk/wagon/package/yast2-wagon.changes?rev=52302&r1=52301&r2=52302&view=diff ============================================================================== --- trunk/wagon/package/yast2-wagon.changes (original) +++ trunk/wagon/package/yast2-wagon.changes Thu Oct 16 16:13:05 2008 @@ -4,6 +4,8 @@ - Configuration of subworkflows added to the control file. - Handling subworkflows - adjusted by command-line parameter or during module run. +- Added wagon_custom_url client that allows user to select custom + update URL manually and for PatchCD. ------------------------------------------------------------------- Tue Oct 14 15:48:01 CEST 2008 - locilka@suse.cz Added: trunk/wagon/src/clients/wagon_custom_url.ycp URL: http://svn.opensuse.org/viewcvs/yast/trunk/wagon/src/clients/wagon_custom_url.ycp?rev=52302&view=auto ============================================================================== --- trunk/wagon/src/clients/wagon_custom_url.ycp (added) +++ trunk/wagon/src/clients/wagon_custom_url.ycp Thu Oct 16 16:13:05 2008 @@ -0,0 +1,73 @@ +/** + * File: + * clients/wagon_custom_url.ycp + * + * Module: + * Wagon + * + * Authors: + * Lukas Ocilka + * + * Summary: + * Online Migration Tool + * + * $Id$ + * + */ + +{ + textdomain "wagon"; + + import "GetInstArgs"; + import "Wagon"; + import "Sequencer"; + + include "packager/repositories_include.ycp"; + + if (GetInstArgs::going_back()) { + y2milestone ("Going back..."); + return `back; + } + + Wagon::InitPkg(); + Pkg::SourceReleaseAll(); + + map aliases = $[ + // Included from inst_source_dialogs.ycp + "type" : ``(TypeDialog()), + "edit" : ``(EditDialog ()), + "store" : ``(StoreSource ()), + ]; + + list <integer> sources_before = Pkg::SourceGetCurrent (false); + y2milestone ("Sources before adding new one: %1", sources_before); + + map sequence = $[ + "ws_start" : "type", + "type" : $[ + `next : "edit", + // bnc #392083 + `finish : "store", + `abort : `abort, + ], + "edit" : $[ + `next : "store", + // bnc #392083 + `finish : "store", + `abort : `abort, + ], + "store" : $[ + `next : `next, + // bnc #392083 + `finish : `next, + `abort : `abort, + ], + ]; + + y2milestone ("Starting repository sequence"); + symbol ret = Sequencer::Run (aliases, sequence); + + y2milestone ("Ret: %1", ret); + + return ret; +} -- To unsubscribe, e-mail: yast-commit+unsubscribe@opensuse.org For additional commands, e-mail: yast-commit+help@opensuse.org