tweaking, graphql job, add graphql test gui

Modules.Jobs/EDMI/GraphQL/GraphQLArgs.vb

@@ -0,0 +1,9 @@
+Public Class GraphQLArgs
+    Inherits JobArgs
+
+    Public CertificateFile As String
+    Public CertificatePassword As String
+    Public Email As String
+    Public Password As String
+    Public BaseUrl As String
+End Class

Modules.Jobs/EDMI/GraphQL/GraphQLJob.vb

@@ -0,0 +1,68 @@
+Imports System.IO
+Imports DigitalData.Modules.Interfaces
+Imports DigitalData.Modules.Jobs
+Imports DigitalData.Modules.Logging
+
+Public Class GraphQLJob
+    Inherits JobBase
+    Implements IJob(Of GraphQLArgs)
+
+    Public Sub New(LogConfig As LogConfig)
+        MyBase.New(LogConfig, Nothing, Nothing)
+    End Sub
+
+    Public Sub Start(Args As GraphQLArgs) Implements IJob(Of GraphQLArgs).Start
+        Dim oInterface As New GraphQLInterface(
+            _LogConfig, Args.BaseUrl, Args.Email, Args.Password, Args.CertificateFile, Args.CertificatePassword)
+
+        Dim oQuery = "query Nls{
+            niederlassungen(offset: 0, limit: 5) {
+                niederlassungen {
+                    mdnr
+                    bezeichnung
+                    sparte {
+                        id
+                        name
+                        __typename
+                    }
+                    __typename
+                }
+                __typename
+            }
+        }"
+
+        _Logger.Info("Logging in..")
+
+        ' Login to get cookie
+        Dim oLoginResponse = oInterface.Login()
+
+        ' save cookie for future requests
+        oInterface.SaveCookies(oLoginResponse.Cookies.Item(0))
+
+        _Logger.Info("Getting the data..")
+
+        ' get the data
+        Dim oDataResponse = oInterface.GetData(oQuery, "Nls")
+        Dim oResult As String
+
+        ' write data to string
+        Using oStream = oDataResponse.GetResponseStream()
+            Using oReader As New StreamReader(oStream)
+                oResult = oReader.ReadToEnd()
+            End Using
+        End Using
+
+        ' TODO: save data to file
+        _Logger.Info("Response is:")
+        _Logger.Info(oResult)
+
+        _Logger.Info("Logging out..")
+
+        ' logout
+        Dim oLogoutResponse = oInterface.Logout()
+    End Sub
+
+    Public Function ShouldStart(Arguments As GraphQLArgs) As Boolean Implements IJob(Of GraphQLArgs).ShouldStart
+        Return Arguments.Enabled
+    End Function
+End Class

Modules.Jobs/Jobs.vbproj

@@ -84,6 +84,8 @@
   <ItemGroup>
     <Compile Include="EDMI\ADSync\ADSyncArgs.vb" />
     <Compile Include="EDMI\ADSync\ADSyncJob.vb" />
+    <Compile Include="EDMI\GraphQL\GraphQLArgs.vb" />
+    <Compile Include="EDMI\GraphQL\GraphQLJob.vb" />
     <Compile Include="EDMI\ZUGFeRD\EmailData.vb" />
     <Compile Include="EDMI\ZUGFeRD\ImportZUGFeRDFiles.vb" />
     <Compile Include="EDMI\ZUGFeRD\PropertyValues.vb" />