mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

HMInfo: add global commands - tempListG - with easy selection

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@10027 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876
2015-11-28 10:44:37 +00:00
parent 3c2b6cffc9
commit ea31c80774
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
fhem/FHEM/98_HMinfo.pm
View File

@@ -1289,8 +1289,10 @@ sub HMinfo_GetFn($@) {#########################################################
,"models"
# ,"overview"
,"regCheck","register"
,"templateList","templateChk","templateUsg"
,"templateList:".join(",",("all",sort keys%HMConfig::culHmTpl))
,"templateChk","templateUsg"
);
$ret = "Unknown argument $cmd, choose one of ".join (" ",sort @cmdLst);
}
return $ret;
@@ -1362,7 +1364,7 @@ sub HMinfo_SetFn($@) {#########################################################
elsif($cmd eq "update") {##update hm counts -----------------------------
$ret = HMinfo_status($hash);
}
elsif($cmd eq "tempList") {##handle thermostat templist from file ---------
elsif($cmd =~ m/tempList[G]?/){##handle thermostat templist from file -------
my $action = $a[0]?$a[0]:"";
if ( $action eq "genPlot"){#generatelog and gplot file
$ret = HMinfo_tempListTmplGenLog($name,$a[1]);
@@ -1431,7 +1433,9 @@ sub HMinfo_SetFn($@) {#########################################################
,"update"
,"cpRegs"
,"tempList"
,"templateDef","templateSet","templateDel","templateExe");
,"tempListG:verify,status,save,restore,genPlot"
,"templateDef","templateSet","templateDel","templateExe"
);
$ret = "Unknown argument $cmd, choose one of ".join (" ",sort @cmdLst);
}
return $ret;
@@ -2213,7 +2217,7 @@ sub HMinfo_templateChk(@){#####################################################
sub HMinfo_templateList($){####################################################
my $templ = shift;
my $reply = "";
if(!$templ ){# list all templates
if(!$templ || $templ eq "all"){# list all templates
foreach (sort keys%HMConfig::culHmTpl){
next if ($_ =~ m/^tmpl...Change$/); #ignore control
$reply .= sprintf("%-16s params:%-24s Info:%s\n"