fix: The OnISupport hook is fixed

Author: gcarreno

src/bot/irclogbot.bot.pas

@@ -213,7 +213,7 @@ procedure TIRCLogBot.OnPrivateMessage(ASender: TIdContext; const ANickname,
 
 procedure TIRCLogBot.OnISupport(ASender: TIdContext; AParameters: TStrings);
 begin
-  debug('I Support: %s', [AParameters]);
+  debug('I Support: %s', [AParameters.Text]);
 end;
 
 procedure TIRCLogBot.OnStatus(ASender: TObject; const AStatus: TIdStatus;
@@ -366,9 +366,9 @@ constructor TIRCLogBot.Create(const AConfig: TBotConfig);
   FIRC.OnJoin:= @OnJoin;
   FIRC.OnNotice:= @OnNotice;
   FIRC.OnPrivateMessage:= @OnPrivateMessage;
-  //FIRC.OnISupport:= @OnISupport;
-  //FIRC.OnStatus:= @OnStatus;
-  //FIRC.OnRaw:= @OnRaw;
+  FIRC.OnISupport:= @OnISupport;
+  FIRC.OnStatus:= @OnStatus;
+  FIRC.OnRaw:= @OnRaw;
   //FIRC.OnBeforeCommandHandler:= @OnBeforeCommandHandler;
   //FIRC.OnAfterCommandHandler:= @OnAfterCommandHandler;
 

src/paslogbot.lpr

@@ -60,6 +60,7 @@ procedure SetupSignalHandlers;
   act.sa_flags:= 0;
 
   // Set up signal handlers
+  //fpSignal(SIGTERM, @SignalHandler); // Need to investigate the params for this
   fpSigAction(SIGTERM, @act, nil);
   fpSigAction(SIGINT, @act, nil);
   fpSigAction(SIGHUP, @act, nil);