Imports System.Threading
Imports Aliyun.Api.LOG
Imports Aliyun.Api.LOG.Common.Utilities
Imports Aliyun.Api.LOG.Data
Imports Aliyun.Api.LOG.Request
Imports Aliyun.Api.LOG.Response
Imports RCU_LogAgent_sqllite.LogParsing

Public Class LogService

    '' <summary> 此处以深圳为例，其它地域请根据实际情况填写 </summary>
    'Private _Endpoint As String

    '' <summary> 阿里云访问密钥AccessKey </summary>
    'Private _AccessKeyId As String

    '' <summary> 阿里云访问密钥AccessKeySecret </summary>
    'Private _AccessKeySecret As String

    ''' <summary> Project名称 </summary>
    Private _Project As String

    ''' <summary> Logstore名称 </summary>
    Private _Logstore As String

    ''' <summary> 主题 </summary>
    Private _Topic As String

    ''' <summary> 日志服务Client </summary>
    Private _Client As LogClient


    Sub New(endpoint As String, accessKeyId As String, accessKeySecret As String, project As String, logstore As String, topic As String)
        _Project = project
        _Logstore = logstore
        _Topic = topic

        _Client = New LogClient(endpoint, accessKeyId, accessKeySecret)
        _Client.ConnectionTimeout = _Client.ReadWriteTimeout = 10000
    End Sub


    Public Sub AddLogs(logItem As List(Of LogItem))
        Dim putLogsReqError As PutLogsRequest = New PutLogsRequest()
        putLogsReqError.Project = _Project
        putLogsReqError.Topic = _Topic
        putLogsReqError.Logstore = _Logstore
        putLogsReqError.LogItems = logItem
        'putLogsReqError.LogItems = New List(Of LogItem)
        'putLogsReqError.LogItems.Add(logItem)
        Dim putLogRespError As PutLogsResponse = _Client.PutLogs(putLogsReqError)
        'Thread.Sleep(500)
    End Sub
    Public Function AddLogs(logItem As List(Of LogItem), flag As Boolean) As PutLogsResponse
        Dim putLogsReqError As PutLogsRequest = New PutLogsRequest()
        putLogsReqError.Project = _Project
        putLogsReqError.Topic = _Topic
        putLogsReqError.Logstore = _Logstore
        putLogsReqError.LogItems = logItem
        'putLogsReqError.LogItems = New List(Of LogItem)
        'putLogsReqError.LogItems.Add(logItem)

        Dim putLogRespError As PutLogsResponse = _Client.PutLogs(putLogsReqError)
        Thread.Sleep(500)
        Return putLogRespError
    End Function

    ''' <summary>
    ''' 字符串显示 DateTime
    ''' </summary>
    ''' <param name="data_list"></param>
    ''' <returns></returns>
    Public Function Parsing_DateTime(data_list As Log_DateStruct) As String
        Dim temp_string As String
        temp_string = $"20{data_list.year:00}-{data_list.month:00}-{data_list.day:00} {data_list.hour:00}:{data_list.minute:00}:{data_list.second:00}.{data_list.milliscond:000}"
        'temp_string = $"{data_list.hour:00}:{data_list.minute:00}:{data_list.second:00}.{data_list.milliscond:000}"
        Return temp_string
    End Function

    Public Function AddUdpLogItem(strMacAdd As String, logDataInfo As LogDataInfoStruct, parsing_data As List(Of String))

        Dim DataTimes As String = Parsing_DateTime(logDataInfo.Log_DateTime)
        Dim data_string = BitConverter.ToString(logDataInfo.Log_Content).Replace("-", " ")
        Dim logItem As LogItem = New LogItem()
        logItem.Time = DateUtils.TimeSpan()
        logItem.PushBack("MAC".ToLower(), $"{strMacAdd}")
        logItem.PushBack("CreateDateTime".ToLower(), $"{logDataInfo.CreateDateTime}")
        logItem.PushBack("LogFileName".ToLower(), $"{logDataInfo.LogFileName}")
        logItem.PushBack("LogProjectid".ToLower(), $"{logDataInfo.HotelId}")
        logItem.PushBack("LogRoomid".ToLower(), $"{logDataInfo.RoomId}")
        logItem.PushBack("Log_Valid".ToLower(), $"{logDataInfo.Log_Valid}")
        logItem.PushBack("Log_SN".ToLower(), $"{logDataInfo.Log_SN}")
        logItem.PushBack("Log_Len".ToLower(), $"{logDataInfo.Log_Len}")
        logItem.PushBack("Log_DateTime".ToLower(), $"{DataTimes}")
        logItem.PushBack("Log_TimeSpan".ToLower(), $"{logDataInfo.Log_TimeSpan}")
        logItem.PushBack("Log_Type".ToLower(), $"{logDataInfo.Log_Type}")
        logItem.PushBack("Log_Content".ToLower(), $"{data_string}")
        logItem.PushBack("Type_Param_1".ToLower(), $"{parsing_data(0)}")
        logItem.PushBack("Type_Param_2".ToLower(), $"{parsing_data(1)}")
        logItem.PushBack("Type_Param_3".ToLower(), $"{parsing_data(2)}")
        logItem.PushBack("Type_Param_4".ToLower(), $"{parsing_data(3)}")
        logItem.PushBack("Type_Param_5".ToLower(), $"{parsing_data(4)}")
        logItem.PushBack("Type_Param_6".ToLower(), $"{parsing_data(5)}")
        logItem.PushBack("Type_Param_7".ToLower(), $"{parsing_data(6)}")
        logItem.PushBack("Type_Param_8".ToLower(), $"{parsing_data(7)}")
        logItem.PushBack("Type_Param_9".ToLower(), $"{parsing_data(8)}")
        logItem.PushBack("Type_Param_10".ToLower(), $"{parsing_data(9)}")
        logItem.PushBack("Remark".ToLower(), " ")


        Return logItem
    End Function



End Class