325 lines
7.8 KiB
Plaintext
325 lines
7.8 KiB
Plaintext
/**
|
|
* File: include/CASA/complex.ycp
|
|
* Package: Configuration of CASA
|
|
* Summary: Dialogs definitions
|
|
* 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.
|
|
*
|
|
*********************************************************************
|
|
*
|
|
*/
|
|
|
|
{
|
|
|
|
textdomain "CASA";
|
|
|
|
import "Label";
|
|
import "Popup";
|
|
import "Wizard";
|
|
//import "Wizard_hw";
|
|
import "NovellCasa";
|
|
|
|
include "CASA/helps.ycp";
|
|
|
|
/**
|
|
* Return a modification status
|
|
* @return true if data was modified
|
|
*/
|
|
boolean Modified()
|
|
{
|
|
return NovellCasa::Modified();
|
|
}
|
|
|
|
boolean ReallyAbort()
|
|
{
|
|
return !NovellCasa::Modified() || Popup::ReallyAbort(true);
|
|
}
|
|
|
|
boolean PollAbort()
|
|
{
|
|
return UI::PollInput() == `abort;
|
|
}
|
|
|
|
/**
|
|
* Read settings dialog
|
|
* @return `abort if aborted and `next otherwise
|
|
*/
|
|
symbol ReadDialog()
|
|
{
|
|
Wizard::RestoreHelp(HELPS["read"]:"");
|
|
// NovellCasa::AbortFunction = PollAbort;
|
|
boolean ret = NovellCasa::Read();
|
|
return ret ? `next : `abort;
|
|
}
|
|
|
|
/**
|
|
* Write settings dialog
|
|
* @return `abort if aborted and `next otherwise
|
|
*/
|
|
symbol WriteDialog()
|
|
{
|
|
Wizard::RestoreHelp(HELPS["write"]:"");
|
|
// NovellCasa::AbortFunction = PollAbort;
|
|
boolean ret = NovellCasa::Write();
|
|
return ret ? `next : `abort;
|
|
}
|
|
|
|
/**
|
|
* Summary dialog
|
|
* @return dialog result
|
|
*/
|
|
any SummaryDialog()
|
|
{
|
|
|
|
/* CASA summary dialog caption */
|
|
string caption = _("CASA Configuration");
|
|
|
|
/* FIXME */
|
|
list summary = NovellCasa::Summary();
|
|
list unconfigured = summary[1]:[];
|
|
string configured = summary[0]:"";
|
|
|
|
/* Frame label */
|
|
// term contents = Wizard_hw::DetectedContent(_("CASA to Configure"),
|
|
// unconfigured, false, configured);
|
|
|
|
term contents = `Frame(_(" CASA Configuration Wizard Pages "),
|
|
`VBox(
|
|
`VSpacing(),
|
|
`VSpacing(),
|
|
`PushButton(`id(`install_casa_button),`opt(`default), _("&Configure CASA")),
|
|
`VSpacing(),
|
|
`VSpacing(),
|
|
`PushButton(`id(`uninstall_casa_button),`opt(`default), _("&Unconfigure CASA")),
|
|
`VSpacing(),
|
|
`VSpacing()
|
|
));
|
|
|
|
|
|
Wizard::SetContentsButtons(caption, contents, HELPS["summary"]:"",
|
|
Label::BackButton(), Label::FinishButton());
|
|
|
|
UI::ChangeWidget(`id(`install_casa_button), `Enabled, false);
|
|
UI::ChangeWidget(`id(`uninstall_casa_button), `Enabled, false);
|
|
|
|
|
|
integer iConfig_CASAReturn = (integer)SCR::Execute(.target.bash, "/usr/sbin/iscasaconfiged");
|
|
|
|
if(iConfig_CASAReturn == 0)
|
|
{
|
|
UI::ChangeWidget(`id(`uninstall_casa_button), `Enabled, true);
|
|
|
|
}
|
|
else
|
|
{
|
|
UI::ChangeWidget(`id(`install_casa_button), `Enabled, true);
|
|
}
|
|
|
|
any ret = nil;
|
|
|
|
while(true)
|
|
{
|
|
|
|
ret = UI::UserInput();
|
|
|
|
/* abort? */
|
|
if(ret == `abort || ret == `cancel || ret == `back) {
|
|
if(ReallyAbort()) break;
|
|
else continue;
|
|
}
|
|
/* overview dialog */
|
|
else if(ret == `edit_button)
|
|
{
|
|
ret = `overview;
|
|
break;
|
|
}
|
|
/* configure the selected device */
|
|
else if(ret == `configure_button)
|
|
{
|
|
// TODO FIXME: check for change of the configuration
|
|
any selected = UI::QueryWidget(`id(`detected_selbox), `CurrentItem);
|
|
if(selected == `other)
|
|
{
|
|
ret = `other;
|
|
}
|
|
else
|
|
{
|
|
ret = `configure;
|
|
}
|
|
break;
|
|
}
|
|
else if(ret == `next)
|
|
{
|
|
break;
|
|
}
|
|
else if(ret == `install_casa_button)
|
|
{
|
|
|
|
if(iConfig_CASAReturn != 0)
|
|
{
|
|
// launch the install script here
|
|
y2milestone ("SummaryDialog() launch the install script");
|
|
integer iInstall_CASAReturn = (integer)SCR::Execute(.target.bash, "/usr/sbin/installcasa");
|
|
if(iInstall_CASAReturn == 0)
|
|
{
|
|
y2milestone(sformat("SummaryDialog() SCR::Execute(.target.bash, /usr/sbin/installcasa) returned: %1",iInstall_CASAReturn));
|
|
Popup::Message(sformat("YaST Configured CASA successfully."));
|
|
|
|
}
|
|
else if(iInstall_CASAReturn == 127)
|
|
{
|
|
Popup::Error(sformat("YaST was unable to find the installcasa script."));
|
|
}
|
|
else if(iInstall_CASAReturn == 126)
|
|
{
|
|
Popup::Error(sformat("YaST requires root privleges to run the installcasa script."));
|
|
}
|
|
else
|
|
{
|
|
Popup::Error(sformat("The install_casa script returned an unknown error: %1",iInstall_CASAReturn));
|
|
}
|
|
|
|
UI::ChangeWidget(`id(`install_casa_button), `Enabled, false);
|
|
UI::ChangeWidget(`id(`uninstall_casa_button), `Enabled, false);
|
|
}
|
|
|
|
continue;
|
|
}
|
|
else if(ret == `uninstall_casa_button)
|
|
{
|
|
if(iConfig_CASAReturn == 0)
|
|
{
|
|
|
|
// launch the uninstall script here
|
|
y2milestone ("SummaryDialog() launch the uninstall script");
|
|
integer iUninstall_CASAReturn = (integer)SCR::Execute(.target.bash, "/usr/sbin/uninstallcasa");
|
|
if(iUninstall_CASAReturn == 0)
|
|
{
|
|
y2milestone(sformat("SummaryDialog() SCR::Execute(.target.bash, /usr/sbin/uninstallcasa) returned: %1",iUninstall_CASAReturn));
|
|
Popup::Message(sformat("YaST Unconfigured CASA successfully."));
|
|
}
|
|
else if(iUninstall_CASAReturn == 127)
|
|
{
|
|
Popup::Error(sformat("YaST was unable to find the uninstallcasa script."));
|
|
}
|
|
else if(iUninstall_CASAReturn == 126)
|
|
{
|
|
Popup::Error(sformat("YaST requires root privleges to run the uninstallcasa script."));
|
|
}
|
|
else
|
|
{
|
|
Popup::Error(sformat("The uninstall_casa script returned an unknown error: %1",iUninstall_CASAReturn));
|
|
}
|
|
|
|
UI::ChangeWidget(`id(`uninstall_casa_button), `Enabled, false);
|
|
UI::ChangeWidget(`id(`install_casa_button), `Enabled, false);
|
|
}
|
|
continue;
|
|
}
|
|
else
|
|
{
|
|
y2error("unexpected retcode: %1", ret);
|
|
continue;
|
|
}
|
|
}
|
|
|
|
return ret;
|
|
}
|
|
|
|
/**
|
|
* Overview dialog
|
|
* @return dialog result
|
|
*/
|
|
any OverviewDialog()
|
|
{
|
|
|
|
/* CASA overview dialog caption */
|
|
string caption = _("CASA Overview");
|
|
|
|
list overview = NovellCasa::Overview();
|
|
|
|
/* FIXME table header */
|
|
// term contents = Wizard_hw::ConfiguredContent(
|
|
// /* Table header */
|
|
// `header(_("Number"), _("CASA")),
|
|
// overview, nil, nil, nil, nil );
|
|
|
|
// contents = Wizard_hw::SpacingAround(contents, 1.5, 1.5, 1.0, 1.0);
|
|
|
|
term contents = `Frame(_("CASA Configuration Wizard Pages"),
|
|
`VBox(
|
|
`VSpacing(),
|
|
`VSpacing(),
|
|
`PushButton(`id(`start_wizard_button),`opt(`default), _("Re&start Wizard")),
|
|
`VSpacing()
|
|
));
|
|
|
|
Wizard::SetContentsButtons(caption, contents, HELPS["overview"]:"",
|
|
Label::BackButton(), Label::FinishButton());
|
|
|
|
any ret = nil;
|
|
while(true)
|
|
{
|
|
ret = UI::UserInput();
|
|
|
|
/* abort? */
|
|
if(ret == `abort || ret == `cancel)
|
|
{
|
|
if(ReallyAbort()) break;
|
|
else continue;
|
|
}
|
|
/* add */
|
|
else if(ret == `add_button)
|
|
{
|
|
/* FIXME */
|
|
ret = `add;
|
|
break;
|
|
}
|
|
/* edit */
|
|
else if(ret == `edit_button)
|
|
{
|
|
/* FIXME */
|
|
ret = `edit;
|
|
break;
|
|
}
|
|
/* delete */
|
|
else if(ret == `delete_button)
|
|
{
|
|
/* FIXME */
|
|
continue;
|
|
}
|
|
else if(ret == `next || ret == `back)
|
|
{
|
|
break;
|
|
}
|
|
else
|
|
{
|
|
y2error("unexpected retcode: %1", ret);
|
|
continue;
|
|
}
|
|
}
|
|
|
|
return ret;
|
|
}
|
|
|
|
/* EOF */
|
|
}
|