Author: locilka Date: Tue Jul 1 18:38:05 2008 New Revision: 48741 URL: http://svn.opensuse.org/viewcvs/yast?rev=48741&view=rev Log: XML write function Modified: trunk/packager/src/modules/WebpinPackageSearch.ycp Modified: trunk/packager/src/modules/WebpinPackageSearch.ycp URL: http://svn.opensuse.org/viewcvs/yast/trunk/packager/src/modules/WebpinPackageSearch.ycp?rev=48741&r1=48740&r2=48741&view=diff ============================================================================== --- trunk/packager/src/modules/WebpinPackageSearch.ycp (original) +++ trunk/packager/src/modules/WebpinPackageSearch.ycp Tue Jul 1 18:38:05 2008 @@ -23,6 +23,7 @@ import "Directory"; import "FileUtils"; import "URL"; +import "XML"; string temporary_file = Directory::tmpdir + "/package_search_webpin.xml"; @@ -45,6 +46,77 @@ return already_guessed; } +string ModifyDistro (string distro) { + // FIXMEEEEEEEEEEEEEEE!!!!!! + if (distro == "openSUSE_110") { + distro = "openSUSE 11.0"; + } + + return distro; +} + +global boolean PrepareOneClickInstallDescription (list <map> packages_to_install, string save_to_file) { + if (FileUtils::Exists (save_to_file)) { + y2warning ("File %1 already exists, removing", save_to_file); + SCR::Execute (.target.remove, save_to_file); + } + + string distro = ""; + string repoURL = ""; + + map write_xml = $[ + "metapackage" : $["xmlns" : "http://opensuse.org/Standards/One_Click_Install"] + ]; + + map repositories = $[]; + map packages = $[]; + + foreach (map one_package, packages_to_install, { + distro = one_package["distro"]:""; + repoURL = one_package["repoURL"]:""; + + repositories[distro] = add (repositories[distro]:[], repoURL); + + packages[distro] = add (packages[distro]:[], $[ + "item" : [$[ + "name" : [$[ "content" : one_package["name"]:"" ]], + "summary" : [$[ "content" : one_package["summary"]:"" ]], + ]] + ]); + }); + + foreach (string distro, list <string> distro_repos, (map ) repositories, { + map group = $[ + "distversion" : ModifyDistro (distro), + "remainSubscribed" : $[ "content" : "false" ], + "repositories" : toset (maplist (string one_repo, distro_repos, { + return $[ "repository" : [$[ + "name" : [$[ "content" : one_repo ]], + "summary" : [$[ "content" : _("Unknown repository") ]], + "description" : [$[ "content" : _("No further information available, use at your own risk.") ]], + ]]]; + })), + "software" : toset (packages[distro]:[]), + ]; + + write_xml["metapackage", "group"] = group; + }); + + y2milestone ("Writing: %1", write_xml); + + SCR::Write (.anyxml, $[ + "xml" : write_xml, + "file" : save_to_file, + "args" : $[ + "RootName" : "metapackage", + "KeepRoot" : true, + "XMLDecl" : "<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"yes\"?>", + ], + ]); + + return true; +} + /** * Searches for packages using Webpin XML API. * @@ -123,6 +195,8 @@ map search_result = (map) SCR::Read (.anyxml, temporary_file); + y2milestone ("Search result: %1", search_result); + integer counter = -1; map one_entry = $[]; -- To unsubscribe, e-mail: yast-commit+unsubscribe@opensuse.org For additional commands, e-mail: yast-commit+help@opensuse.org