ModMain.vb

Imports System.IO
Imports System
Imports System.Globalization
Imports System.Threading

Module ModMain

    Public TPInput As New ClsTPInput
    Public PropLanguage As String = "en" 'Default main language

    Public Sub Main()

        Application.EnableVisualStyles()
        Application.SetCompatibleTextRenderingDefault(False)
        Application.Run(New FrmMain())

    End Sub

    Public Function FunChecks(input As ClsTPInput) As ClsChecksResult

        Dim result As New ClsChecksResult

        result.PropCheckOk = True

        'Check if spreadsheet exists

        If Not File.Exists(input.PropSpreadsheet) Then

            result.PropCheckOk = False

            Dim StrErrorMessage As New ClsCheckErrorMessage

            StrErrorMessage.PropCheckErrorMessage = "Spreadsheet is not defined or does not exists."

            result.PropCheckErrorMessages.Add(StrErrorMessage)

        End If

        'Check if taxonomy name exists

        If String.IsNullOrEmpty(input.PropTaxonomyName) Then

            result.PropCheckOk = False

            Dim StrErrorMessage As New ClsCheckErrorMessage

            StrErrorMessage.PropCheckErrorMessage = "A taxonomy name is not defined."

            result.PropCheckErrorMessages.Add(StrErrorMessage)

        End If

        'Check if prefix exists

        If String.IsNullOrEmpty(input.PropPrefix) Then

            result.PropCheckOk = False

            Dim StrErrorMessage As New ClsCheckErrorMessage

            StrErrorMessage.PropCheckErrorMessage = "A prefix is not defined."

            result.PropCheckErrorMessages.Add(StrErrorMessage)

        End If

        'Check if URL exists

        If String.IsNullOrEmpty(input.PropURL) Then

            result.PropCheckOk = False

            Dim StrErrorMessage As New ClsCheckErrorMessage

            StrErrorMessage.PropCheckErrorMessage = "An URL is not defined."

            result.PropCheckErrorMessages.Add(StrErrorMessage)

        End If

        'Check if URL is valid

        If Not String.IsNullOrEmpty(input.PropURL) Then

            Dim URIresult As Uri = Nothing

            'See if we can create an valid URI

            If (Uri.TryCreate(input.PropURL, UriKind.Absolute, URIresult)) = True Then

                'See if it starts with http:// or https://.

                If (URIresult.Scheme = Uri.UriSchemeHttp Or URIresult.Scheme = Uri.UriSchemeHttps) = False Then

                    result.PropCheckOk = False

                    Dim StrErrorMessage As New ClsCheckErrorMessage

                    StrErrorMessage.PropCheckErrorMessage = "URL must contain http:// or https://."

                    result.PropCheckErrorMessages.Add(StrErrorMessage)

                End If

            Else

                result.PropCheckOk = False

                Dim StrErrorMessage As New ClsCheckErrorMessage

                StrErrorMessage.PropCheckErrorMessage = "URL is not valid."

                result.PropCheckErrorMessages.Add(StrErrorMessage)

            End If

        End If

        'Check if save location for TP exists

        If Not Directory.Exists(TPInput.PropSaveLocation) Then

            result.PropCheckOk = False

            Dim StrErrorMessage As New ClsCheckErrorMessage

            StrErrorMessage.PropCheckErrorMessage = "TP location is not defined or does not exists."

            result.PropCheckErrorMessages.Add(StrErrorMessage)

        End If


        'Check if description for taxonomyPackage exists

        If String.IsNullOrEmpty(TPInput.PropTPDescription) Then

            result.PropCheckOk = False

            Dim StrErrorMessage As New ClsCheckErrorMessage

            StrErrorMessage.PropCheckErrorMessage = "Description for taxonomyPackage is not defined."

            result.PropCheckErrorMessages.Add(StrErrorMessage)

        End If

        'Check if version for taxonomyPackage exists

        If String.IsNullOrEmpty(TPInput.PropTPVersion) Then

            result.PropCheckOk = False

            Dim StrErrorMessage As New ClsCheckErrorMessage

            StrErrorMessage.PropCheckErrorMessage = "Version for taxonomyPackage is not defined."

            result.PropCheckErrorMessages.Add(StrErrorMessage)

        End If

        'Check if publisher for taxonomyPackage exists

        If String.IsNullOrEmpty(TPInput.PropTPPublisher) Then

            result.PropCheckOk = False

            Dim StrErrorMessage As New ClsCheckErrorMessage

            StrErrorMessage.PropCheckErrorMessage = "Publisher for taxonomyPackage is not defined."

            result.PropCheckErrorMessages.Add(StrErrorMessage)

        End If

        'Check if publisher URL for taxonomyPackage exists

        If String.IsNullOrEmpty(TPInput.PropTPPublisherURL) Then

            result.PropCheckOk = False

            Dim StrErrorMessage As New ClsCheckErrorMessage

            StrErrorMessage.PropCheckErrorMessage = "Publisher URL for taxonomyPackage is not defined."

            result.PropCheckErrorMessages.Add(StrErrorMessage)

        End If

        'Check if publisher country for taxonomyPackage exists

        If String.IsNullOrEmpty(TPInput.PropTPPublisherCountry) Then

            result.PropCheckOk = False

            Dim StrErrorMessage As New ClsCheckErrorMessage

            StrErrorMessage.PropCheckErrorMessage = "Publisher country for taxonomyPackage is not defined."

            result.PropCheckErrorMessages.Add(StrErrorMessage)

        End If

        'Check if input file entrypoints for taxonompyPackage exists

        If Not input.PropTPEntrypointsLocation = "#NONE" Then 'Otherwise use worksheet 'Entrypoints' to define entrypoints

            If Not File.Exists(input.PropTPEntrypointsLocation) Then

                result.PropCheckOk = False

                Dim StrErrorMessage As New ClsCheckErrorMessage

                StrErrorMessage.PropCheckErrorMessage = "The input file for the entrypoints (taxonomyPackage) is not defined or does not exists."

                result.PropCheckErrorMessages.Add(StrErrorMessage)

            End If

        End If

        Return result

    End Function


    Public Class ClsChecksResult

        Public Property PropCheckOk As Boolean

        Public Property PropCheckErrorMessages As New List(Of ClsCheckErrorMessage)

    End Class


    Public Class ClsCheckErrorMessage

        Public Property PropCheckErrorMessage As String

    End Class

    Public Class ClsTPInput

        Public Property PropSpreadsheet As String
        Public Property PropPrefix As String
        Public Property PropURL As String
        Public Property PropDate As String
        Public Property PropSaveLocation As String
        Public Property PropTaxonomyName As String
        Public Property PropTPDescription As String
        Public Property PropTPVersion As String
        Public Property PropTPPublisher As String
        Public Property PropTPPublisherURL As String
        Public Property PropTPPublisherCountry As String
        Public Property PropTPPublicationDate As String
        Public Property PropTPEntrypointsLocation As String
        Public Property PropTPPublicationDateTime As Date

    End Class

    Public Function FunRemovePrefixFromURL(StrURL As String) As String

        StrURL = StrURL.Remove(0, StrURL.IndexOf(":") + 3)

        Return StrURL

    End Function


    Public Class entryPoints

        Public Property entryPoint As New List(Of LstEntrypoint)

    End Class

    Public Class LstEntrypoint

        Public Property name As String
        Public Property description As String
        Public Property version As String
        Public Property entryPointDocument As String()
        Public Property languages As New List(Of LstLanguage)

    End Class

    Public Class LstLanguage
        Public Property language As String

    End Class

    ''' <summary>
    ''' Class used to temporarily change the culture code (language) to en-US.
    ''' Needed to communicate in the correct language - for example for the publication date in the annotation
    ''' </summary>
    Public Class ClsChangeLanguageToEnglish
        Implements IDisposable

        Private CultureOld As CultureInfo

        Public Sub New()

            CultureOld = CultureInfo.CurrentCulture

            Thread.CurrentThread.CurrentCulture = New CultureInfo("en-US")

        End Sub

        Public Sub Dispose() Implements IDisposable.Dispose

            Thread.CurrentThread.CurrentCulture = CultureOld

        End Sub

    End Class

End Module