feat: Hooking to signals

Author: gcarreno

README.md

@@ -6,6 +6,15 @@
 
 An attempt at producing an `IRC` bot that logs a channel's content.
 
-# Preamble
+## Preamble
 
-In terms of internet protocols we can choose between `Indy` and `Synapse` as the libraries available. I decided that I was going to use `Indy` due to the fact that it already has an `IRC` client and I didn't want to do all the necessary string parsing for the `IRC` protocol.
+In terms of internet protocols we can choose between `Indy` and `Synapse` as the libraries available. I decided that I was going to use `Indy` due to the fact that it already has an `IRC` client and I didn't want to do all the necessary string parsing for the `IRC` protocol.
+
+## Features
+
+The initial idea is to have all the logging of the `IRC` channel dumped into a `SQLite` database. To query the database, the objective is twofold:
+
+1. Via commands on `IRC`
+2. Via a web site that the bot, itself, serves
+
+Not sure if it's worth having the bot itself serve the website, but due to the fact that `SQLite` will be locked during the bot's operation, then this will have to be the path.

src/bot/bot.pas

@@ -0,0 +1,15 @@
+unit Bot;
+
+{$mode ObjFPC}{$H+}
+
+interface
+
+uses
+  Classes
+, SysUtils
+;
+
+implementation
+
+end.
+

src/paslogbot.lpi

@@ -23,6 +23,7 @@
           </Target>
           <SearchPaths>
             <IncludeFiles Value="$(ProjOutDir)"/>
+            <OtherUnitFiles Value="bot"/>
             <UnitOutputDirectory Value="../bin/lib/$(TargetCPU)-$(TargetOS)"/>
           </SearchPaths>
           <Parsing>
@@ -56,6 +57,7 @@
           </Target>
           <SearchPaths>
             <IncludeFiles Value="$(ProjOutDir)"/>
+            <OtherUnitFiles Value="bot"/>
             <UnitOutputDirectory Value="../bin/lib/$(TargetCPU)-$(TargetOS)"/>
           </SearchPaths>
           <CodeGeneration>
@@ -87,6 +89,11 @@
         <Filename Value="paslogbot.lpr"/>
         <IsPartOfProject Value="True"/>
       </Unit>
+      <Unit>
+        <Filename Value="bot/bot.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="Bot"/>
+      </Unit>
     </Units>
   </ProjectOptions>
   <CompilerOptions>
@@ -96,6 +103,7 @@
     </Target>
     <SearchPaths>
       <IncludeFiles Value="$(ProjOutDir)"/>
+      <OtherUnitFiles Value="bot"/>
       <UnitOutputDirectory Value="../bin/lib/$(TargetCPU)-$(TargetOS)"/>
     </SearchPaths>
   </CompilerOptions>

src/paslogbot.lpr

@@ -7,7 +7,7 @@
   cthreads,
   BaseUnix,
   {$ENDIF}
-  Classes, SysUtils, CustApp
+  Classes, SysUtils, CustApp, Bot
   { you can add units after this };
 
 type
@@ -32,13 +32,14 @@ procedure SignalHandler(signal: longint; info: psiginfo; context: psigcontext);
   case signal of
     SIGTERM, SIGINT:
       begin
+        WriteLn;
         WriteLn('Received termination signal');
         if Assigned(Application) then
           Application.Terminate;
       end;
     SIGHUP:
       begin
-        WriteLn('Received SIGHUP - could implement config reload here');
+        //WriteLn('Received SIGHUP - could implement config reload here');
         // Could implement configuration reload here
       end;
   end;
@@ -49,8 +50,8 @@ procedure SetupSignalHandlers;
   act: SigActionRec;
 begin
   FillChar(act, SizeOf(act), 0);
-  act.sa_handler := @SignalHandler;
-  act.sa_flags := 0;
+  act.sa_handler:= @SignalHandler;
+  act.sa_flags:= 0;
 
   // Set up signal handlers
   fpSigAction(SIGTERM, @act, nil);
@@ -87,33 +88,39 @@ procedure TPasLogBot.DoRun;
 var
   ErrorMsg: String;
 begin
+  // Signal Handling
+  SetupSignalHandlers;
   // quick check parameters
-  ErrorMsg:=CheckOptions('h', 'help');
-  if ErrorMsg<>'' then begin
+  ErrorMsg:= CheckOptions('h', 'help');
+  if ErrorMsg<>'' then
+  begin
     //ShowException(Exception.Create(ErrorMsg));
     Terminate;
-    Exit;
+    exit;
   end;
 
   // parse parameters
-  if HasOption('h', 'help') then begin
+  if HasOption('h', 'help') then
+  begin
     WriteHelp;
     Terminate;
-    Exit;
+    exit;
   end;
 
+  WriteLn('Starting...');
   while not Terminated do
   begin
     Sleep(50);
   end;
+  WriteLn('Exiting.');
   // stop program loop
   //Terminate;
 end;
 
 constructor TPasLogBot.Create(TheOwner: TComponent);
 begin
   inherited Create(TheOwner);
-  StopOnException:=True;
+  StopOnException:= True;
 end;
 
 destructor TPasLogBot.Destroy;
@@ -124,12 +131,12 @@ destructor TPasLogBot.Destroy;
 procedure TPasLogBot.WriteHelp;
 begin
   { add your help code here }
-  writeln('Usage: ', ExeName, ' -h');
+  WriteLn('Usage: ', ExtractFileName(ExeName), ' -h');
 end;
 
 begin
-  Application:=TPasLogBot.Create(nil);
-  Application.Title:='Pascal Log Bot';
+  Application:= TPasLogBot.Create(nil);
+  Application.Title:= 'Pascal Log Bot';
   Application.Run;
   Application.Free;
 end.