July 2008 - YaST Commits - openSUSE Mailing Lists

[yast-commit] r49484 - in /trunk/auditd/src: Auditd.ycp dialogs.ycp
by gs＠svn.opensuse.org 29 Jul '08

29 Jul '08

Author: gs Date: Tue Jul 29 13:23:44 2008 New Revision: 49484 URL: http://svn.opensuse.org/viewcvs/yast?rev=49484&view=rev Log: remove tests Modified: trunk/auditd/src/Auditd.ycp trunk/auditd/src/dialogs.ycp Modified: trunk/auditd/src/Auditd.ycp URL: http://svn.opensuse.org/viewcvs/yast/trunk/auditd/src/Auditd.ycp?rev=49484&… ============================================================================== --- trunk/auditd/src/Auditd.ycp (original) +++ trunk/auditd/src/Auditd.ycp Tue Jul 29 13:23:44 2008 @@ -271,13 +271,10 @@ if ( ! FileUtils::Exists ("/etc/audit/auditd.conf") ) return false; - // TESTING: - SETTINGS["space_left"] = ["101"]; // list all options set in auditd.conf foreach (string key, list <string> value, SETTINGS, { // and write each value success = (boolean)SCR::Write(add(.auditd, key), value ); - y2milestone("Writing %1: %2 -> %3", key, value, success?"true":"false" ); }); // This is very important Modified: trunk/auditd/src/dialogs.ycp URL: http://svn.opensuse.org/viewcvs/yast/trunk/auditd/src/dialogs.ycp?rev=49484… ============================================================================== --- trunk/auditd/src/dialogs.ycp (original) +++ trunk/auditd/src/dialogs.ycp Tue Jul 29 13:23:44 2008 @@ -55,7 +55,7 @@ _("General Settings"), `VBox ( /* A text entry */ - `Left(`InputField(`id("log_file"), _("Logfile Name")) + `Left(`InputField(`id("log_file"), `opt(`hstretch), _("Logfile Name")) ), `Left(`ComboBox(`id("log_format"), _("Format"), [ -- To unsubscribe, e-mail: yast-commit+unsubscribe(a)opensuse.org For additional commands, e-mail: yast-commit+help(a)opensuse.org

1 0

[yast-commit] r49483 - in /trunk/auditd/src: Auditd.ycp complex.ycp
by gs＠svn.opensuse.org 29 Jul '08

29 Jul '08

Author: gs Date: Tue Jul 29 13:12:17 2008 New Revision: 49483 URL: http://svn.opensuse.org/viewcvs/yast?rev=49483&view=rev Log: add SetAuditdOption Modified: trunk/auditd/src/Auditd.ycp trunk/auditd/src/complex.ycp Modified: trunk/auditd/src/Auditd.ycp URL: http://svn.opensuse.org/viewcvs/yast/trunk/auditd/src/Auditd.ycp?rev=49483&… ============================================================================== --- trunk/auditd/src/Auditd.ycp (original) +++ trunk/auditd/src/Auditd.ycp Tue Jul 29 13:12:17 2008 @@ -166,6 +166,15 @@ else return ""; } + +global boolean SetAuditdOption( string key, string value ) { + list <string> option_list = []; + option_list = add( option_list, value ); + SETTINGS[key] = option_list; + y2milestone( "Setting: %1 to %2", key, option_list ); + + return true; +} /** * Read settings from auditd.conf @@ -268,7 +277,7 @@ foreach (string key, list <string> value, SETTINGS, { // and write each value success = (boolean)SCR::Write(add(.auditd, key), value ); - y2milestone("Writing %1: %2", key, success?"true":"false" ); + y2milestone("Writing %1: %2 -> %3", key, value, success?"true":"false" ); }); // This is very important @@ -294,7 +303,7 @@ integer sl = 500; sleep(sl); - // TODO FIXME Names of real stages + // Names of the stages // We do not set help text here, because it was set outside Progress::New(caption, " ", steps, [ /* Progress stage 1/2 */ Modified: trunk/auditd/src/complex.ycp URL: http://svn.opensuse.org/viewcvs/yast/trunk/auditd/src/complex.ycp?rev=49483… ============================================================================== --- trunk/auditd/src/complex.ycp (original) +++ trunk/auditd/src/complex.ycp Tue Jul 29 13:12:17 2008 @@ -100,6 +100,8 @@ Auditd::SetModified( true ); + Auditd::SetAuditdOption( "log_file", (string)UI::QueryWidget( `id("log_file"), `Value ) ); + // Stores all boolean values and turns them to the "yes"/"no" notation //foreach (string key, ["AllowTcpForwarding", "X11Forwarding", "Compression"], { //Sshd::SetSSHDOption( -- To unsubscribe, e-mail: yast-commit+unsubscribe(a)opensuse.org For additional commands, e-mail: yast-commit+help(a)opensuse.org

1 0

[yast-commit] r49482 - in /trunk/auditd/src: Auditd.ycp complex.ycp
by gs＠svn.opensuse.org 29 Jul '08

29 Jul '08

Author: gs Date: Tue Jul 29 12:55:54 2008 New Revision: 49482 URL: http://svn.opensuse.org/viewcvs/yast?rev=49482&view=rev Log: add GetAuditdOption Modified: trunk/auditd/src/Auditd.ycp trunk/auditd/src/complex.ycp Modified: trunk/auditd/src/Auditd.ycp URL: http://svn.opensuse.org/viewcvs/yast/trunk/auditd/src/Auditd.ycp?rev=49482&… ============================================================================== --- trunk/auditd/src/Auditd.ycp (original) +++ trunk/auditd/src/Auditd.ycp Tue Jul 29 12:55:54 2008 @@ -158,6 +158,15 @@ "disk_error_action" : ["SUSPEND"] ]; +global string GetAuditdOption( string key) { + list <string> option_list = SETTINGS[key]:DEFAULT_CONFIG[key]:[]; + + if ( option_list != [] ) + return option_list[0]:""; + else + return ""; +} + /** * Read settings from auditd.conf * @return true on success Modified: trunk/auditd/src/complex.ycp URL: http://svn.opensuse.org/viewcvs/yast/trunk/auditd/src/complex.ycp?rev=49482… ============================================================================== --- trunk/auditd/src/complex.ycp (original) +++ trunk/auditd/src/complex.ycp Tue Jul 29 12:55:54 2008 @@ -81,9 +81,7 @@ void InitLogfileSettingsDialog (string id) { - //UI::ChangeWidget( `id("MaxAuthTries"), `ValidChars, "0123456789"); - //list <string> MaxAuthTries = Sshd::GetSSHDOption("MaxAuthTries"); - //UI::ChangeWidget(`id("MaxAuthTries"), `Value, MaxAuthTries[0]:"0"); + UI::ChangeWidget( `id("log_file"), `Value, Auditd::GetAuditdOption("log_file") ) ; //foreach (string key, ["PrintMotd", "PermitRootLogin", //"PasswordAuthentication", "RSAAuthentication", "PubkeyAuthentication"], { -- To unsubscribe, e-mail: yast-commit+unsubscribe(a)opensuse.org For additional commands, e-mail: yast-commit+help(a)opensuse.org

1 0

[yast-commit] r49481 - in /trunk/auditd/src: complex.ycp dialogs.ycp wizards.ycp
by gs＠svn.opensuse.org 29 Jul '08

29 Jul '08

Author: gs Date: Tue Jul 29 12:29:04 2008 New Revision: 49481 URL: http://svn.opensuse.org/viewcvs/yast?rev=49481&view=rev Log: add rules dialog Modified: trunk/auditd/src/complex.ycp trunk/auditd/src/dialogs.ycp trunk/auditd/src/wizards.ycp Modified: trunk/auditd/src/complex.ycp URL: http://svn.opensuse.org/viewcvs/yast/trunk/auditd/src/complex.ycp?rev=49481… ============================================================================== --- trunk/auditd/src/complex.ycp (original) +++ trunk/auditd/src/complex.ycp Tue Jul 29 12:29:04 2008 @@ -128,135 +128,13 @@ y2milestone( "Store dispatcher" ); } - - - -any RulesDialog() { - - /* Boot dialog caption */ - string caption = _("Auditd Rules Configuration"); - string help = HELPS["boot"]:""; - - /* Boot dialog contents */ - term contents = `HVCenter(`HVSquash - (`HBox( - `HSpacing(5), - `VBox( - `VSpacing(2), - /* Frame label */ - `MultiLineEdit( `id(`rules), _("File: audit.rules") ), - `VSpacing(2) - ), - `HSpacing(5) - ))); - - Wizard::SetContentsButtons(caption, contents, help, - Label::BackButton(), Label::FinishButton()); - - any ret = nil; - while(true) { - ret = UI::UserInput(); - - /* abort? */ - if(ret == `abort || ret == `cancel) { - if(ReallyAbort()) break; - else continue; - } - else if(ret == `back || ret == `next) { - break; - } - else { - y2error("Unexpected return code: %1", ret); - continue; - } - } - - return ret; +void InitRulesDialog( string id ) { + y2milestone ( "Init rules dialog" ); } -term DispatcherOptions() { - - term contents = `VBox( - `InputField( "Dispatcher "), - `InputField( "disp_qos ") - ); - return contents; +void StoreRulesDialog( string id, map event) { + y2milestone( "Store rules dialog" ); } - -/** - * Config dialog - * @return dialog result - */ -any ConfigDialog() { - - /* Auditd summary dialog caption */ - string caption = _("Auditd Configuration"); - - term contents = `VBox( - `DumbTab( [ - `item(`id(`start ), "Start Options" ), - `item(`id(`misc ), "Misc" ), - `item(`id(`dispatcher ), "Dispatcher", true ) // true: selected - ], - `Left( - `Top( - `HVSquash( - `VBox( - `VSpacing(0.3), - `HBox( - `HSpacing(1), - `ReplacePoint(`id(`tabContents ), DispatcherOptions() ) - ) - ) - ) - ) - ) - ), - `VSpacing(1.0) - ); - - Wizard::SetContentsButtons(caption, contents, HELPS["summary"]:"", - Label::BackButton(), Label::NextButton()); - - 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 { - y2error("unexpected retcode: %1", ret); - continue; - } - } - - return ret; -} - /* EOF */ } Modified: trunk/auditd/src/dialogs.ycp URL: http://svn.opensuse.org/viewcvs/yast/trunk/auditd/src/dialogs.ycp?rev=49481… ============================================================================== --- trunk/auditd/src/dialogs.ycp (original) +++ trunk/auditd/src/dialogs.ycp Tue Jul 29 12:29:04 2008 @@ -116,5 +116,19 @@ ); } +term RulesDialogContent() { + return `MarginBox( mbox_x, mbox_y, + `VBox( + `VSpacing(1.0), + `VBox( + `Left(`Label(_("Edit rules for audit daemon here"))), + `VSpacing(1.0), + `MultiLineEdit(`id(`rules), ("/etc/audit/audit.rules")) + ), + `VStretch() + ) + ); +} + } /* EOF */ Modified: trunk/auditd/src/wizards.ycp URL: http://svn.opensuse.org/viewcvs/yast/trunk/auditd/src/wizards.ycp?rev=49481… ============================================================================== --- trunk/auditd/src/wizards.ycp (original) +++ trunk/auditd/src/wizards.ycp Tue Jul 29 12:29:04 2008 @@ -67,6 +67,13 @@ "init" : InitDiskspaceSettingsDialog, "store" : StoreDiskspaceSettingsDialog, ], + "rules" : $[ + "widget" : `custom, + "help" : HELPS["auditd_rules"]:"", + "custom_widget" : RulesDialogContent(), + "init" : InitRulesDialog, + "store" : StoreRulesDialog, + ], ]; map <string, any> tabs = $[ @@ -85,11 +92,16 @@ "widget_names" : ["disk"], "contents" : DiskspaceSettingsDialogContent(), ], + "auditd_rules" : $[ + "header" : _("&Rules for auditd"), + "widget_names" : ["rules"], + "contents" : RulesDialogContent(), + ], ]; map <string, any> wd = $[ "tab" : CWMTab::CreateWidget ($[ - "tab_order" : ["logfile_settings", "dispatcher", "diskspace_settings"], + "tab_order" : ["logfile_settings", "dispatcher", "diskspace_settings", "auditd_rules"], "tabs" : tabs, "widget_descr" : widgets, "initial_tab" : "logfile_settings", -- To unsubscribe, e-mail: yast-commit+unsubscribe(a)opensuse.org For additional commands, e-mail: yast-commit+help(a)opensuse.org

1 0

[yast-commit] r49480 - /trunk/auditd/src/Auditd.ycp
by gs＠svn.opensuse.org 29 Jul '08

29 Jul '08

Author: gs Date: Tue Jul 29 12:03:47 2008 New Revision: 49480 URL: http://svn.opensuse.org/viewcvs/yast?rev=49480&view=rev Log: read/write settings from/to auditd.conf Modified: trunk/auditd/src/Auditd.ycp Modified: trunk/auditd/src/Auditd.ycp URL: http://svn.opensuse.org/viewcvs/yast/trunk/auditd/src/Auditd.ycp?rev=49480&… ============================================================================== --- trunk/auditd/src/Auditd.ycp (original) +++ trunk/auditd/src/Auditd.ycp Tue Jul 29 12:03:47 2008 @@ -41,6 +41,8 @@ import "Message"; import "Popup"; import "Mode"; +import "FileUtils"; + /** * Prototypes @@ -124,20 +126,61 @@ return false; } -// Settings: Define all variables needed for configuration of auditd -// TODO FIXME: Define all the variables necessary to hold -// TODO FIXME: the configuration here (with the appropriate -// TODO FIXME: description) -// TODO FIXME: For example: -// /** -// * List of the configured cards. -// */ -// list cards = []; // -// /** -// * Some additional parameter needed for the configuration. -// */ -// boolean additional_parameter = true; +// Settings: Define all variables needed for configuration of laf-audit +// + +/** + * map of audit settings + */ +map <string, list <string> > SETTINGS = $[]; + +/** + * map of auditd settings (from /etc/auditd.conf) + */ +map <string, list <string> > DEFAULT_CONFIG = $[ + "log_file" : ["/var/log/audit/audit.log"], + "log_format" : ["RAW"], + "priority_boost" : ["3"], + "flush" : ["INCREMENTAL"], + "freq" : ["20"], + "num_logs" : ["4"], + "dispatcher" : ["/sbin/audispd"], + "disp_qos" : ["lossy"], + "max_log_file" : ["5"], + "max_log_file_action" : ["ROTATE"], + "space_left" : ["75"], + "space_left_action" : ["SYSLOG"], + "action_mail_acct" : ["root"], + "dmin_space_left": ["50"], + "admin_space_left_action" : ["SUSPEND"], + "disk_full_action" : ["SUSPEND"], + "disk_error_action" : ["SUSPEND"] +]; + +/** + * Read settings from auditd.conf + * @return true on success + */ +boolean ReadAuditdSettings() { + + if ( ! FileUtils::Exists ("/etc/audit/auditd.conf") ) + return false; + + list <string> optionsList = (list <string>) SCR::Dir(.auditd); + y2milestone( "List of options: %1", optionsList ); + + // list all options set in auditd.conf + foreach (string key, (list <string>) SCR::Dir(.auditd), + { + // and read the value for each of them + list <string> val = (list <string>) SCR::Read(add(.auditd, key)); + if (val != nil) SETTINGS[key] = val; + }); + + y2milestone("/etc/audit/auditd.conf has been read: %1", SETTINGS); + return true; +} /** * Read all auditd settings @@ -154,7 +197,6 @@ integer sl = 500; sleep(sl); - // TODO FIXME Names of real stages // We do not set help text here, because it was set outside Progress::New( caption, " ", steps, [ /* Progress stage 1/3 */ @@ -175,8 +217,11 @@ // read database if(PollAbort()) return false; Progress::NextStage(); - /* Error message */ - if(false) Report::Error(_("Cannot read database1.")); + + boolean success = ReadAuditdSettings(); + + // Report error + if( !success) Report::Error(_("Cannot read database1.")); sleep(sl); // read another database @@ -199,6 +244,33 @@ } /** + * Write settings to auditd.conf + * @return true on success + */ +boolean WriteAuditdSettings() { + boolean success = true; + + if ( ! FileUtils::Exists ("/etc/audit/auditd.conf") ) + return false; + + // TESTING: + SETTINGS["space_left"] = ["101"]; + // list all options set in auditd.conf + foreach (string key, list <string> value, SETTINGS, { + // and write each value + success = (boolean)SCR::Write(add(.auditd, key), value ); + y2milestone("Writing %1: %2", key, success?"true":"false" ); + }); + + // This is very important + // it flushes the cache, and stores the configuration on the disk + SCR::Write(.etc.ssh.sshd_config, nil); + y2milestone("/etc/audit/auditd.conf has been written: %1", SETTINGS); + + return true; +} + +/** * Write all auditd settings * @return true on success */ @@ -207,7 +279,7 @@ /* Auditd read dialog caption */ string caption = _("Saving auditd Configuration"); - // TODO FIXME And set the right number of stages + // set the right number of stages integer steps = 2; integer sl = 500; @@ -231,14 +303,12 @@ ); // write settings - if(PollAbort()) - { - y2error( "ABORT" ); - return false; - } + if(PollAbort()) return false; Progress::NextStage(); + + boolean success = WriteAuditdSettings(); /* Error message */ - if(false) Report::Error (_("Cannot write settings.")); + if(!success) Report::Error (_("Cannot write settings.")); sleep(sl); // run SuSEconfig -- To unsubscribe, e-mail: yast-commit+unsubscribe(a)opensuse.org For additional commands, e-mail: yast-commit+help(a)opensuse.org

1 0

[yast-commit] r49479 - in /trunk/qt: package/yast2-qt.changes src/YQTable.cc
by tgoettlicher＠svn.opensuse.org 29 Jul '08

29 Jul '08

Author: tgoettlicher Date: Tue Jul 29 11:33:27 2008 New Revision: 49479 URL: http://svn.opensuse.org/viewcvs/yast?rev=49479&view=rev Log: Fixed sorting in Table (bnc #399206) Modified: trunk/qt/package/yast2-qt.changes trunk/qt/src/YQTable.cc Modified: trunk/qt/package/yast2-qt.changes URL: http://svn.opensuse.org/viewcvs/yast/trunk/qt/package/yast2-qt.changes?rev=… ============================================================================== --- trunk/qt/package/yast2-qt.changes (original) +++ trunk/qt/package/yast2-qt.changes Tue Jul 29 11:33:27 2008 @@ -1,4 +1,9 @@ ------------------------------------------------------------------- +Tue Jul 29 11:21:53 CEST 2008 - tgoettlicher(a)suse.de + +- Fixed sorting in Table (bnc #399206) + +------------------------------------------------------------------- Tue Jul 15 19:13:57 CEST 2008 - sh(a)suse.de - Implemented fate #303492: Multi selection for table widget Modified: trunk/qt/src/YQTable.cc URL: http://svn.opensuse.org/viewcvs/yast/trunk/qt/src/YQTable.cc?rev=49479&r1=4… ============================================================================== --- trunk/qt/src/YQTable.cc (original) +++ trunk/qt/src/YQTable.cc Tue Jul 29 11:33:27 2008 @@ -47,7 +47,7 @@ YUI_CHECK_NEW( _qt_listView ); layout->addWidget( _qt_listView ); _qt_listView->setAllColumnsShowFocus( true ); - _qt_listView->setSortingEnabled( ! keepSorting() ); + setKeepSorting( keepSorting() ); if ( multiSelectionMode ) _qt_listView->setSelectionMode( QAbstractItemView::ExtendedSelection ); @@ -147,6 +147,8 @@ clone->setTextAlignment( i, qt_alignment ); } + + _qt_listView->sortItems ( 0, Qt::AscendingOrder) ; } -- To unsubscribe, e-mail: yast-commit+unsubscribe(a)opensuse.org For additional commands, e-mail: yast-commit+help(a)opensuse.org

1 0

[yast-commit] r49478 - in /trunk/auditd/src: Auditd.ycp auditd.ycp complex.ycp dialogs.ycp helps.ycp wizards.ycp
by gs＠svn.opensuse.org 29 Jul '08

29 Jul '08

Author: gs Date: Tue Jul 29 11:30:51 2008 New Revision: 49478 URL: http://svn.opensuse.org/viewcvs/yast?rev=49478&view=rev Log: create initial dialogs for auditd.conf settings Modified: trunk/auditd/src/Auditd.ycp trunk/auditd/src/auditd.ycp trunk/auditd/src/complex.ycp trunk/auditd/src/dialogs.ycp trunk/auditd/src/helps.ycp trunk/auditd/src/wizards.ycp Modified: trunk/auditd/src/Auditd.ycp URL: http://svn.opensuse.org/viewcvs/yast/trunk/auditd/src/Auditd.ycp?rev=49478&… ============================================================================== --- trunk/auditd/src/Auditd.ycp (original) +++ trunk/auditd/src/Auditd.ycp Tue Jul 29 11:30:51 2008 @@ -39,6 +39,8 @@ import "Report"; import "Summary"; import "Message"; +import "Popup"; +import "Mode"; /** * Prototypes @@ -61,29 +63,11 @@ boolean write_only = false; /** - * Abort function - * return boolean return true if abort - */ -boolean() AbortFunction = Modified; - -/** - * Abort function - * @return boolean return true if abort - */ -global define boolean Abort() ``{ - if(AbortFunction != nil) - { - return AbortFunction () == true; - } - return false; -} - -/** * Data was modified? * @return true if modified */ global boolean Modified() { - y2debug("modified=%1",modified); + y2milestone("modified=%1",modified); return modified; } @@ -116,11 +100,29 @@ write_only = value; } - -global void SetAbortFunction(boolean() function) { - AbortFunction = function; +/** + Returns a confirmation popup dialog whether user wants to really abort. + */ +global boolean Abort() { + return Popup::ReallyAbort(Modified()); } +/** + * Checks whether an Abort button has been pressed. + * If so, calls function to confirm the abort call. + * + * @return boolean true if abort confirmed + */ +global boolean PollAbort() { + // Do not check UI when running in CommandLine mode + if (Mode::commandline()) + return false; + + if (UI::PollInput() == `abort) + return Abort(); + + return false; +} // Settings: Define all variables needed for configuration of auditd // TODO FIXME: Define all the variables necessary to hold @@ -147,7 +149,7 @@ string caption = _("Initializing auditd Configuration"); // Set the right number of stages - integer steps = 3; + integer steps = 2; integer sl = 500; sleep(sl); @@ -165,39 +167,33 @@ _("Reading the configuration..."), /* Progress step 2/3 */ _("Reading the rules file..."), - /* Progress step 3/3 */ - _("Finished") + Message::Finished() ], "" ); // read database - if(Abort()) return false; + if(PollAbort()) return false; Progress::NextStage(); /* Error message */ if(false) Report::Error(_("Cannot read database1.")); sleep(sl); // read another database - if(Abort()) return false; + if(PollAbort()) return false; Progress::NextStep(); /* Error message */ if(false) Report::Error(_("Cannot read database2.")); sleep(sl); // read current settings - if(Abort()) return false; + if(PollAbort()) return false; Progress::NextStage(); /* Error message */ if(false) Report::Error(Message::CannotReadCurrentSettings()); sleep(sl); - if(Abort()) return false; - /* Progress finished */ - Progress::NextStage(); - sleep(sl); - - if(Abort()) return false; + if(PollAbort()) return false; modified = false; return true; } @@ -229,32 +225,30 @@ _("Writing the settings..."), /* Progress step 2/2 */ _("Running SuSEconfig..."), - /* Progress finished */ - _("Finished") + Message::Finished() ], "" ); // write settings - if(Abort()) return false; + if(PollAbort()) + { + y2error( "ABORT" ); + return false; + } Progress::NextStage(); /* Error message */ if(false) Report::Error (_("Cannot write settings.")); sleep(sl); // run SuSEconfig - if(Abort()) return false; + if(PollAbort()) return false; Progress::NextStage (); /* Error message */ if(false) Report::Error (Message::SuSEConfigFailed()); sleep(sl); - if(Abort()) return false; - /* Progress finished */ - Progress::NextStage(); - sleep(sl); - - if(Abort()) return false; + if(PollAbort()) return false; return true; } Modified: trunk/auditd/src/auditd.ycp URL: http://svn.opensuse.org/viewcvs/yast/trunk/auditd/src/auditd.ycp?rev=49478&… ============================================================================== --- trunk/auditd/src/auditd.ycp (original) +++ trunk/auditd/src/auditd.ycp Tue Jul 29 11:30:51 2008 @@ -46,6 +46,7 @@ import "Summary"; import "CommandLine"; + include "auditd/wizards.ycp"; map cmdline_description = $[ Modified: trunk/auditd/src/complex.ycp URL: http://svn.opensuse.org/viewcvs/yast/trunk/auditd/src/complex.ycp?rev=49478… ============================================================================== --- trunk/auditd/src/complex.ycp (original) +++ trunk/auditd/src/complex.ycp Tue Jul 29 11:30:51 2008 @@ -24,7 +24,6 @@ * Summary: Dialogs definitions * Authors: Gabriele Mohr <gs(a)suse.de> * - * $Id: complex.ycp 41350 2007-10-10 16:59:00Z dfiser $ */ { @@ -80,27 +79,145 @@ return ret ? `next : `abort; } +void InitLogfileSettingsDialog (string id) { + + //UI::ChangeWidget( `id("MaxAuthTries"), `ValidChars, "0123456789"); + //list <string> MaxAuthTries = Sshd::GetSSHDOption("MaxAuthTries"); + //UI::ChangeWidget(`id("MaxAuthTries"), `Value, MaxAuthTries[0]:"0"); + + //foreach (string key, ["PrintMotd", "PermitRootLogin", + //"PasswordAuthentication", "RSAAuthentication", "PubkeyAuthentication"], { + //UI::ChangeWidget(`id(key), `Value, (Sshd::GetSSHDOption(key) == ["yes"])); + //}); + y2milestone( "Init logfile settings"); +} + +boolean ReallyExit () { + // yes-no popup + return Popup::YesNo (_("Really exit? +All changes will be lost.")); +} + +void StoreLogfileSettingsDialog (string id, map event) { + + Auditd::SetModified( true ); + + // Stores all boolean values and turns them to the "yes"/"no" notation + //foreach (string key, ["AllowTcpForwarding", "X11Forwarding", "Compression"], { + //Sshd::SetSSHDOption( + //key, + //[ (((boolean) UI::QueryWidget(`id(key), `Value) == true) ? "yes":"no") ] + //); + //}); + y2milestone( "Store logfile settings"); + +} +void InitDispatcherDialog (string id) { + y2milestone( "Init dispatcher" ); +} + +void StoreDispatcherDialog (string id, map event) { + y2milestone( "Store dispatcher" ); +} + +void InitDiskspaceSettingsDialog (string id) { + y2milestone( "Init dispatcher" ); +} + +void StoreDiskspaceSettingsDialog (string id, map event) { + y2milestone( "Store dispatcher" ); +} + + + + +any RulesDialog() { + + /* Boot dialog caption */ + string caption = _("Auditd Rules Configuration"); + string help = HELPS["boot"]:""; + + /* Boot dialog contents */ + term contents = `HVCenter(`HVSquash + (`HBox( + `HSpacing(5), + `VBox( + `VSpacing(2), + /* Frame label */ + `MultiLineEdit( `id(`rules), _("File: audit.rules") ), + `VSpacing(2) + ), + `HSpacing(5) + ))); + + Wizard::SetContentsButtons(caption, contents, help, + Label::BackButton(), Label::FinishButton()); + + any ret = nil; + while(true) { + ret = UI::UserInput(); + + /* abort? */ + if(ret == `abort || ret == `cancel) { + if(ReallyAbort()) break; + else continue; + } + else if(ret == `back || ret == `next) { + break; + } + else { + y2error("Unexpected return code: %1", ret); + continue; + } + } + + return ret; +} + +term DispatcherOptions() { + + term contents = `VBox( + `InputField( "Dispatcher "), + `InputField( "disp_qos ") + ); + return contents; +} + /** - * Summary dialog + * Config dialog * @return dialog result */ -any SummaryDialog() { +any ConfigDialog() { /* Auditd summary dialog caption */ string caption = _("Auditd Configuration"); - /* FIXME */ - list summary = Auditd::Summary(); - list unconfigured = summary[1]:[]; - string configured = summary[0]:""; - - /* Frame label */ - term contents = Wizard_hw::DetectedContent(_("Auditd to Configure"), - unconfigured, false, configured); + term contents = `VBox( + `DumbTab( [ + `item(`id(`start ), "Start Options" ), + `item(`id(`misc ), "Misc" ), + `item(`id(`dispatcher ), "Dispatcher", true ) // true: selected + ], + `Left( + `Top( + `HVSquash( + `VBox( + `VSpacing(0.3), + `HBox( + `HSpacing(1), + `ReplacePoint(`id(`tabContents ), DispatcherOptions() ) + ) + ) + ) + ) + ) + ), + `VSpacing(1.0) + ); Wizard::SetContentsButtons(caption, contents, HELPS["summary"]:"", - Label::BackButton(), Label::FinishButton()); - + Label::BackButton(), Label::NextButton()); + any ret = nil; while(true) { @@ -140,66 +257,6 @@ return ret; } -/** - * Overview dialog - * @return dialog result - */ -any OverviewDialog() { - - /* Auditd overview dialog caption */ - string caption = _("Auditd Overview"); - - list overview = Auditd::Overview(); - - /* FIXME table header */ - term contents = Wizard_hw::ConfiguredContent( - /* Table header */ - `header(_("Number"), _("Auditd")), - overview, nil, nil, nil, nil ); - - contents = Wizard_hw::SpacingAround(contents, 1.5, 1.5, 1.0, 1.0); - - 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 */ } Modified: trunk/auditd/src/dialogs.ycp URL: http://svn.opensuse.org/viewcvs/yast/trunk/auditd/src/dialogs.ycp?rev=49478… ============================================================================== --- trunk/auditd/src/dialogs.ycp (original) +++ trunk/auditd/src/dialogs.ycp Tue Jul 29 11:30:51 2008 @@ -37,79 +37,84 @@ include "auditd/helps.ycp"; -/** - * Configure1 dialog - * @return dialog result - */ -any Configure1Dialog () { - - /* Auditd configure1 dialog caption */ - string caption = _("Auditd Configuration"); - - /* Auditd configure1 dialog contents */ - term contents = `Label (_("First part of configuration of auditd")); - - Wizard::SetContentsButtons(caption, contents, HELPS["c1"]:"", - Label::BackButton(), Label::NextButton()); - - any ret = nil; - while(true) { - - ret = UI::UserInput(); - - /* abort? */ - if(ret == `abort || ret == `cancel) { - if(ReallyAbort()) break; - else continue; - } - else if(ret == `next || ret == `back) { - break; - } - else { - y2error("unexpected retcode: %1", ret); - continue; - } - } +map current_ui_settings = UI::GetDisplayInfo(); - return ret; +integer mbox_x = 1; +integer mbox_y = 0.5; + +// Tabs have a different layout in textmode +if (current_ui_settings["TextMode"]:false == true) { + mbox_x = 0; + mbox_y = 0; } -/** - * Configure2 dialog - * @return dialog result - */ -any Configure2Dialog () { - - /* Auditd configure2 dialog caption */ - string caption = _("Auditd Configuration"); - - /* Auditd configure2 dialog contents */ - term contents = `Label (_("Second part of configuration of auditd")); - - Wizard::SetContentsButtons(caption, contents, HELPS["c2"]:"", - Label::BackButton(), Label::NextButton()); - - any ret = nil; - while(true) { - - ret = UI::UserInput(); - - /* abort? */ - if(ret == `abort || ret == `cancel) { - if(ReallyAbort()) break; - else continue; - } - else if(ret == `next || ret == `back) { - break; - } - else { - y2error("unexpected retcode: %1", ret); - continue; - } - } +term LogfileSettingsDialogContent () { + return `MarginBox( mbox_x, mbox_y, + `VBox( + `Frame ( + _("General Settings"), + `VBox ( + /* A text entry */ + `Left(`InputField(`id("log_file"), _("Logfile Name")) + ), + `Left(`ComboBox(`id("log_format"), _("Format"), + [ + `item(`id(`raw), "RAW", true ), + `item(`id(`nolog), "NOLOG" ) + ]) + ) + ) + ), + `Frame ( + _("Size and Action"), + `VBox ( + /* A text entry */ + `Left(`InputField(`id("max_log_file"), _("Ma&ximum File Size"))), + `Left(`InputField(`id("max_log_file_action"), _("Action "))) + ) + ), + `VStretch() + ) + ); +} - return ret; +term DispatcherDialogContent () { + return `MarginBox( mbox_x, mbox_y, + `VBox( + `VSpacing(1.0), + `Frame ( + _(""), + `VBox ( + /* A text entry */ + `Left(`InputField(`id("dispatcher"), _("Dispatcher Name"))), + + `Left(`InputField(`id("max_log_file_action"), _("Action "))) + + ) + ), + `VStretch() + ) + ); } -/* EOF */ +term DiskspaceSettingsDialogContent () { + return `MarginBox( mbox_x, mbox_y, + `VBox( + `VSpacing(1.0), + `Frame ( + _("Size and Action"), + `VBox ( + /* A text entry */ + `Left(`InputField(`id("space_left"), _("Space left on disk"))), + + `Left(`InputField(`id("space_left_action"), _("Action "))) + + ) + ), + `VStretch() + ) + ); } + +} /* EOF */ + Modified: trunk/auditd/src/helps.ycp URL: http://svn.opensuse.org/viewcvs/yast/trunk/auditd/src/helps.ycp?rev=49478&r… ============================================================================== --- trunk/auditd/src/helps.ycp (original) +++ trunk/auditd/src/helps.ycp Tue Jul 29 11:30:51 2008 @@ -50,7 +50,7 @@ "write" : _("<big>Saving auditd Configuration</big> Please wait... ") + - + /* Write dialog help 2/2 */ _("<big>Aborting Saving:</big> Abort the save procedure by pressing Abort. @@ -58,60 +58,19 @@ "), - /* Summary dialog help 1/3 */ - "summary" : _("<big>Auditd Configuration</big> -Configure auditd here. -") + - - /* Summary dialog help 2/3 */ - _("<big>Adding a auditd:</big> -Choose an auditd from the list of detected auditds. -If your auditd was not detected, use Other (not detected). -Then press Configure. -") + - - /* Summary dialog help 3/3 */ - _("<big>Editing or Deleting:</big> -If you press Edit, an additional dialog in which to change -the configuration opens. + /* logfile_settings dialog help 1/3 */ + "logfile_settings" : _("<big>Auditd Logfile Configuration</big> +Configure logfile settings (auditd.conf) here. "), - /* Ovreview dialog help 1/3 */ - "overview" : _("<big>Auditd Configuration Overview</big> -Obtain an overview of installed auditds. Additionally -edit their configurations. -") + - - /* Ovreview dialog help 2/3 */ -_("<big>Adding a auditd:</big> -Press Add to configure a auditd.") + - - /* Ovreview dialog help 3/3 */ -_("<big>Editing or Deleting:</big> -Choose a auditd to change or remove. -Then press Edit or Delete as desired. + /* dispatcher dialog help 1/3 */ + "dispatcher" : _("<big>Auditd Dispatcher Configuration</big> +Configure dispatcher settings here. "), - /* Configure1 dialog help 1/2 */ - "c1" : _("<big>Configuration Part One</big> -Press Next to continue. - ") + - - /* Configure1 dialog help 2/2 */ -_("<big>Selecting Something</big> -It is not possible. You must code it first. :-) -"), - - /* Configure2 dialog help 1/2 */ - "c2" : _("<big>Configuration Part Two</big> -Press Next to continue. - -") + - - /* Configure2 dialog help 2/2 */ -_("<big>Selecting Something</big> -It is not possible. You must code it first. :-) -"), + "diskspace_settings" : _("<big>Auditd Diskspace Configuration</big> +Configure diskspace settings on log partition here.. +") ]; Modified: trunk/auditd/src/wizards.ycp URL: http://svn.opensuse.org/viewcvs/yast/trunk/auditd/src/wizards.ycp?rev=49478… ============================================================================== --- trunk/auditd/src/wizards.ycp (original) +++ trunk/auditd/src/wizards.ycp Tue Jul 29 11:30:51 2008 @@ -33,6 +33,8 @@ import "Sequencer"; import "Wizard"; +import "CWM"; +import "CWMTab"; include "auditd/complex.ycp"; include "auditd/dialogs.ycp"; @@ -43,30 +45,75 @@ * @return sequence result */ any MainSequence() { - - /* FIXME: adapt to your needs */ - map aliases = $[ - "summary" : ``( SummaryDialog() ), - "overview" : ``( OverviewDialog() ) + map <string, map <string, any> > widgets = $[ + "log" : $[ + "widget" : `custom, + "help" : HELPS["logfile_settings"]:"", + "custom_widget" : LogfileSettingsDialogContent(), + "init" : InitLogfileSettingsDialog, + "store" : StoreLogfileSettingsDialog, + ], + "disp" : $[ + "widget" : `custom, + "help" : HELPS["dispatcher"]:"", + "custom_widget" : DispatcherDialogContent(), + "init" : InitDispatcherDialog, + "store" : StoreDispatcherDialog, + ], + "disk" : $[ + "widget" : `custom, + "help" : HELPS["diskspace_settings"]:"", + "custom_widget" : DiskspaceSettingsDialogContent(), + "init" : InitDiskspaceSettingsDialog, + "store" : StoreDiskspaceSettingsDialog, + ], ]; - /* FIXME: adapt to your needs */ - map sequence = $[ - "ws_start" : "summary", - "summary" : $[ - `abort : `abort, - `next : `next, - `overview : "overview" + map <string, any> tabs = $[ + "logfile_settings" : $[ + "header" : _("&Logfile"), + "widget_names" : ["log"], + "contents" : LogfileSettingsDialogContent(), + ], + "dispatcher" : $[ + "header" : _("&Dispatcher"), + "widget_names" : ["disp"], + "contents" : DispatcherDialogContent(), + ], + "diskspace_settings" : $[ + "header" : _("&Diskspace on Log Partion"), + "widget_names" : ["disk"], + "contents" : DiskspaceSettingsDialogContent(), ], - "overview" : $[ - `abort : `abort, - `next : `next - ] ]; - any ret = Sequencer::Run(aliases, sequence); + map <string, any> wd = $[ + "tab" : CWMTab::CreateWidget ($[ + "tab_order" : ["logfile_settings", "dispatcher", "diskspace_settings"], + "tabs" : tabs, + "widget_descr" : widgets, + "initial_tab" : "logfile_settings", + ]) + ]; - return ret; + term contents = `VBox("tab"); + + list <map <string, any> > w = CWM::CreateWidgets (["tab"], (map <string, map <string, any> >) wd); + + string caption = _("Auditd Configuration (LAF)"); + contents = CWM::PrepareDialog (contents, w); + + Wizard::SetContentsButtons ( + caption, + contents, + "", + Label::BackButton (), + Label::FinishButton() + ); + Wizard::DisableBackButton (); + //Wizard::SetTitleIcon("yast-auditd"); + + return CWM::Run (w, $[`abort : ReallyExit]); } /** -- To unsubscribe, e-mail: yast-commit+unsubscribe(a)opensuse.org For additional commands, e-mail: yast-commit+help(a)opensuse.org

1 0

[yast-commit] r49477 - in /trunk/auditd/src: Auditd.ycp wizards.ycp
by gs＠svn.opensuse.org 29 Jul '08

29 Jul '08

Author: gs Date: Tue Jul 29 10:27:27 2008 New Revision: 49477 URL: http://svn.opensuse.org/viewcvs/yast?rev=49477&view=rev Log: set correct steps Modified: trunk/auditd/src/Auditd.ycp trunk/auditd/src/wizards.ycp Modified: trunk/auditd/src/Auditd.ycp URL: http://svn.opensuse.org/viewcvs/yast/trunk/auditd/src/Auditd.ycp?rev=49477&… ============================================================================== --- trunk/auditd/src/Auditd.ycp (original) +++ trunk/auditd/src/Auditd.ycp Tue Jul 29 10:27:27 2008 @@ -146,8 +146,8 @@ /* Auditd read dialog caption */ string caption = _("Initializing auditd Configuration"); - // TODO FIXME Set the right number of stages - integer steps = 4; + // Set the right number of stages + integer steps = 3; integer sl = 500; sleep(sl); @@ -156,19 +156,16 @@ // We do not set help text here, because it was set outside Progress::New( caption, " ", steps, [ /* Progress stage 1/3 */ - _("Read the database"), + _("Read the configuration for auditd"), /* Progress stage 2/3 */ - _("Read the previous settings"), + _("Read the rules file") /* Progress stage 3/3 */ - _("Detect the devices") ], [ /* Progress step 1/3 */ - _("Reading the database..."), + _("Reading the configuration..."), /* Progress step 2/3 */ - _("Reading the previous settings..."), + _("Reading the rules file..."), /* Progress step 3/3 */ - _("Detecting the devices..."), - /* Progress finished */ _("Finished") ], "" @@ -195,13 +192,6 @@ if(false) Report::Error(Message::CannotReadCurrentSettings()); sleep(sl); - // detect devices - if(Abort()) return false; - Progress::NextStage(); - /* Error message */ - if(false) Report::Warning(_("Cannot detect devices.")); - sleep(sl); - if(Abort()) return false; /* Progress finished */ Progress::NextStage(); Modified: trunk/auditd/src/wizards.ycp URL: http://svn.opensuse.org/viewcvs/yast/trunk/auditd/src/wizards.ycp?rev=49477… ============================================================================== --- trunk/auditd/src/wizards.ycp (original) +++ trunk/auditd/src/wizards.ycp Tue Jul 29 10:27:27 2008 @@ -37,33 +37,6 @@ include "auditd/complex.ycp"; include "auditd/dialogs.ycp"; -/** - * Add a configuration of auditd - * @return sequence result - */ -any AddSequence() { - - /* FIXME: adapt to your needs */ - map aliases = $[ - "config1" : ``(Configure1Dialog()), - "config2" : ``(Configure2Dialog()), - ]; - - /* FIXME: adapt to your needs */ - map sequence = $[ - "ws_start" : "config1", - "config1" : $[ - `abort : `abort, - `next : "config2" - ], - "config2" : $[ - `abort : `abort, - `next : `next - ] - ]; - - return Sequencer::Run(aliases, sequence); -} /** * Main workflow of the auditd configuration @@ -74,10 +47,7 @@ /* FIXME: adapt to your needs */ map aliases = $[ "summary" : ``( SummaryDialog() ), - "overview" : ``( OverviewDialog() ), - "configure" : [ ``( AddSequence() ), true ], - "add" : [ ``( AddSequence() ), true ], - "edit" : [ ``( AddSequence() ), true ] + "overview" : ``( OverviewDialog() ) ]; /* FIXME: adapt to your needs */ @@ -86,27 +56,11 @@ "summary" : $[ `abort : `abort, `next : `next, - `overview : "overview", - `configure : "configure", - `other : "configure", + `overview : "overview" ], "overview" : $[ `abort : `abort, - `next : `next, - `add : "add", - `edit : "edit", - ], - "configure" : $[ - `abort : `abort, - `next : "summary", - ], - "add" : $[ - `abort : `abort, - `next : "overview", - ], - "edit" : $[ - `abort : `abort, - `next : "overview", + `next : `next ] ]; -- To unsubscribe, e-mail: yast-commit+unsubscribe(a)opensuse.org For additional commands, e-mail: yast-commit+help(a)opensuse.org

1 0

[yast-commit] r49476 - in /trunk/core/libycp/src: YCPBuiltinList.cc YCPBuiltinMisc.cc YCPBuiltinString.cc YCPBuiltinTerm.cc
by mvidner＠svn.opensuse.org 29 Jul '08

29 Jul '08

Author: mvidner Date: Tue Jul 29 09:55:26 2008 New Revision: 49476 URL: http://svn.opensuse.org/viewcvs/yast?rev=49476&view=rev Log: Even better ids for better URLs. Modified: trunk/core/libycp/src/YCPBuiltinList.cc trunk/core/libycp/src/YCPBuiltinMisc.cc trunk/core/libycp/src/YCPBuiltinString.cc trunk/core/libycp/src/YCPBuiltinTerm.cc Modified: trunk/core/libycp/src/YCPBuiltinList.cc URL: http://svn.opensuse.org/viewcvs/yast/trunk/core/libycp/src/YCPBuiltinList.c… ============================================================================== --- trunk/core/libycp/src/YCPBuiltinList.cc (original) +++ trunk/core/libycp/src/YCPBuiltinList.cc Tue Jul 29 09:55:26 2008 @@ -322,7 +322,7 @@ { /** * @builtin sublist - * @id sublist_1 + * @id sublist-rest * @short Extracts a sublist * * @description @@ -365,7 +365,7 @@ { /** * @builtin sublist - * @id sublist_2 + * @id sublist-length * @short Extracts a sublist * * @description @@ -685,7 +685,7 @@ { /** * @builtin sort - * @id sort_1 + * @id sort-lt * @short Sorts a List according to the YCP builtin predicate * @param list LIST * @return list Sorted list @@ -713,7 +713,7 @@ { /** * @builtin sort - * @id sort_2 + * @id sort-expr * @short Sort list using an expression * @param any x * @param any y @@ -1097,7 +1097,7 @@ { /** * @builtin list::reduce - * @id reduce_1 + * @id list.reduce-internal * @short Reduces a list to a single value. * @param flex1 x * @param flex1 y @@ -1167,7 +1167,7 @@ { /** * @builtin list::reduce - * @id reduce_2 + * @id list.reduce-external * @short Reduces a list to a single value. * @param flex1 x * @param flex2 y Modified: trunk/core/libycp/src/YCPBuiltinMisc.cc URL: http://svn.opensuse.org/viewcvs/yast/trunk/core/libycp/src/YCPBuiltinMisc.c… ============================================================================== --- trunk/core/libycp/src/YCPBuiltinMisc.cc (original) +++ trunk/core/libycp/src/YCPBuiltinMisc.cc Tue Jul 29 09:55:26 2008 @@ -130,7 +130,7 @@ * time and returns the seed. * * @return integer - * @id srandom_1 + * @id srandom-time * @usage srandom() */ @@ -148,7 +148,7 @@ * @short Initialize random number generator. * @param integer SEED * @return void - * @id srandom_2 + * @id srandom-integer * @usage srandom(3355) */ @@ -178,7 +178,7 @@ * @param string value * @param boolean overwrite * @return boolean - * @id setenv_2 + * @id setenv-choose * @usage setenv("PATH", "/home/user", true) */ //3rd argument (1) means that value will be overwrite if it exist @@ -206,7 +206,7 @@ * @param string variable * @param string value * @return boolean - * @id setenv_1 + * @id setenv-always * @usage setenv("PATH", "/home/user") */ //3rd argument (1) means that value will be overwrite if it exist @@ -231,7 +231,6 @@ * * @param string name * @return string value - * @id getenv_1 * @usage getenv("name") */ Modified: trunk/core/libycp/src/YCPBuiltinString.cc URL: http://svn.opensuse.org/viewcvs/yast/trunk/core/libycp/src/YCPBuiltinString… ============================================================================== --- trunk/core/libycp/src/YCPBuiltinString.cc (original) +++ trunk/core/libycp/src/YCPBuiltinString.cc Tue Jul 29 09:55:26 2008 @@ -229,7 +229,7 @@ { /** * @builtin substring - * @id substring_1 + * @id substring-rest * @short Returns part of a string * @param string STRING Original String * @param integer OFFSET Start position @@ -269,7 +269,7 @@ { /** * @builtin substring - * @id substring_2 + * @id substring-length * @short Extracts a substring * * @description Modified: trunk/core/libycp/src/YCPBuiltinTerm.cc URL: http://svn.opensuse.org/viewcvs/yast/trunk/core/libycp/src/YCPBuiltinTerm.c… ============================================================================== --- trunk/core/libycp/src/YCPBuiltinTerm.cc (original) +++ trunk/core/libycp/src/YCPBuiltinTerm.cc Tue Jul 29 09:55:26 2008 @@ -150,7 +150,7 @@ { /** * @builtin toterm - * @id toterm_1 + * @id toterm-any * @short Converts a value to a term. * * @description @@ -188,7 +188,7 @@ { /** * @builtin toterm - * @id toterm_2 + * @id toterm-list * @short Constructs a term from a symbol and a list. * * @description -- To unsubscribe, e-mail: yast-commit+unsubscribe(a)opensuse.org For additional commands, e-mail: yast-commit+help(a)opensuse.org

1 0

[yast-commit] r49475 - /tags/stable-2_17_4/devtools/
by mvidner＠svn.opensuse.org 29 Jul '08

29 Jul '08

Author: mvidner Date: Tue Jul 29 09:45:30 2008 New Revision: 49475 URL: http://svn.opensuse.org/viewcvs/yast?rev=49475&view=rev Log: Created tag stable-2_17_4 for devtools Added: tags/stable-2_17_4/devtools/ - copied from r49474, trunk/devtools/ -- To unsubscribe, e-mail: yast-commit+unsubscribe(a)opensuse.org For additional commands, e-mail: yast-commit+help(a)opensuse.org

1 0