tweaking, graphql job, add graphql test gui

This commit is contained in:
Jonathan Jenne
2019-11-05 12:16:45 +01:00
parent 5ebf847b73
commit faa86ed0be
25 changed files with 987 additions and 6 deletions

View File

@@ -34,6 +34,9 @@
<setting name="TEST_CONFIG" serializeAs="String">
<value>False|10/0 * * * * ?|Foo::Bar</value>
</setting>
<setting name="GRAPHQL_CONFIG" serializeAs="String">
<value>False|0 0 0/1 * * ?|CertPath::E:\jonathanjenne.pfx,CertPass::jonathanjenne,Username::j.jenne@digitaldata.works,Password::DigitalData01!,BaseUrl::http://data.api.wisag.de:8090</value>
</setting>
</DigitalData.Services.JobRunner.My.MySettings>
</applicationSettings>
</configuration>

View File

@@ -90,9 +90,6 @@ Public Class JobRunner
Await _scheduler.Shutdown()
End Sub
Private Class LogProvider
Implements ILogProvider

View File

@@ -87,6 +87,7 @@
</ItemGroup>
<ItemGroup>
<Compile Include="JobRunner.vb" />
<Compile Include="Jobs\GraphQLJob.vb" />
<Compile Include="Jobs\ADJob.vb" />
<Compile Include="Jobs\TestJob.vb" />
<Compile Include="My Project\Application.Designer.vb">

View File

@@ -0,0 +1,25 @@
Imports DigitalData.Modules.Database
Imports DigitalData.Modules.Jobs
Imports DigitalData.Modules.Logging
Imports Quartz
Public Class GraphQLJob
Implements Quartz.IJob
Public Function Execute(context As IJobExecutionContext) As Task Implements Quartz.IJob.Execute
Dim oJobData = context.MergedJobDataMap
Dim oLogConfig As LogConfig = oJobData.Item("LogConfig")
Dim oArgs As Dictionary(Of String, String) = oJobData.Item("Args")
Dim oJobArgs = New GraphQLArgs With {
.CertificateFile = oArgs.Item("CertFile"),
.CertificatePassword = oArgs.Item("CertPass"),
.Email = oArgs.Item("Username"),
.Password = oArgs.Item("Password")
}
Dim oGraphQLJob As New Modules.Jobs.GraphQLJob(oLogConfig)
oGraphQLJob.Start(oJobArgs)
Return Task.FromResult(True)
End Function
End Class

View File

@@ -134,6 +134,17 @@ Namespace My
Return CType(Me("TEST_CONFIG"),String)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False|0 0 0/1 * * ?|CertPath::E:\jonathanjenne.pfx,CertPass::jonathanjenne,Userna"& _
"me::j.jenne@digitaldata.works,Password::DigitalData01!,BaseUrl::http://data.api."& _
"wisag.de:8090")> _
Public ReadOnly Property GRAPHQL_CONFIG() As String
Get
Return CType(Me("GRAPHQL_CONFIG"),String)
End Get
End Property
End Class
End Namespace

View File

@@ -29,5 +29,8 @@
<Setting Name="TEST_CONFIG" Type="System.String" Scope="Application">
<Value Profile="(Default)">False|10/0 * * * * ?|Foo::Bar</Value>
</Setting>
<Setting Name="GRAPHQL_CONFIG" Type="System.String" Scope="Application">
<Value Profile="(Default)">False|0 0 0/1 * * ?|CertPath::E:\jonathanjenne.pfx,CertPass::jonathanjenne,Username::j.jenne@digitaldata.works,Password::DigitalData01!,BaseUrl::http://data.api.wisag.de:8090</Value>
</Setting>
</Settings>
</SettingsFile>