- add functions to set config options

diff --git a/config.pm b/config.pm
index 3ebae7c0566f1c134cd1421ddef65f524eb4d012..88cf6465eae495eb50b02bc15cdd012d0d68a747 100755 (executable)
--- a/config.pm
+++ b/config.pm
@@ -201,6 +201,27 @@ sub config_get_key1 {
 }
 
 
+# config_set_key1()
+#
+# set a config value
+#
+# parameter:
+#  - self
+#  - config key name 1
+#  - new value
+# return:
+#  none
+sub config_set_key1 {
+    my $self = shift;
+    my $key1 = shift;
+    my $value = shift;
+
+    $self->{config}->{$key1} = $value;
+
+    return;
+}
+
+
 # config_get_key2()
 #
 # return a config value
@@ -228,6 +249,29 @@ sub config_get_key2 {
 }
 
 
+# config_set_key2()
+#
+# set a config value
+#
+# parameter:
+#  - self
+#  - config key name 1
+#  - config key name 2
+#  - value
+# return:
+#  none
+sub config_set_key2 {
+    my $self = shift;
+    my $key1 = shift;
+    my $key2 = shift;
+    my $value = shift;
+
+    $self->{config}->{$key1}->{$key2} = $value;
+
+    return;
+}
+
+
 # config_get_key3()
 #
 # return a config value
@@ -260,28 +304,28 @@ sub config_get_key3 {
 }
 
 
-# config_set_key()
+# config_set_key3()
 #
-# set a new config value
+# set a config value
 #
 # parameter:
 #  - self
 #  - config key name 1
 #  - config key name 2
-#  - new value
+#  - config key name 3
+#  - value
 # return:
 #  none
-sub config_set_key_unused {
+sub config_set_key3 {
     my $self = shift;
     my $key1 = shift;
     my $key2 = shift;
-    my $new_value = shift;
+    my $key3 = shift;
+    my $value = shift;
 
-    # set new value
-    $self->{config}->{$key1}->{$key2} = $new_value;
+    $self->{config}->{$key1}->{$key2}->{$key3} = $value;
 
-    # mark config changed
-    $self->{changed} = 1;
+    return;
 }
 
 

diff --git a/docbot.pl b/docbot.pl
index 2c3a3b1b524fe710a5841c7f65eae63c2c8fc76e..a326b95c1cdcb2fae53f37252895c3b1f1b43d9d 100755 (executable)
--- a/docbot.pl
+++ b/docbot.pl
@@ -443,6 +443,69 @@ sub config_get_key3 {
 }
 
 
+# config_set_key1()
+#
+# set configuration value
+#
+# parameter:
+#  - config key 1
+#  - value
+# return:
+#  none
+sub config_set_key1 {
+    my $key1 = shift;
+    my $value = shift;
+
+    $main::config->config_set_key($key1, $value);
+
+    return;
+}
+
+
+# config_set_key2()
+#
+# read configuration value
+#
+# parameter:
+#  - config key 1
+#  - config key 2
+#  - value
+# return:
+#  none
+sub config_set_key2 {
+    my $key1 = shift;
+    my $key2 = shift;
+    my $value = shift;
+
+    $main::config->config_set_key2($key1, $key2, $value);
+
+    return;
+}
+
+
+# config_set_key3()
+#
+# read configuration value
+#
+# parameter:
+#  - config key 1
+#  - config key 2
+#  - config key 3
+#  - value
+# return:
+#  none
+sub config_set_key3 {
+    my $key1 = shift;
+    my $key2 = shift;
+    my $key3 = shift;
+    my $value = shift;
+
+    $main::config->config_set_key3($key1, $key2, $key3, $value);
+
+    return;
+}
+
+
 # config_get_keys1()
 #
 # read configuration keys