Yes, the plugin was stopped (but not HS). Will try again. Thx for the feedback
edit: restarting HS did it, thx
edit: restarting HS did it, thx
If this is your first visit, be sure to check out the FAQ. You must register before you can post.
IMPORTANT: Your first post will be checked for appropriate content. This may take a bit of time.
Jan-26 15:35:37 | Pushover 3P | PushMessage Exception: Object reference not set to an instance of an object. |
Jan-26 15:35:37 | Pushover 3P | Attachment Does Not Exist - Sending Without |
Dim toClients As String = "All Clients" ' separate with | if multiple; "All Clients" for all Dim pushBody As String = Regex.Replace(body, vbCrLf, "") ' Body; let us remove vbCrLf and rely on HTML <br> for push messages; 512 char max; changed to 1024 in .45 ' Pushover messages have 1024 max length If pushBody.Length > 1023 Then pushBody = pushBody.Substring(0, 1023) End If Dim title As String = subject ' Title Dim priority As String = priorityParam ' Priority Dim sound As String = soundParam ' Sound Dim url As String = "" ' URL Dim urlTitle As String = "" ' URL Title Dim apiString As String = "" ' API String Dim attachmentPath As String = "" ' Attachment path Dim pushResult As Boolean = hs.PluginFunction("Pushover 3P", "", "Pushscript", New Object() {toClients, pushBody, title, priority, sound, url, urlTitle, apiString, attachmentPath})
Public Sub Main(ByVal Parms As Object) Dim CO(8) As Object CO(0) = "All Clients" CO(1) = "This is a test" CO(2) = "HOMESEER" CO(3) = Nothing CO(4) = Nothing CO(5) = Nothing CO(6) = Nothing CO(7) = Nothing CO(8) = Nothing hs.PluginFunction("Pushover 3P", "", "Pushscript", CO) End Sub
Public Sub Main(ByVal Parms As Object)[INDENT]Dim PushOverObject(8) As Object PushOverObject(0) = "All Clients" PushOverObject(1) = "This Is A Test! Hello World!" PushOverObject(2) = Nothing PushOverObject(3) = Nothing PushOverObject(4) = Nothing PushOverObject(5) = Nothing PushOverObject(6) = Nothing PushOverObject(7) = Nothing PushOverObject(8) = Nothing hs.WriteLog("PushOver", "Begin - Sending Pushover Message") hs.PluginFunction("Pushover 3P", "", "Pushscript", PushOverObject) hs.WriteLog("PushOver", "End - Sending Pushover Message")[/INDENT] End Sub
Mar-29 2:25:22 PM PushOver Begin - Sending Pushover Message Mar-29 2:25:22 PM [COLOR=#c0392b]Pushover 3P Attachment Does Not Exist - Sending Without[/COLOR] Mar-29 2:25:22 PM [COLOR=#c0392b]Pushover 3P PushMessage Exception: Object reference not set to an instance of an object.[/COLOR] Mar-29 2:25:22 PM PushOver End - Sending Pushover Message
Sub Main(p As String) Dim PushOverObject(8) As Object PushOverObject(0) = "All Clients" PushOverObject(1) = "This Is A Test! Hello World!" PushOverObject(2) = "" PushOverObject(3) = "normal" PushOverObject(4) = "pushover" PushOverObject(5) = Nothing PushOverObject(6) = Nothing PushOverObject(7) = Nothing PushOverObject(8) = Nothing hs.WriteLog("PushOver", "Begin - Sending Pushover Message") hs.PluginFunction("Pushover 3P", "", "Pushscript", PushOverObject) hs.WriteLog("PushOver", "End - Sending Pushover Message") End Sub
[COLOR=#e74c3c][B]Index(0) Device Name (Required - “All Clients” to send to all devices, separate multiple clients with the ASCII character 124 - | - String) Index(1) Message Body (Required - String)[/B][/COLOR] [COLOR=#9b59b6]Index(2) Message Title ([U]Optional[/U] - String) Index(3) Message Priority ([U]Optional[/U] - normal/low/emergency/high - String) Index(4) Message Sound ([U]Optional[/U] - 'pushover' etc, from the sound list - String) Index(5) Message URL ([U]Optional[/U] - String) Index(6) Message URL Title ([U]Optional[/U] - String) Index(7) API String ([U]Optional[/U] - Same as in the configuration page - String) Index(8) Attachment Path ([U]Optional[/U] - full file path to the attachment - String)[/COLOR]
Comment