geos_one/CASA
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

YaST modules rename from novell-casa to CASA.

Browse Source
This commit is contained in:
Cameron (Kamran) Mashayekhi
2006-04-18 22:14:17 +00:00
parent dcccf58835
commit ebe7380fc7
4 changed files with 0 additions and 339 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
casa-yast/src/novell-casa.desktop
View File

@@ -1,23 +0,0 @@
[Desktop Entry]
Type=Application
Categories=Qt;X-SuSE-YaST;X-SuSE-YaST-Security;
X-KDE-ModuleType=Library
X-KDE-RootOnly=true
X-KDE-HasReadOnlyMode=true
X-KDE-Library=yast2
X-SuSE-YaST-Call=CASA
X-SuSE-YaST-Group=Security
X-SuSE-YaST-Argument=
X-SuSE-YaST-RootOnly=true
X-SuSE-YaST-AutoInst=
X-SuSE-YaST-Geometry=
X-SuSE-YaST-SortKey=
X-SuSE-YaST-AutoInstResource=CASA
Icon=CASA
Exec=/sbin/yast2 CASA
Name=Novell CASA
GenericName=Configure CASA

92
casa-yast/src/novell-casa.ycp
View File

@@ -1,92 +0,0 @@
/**
* File: clients/CASA.ycp
* Package: Configuration of CASA
* Summary: Main file
* Authors: casa <casa@novell.com>
*
*********************************************************************
* Copyright (C) 2005-2006 Novell, Inc. All Rights Reserved.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; version 2.1
* of the License.
*
* This library 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
* Library Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, Novell, Inc.
*
* To contact Novell about this file by physical or electronic mail,
* you may find current contact information at www.novell.com.
*
*********************************************************************
*
* Main file for CASA configuration. Uses all other files.
*/
{
/***
* <h3>Configuration of CASA</h3>
*/
textdomain "CASA";
/* The main () */
y2milestone ("----------------------------------------");
y2milestone ("Novell CASA module started");
import "Progress";
import "Report";
import "Summary";
import "CommandLine";
include "CASA/wizards.ycp";
map cmdline_description = $[
"id" : "CASA",
/* Command line help text for the XCASA module */
"help" : _("Configuration of CASA"),
"guihandler" : NovellCasaSequence,
"initialize" : NovellCasa::Read,
"finish" : NovellCasa::Write,
"actions" : $[
// FIXME TODO: fill the functionality description here
],
"options" : $[
// FIXME TODO: fill the option descriptions here
],
"mapping" : $[
// FIXME TODO: fill the mappings of actions and options here
]
];
/* is this proposal or not? */
boolean propose = false;
list args = WFM::Args();
if(size(args) > 0) {
if(is(WFM::Args(0), path) && WFM::Args(0) == .propose) {
y2milestone("Using PROPOSE mode");
propose = true;
}
}
/* main ui function */
any ret = nil;
if(propose) ret = NovellCasaAutoSequence();
else ret = CommandLine::Run(cmdline_description);
y2debug("ret=%1", ret);
/* Finish */
y2milestone("Novell CASA module finished");
y2milestone("----------------------------------------");
return ret;
/* EOF */
}

117
casa-yast/src/novell-casa_auto.ycp
View File

@@ -1,117 +0,0 @@
/**
* File: clients/CASA_auto.ycp
* Package: Configuration of CASA
* Summary: Client for autoinstallation
* Authors: casa <casa@novell.com>
*
*********************************************************************
* Copyright (C) 2005-2006 Novell, Inc. All Rights Reserved.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; version 2.1
* of the License.
*
* This library 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
* Library Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, Novell, Inc.
*
* To contact Novell about this file by physical or electronic mail,
* you may find current contact information at www.novell.com.
*
*********************************************************************
*
* This is a client for autoinstallation. It takes its arguments,
* goes through the configuration and return the setting.
* Does not do any changes to the configuration.
*/
/**
* @param function to execute
* @param map/list of CASA settings
* @return map edited settings, Summary or boolean on success depending on called function
* @example map mm = $[ "FAIL_DELAY" : "77" ];
* @example map ret = WFM::CallFunction ("CASA_auto", [ "Summary", mm ]);
*/
{
textdomain "CASA";
y2milestone("----------------------------------------");
y2milestone("Novell CASA auto started");
import "NovellCasa";
include "CASA/wizards.ycp";
any ret = nil;
string func = "";
map param = $[];
/* Check arguments */
if(size(WFM::Args()) > 0 && is(WFM::Args(0), string)) {
func = (string)WFM::Args(0);
if(size(WFM::Args()) > 1 && is(WFM::Args(1), map))
param = (map) WFM::Args(1);
}
y2debug("func=%1", func);
y2debug("param=%1", param);
/* Create a summary*/
if(func == "Summary") {
ret = select(NovellCasa::Summary(), 0, "");
}
/* Reset configuration */
else if (func == "Reset") {
NovellCasa::Import($[]);
ret = $[];
}
/* Change configuration (run AutoSequence) */
else if (func == "Change") {
ret = NovellCasaAutoSequence();
}
/* Import configuration */
else if (func == "Import") {
ret = NovellCasa::Import(param);
}
/* Return actual state */
else if (func == "Export") {
ret = NovellCasa::Export();
}
/* Return needed packages */
else if (func == "Packages") {
ret = NovellCasa::AutoPackages();
}
/* Read current state */
else if (func == "Read") {
import "Progress";
Progress::off();
ret = NovellCasa::Read();
Progress::on();
}
/* Write givven settings */
else if (func == "Write") {
import "Progress";
Progress::off();
// NovellCasa::write_only = true;
ret = NovellCasa::Write();
Progress::on();
}
/* Unknown function */
else {
y2error("Unknown function: %1", func);
ret = false;
}
y2debug("ret=%1", ret);
y2milestone("Novell CASA auto finished");
y2milestone("----------------------------------------");
return ret;
/* EOF */
}

107
casa-yast/src/novell-casa_proposal.ycp
View File

@@ -1,107 +0,0 @@
/**
* File: clients/CASA_proposal.ycp
* Package: Configuration of CASA
* Summary: Proposal function dispatcher.
* Authors: casa <casa@novell.com>
*
*********************************************************************
* Copyright (C) 2005-2006 Novell, Inc. All Rights Reserved.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; version 2.1
* of the License.
*
* This library 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
* Library Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, Novell, Inc.
*
* To contact Novell about this file by physical or electronic mail,
* you may find current contact information at www.novell.com.
*
*********************************************************************
*
* Proposal function dispatcher for CASA configuration.
* See source/installation/proposal/proposal-API.txt
*/
{
textdomain "CASA";
import "NovellCasa";
import "Progress";
/* The main () */
y2milestone("----------------------------------------");
y2milestone("Novell CASA proposal started");
string func = (string) WFM::Args(0);
map param = (map) WFM::Args(1);
map ret = $[];
/* create a textual proposal */
if(func == "MakeProposal") {
string proposal = "";
string warning = nil;
symbol warning_level = nil;
boolean force_reset = param["force_reset"]:false;
// if(force_reset || !NovellCasa::proposal_valid) {
// NovellCasa::proposal_valid = true;
// Progress::off();
// NovellCasa::Read();
// }
list sum = NovellCasa::Summary();
// proposal = sum[0]:"";
Progress::on();
ret = $[
// "preformatted_proposal" : proposal,
// "warning_level" : warning_level,
// "warning" : warning,
];
}
/* run the module */
else if(func == "AskUser") {
map stored = NovellCasa::Export();
symbol seq = (symbol) WFM::CallFunction("CASA", [.propose]);
if(seq != `next) NovellCasa::Import(stored);
y2debug("stored=%1",stored);
y2debug("seq=%1",seq);
ret = $[
"workflow_sequence" : seq
];
}
/* create titles */
else if(func == "Description") {
ret = $[
/* Rich text title for NovellCasa in proposals */
"rich_text_title" : _("Novell CASA"),
/* Menu title for NovellCasa in proposals */
"menu_title" : _("&Novell CASA"),
"id" : "CASA",
];
}
/* write the proposal */
else if(func == "Write") {
NovellCasa::Write();
}
/* unknown function */
else {
y2error("unknown function: %1", func);
}
/* Finish */
y2debug("ret=%1",ret);
y2milestone("Novell CASA proposal finished");
y2milestone("----------------------------------------");
return ret;
/* EOF */
}