Evtl. kann man das Makro kürzen, ich habe es aber bei der Erweiterung auf 2 Personen nicht anders hin bekommen.
Code: Alles auswählen
// senden aus einem anderen Makro mit
//
// PROWL_SEND.Empfaenger:="Person1"
// PROWL_SEND.Betreff:="Warnung xy"
// PROWL_SEND.Text:="Achtung! xy äöü geht auch"
// PROWL_SEND.Dringlichkeit:="-2"
// Aufrufen(PROWL_SEND)
//
//Variablen
//API_Person1 [Zeichen]
//Empfaenger [Zeichen]
//Betreff [Zeichen]
//Anweisung_Person1 [Zeichen]
//Text [Zeichen]
//Counter_ZW [Zahl]
//Dringlichkeit [Zeichen]
//Zeile [Zeichen]
//Antwort [Zeichen]
//Gesendet [Schalter]
//
API_Person1:="0126..."
API_Person2:="96b..."
//
Wenn Empfaenger = "Person1" dann
Empfaenger:="X_"+Empfaenger
//
Wenn Dringlichkeit < -2 oder Dringlichkeit > 2 dann
Dringlichkeit:=0
endewenn
wenn Betreff= "" dann
Betreff:="Es wurde kein Thema eingegeben"
endewenn
wenn Text= "" dann
Betreff:="Es wurde kein Text definiert."
endewenn
//
Betreff:=Ersetzen(Betreff," ","%20")
Betreff:=Ersetzen(Betreff,"ä","%C3%A4")
Betreff:=Ersetzen(Betreff,"ö","%C3%B6")
Betreff:=Ersetzen(Betreff,"ü","%C3%BC")
Betreff:=Ersetzen(Betreff,"Ä","%C3%84")
Betreff:=Ersetzen(Betreff,"Ö","%C3%96")
Betreff:=Ersetzen(Betreff,"Ü","%C3%9C")
Betreff:=Ersetzen(Betreff,"ß","%C3%9F")
Betreff:=Ersetzen(Betreff,"#","%23")
Betreff:=Ersetzen(Betreff,"+","%2B")
Betreff:=Ersetzen(Betreff,"&","%26")
Betreff:=Ersetzen(Betreff,"Sonne_","%E2%98%BC")
Betreff:=Ersetzen(Betreff,"Smiley2","%E2%98%BB")
Betreff:=Ersetzen(Betreff,"Smiley","%E2%98%BA")
Betreff:=Ersetzen(Betreff,"Bullet","%E2%80%A2")
Betreff:=Ersetzen(Betreff,"Promille","%E2%80%B0")
Betreff:=Ersetzen(Betreff,"~","%CB%9C")
Betreff:=Ersetzen(Betreff,"Doppelpfeil_rechts","%E2%87%92")
Betreff:=Ersetzen(Betreff,"(C)","%C2%A9")
Betreff:=Ersetzen(Betreff,"(R)","%C2%AE")
Betreff:=Ersetzen(Betreff,"<<","%0A")
Betreff:=Ersetzen(Betreff,"°","%C2%B0")
Text:=Ersetzen(Text," ","%20")
Text:=Ersetzen(Text,"ä","%C3%A4")
Text:=Ersetzen(Text,"ö","%C3%B6")
Text:=Ersetzen(Text,"ü","%C3%BC")
Text:=Ersetzen(Text,"Ä","%C3%84")
Text:=Ersetzen(Text,"Ö","%C3%96")
Text:=Ersetzen(Text,"Ü","%C3%9C")
Text:=Ersetzen(Text,"ß","%C3%9F")
Text:=Ersetzen(Text,"#","%23")
Text:=Ersetzen(Text,"+","%2B")
Text:=Ersetzen(Text,"&","%26")
Text:=Ersetzen(Text,"Sonne_","%E2%98%BC")
Text:=Ersetzen(Text,"Smiley2","%E2%98%BB")
Text:=Ersetzen(Text,"Smiley","%E2%98%BA")
Text:=Ersetzen(Text,"Bullet","%E2%80%A2")
Text:=Ersetzen(Text,"Promille","%E2%80%B0")
Text:=Ersetzen(Text,"~","%CB%9C")
Text:=Ersetzen(Text,"Doppelpfeil_rechts","%E2%87%92")
Text:=Ersetzen(Text,"(C)","%C2%A9")
Text:=Ersetzen(Text,"(R)","%C2%AE")
Text:=Ersetzen(Text,"<<","%0A")
Text:=Ersetzen(Text,"°","%C2%B0")
//
Anweisung_Person1 := "http://prowl.weks.net/publicapi/add?apikey="+API_Person1+"&application=CCU&event="+Betreff+"&priority="+Dringlichkeit+"\&description="+Text
//
counterZW1:=counterZW1+1
wenn counterZW1 < 20 oder Dringlichkeit > 0 dann
GetSite(Anweisung_Person1,80,Antwort)
Gesendet:=1
endewenn
//
wenn counterZW1 = 20 dann
warte("00:00:10")
Betreff:="Systemhinweis"
Text:="Innerhalb%20der%20letzten%20Stunde%20wurden%20"+counterZW1+"%20Nachrichten%20verschickt.%20Da%20scheint%20etwas%20gehoerig%20daneben%20zu%20gehen.%20Bis%20zur%20naechsten%20Stunde%20werden%20nur%20noch%20dringende%20Nachrichten%20geschickt."
Dringlichkeit:=0
Anweisung_Person1 := "http://prowl.weks.net/publicapi/add?apikey="+API_Person1+"&application=CCU&event="+Betreff+"&priority="+Dringlichkeit+"\&description="+Text
GetSite(Anweisung_Person1,80,Antwort)
endewenn
//
wenn NICHT DATEIVORHANDEN("Prowl_Log.txt") dann
Zeile := "Uhrzeit;Empfaenger;Betreff;Text;Dringlichkeit;"
Schreibedatei("Prowl_Log.txt",Zeile,2)
SCHLIESSEDATEIEN
endewenn
//
Zeile:=Uhrzeit+";"+Empfaenger+";"+Betreff+";"+Text+";"+Dringlichkeit+";"
SCHREIBEDATEI("Prowl_Log.txt",Zeile,2)
Betreff:=""
Text:=""
Empfaenger:=""
Dringlichkeit:=0
Gesendet:=0
endewenn
//
// Person 2
//
Wenn Empfaenger = "Person2" dann
Empfaenger:="X_"+Empfaenger
//
Wenn Dringlichkeit < -2 oder Dringlichkeit > 2 dann
Dringlichkeit:=0
endewenn
wenn Betreff= "" dann
Betreff:="Es wurde kein Thema eingegeben"
endewenn
wenn Text= "" dann
Betreff:="Es wurde kein Text definiert."
endewenn
//
Betreff:=Ersetzen(Betreff," ","%20")
Betreff:=Ersetzen(Betreff,"ä","%C3%A4")
Betreff:=Ersetzen(Betreff,"ö","%C3%B6")
Betreff:=Ersetzen(Betreff,"ü","%C3%BC")
Betreff:=Ersetzen(Betreff,"Ä","%C3%84")
Betreff:=Ersetzen(Betreff,"Ö","%C3%96")
Betreff:=Ersetzen(Betreff,"Ü","%C3%9C")
Betreff:=Ersetzen(Betreff,"ß","%C3%9F")
Betreff:=Ersetzen(Betreff,"#","%23")
Betreff:=Ersetzen(Betreff,"+","%2B")
Betreff:=Ersetzen(Betreff,"&","%26")
Betreff:=Ersetzen(Betreff,"Sonne_","%E2%98%BC")
Betreff:=Ersetzen(Betreff,"Smiley2","%E2%98%BB")
Betreff:=Ersetzen(Betreff,"Smiley","%E2%98%BA")
Betreff:=Ersetzen(Betreff,"Bullet","%E2%80%A2")
Betreff:=Ersetzen(Betreff,"Promille","%E2%80%B0")
Betreff:=Ersetzen(Betreff,"~","%CB%9C")
Betreff:=Ersetzen(Betreff,"Doppelpfeil_rechts","%E2%87%92")
Betreff:=Ersetzen(Betreff,"(C)","%C2%A9")
Betreff:=Ersetzen(Betreff,"(R)","%C2%AE")
Betreff:=Ersetzen(Betreff,"<<","%0A")
Betreff:=Ersetzen(Betreff,"°","%C2%B0")
Text:=Ersetzen(Text," ","%20")
Text:=Ersetzen(Text,"ä","%C3%A4")
Text:=Ersetzen(Text,"ö","%C3%B6")
Text:=Ersetzen(Text,"ü","%C3%BC")
Text:=Ersetzen(Text,"Ä","%C3%84")
Text:=Ersetzen(Text,"Ö","%C3%96")
Text:=Ersetzen(Text,"Ü","%C3%9C")
Text:=Ersetzen(Text,"ß","%C3%9F")
Text:=Ersetzen(Text,"#","%23")
Text:=Ersetzen(Text,"+","%2B")
Text:=Ersetzen(Text,"&","%26")
Text:=Ersetzen(Text,"Sonne_","%E2%98%BC")
Text:=Ersetzen(Text,"Smiley2","%E2%98%BB")
Text:=Ersetzen(Text,"Smiley","%E2%98%BA")
Text:=Ersetzen(Text,"Bullet","%E2%80%A2")
Text:=Ersetzen(Text,"Promille","%E2%80%B0")
Text:=Ersetzen(Text,"~","%CB%9C")
Text:=Ersetzen(Text,"Doppelpfeil_rechts","%E2%87%92")
Text:=Ersetzen(Text,"(C)","%C2%A9")
Text:=Ersetzen(Text,"(R)","%C2%AE")
Text:=Ersetzen(Text,"<<","%0A")
Text:=Ersetzen(Text,"°","%C2%B0")
//
Anweisung_Person2 := "http://prowl.weks.net/publicapi/add?apikey="+API_Person2+"&application=CCU&event="+Betreff+"&priority="+Dringlichkeit+"\&description="+Text
//
counterZW2:=counterZW2+1
wenn counterZW2 < 20 oder Dringlichkeit > 0 dann
GetSite(Anweisung_Person2,80,Antwort)
Gesendet:=1
endewenn
//
wenn counterZW2 = 20 dann
warte("00:00:10")
Betreff:="Systemhinweis"
Text:="Innerhalb%20der%20letzten%20Stunde%20wurden%20"+counterZW2+"%20Nachrichten%20verschickt.%20Da%20scheint%20etwas%20gehoerig%20daneben%20zu%20gehen.%20Bis%20zur%20naechsten%20Stunde%20werden%20nur%20noch%20dringende%20Nachrichten%20geschickt."
Dringlichkeit:=0
Anweisung_Person2 := "http://prowl.weks.net/publicapi/add?apikey="+API_Person2+"&application=CCU&event="+Betreff+"&priority="+Dringlichkeit+"\&description="+Text
GetSite(Anweisung_Person2,80,Antwort)
endewenn
//
wenn NICHT DATEIVORHANDEN("Prowl_Log.txt") dann
Zeile := "Uhrzeit;Empfaenger;Betreff;Text;Dringlichkeit;"
Schreibedatei("Prowl_Log.txt",Zeile,2)
SCHLIESSEDATEIEN
endewenn
//
Zeile:=Uhrzeit+";"+Empfaenger+";"+Betreff+";"+Text+";"+Dringlichkeit+";"
SCHREIBEDATEI("Prowl_Log.txt",Zeile,2)
Betreff:=""
Text:=""
Empfaenger:=""
Dringlichkeit:=0
Gesendet:=0
endewenn