SMS API mit GET request [gelöst]

[Grisu]

Hallo  Forum

Ich möchte eine SMS API (HTTP Get Request) als Alarmmeldung einbinden. (kein mail2SMS)
Wie muss ich den perl request gestalten um eine URL aufzurufen?

API:
http://www.sms-revolution.ch/API/httpsms.php?user=musteruser&password=e16b2ab8d12314bf4efbd6203906ea6c&text=Dieser+Text+wird+gesendet.&to=%2B49%28321%29987654



# Tuere zu lange offen
define Tuer_Alarm notify TC.Keller.Tuere:.* {\
  if ("%" eq "open") {\
  FBMail('name@@gmx.ch' (@@gmx.ch'),'Alarm @ ist %','Alarm @ ist %');;\

>>> http://www.sms-revolution.ch/API....
 
 fhem ("define @_Alarm at +00:30:00 set Rauchmelder.EG test");;\
  }\
  if ("%" eq "closed") {\
    FBMail('name@@gmx.ch' (@@gmx.ch'),' @ ist %',' @ ist %');;\
    fhem ("delete @_Alarm") if (Value("@_Alarm") ne "");;\
    }\
}

Besten Dank für eure Unterstützung
Gruss Dandan

[Grisu]

Wie geil ist das denn :-)

in einer x.pm Datei:
package main;
use strict;
use warnings;
use LWP::Simple;

sub
SendSMS
{
  my $url = $_[0];
  my $data = get($url);
}


In der fhem.cfg:

# Tuere  offen
define Tuer_Alarm notify TC.Keller.Tuere:.* {\
  if ("%" eq "open") {\
  SendSMS('http://www.sms-revolution.ch/API/httpsms.php?user=xxxx&password=yyyy&text=Alarm+@+ist+%.&to=07612345');;\
    }\
  if ("%" eq "closed") {\
    SendSMS('http://www.sms-revolution.ch/API/httpsms.php?user=xxxx&password=yyyy&text=Alarm+@+ist+%.&to=07612345');;\
    }\
}


So könnte man auch die Dreambox über die WEB Kommandos steuern...

Gruss Dandan

[Puschel74]

Hallo,

ich würde die sub in die 99_MyUtils.pm einbinden - da sie nur wenige Zeilen umfasst.
Aber nicht unbedingt x.pm nennen - aber die Namensgebung auf seinem System steht natürlich jedem frei.

evtl. wäre das ja einen Wiki-Eintrag wert?

Grüße

[Grisu]

Sehr gerne wobei die methode eher getURL heissen sollte ..??

Gruss Dandan