Author: kmachalkova Date: Fri Jul 31 16:40:34 2009 New Revision: 58243 URL: http://svn.opensuse.org/viewcvs/yast?rev=58243&view=rev Log: Initial check-in of firewall proposal in 1st stage Added: trunk/network/src/clients/firewall_stage1_proposal.ycp Added: trunk/network/src/clients/firewall_stage1_proposal.ycp URL: http://svn.opensuse.org/viewcvs/yast/trunk/network/src/clients/firewall_stag... ============================================================================== --- trunk/network/src/clients/firewall_stage1_proposal.ycp (added) +++ trunk/network/src/clients/firewall_stage1_proposal.ycp Fri Jul 31 16:40:34 2009 @@ -0,0 +1,93 @@ +/* ------------------------------------------------------------------------------ + * Copyright (c) 2008 Novell, Inc. All Rights Reserved. + * + * + * This program is free software; you can redistribute it and/or modify it under + * the terms of version 2 of the GNU General Public License as published by the + * Free Software Foundation. + * + * This program is distributed in the hope that it will be useful, but WITHOUT + * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS + * FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along with + * this program; if not, contact Novell, Inc. + * + * To contact Novell about this file by physical or electronic mail, you may find + * current contact information at www.novell.com. + * ------------------------------------------------------------------------------ + */ + +/** + * File: firewall_stage1_proposal.ycp + * Summary: Configuration of fw in 1st stage + * Author: Bubli <kmachalkova@suse.cz> + * + */ + +{ + textdomain "network"; + + + string func = (string)WFM::Args(0); + map param = (map)WFM::Args(1); + map<string,any> ret = $[]; + + boolean firewall_enabled = false; + boolean ssh_enabled = true; + + if ( func == "MakeProposal" ) + { + string output = "<ul>\n"; + output = output + "<li>" + (firewall_enabled ? + _("Firewall is enabled (<a href="firewall--disable_firewall_in_proposal">disable</a>)") + : + _("Firewall is disabled (<a href="firewall--enable_firewall_in_proposal">enable</a>)") + ) + "</li>\n"; + + if (firewall_enabled) + { + output = output + "<li>" + (ssh_enabled ? + _("SSH port is open (<a href="firewall--disable_ssh_in_proposal">close</a>)") + : + _("SSH port is blocked (<a href="firewall--enable_ssh_in_proposal">open</a>)") + ) + "</li>\n"; + + } + output = output + "</ul>\n"; + + ret = $[ + "preformatted_proposal" : output, + "warning_level" : `warning, + //"warning" : proposal["warning"]:nil, + "links" : [ + "firewall--enable_firewall_in_proposal", "firewall--disable_firewall_in_proposal", + "firewall--enable_ssh_in_proposal", "firewall--disable_ssh_in_proposal", + ] + ]; + + } + else if ( func == "AskUser" ) { + ret = $[ "workflow_sequence" : `next ]; + } + else if ( func == "Description" ) + { + ret = + $[ + // Proposal title + "rich_text_title" : _("Firewall"), + // Menu entry label + "menu_title" : _("&Firewall"), + "id" : "firewall_stage1" + ]; + } + else if (func == "Write") + { + ret = + $[ + "success" : true + ]; + } + + return ret; +} -- To unsubscribe, e-mail: yast-commit+unsubscribe@opensuse.org For additional commands, e-mail: yast-commit+help@opensuse.org