dazedcat19 · alzamer2 · Jan 4, 2026 · Jan 5, 2026 · Jan 6, 2026 · Jan 6, 2026
diff --git a/baseunits/WebsiteModules.pas b/baseunits/WebsiteModules.pas
@@ -59,6 +59,7 @@   TModuleContainer = class;
 
   TOnLogin = function(const AHTTP: THTTPSendThread; const AModule: TModuleContainer): Boolean;
   TOnAccountState = function(const AModule: TModuleContainer): Boolean;
+  TOnCheckSite = function(const AModule: TModuleContainer): Boolean;
 
   TModuleMethod = (MMGetDirectoryPageNumber, MMGetNameAndLink, MMGetInfo,
     MMTaskStart, MMGetPageNumber, MMGetImageURL, MMBeforeDownloadImage,
@@ -149,6 +150,7 @@   TModuleContainer = class
     OnAfterImageSaved: TOnAfterImageSaved;
     OnLogin: TOnLogin;
     OnAccountState: TOnAccountState;
+    OnCheckSite: TOnCheckSite;
     constructor Create;
     destructor Destroy; override;
   public

diff --git a/baseunits/lua/LuaMangaCheck.pas b/baseunits/lua/LuaMangaCheck.pas
@@ -0,0 +1,40 @@
+unit LuaMangaCheck;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, {$ifdef luajit}lua{$else}{$ifdef lua54}lua54{$else}lua53{$endif}{$endif};
+
+procedure luaMangaCheckAddMetaTable(const L: Plua_State; const Obj: Pointer;
+  const MetaTable, UserData: Integer);
+
+implementation
+
+uses
+  uBaseUnit, LuaClass, LuaStrings;
+
+procedure luaMangaCheckAddMetaTable(const L: Plua_State; const Obj: Pointer;
+  const MetaTable, UserData: Integer);
+begin
+  with TMangaCheck(Obj) do
+  begin
+    luaClassAddStringProperty(L, MetaTable, 'MangaURL', @MangaURL);
+    luaClassAddStringProperty(L, MetaTable, 'MangaTitle', @MangaTitle);
+    luaClassAddStringProperty(L, MetaTable, 'ChapterURL', @ChapterURL);
+    luaClassAddStringProperty(L, MetaTable, 'ChapterURLPrefix',
+    @ChapterURLPrefix);
+    luaClassAddStringProperty(L, MetaTable, 'ChapterTitle', @ChapterTitle);
+    luaClassAddBooleanProperty(L, MetaTable, 'MangaURLAddRootHost',
+    @MangaURLAddRootHost);
+    luaClassAddBooleanProperty(L, MetaTable, 'ChapterURLAddRootHost',
+    @ChapterURLAddRootHost);
+  end;
+end;
+
+initialization
+  luaClassRegister(TMangaCheck, @luaMangaCheckAddMetaTable);
+
+end.
+
diff --git a/baseunits/lua/LuaWebsiteModules.pas b/baseunits/lua/LuaWebsiteModules.pas
@@ -30,6 +30,7 @@   TLuaWebsiteModule = class
     OnAfterImageSaved: String;
     OnLogin: String;
     OnAccountState: String;
+    OnCheckSite: String;
     Storage: TStringsStorage;
     LastUpdated: String;
     Container: TLuaWebsiteModulesContainer;
@@ -143,7 +144,7 @@ implementation
 uses
   FMDOptions, FileUtil, MultiLog, LuaClass, LuaBase, LuaMangaInfo, LuaHTTPSend,
   LuaXQuery, LuaUtils, LuaDownloadTask, LuaUpdateListManager, LuaStrings,
-  LuaCriticalSection, LuaPackage, uData,
+  LuaCriticalSection, LuaPackage, uData, LuaMangaCheck,
   uDownloadsManager, xquery, httpsendthread, FMDVars, uBaseUnit, LuaWebsiteBypass,
   LuaWebsiteModuleHandler;
 
@@ -445,6 +446,24 @@ function DoAccountState(const AModule: TModuleContainer): Boolean;
     end;
 end;
 
+function DoCheckSite(const AModule: TModuleContainer): Boolean;
+var
+  L: TLuaWebsiteModuleHandler;
+begin
+  Result := False;
+  with TLuaWebsiteModule(AModule.LuaModule) do
+    try
+      L := GetLuaWebsiteModuleHandler(AModule);
+      LuaPushAccountStatus(L.Handle);
+
+      L.CallFunction(OnCheckSite);
+      Result := lua_toboolean(L.Handle, -1);
+    except
+      on E: Exception do
+        SendLogException('LUA>DoCheckSite("' + ExtractFileName(Container.FileName) + '")>', E);
+    end;
+end;
+
 function _newwebsitemodule(L: Plua_State): Integer; cdecl;
 begin
   luaClassPushObject(L, TLuaWebsiteModule.Create, '', False, @luaWebsiteModuleAddMetaTable);
@@ -560,6 +579,8 @@ procedure TLuaWebsiteModulesLoaderThread.LoadLuaWebsiteModule(
             Module.OnLogin := @DoLogin;
           if OnAccountState <> '' then
             Module.OnAccountState := @DoAccountState;
+          if OnCheckSite <> '' then
+            Module.OnCheckSite := @DoCheckSite;
         end;
       finally
         Modules.Unlock;
@@ -1002,6 +1023,7 @@ procedure luaWebsiteModuleAddMetaTable(const L: Plua_State; const Obj: Pointer;
     luaClassAddStringProperty(L, MetaTable, 'OnAccountState', @OnAccountState);
     luaClassAddStringProperty(L, MetaTable, 'LastUpdated', @LastUpdated);
     luaClassAddIntegerProperty(L, MetaTable, 'CurrentDirectoryIndex', @Module.CurrentDirectoryIndex);
+    luaClassAddStringProperty(L, MetaTable, 'OnCheckSite', @OnCheckSite);
 
     luaClassAddProperty(L, MetaTable, UserData, 'TotalDirectory', @lua_gettotaldirectory, @lua_settotaldirectory);
     luaClassAddProperty(L, MetaTable, UserData, 'AccountSupport', @lua_getaccountsupport, @lua_setaccountsupport);

diff --git a/baseunits/uBaseUnit.pas b/baseunits/uBaseUnit.pas
@@ -344,6 +344,30 @@   TMangaInfo = class
     function Clone: TMangaInfo;
   end;
 
+  PMangaCheck = ^TMangaCheck;
+
+    { TMangaCheck }
+
+    TMangaCheck = class
+    public
+      MangaURL,
+      MangaTitle,
+      ChapterURL,
+      ChapterTitle,
+      ChapterURLPrefix: String;
+      TestToCheck: Integer;
+      MangaURLAddRootHost: Boolean;
+      ChapterURLAddRootHost: Boolean;
+      Module: Pointer;
+      constructor Create;
+      destructor Destroy; override;
+      function ModuleID: String; inline;
+      function ModuleName: String; inline;
+      function ModuleFilename: String; inline;
+      procedure Clear;
+      function Clone: TMangaCheck;
+    end;
+
   PDownloadInfo = ^TDownloadInfo;
 
   { TDownloadInfo }
@@ -638,7 +662,8 @@ procedure SendLogException(const AText: String; AException: Exception); inline;
 implementation
 
 uses
-  frmMain, WebsiteModules, webp, DCPrijndael, DCPsha512, FPWriteJPEG;
+  frmMain, WebsiteModules, webp, DCPrijndael, DCPsha512, FPWriteJPEG,
+  LuaWebsiteModules;
 
 {$IFDEF WINDOWS}
 // thanks Leledumbo for the code
@@ -3013,6 +3038,53 @@ function TMangaInfo.Clone: TMangaInfo;
   Result.Module := Module;
 end;
 
+{ TMangaCheck }
+
+constructor TMangaCheck.Create;
+begin
+  inherited Create;
+  ChapterURLPrefix := '';
+  MangaURLAddRootHost := True;
+  ChapterURLAddRootHost := True;
+end;
+
+destructor TMangaCheck.Destroy;
+begin
+  inherited Destroy;
+end;
+function TMangaCheck.ModuleID: String;
+begin
+  Result := TModuleContainer(Module).ID;
+end;
+function TMangaCheck.ModuleName: String;
+begin
+  Result := TModuleContainer(Module).Name;
+end;
+function TMangaCheck.ModuleFilename: String;
+begin
+  Result := ExtractFileName(TLuaWebsiteModule(
+  TModuleContainer(Module).LuaModule).Container.FileName);
+end;
+
+procedure TMangaCheck.Clear;
+begin
+  MangaURL := '';
+  MangaTitle := '';
+  ChapterURL := '';
+  ChapterTitle := '';
+  Module := nil;
+end;
+
+function TMangaCheck.Clone: TMangaCheck;
+begin
+  Result := TMangaCheck.Create;
+  Result.MangaURL := MangaURL;
+  Result.MangaTitle := MangaTitle;
+  Result.ChapterURL := ChapterURL;
+  Result.ChapterTitle := ChapterTitle;
+  Result.Module := Module;
+end;
+
 constructor TDownloadPageThread.Create(CreateSuspended: Boolean);
 begin
   inherited Create(CreateSuspended);

diff --git a/baseunits/uData.pas b/baseunits/uData.pas
@@ -28,6 +28,7 @@   TMangaInformation = class(TObject)
   public
     HTTP: THTTPSendThread;
     MangaInfo: TMangaInfo;
+    MangaCheck: TMangaCheck;
     isGetByUpdater: Boolean;
     isGenerateFolderChapterName: Boolean;
     isRemoveUnicode: Boolean;
@@ -58,6 +59,7 @@ constructor TMangaInformation.Create(const AOwnerThread: TBaseThread);
   FOwner := AOwnerThread;
   HTTP := THTTPSendThread.Create(AOwnerThread);
   MangaInfo := TMangaInfo.Create;
+  MangaCheck := TMangaCheck.Create;
   isGetByUpdater := False;
   isRemoveHostFromChapterLinks := True;
 end;
@@ -66,6 +68,8 @@ destructor TMangaInformation.Destroy;
 begin
   if Assigned(MangaInfo) then
     MangaInfo.Free;
+  if Assigned(MangaCheck) then
+    MangaCheck.Free;
   HTTP.Free;
   inherited Destroy;
 end;

diff --git a/lua/modules/KDTScans.lua b/lua/modules/KDTScans.lua
@@ -12,6 +12,7 @@ function Init()
 	m.OnGetInfo                = 'GetInfo'
 	m.OnGetPageNumber          = 'GetPageNumber'
 	m.OnBeforeDownloadImage    = 'BeforeDownloadImage'
+	m.OnCheckSite			   = 'CheckSite'
 end
 
 ----------------------------------------------------------------------------------------------------
@@ -24,6 +25,13 @@ local Template = require 'templates.MangaThemesia'
 -- Event Functions
 ----------------------------------------------------------------------------------------------------
 
+function CheckSite()
+    MANGACHECK.MangaURL     = "https://www.silentquill.net/the-rise-of-the-errand-boy-who-was-kicked-out-of-the-guild-worlds-strongest-with-ultra-versatile-living-skills/"
+    MANGACHECK.MangaTitle   = 'The Rise of the Errand Boy Who was Kicked Out of the Guild: World’s Strongest with Ultra-Versatile Living Skills'
+    MANGACHECK.ChapterURL   = "https://www.silentquill.net/the-rise-of-the-errand-boy-who-was-kicked-out-of-the-guild-worlds-strongest-with-ultra-versatile-living-skills-ch-1/"
+    MANGACHECK.ChapterTitle = 'Chapter 1'
+end
+
 -- Get links and names from the manga list of the current website.
 function GetNameAndLink()
 	Template.GetNameAndLink()

diff --git a/lua/modules/WeebCentral.lua b/lua/modules/WeebCentral.lua
@@ -16,6 +16,7 @@ function Init()
 	m.MaxTaskLimit             = 2
 	m.MaxConnectionLimit       = 4
 	m.SortedList               = true
+	m.OnCheckSite				= 'CheckSite'
 end
 
 ----------------------------------------------------------------------------------------------------
@@ -28,7 +29,12 @@ local DirectoryPageLimit = 32
 ----------------------------------------------------------------------------------------------------
 -- Event Functions
 ----------------------------------------------------------------------------------------------------
-
+function CheckSite()
+    MANGACHECK.MangaURL     = "/series/01J76XYGGM22WZP7T4TKA4ZFAF/Kagurabachi"
+    MANGACHECK.MangaTitle   = 'Kagurabachi'
+    MANGACHECK.ChapterURL   = "/chapters/01K4JBY7YN9XEZ35F5GECH6ZWP"
+    MANGACHECK.ChapterTitle = 'Chapter 92.5'
+end
 -- Get the page count of the manga list of the current website.
 function GetDirectoryPageNumber()
 	local u = MODULE.RootURL .. DirectoryPagination .. 0

diff --git a/mangadownloader/forms/frmAccountManager.lfm b/mangadownloader/forms/frmAccountManager.lfm
@@ -130,7 +130,7 @@ object AccountManagerForm: TAccountManagerForm
     Colors.FocusedSelectionBorderColor = clHotLight
     Colors.SelectionRectangleBorderColor = clHotLight
     Colors.UnfocusedSelectionBorderColor = clBtnShadow
-    Header.AutoSizeIndex = 0
+    Header.AutoSizeIndex = -1
     Header.Columns = <    
       item
         MinWidth = 25
@@ -149,10 +149,11 @@ object AccountManagerForm: TAccountManagerForm
       item
         Position = 3
         Text = 'Status'
+        Width = 174
       end>
     Header.DefaultHeight = 17
     Header.Height = 23
-    Header.Options = [hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible]
+    Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible]
     NodeDataSize = 1
     TabOrder = 0
     TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoTristateTracking, toAutoDeleteMovedNodes, toDisableAutoscrollOnFocus]