X-Git-Url: http://git.ipfire.org/?a=blobdiff_plain;f=modules%2FEvents.pm;h=ec253c05d33526db1b9b13302f6dfcccde87b574;hb=1044256085fc81fbc64475688bb1d0a347f4b123;hp=f8437deedbf594d13dd1a34d4367b2dd23e33d61;hpb=17818eee23180516df0f0615038a267012ab94b7;p=people%2Fstevee%2Fguardian.git

diff --git a/modules/Events.pm b/modules/Events.pm
index f8437de..ec253c0 100644
--- a/modules/Events.pm
+++ b/modules/Events.pm
@@ -80,6 +80,34 @@ sub Init (%) {
 	return $self;
 }
 
+#
+## The "Update" Block settings function.
+#
+## This object based function is called to update various class settings.
+#
+sub Update (\%) {
+        my $self = shift;
+
+	# Dereference the given hash-ref and store
+	# the values into a new temporary hash.
+	my %settings = %{ $_[0] };
+
+	# Skip settings update if some essential settings are missing.
+	unless ((exists($settings{BlockCount})) && (exists($settings{BlockTime}))) {
+		$logger->Log("err", "Values for BlockCount or BlockTime are missing, keeping previously configured settings.");
+
+		# Return unmodified class object.
+		return $self;
+	}
+
+	# Change settings.
+        $self->{BlockCount} = $settings{BlockCount};
+	$self->{BlockTime} = $settings{BlockTime};
+
+	# Return modified class object.
+        return $self;
+}
+
 #
 ## The main "CheckAction" function.
 #