29 lines
927 B
VB.net
29 lines
927 B
VB.net
Public Class Config
|
|
Public Property ConnectionString As String = ""
|
|
Public Property Mandators As New List(Of Mandator)
|
|
Public Property InputDirectory As String = ""
|
|
Public Property OutputDirectory As String = ""
|
|
Public Property Webservice As New WebServiceConfig()
|
|
Public Property DefaultYearOverride As Integer = 0
|
|
|
|
Public Class WebServiceConfig
|
|
Public Property BaseUrl As String = "http://127.0.0.1/EWL"
|
|
Public Property Username As String = "Username"
|
|
Public Property Password As String = "Password"
|
|
End Class
|
|
|
|
Public Class Mandator
|
|
Public Property Order As Integer
|
|
Public Property Name As String
|
|
Public Property ArticleRegex As String
|
|
End Class
|
|
|
|
Public Function GetYear() As Integer
|
|
If DefaultYearOverride > 0 Then
|
|
Return DefaultYearOverride
|
|
End If
|
|
|
|
Return Now.Year
|
|
End Function
|
|
End Class
|