- add on_irc_registered()

- remove some unneeded debug messages

diff --git a/docbot.pl b/docbot.pl
index 686eb1bb410df21a93c6d4235972872a3e428dae..07086b577e28d59b5c9a8bd3a1d806c7c1c9a70a 100755 (executable)
--- a/docbot.pl
+++ b/docbot.pl
@@ -177,6 +177,8 @@ foreach my $session (keys(%main::sessions)) {
             irc_ping         => \&on_ping,
             autoping         => \&do_autoping,
             irc_error        => \&on_error,
+            irc_registered   => \&on_irc_registered,
+            irc_plugin_add   => \&on_irc_plugin_add,
             irc_raw          => \&on_irc_raw,
             irc_raw_out      => \&on_irc_raw_out,
         },
@@ -2334,6 +2336,36 @@ sub do_autoping {
 }
 
 
+# on_irc_registered()
+#
+# catch irc_registered and update activity
+#
+sub on_irc_registered {
+    my ($kernel, $heap, $sender ) = @_[KERNEL, HEAP, SENDER];
+
+    my $irc = $sender->get_heap();
+    my $session = find_irc_session($irc);
+    #print_msg("on_irc_registered(session: $session)\n", DEBUG);
+
+    set_session_activity($session);
+}
+
+
+# on_irc_plugin_add()
+#
+# catch irc_plugin_add and update activity
+#
+sub on_irc_plugin_add {
+    my ($kernel, $heap, $sender ) = @_[KERNEL, HEAP, SENDER];
+
+    my $irc = $sender->get_heap();
+    my $session = find_irc_session($irc);
+    #print_msg("on_irc_plugin_add(session: $session)\n", DEBUG);
+
+    set_session_activity($session);
+}
+
+
 # on_nickused()
 #
 # called if the desired nick is already in use