FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-22 20:24:36 +00:00
Code Issues Releases Wiki Activity

76_SMAPortalSPG: contrib 1.2.0

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@19677 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2019-06-21 12:32:46 +00:00
parent b88d047a2e
commit f3f8f52449
1 changed files with 55 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
fhem/contrib/DS_Starter/76_SMAPortalSPG.pm
View File

@ -34,6 +34,7 @@ eval "use FHEM::Meta;1" or my $modMetaAbsent = 1;
# Versions History intern # Versions History intern
our %SMAPortalSPG_vNotesIntern = ( our %SMAPortalSPG_vNotesIntern = (
"1.2.0" => "21.06.2019 GetFn -> get <name> html ",
"1.1.0" => "13.06.2019 commandRef revised, changed attribute W/kW to Wh/kWh ", "1.1.0" => "13.06.2019 commandRef revised, changed attribute W/kW to Wh/kWh ",
"1.0.0" => "03.06.2019 initial Version " "1.0.0" => "03.06.2019 initial Version "
); );
@ -45,6 +46,7 @@ sub SMAPortalSPG_Initialize($) {
my $fwd = join(",",devspec2array("TYPE=FHEMWEB:FILTER=STATE=Initialized")); my $fwd = join(",",devspec2array("TYPE=FHEMWEB:FILTER=STATE=Initialized"));
$hash->{DefFn} = "SMAPortalSPG_Define"; $hash->{DefFn} = "SMAPortalSPG_Define";
$hash->{GetFn} = "SMAPortalSPG_Get";
$hash->{AttrList} = "autoRefresh:selectnumbers,120,0.2,1800,0,log10 ". $hash->{AttrList} = "autoRefresh:selectnumbers,120,0.2,1800,0,log10 ".
"autoRefreshFW:$fwd ". "autoRefreshFW:$fwd ".
"beamColor:colorpicker,RGB ". "beamColor:colorpicker,RGB ".
@ -86,7 +88,9 @@ sub SMAPortalSPG_Initialize($) {
return; return;
} }
################################################################ ###############################################################
# SMAPortalSPG Define
###############################################################
sub SMAPortalSPG_Define($$) { sub SMAPortalSPG_Define($$) {
my ($hash, $def) = @_; my ($hash, $def) = @_;
my ($name, $type, $link) = split("[ \t]+", $def, 3); my ($name, $type, $link) = split("[ \t]+", $def, 3);
@ -109,6 +113,23 @@ sub SMAPortalSPG_Define($$) {
return undef; return undef;
} }
###############################################################
# SMAPortalSPG Get
###############################################################
sub SMAPortalSPG_Get($@) {
my ($hash, @a) = @_;
return "\"get X\" needs at least an argument" if ( @a < 2 );
my $name = shift @a;
my $cmd = shift @a;
if ($cmd eq "html") {
return SMAPortalSPG_AsHtml($hash);
}
return undef;
return "Unknown argument $cmd, choose one of html:noArg";
}
################################################################ ################################################################
sub SMAPortalSPG_Rename($$) { sub SMAPortalSPG_Rename($$) {
my ($new_name,$old_name) = @_; my ($new_name,$old_name) = @_;
@ -259,6 +280,39 @@ sub SMAPortalSPG_setVersionInfo($) {
return; return;
} }
################################################################
# Grafik als HTML zurück liefern (z.B. für Widget)
################################################################
sub SMAPortalSPG_AsHtml($) {
my ($hash) = @_;
my $name = $hash->{NAME};
my $link = $hash->{LINK};
my $height;
$link = AnalyzePerlCommand(undef, $link) if($link =~ m/^{(.*)}$/s);
my $alias = AttrVal($name, "alias", $name); # Linktext als Aliasname oder Devicename setzen
my $dlink = "<a href=\"/fhem?detail=$name\">$alias</a>";
my $ret = "<html>";
if(IsDisabled($name)) {
$height = AttrNum($name, 'beamHeight', 200);
$ret .= "<table class='roomoverview'>";
$ret .= "<tr style='height:".$height."px'>";
$ret .= "<td>";
$ret .= "SMA Portal graphic device <a href=\"/fhem?detail=$name\">$name</a> is disabled";
$ret .= "</td>";
$ret .= "</tr>";
$ret .= "</table>";
} else {
$ret .= "<span>$dlink </span><br>" if(AttrVal($name,"showLink",0));
$ret .= $link;
}
$ret .= "</html>";
return $ret;
}
1; 1;
=pod =pod