2023.11.25.0

SettingsHost, SiteSettingsBase: change comparer to 'MembersDistinctComparerExtended'
API.RedGifs: fix initial UserAgent value
AutoDownloader: add 'IsManual' to 'Copy' function

Author: AAndyProgram

Changelog.md

@@ -1,3 +1,10 @@
+# 2023.11.25.0
+
+*2023-11-25*
+
+- Fixed
+  - Reddit: missing refresh token button in the settings form
+
 # 2023.11.24.0
 
 *2023-11-24*

SCrawler/API/Base/SiteSettingsBase.vb

@@ -280,7 +280,7 @@ Namespace API.Base
 #End Region
         Protected Sub CLONE_PROPERTIES(ByVal Source As ISiteSettings, ByVal Destination As ISiteSettings, ByVal IsUpdate As Boolean,
                                        Optional ByVal Full As Boolean = True)
-            Dim comparer As New MembersDistinctComparer
+            Dim comparer As New MembersDistinctComparerExtended
             '0 = update
             '1 = clone
             '2 = any

SCrawler/API/Redgifs/SiteSettings.vb

@@ -43,7 +43,7 @@ Namespace API.RedGifs
                 t = .Headers.Value(TokenName)
             End With
             Token = New PropertyValue(t, GetType(String), Sub(v) UpdateResponse(NameOf(Token), v))
-            UserAgent = New PropertyValue(Responser.UserAgent, GetType(String), Sub(v) UpdateResponse(NameOf(UserAgent), v))
+            UserAgent = New PropertyValue(If(Responser.UserAgentExists, Responser.UserAgent, String.Empty), GetType(String), Sub(v) UpdateResponse(NameOf(UserAgent), v))
             TokenLastDateUpdated = New PropertyValue(Now.AddYears(-1), GetType(Date))
             TokenUpdateInterval = New PropertyValue(60 * 12, GetType(Integer))
             TokenUpdateIntervalProvider = New TokenRefreshIntervalProvider

SCrawler/Download/Automation/AutoDownloader.vb

@@ -339,6 +339,7 @@ Namespace DownloadObjects
                 .Name = String.Empty
                 ._Mode = _Mode
                 .Groups.ListAddList(Groups, LAP.ClearBeforeAdd)
+                .IsManual = IsManual
                 .Timer = Timer
                 .StartupDelay = StartupDelay
                 .ShowNotifications = ShowNotifications

SCrawler/My Project/AssemblyInfo.vb

@@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("2023.11.24.0")>
-<Assembly: AssemblyFileVersion("2023.11.24.0")>
+<Assembly: AssemblyVersion("2023.11.25.0")>
+<Assembly: AssemblyFileVersion("2023.11.25.0")>
 <Assembly: NeutralResourcesLanguage("en")>

SCrawler/PluginsEnvironment/Hosts/SettingsHost.vb

@@ -260,7 +260,7 @@ Namespace Plugin.Hosts
 
             Source.BeginInit()
 
-            Dim Members As IEnumerable(Of MemberInfo) = GetObjectMembers(Plugin,,, True, New MembersDistinctComparer) 'Plugin.GetType.GetTypeInfo.DeclaredMembers
+            Dim Members As IEnumerable(Of MemberInfo) = GetObjectMembers(Plugin,,, True, New MembersDistinctComparerExtended) 'Plugin.GetType.GetTypeInfo.DeclaredMembers
 
             _ResponserIsContainer = TypeOf Plugin Is IResponserContainer
             If Members.ListExists Then