From dceca633025e6d6d88d4cd06ce8e3a63c546c8cc Mon Sep 17 00:00:00 2001
From: Andreas Scherbaum <andreas@scherbaum.biz>
Date: Wed, 13 Jun 2012 23:31:28 +0200
Subject: [PATCH] - add functions to set config options

---
 config.pm | 62 ++++++++++++++++++++++++++++++++++++++++++++++--------
 docbot.pl | 63 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 116 insertions(+), 9 deletions(-)

diff --git a/config.pm b/config.pm
index 3ebae7c..88cf646 100755
--- 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 2c3a3b1..a326b95 100755
--- 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
-- 
2.39.5