Added API Key Field

Author: magicbug

OmniRig_VB_DEMO/App.config

@@ -13,6 +13,9 @@
             <setting name="CloudlogURL" serializeAs="String">
                 <value />
             </setting>
+            <setting name="CloudlogAPIKey" serializeAs="String">
+                <value />
+            </setting>
         </CloudlogCAT.My.MySettings>
     </userSettings>
 </configuration>

OmniRig_VB_DEMO/CloudlogCAT.vbproj

@@ -14,7 +14,7 @@
     <TargetFrameworkVersion>v4.5.2</TargetFrameworkVersion>
     <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
     <IsWebBootstrapper>false</IsWebBootstrapper>
-    <PublishUrl>publish\</PublishUrl>
+    <PublishUrl>publish-1\</PublishUrl>
     <Install>true</Install>
     <InstallFrom>Disk</InstallFrom>
     <UpdateEnabled>false</UpdateEnabled>
@@ -29,7 +29,7 @@
     <ProductName>CloudlogCAT</ProductName>
     <PublisherName>Magicbug</PublisherName>
     <SuiteName>Cloudlog</SuiteName>
-    <ApplicationRevision>0</ApplicationRevision>
+    <ApplicationRevision>2</ApplicationRevision>
     <ApplicationVersion>1.0.0.%2a</ApplicationVersion>
     <UseApplicationTrust>false</UseApplicationTrust>
     <CreateDesktopShortcut>true</CreateDesktopShortcut>
@@ -169,7 +169,9 @@
   </ItemGroup>
   <ItemGroup>
     <None Include="CloudlogCAT_TemporaryKey.pfx" />
-    <None Include="My Project\app.manifest" />
+    <None Include="My Project\app.manifest">
+      <SubType>Designer</SubType>
+    </None>
     <None Include="My Project\Application.myapp">
       <Generator>MyApplicationCodeGenerator</Generator>
       <LastGenOutput>Application.Designer.vb</LastGenOutput>

OmniRig_VB_DEMO/CloudlogCAT.vbproj.user

@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="utf-8"?>
 <Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
   <PropertyGroup>
-    <PublishUrlHistory>publish\</PublishUrlHistory>
+    <PublishUrlHistory>publish-1\|publish\</PublishUrlHistory>
     <InstallUrlHistory />
     <SupportUrlHistory>http://www.magicbug.co.uk</SupportUrlHistory>
     <UpdateUrlHistory />
@@ -10,4 +10,7 @@
     <FallbackCulture>en-US</FallbackCulture>
     <VerifyUploadedFiles>false</VerifyUploadedFiles>
   </PropertyGroup>
+  <PropertyGroup>
+    <EnableSecurityDebugging>false</EnableSecurityDebugging>
+  </PropertyGroup>
 </Project>

OmniRig_VB_DEMO/Form1.vb

@@ -118,15 +118,14 @@
                         RadioName = "OmniRig 2"
                     End If
 
-                    Dim myString As String = "{""radio"": """ + RadioName + """, ""frequency"": """ + Rig.GetRxFrequency.ToString + """, ""mode"": """ + Label6.Text + """}"
+                    Dim myString As String = "{""radio"": """ + RadioName + """, ""frequency"": """ + Rig.GetRxFrequency.ToString + """, ""mode"": """ + Label6.Text + """, ""key"": """ + My.Settings.CloudlogAPIKey + """}"
 
                     Dim responsebytes = client.UploadString(My.Settings.CloudlogURL + "/index.php/api/radio", myString)
 
                     ToolStripStatusLabel1.Text = "Cloudlog Synced: " + DateTime.UtcNow
 
-
                 End Using
-            Catch ex As Exception
+            Catch ex As System.Net.WebException
                 ToolStripStatusLabel1.Text = "Cloudlog Synced: Failed"
             End Try
         End If

OmniRig_VB_DEMO/Form2.Designer.vb

@@ -1,10 +1,12 @@
 Public Class CloudlogSettingsForm
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
         My.Settings.CloudlogURL = TextBox1.Text
+        My.Settings.CloudlogAPIKey = TextBox2.Text
         Me.Close()
     End Sub
 
     Private Sub CloudlogSettingsForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         TextBox1.Text = My.Settings.CloudlogURL
+        TextBox2.Text = My.Settings.CloudlogAPIKey
     End Sub
 End Class

OmniRig_VB_DEMO/Form2.vb

@@ -5,5 +5,8 @@
     <Setting Name="CloudlogURL" Type="System.String" Scope="User">
       <Value Profile="(Default)" />
     </Setting>
+    <Setting Name="CloudlogAPIKey" Type="System.String" Scope="User">
+      <Value Profile="(Default)" />
+    </Setting>
   </Settings>
 </SettingsFile>

OmniRig_VB_DEMO/My Project/Settings.Designer.vb

@@ -13,6 +13,9 @@
             <setting name="CloudlogURL" serializeAs="String">
                 <value />
             </setting>
+            <setting name="CloudlogAPIKey" serializeAs="String">
+                <value />
+            </setting>
         </CloudlogCAT.My.MySettings>
     </userSettings>
 </configuration>