v0.4.5: Added paq8pxd v91.

moisespr123 · Dec 24, 2020 · 12da2f5 · 12da2f5
1 parent 18d5411
commit 12da2f5
Show file tree

Hide file tree

Showing 8 changed files with 31 additions and 5 deletions.
diff --git a/Changelog.txt b/Changelog.txt
@@ -1,3 +1,6 @@
+v0.4.5
+- Added paq8pxd v91.
+
 v0.4.4
 - Added paq8px v198.
 

diff --git a/PAQCompress/DistributedProjectFunctions.vb b/PAQCompress/DistributedProjectFunctions.vb
@@ -41,14 +41,19 @@ Public Class DistributedProjectFunctions
             Using client = New HttpClient()
                 Using formData = New MultipartFormDataContent()
                     If True Then
+                        Dim serverUrl As String = "https://boinc.moisescardona.me/"
+                        If My.Settings.localServer Then
+                            serverUrl = "http://127.0.0.1/test_server/"
+                        End If
                         formData.Add(New StringContent(key), "k")
                         formData.Add(New StreamContent(New FileStream(file, FileMode.Open)), "filedata", Path.GetFileName(file))
                         formData.Add(New StringContent(category), "a")
                         formData.Add(New StringContent(format), "f")
                         formData.Add(New StringContent(GenerateCommandLineArguments()), "c")
                         formData.Add(New StringContent(GetOutputFilename(filename)), "n")
-                        Dim uri As Uri = New Uri("http://boinc.moisescardona.me/media_put.php")
+                        Dim uri As Uri = New Uri(serverUrl + "media_put.php")
                         client.DefaultRequestHeaders.Add("Accept-Language", "en-GB,en-US;q=0.8,en;q=0.6,ru;q=0.4")
+                        client.Timeout = Threading.Timeout.InfiniteTimeSpan
                         Dim response As HttpResponseMessage = client.PostAsync(uri, formData).Result
                         If Not response.IsSuccessStatusCode Then
                             Console.WriteLine("Error")

diff --git a/PAQCompress/Form1.Designer.vb b/PAQCompress/Form1.Designer.vb
diff --git a/PAQCompress/Form1.vb b/PAQCompress/Form1.vb
@@ -148,7 +148,7 @@
         ElseIf PAQSeries.SelectedItem Is "PAQ8PXd" Then
             PAQVersion.Items.AddRange({"v45", "v46", "v47", "v48", "v49", "v50", "v51", "v52", "v53", "v54", "v55", "v56", "v57", "v58", "v59", "v60",
                                        "v61", "v62", "v63", "v64", "v66", "v67", "v68", "v69f", "v69", "v70", "v71", "v72", "v73", "v74", "v75", "v76",
-                                       "v77", "v78", "v79", "v80", "v81", "v82", "v83", "v84", "v85", "v86", "v87", "v88", "v89", "v90"})
+                                       "v77", "v78", "v79", "v80", "v81", "v82", "v83", "v84", "v85", "v86", "v87", "v88", "v89", "v90", "v91"})
             CompressionLevel.Text = "s5"
             CompressionLevel.Items.AddRange({"s0", "s1", "s2", "s3", "s4", "s5", "s6", "s7", "s8", "s9", "s10", "s11", "s12", "s13", "s14", "s15"})
             paq_other.Text = "Threads"

diff --git a/PAQCompress/My Project/AssemblyInfo.vb b/PAQCompress/My Project/AssemblyInfo.vb
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("0.4.4.0")>
-<Assembly: AssemblyFileVersion("0.4.4.0")>
+<Assembly: AssemblyVersion("0.4.5.0")>
+<Assembly: AssemblyFileVersion("0.4.5.0")>
diff --git a/PAQCompress/My Project/Settings.Designer.vb b/PAQCompress/My Project/Settings.Designer.vb
diff --git a/PAQCompress/My Project/Settings.settings b/PAQCompress/My Project/Settings.settings
@@ -68,5 +68,8 @@
     <Setting Name="useNativeCPU" Type="System.Boolean" Scope="User">
       <Value Profile="(Default)">False</Value>
     </Setting>
+    <Setting Name="localServer" Type="System.Boolean" Scope="User">
+      <Value Profile="(Default)">False</Value>
+    </Setting>
   </Settings>
 </SettingsFile>
diff --git a/PAQCompress/app.config b/PAQCompress/app.config
@@ -93,6 +93,9 @@
             <setting name="useNativeCPU" serializeAs="String">
                 <value>False</value>
             </setting>
+            <setting name="localServer" serializeAs="String">
+                <value>False</value>
+            </setting>
         </PAQCompress.My.MySettings>
     </userSettings>
 <startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8"/></startup></configuration>