Module basPublic

    Public Const gstrNoMessage As String = "Request contains no message, well you're the boss.. I will send it anyway"
    Public Const gstrNoNumber As String = "Phone number was not entered or was invalid, sorry can't help you.."
    Public Const gstrReturnMsg As String = "Returning message for phono number: "
    Public Const gstrInvalidUserPass As String = "Invalid Username or Password"
    Public Const gstrUnknownCmd As String = "Unknown variable was sent: "
    Public Const gstrStop As String = "Stopping HTTPd now!"
    Public Const gstrStart As String = "Starting HTTPd now!"
    Public Const gstrListenOn As String = "Listen on: "
    Public Const gstrGotCmd As String = "Got command: "
    Public Const gstrHttpdStoped As String = "Httpd listener stopped, did you restart the service?"
    Public Const gstrUnhandledErr As String = "Unhandled event happened: "
    Public Const gstrPriorityParseErr As String = "Could not parse priority, defaults to ""Normal"""
    Public Const gstrUnknownURI As String = "Unknown Command" & vbCrLf & vbCrLf & "Correct command is: http://domain.tld/netsmsgwd?username=<UserName>&password=<Password>&msg=<Message>&number=<PhoneNumber>&priority=<low/normal/high>" & vbCrLf & _
                                    vbCrLf & "So options are:" & vbCrLf & _
                                    "username = Your username, not case sensitive" & vbCrLf & _
                                    "password = your password, case sensitive" & vbCrLf & _
                                    "msg = your message" & vbCrLf & _
                                    "number = your mobile number, either in '+4512345678' or just '12345678' for local numbers" & vbCrLf & _
                                    "priority = your priority of message, can be Low/Normal/High. If omitted, normal is used"
    Public Const gstrSuccess As String = "Message Received: Successfull"


End Module