FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-28 11:01:59 +00:00
Code Issues Releases Wiki Activity

+ FS20 Behandlung angepasst

Browse Source 
+ OWTHERM Support hinzugefügt
+ OWAD/OWSWITCH Support mit Reading "data" hinzugefügt
+ <fn> in <column_spec> kann nun auch komplexe Regexsubstitution
+ Doku (engl.) erweitert


git-svn-id: https://svn.fhem.de/fhem/trunk@2206 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
tobiasfaust 2012-11-27 17:52:54 +00:00
parent 70c6ae03f7
commit 547811b816
1 changed files with 838 additions and 800 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

218
fhem/contrib/dblog/93_DbLog.pm
View File

@ -18,7 +18,6 @@ use Data::Dumper;
sub DbLog($$$); sub DbLog($$$);
################################################################ ################################################################
sub sub
DbLog_Initialize($) DbLog_Initialize($)
@ -30,7 +29,8 @@ DbLog_Initialize($)
$hash->{NotifyFn} = "DbLog_Log"; $hash->{NotifyFn} = "DbLog_Log";
$hash->{GetFn} = "DbLog_Get"; $hash->{GetFn} = "DbLog_Get";
$hash->{AttrFn} = "DbLog_Attr"; $hash->{AttrFn} = "DbLog_Attr";
$hash->{AttrList} = "disable:0,1"; $hash->{AttrList} = "disable:0,1 loglevel:0,5";
} }
############################################################### ###############################################################
@ -70,7 +70,7 @@ DbLog_Undef($$)
################################################################ ################################################################
# #
# Wird bei jeder ?nderung eines Attributes dieser # Wird bei jeder Aenderung eines Attributes dieser
# DbLog-Instanz aufgerufen # DbLog-Instanz aufgerufen
# #
################################################################ ################################################################
@ -93,7 +93,7 @@ DbLog_Attr(@)
################################################################ ################################################################
# #
# Parsefunktion, abh?ngig vom Devicetyp # Parsefunktion, abhaengig vom Devicetyp
# #
################################################################ ################################################################
sub sub
@ -104,38 +104,44 @@ DbLog_ParseEvent($$)
# split the event into reading and argument # split the event into reading and argument
# "day-temp: 22.0 (Celsius)" -> "day-temp", "22.0 (Celsius)" # "day-temp: 22.0 (Celsius)" -> "day-temp", "22.0 (Celsius)"
my @parts= split(/: /,$event); my @parts = split(/: /,$event);
my $reading= $parts[0]; if(!defined($reading)) { $reading= ""; } my $reading = shift @parts;
my $arg= $parts[1]; my $value = join(": ", @parts);
my $unit = "";
# the interpretation of the argument depends on the device type
#default #default
my $value= $arg; if(!defined($value)) { $value= ""; } if(!defined($reading)) { $reading = ""; }
my $unit= ""; if(!defined($value)) { $value = ""; }
# the interpretation of the argument depends on the device type
# EMEM, M232Counter, M232Voltage return plain numbers # EMEM, M232Counter, M232Voltage return plain numbers
if(($type eq "M232Voltage") || if(($type eq "M232Voltage") ||
($type eq "M232Counter") || ($type eq "M232Counter") ||
($type eq "EMEM")) { ($type eq "EMEM")) {
} }
# Onewire
elsif(($type eq "OWAD") ||
($type eq "OWSWITCH") ||
($type eq "OWMULTI")) {
$reading = "data";
$value = $event;
}
# FS20 # FS20
elsif(($type eq "FS20") || elsif(($type eq "FS20") ||
($type eq "X10")) { ($type eq "X10")) {
@parts= split(/ /,$value); #@parts = split(/ /,$event);
my $reading= $parts[0]; if(!defined($reading)) { $reading= ""; } #$reading = shift @parts;
if($#parts>=1) { #$value = join(" ", shift @parts);
$value= join(" ", shift @parts);
if($reading =~ m(^dim*%$)) { if($reading =~ m/^dim(\d+).*/o) {
$value= substr($reading,3,length($reading)-4); $value = $1;
$reading= "dim"; $reading= "dim";
$unit= "%"; $unit= "%";
} }
else { if(!defined($value) || $value eq "") {$value=$reading; $reading="data";}
$value= "";
}
}
} }
# FHT # FHT
elsif($type eq "FHT") { elsif($type eq "FHT") {
@ -145,8 +151,8 @@ DbLog_ParseEvent($$)
$value= $parts[1]; $value= $parts[1];
$unit= ""; $unit= "";
} }
if($reading =~ m(-temp)) { $value=~ s/ \(Celsius\)//; $unit= "?C"; } if($reading =~ m(-temp)) { $value=~ s/ \(Celsius\)//; $unit= "°C"; }
if($reading =~ m(temp-offset)) { $value=~ s/ \(Celsius\)//; $unit= "?C"; } if($reading =~ m(temp-offset)) { $value=~ s/ \(Celsius\)//; $unit= "°C"; }
if($reading =~ m(^actuator[0-9]*)) { if($reading =~ m(^actuator[0-9]*)) {
if($value eq "lime-protection") { if($value eq "lime-protection") {
$reading= "actuator-lime-protection"; $reading= "actuator-lime-protection";
@ -190,7 +196,7 @@ DbLog_ParseEvent($$)
if($event =~ m(T:.*)) { $reading= "data"; $value= $event; } if($event =~ m(T:.*)) { $reading= "data"; $value= $event; }
if($event =~ m(avg_day)) { $reading= "data"; $value= $event; } if($event =~ m(avg_day)) { $reading= "data"; $value= $event; }
if($event =~ m(avg_month)) { $reading= "data"; $value= $event; } if($event =~ m(avg_month)) { $reading= "data"; $value= $event; }
if($reading eq "temperature") { $value=~ s/ \(Celsius\)//; $unit= "?C"; } if($reading eq "temperature") { $value=~ s/ \(Celsius\)//; $unit= "°C"; }
if($reading eq "wind") { $value=~ s/ \(km\/h\)//; $unit= "km/h"; } if($reading eq "wind") { $value=~ s/ \(km\/h\)//; $unit= "km/h"; }
if($reading eq "rain") { $value=~ s/ \(l\/m2\)//; $unit= "l/m2"; } if($reading eq "rain") { $value=~ s/ \(l\/m2\)//; $unit= "l/m2"; }
if($reading eq "rain_raw") { $value=~ s/ \(counter\)//; $unit= ""; } if($reading eq "rain_raw") { $value=~ s/ \(counter\)//; $unit= ""; }
@ -202,9 +208,13 @@ DbLog_ParseEvent($$)
} }
} }
# HMS # HMS
elsif($type eq "HMS") { elsif($type eq "HMS" ||
$type eq "CUL_WS" ||
$type eq "OWTHERM") {
if($event =~ m(T:.*)) { $reading= "data"; $value= $event; } if($event =~ m(T:.*)) { $reading= "data"; $value= $event; }
if($reading eq "temperature") { $value=~ s/ \(Celsius\)//; $unit= "?C"; } if($reading eq "temperature") { $value=~ s/ \(Celsius\)//; $unit= "°C"; }
if($reading eq "temperature") { $value=~ s/([-\.\d]+).*/$1/; $unit= "°C"; } #OWTHERM
if($reading eq "humidity") { $value=~ s/ \(\%\)//; $unit= "%"; } if($reading eq "humidity") { $value=~ s/ \(\%\)//; $unit= "%"; }
if($reading eq "battery") { if($reading eq "battery") {
$value=~ s/ok/1/; $value=~ s/ok/1/;
@ -213,12 +223,6 @@ DbLog_ParseEvent($$)
} }
} }
# CUL_WS
elsif($type eq "CUL_WS") {
if($event =~ m(T:.*)) { $reading= "data"; $value= $event; }
if($reading eq "temperature") { $unit= "?C"; }
if($reading eq "humidity") { $unit= "%"; }
}
# BS # BS
elsif($type eq "BS") { elsif($type eq "BS") {
@ -230,12 +234,6 @@ DbLog_ParseEvent($$)
} }
} }
# Default
else {
$reading= "data";
$value= $event;
}
@result= ($reading,$value,$unit); @result= ($reading,$value,$unit);
return @result; return @result;
} }
@ -299,8 +297,9 @@ DbLog_Log($$)
################################################################ ################################################################
# #
# zerlegt ?bergebenes FHEM-Datum in die einzelnen Bestandteile # zerlegt uebergebenes FHEM-Datum in die einzelnen Bestandteile
# und f?gt noch Defaultwerte ein # und fuegt noch Defaultwerte ein
# uebergebenes SQL-Format: YYYY-MM-DD HH24:MI:SS
# #
################################################################ ################################################################
sub sub
@ -309,7 +308,7 @@ DbLog_explode_datetime($%) {
my %retv; my %retv;
my (@datetime, @date, @time); my (@datetime, @date, @time);
@datetime = split("_", $t); #Datum und Zeit auftrennen @datetime = split(" ", $t); #Datum und Zeit auftrennen
@date = split("-", $datetime[0]); @date = split("-", $datetime[0]);
@time = split(":", $datetime[1]) if ($datetime[1]); @time = split(":", $datetime[1]) if ($datetime[1]);
if ($date[0]) {$retv{year} = $date[0];} else {$retv{year} = $def{year};} if ($date[0]) {$retv{year} = $date[0];} else {$retv{year} = $def{year};}
@ -328,7 +327,7 @@ DbLog_explode_datetime($%) {
sub sub
DbLog_implode_datetime($$$$$$) { DbLog_implode_datetime($$$$$$) {
my ($year, $month, $day, $hour, $minute, $second) = @_; my ($year, $month, $day, $hour, $minute, $second) = @_;
my $retv = $year."-".$month."-".$day."_".$hour.":".$minute.":".$second; my $retv = $year."-".$month."-".$day." ".$hour.":".$minute.":".$second;
return $retv; return $retv;
} }
@ -363,19 +362,19 @@ DbLog_Connect($)
$hash->{DBMODEL}="MYSQL"; $hash->{DBMODEL}="MYSQL";
} elsif ($dbconn =~ m/oracle:/i) { } elsif ($dbconn =~ m/oracle:/i) {
$hash->{DBMODEL}="ORACLE"; $hash->{DBMODEL}="ORACLE";
} elsif ($dbconn =~ m/sqlite:/i) {
$hash->{DBMODEL}="SQLITE";
} else { } else {
$hash->{DBMODEL}="unknown"; $hash->{DBMODEL}="unknown";
Log 3, "Unknown dbmodel type in configuration file $configfilename."; Log 3, "Unknown dbmodel type in configuration file $configfilename.";
Log 3, "Only Mysql, Postgresql, Oracle is currently supported."; Log 3, "Only Mysql, Postgresql, Oracle, SQLite are fully supported.";
Log 3, "Otherwise please check the connectstring: $dbconn"; Log 3, "It may cause SQL-Erros during generating plots.";
return 0;
} }
Log 3, "Connecting to database $dbconn with user $dbuser"; Log 3, "Connecting to database $dbconn with user $dbuser";
my $dbh = DBI->connect_cached("dbi:$dbconn", $dbuser, $dbpassword); my $dbh = DBI->connect_cached("dbi:$dbconn", $dbuser, $dbpassword);
if(!$dbh) { if(!$dbh) {
Log 3, "Can't connect to $dbconn: $DBI::errstr"; Log 2, "Can't connect to $dbconn: $DBI::errstr";
return 0; return 0;
} }
Log 3, "Connection to db $dbconn established"; Log 3, "Connection to db $dbconn established";
@ -386,7 +385,7 @@ DbLog_Connect($)
################################################################ ################################################################
# #
# Prozeduren zum Ausf?hren des SQL?s # Prozeduren zum Ausfuehren des SQLs
# #
################################################################ ################################################################
sub sub
@ -406,8 +405,7 @@ sub
DbLog_ExecSQL($$) DbLog_ExecSQL($$)
{ {
my ($hash,$sql)= @_; my ($hash,$sql)= @_;
Log GetLogLevel($hash->{NAME},5), "Executing $sql";
Log 5, "Executing $sql";
my $dbh= $hash->{DBH}; my $dbh= $hash->{DBH};
my $sth = DbLog_ExecSQL1($dbh,$sql); my $sth = DbLog_ExecSQL1($dbh,$sql);
if(!$sth) { if(!$sth) {
@ -439,11 +437,11 @@ DbLog_Get($@)
{ {
my ($hash, @a) = @_; my ($hash, @a) = @_;
return "Usage: get $a[0] <infile> <outfile> <from> <to> <column_spec>...\n". return "Usage: get $a[0] <in> <out> <from> <to> <column_spec>...\n".
" where column_spec is <device>:<reading>:<default>:<fn>\n" . " where column_spec is <device>:<reading>:<default>:<fn>\n" .
" see the #DbLog entries in the .gplot files\n" . " see the #DbLog entries in the .gplot files\n" .
" <infile> is not used, only for compatibility for FileLog, please use - \n" . " <in> is not used, only for compatibility for FileLog, please use - \n" .
" <outfile> is a prefix, - means stdout\n" " <out> is a prefix, - means stdout\n"
if(int(@a) < 5); if(int(@a) < 5);
shift @a; shift @a;
my $inf = shift @a; my $inf = shift @a;
@ -461,14 +459,16 @@ DbLog_Get($@)
my (%sqlspec, %from_datetime, %to_datetime); my (%sqlspec, %from_datetime, %to_datetime);
#uebergebenen Timestamp anpassen #uebergebenen Timestamp anpassen
#m?gliche Formate: YYYY | YYYY-MM | YYYY-MM-DD | YYYY-MM-DD_HH24 #moegliche Formate: YYYY | YYYY-MM | YYYY-MM-DD | YYYY-MM-DD_HH24
%from_datetime = DbLog_explode_datetime($from, DbLog_explode_datetime("2000-01-01_00:00:00", undef)); $from =~ s/_/\ /g;
%to_datetime = DbLog_explode_datetime($to, DbLog_explode_datetime("2099-31-12_23:59:59", undef)); $to =~ s/_/\ /g;
%from_datetime = DbLog_explode_datetime($from, DbLog_explode_datetime("2000-01-01 00:00:00", undef));
%to_datetime = DbLog_explode_datetime($to, DbLog_explode_datetime("2099-01-01 00:00:00", undef));
$from = $from_datetime{datetime}; $from = $from_datetime{datetime};
$to = $to_datetime{datetime}; $to = $to_datetime{datetime};
my ($retval,$sql_timestamp,$sql_dev,$sql_reading,$sql_value) = ""; my ($retval,$sql_timestamp,$sql_dev,$sql_reading,$sql_value, $type, $event, $unit) = "";
my $writeout = 0; my $writeout = 0;
my (@min, @max, @sum, @cnt, @lastv, @lastd); my (@min, @max, @sum, @cnt, @lastv, @lastd);
my (%tstamp, %lasttstamp, $out_tstamp, $out_value, $minval, $maxval); #fuer delta-h/d Berechnung my (%tstamp, %lasttstamp, $out_tstamp, $out_value, $minval, $maxval); #fuer delta-h/d Berechnung
@ -484,19 +484,31 @@ DbLog_Get($@)
my $dbh= $hash->{DBH}; my $dbh= $hash->{DBH};
#vorbereiten der DB-Abfrage, DB-Modell-abh?ngig #vorbereiten der DB-Abfrage, DB-Modell-abhaengig
if ($hash->{DBMODEL} eq "POSTGRESQL") { if ($hash->{DBMODEL} eq "POSTGRESQL") {
$sqlspec{get_timestamp} = "TO_CHAR(TIMESTAMP, 'YYYY-MM-DD_HH24:MI:SS')"; $sqlspec{get_timestamp} = "TO_CHAR(TIMESTAMP, 'YYYY-MM-DD HH24:MI:SS')";
$sqlspec{from_timestamp} = "TO_TIMESTAMP('$from', 'YYYY-MM-DD_HH24:MI:SS')"; $sqlspec{from_timestamp} = "TO_TIMESTAMP('$from', 'YYYY-MM-DD HH24:MI:SS')";
$sqlspec{to_timestamp} = "TO_TIMESTAMP('$to', 'YYYY-MM-DD_HH24:MI:SS')"; $sqlspec{to_timestamp} = "TO_TIMESTAMP('$to', 'YYYY-MM-DD HH24:MI:SS')";
} elsif ($hash->{DBMODEL} eq "ORACLE") { } elsif ($hash->{DBMODEL} eq "ORACLE") {
$sqlspec{get_timestamp} = "TO_CHAR(TIMESTAMP, 'YYYY-MM-DD_HH24:MI:SS')"; $sqlspec{get_timestamp} = "TO_CHAR(TIMESTAMP, 'YYYY-MM-DD HH24:MI:SS')";
$sqlspec{from_timestamp} = "TO_TIMESTAMP('$from', 'YYYY-MM-DD_HH24:MI:SS')"; $sqlspec{from_timestamp} = "TO_TIMESTAMP('$from', 'YYYY-MM-DD HH24:MI:SS')";
$sqlspec{to_timestamp} = "TO_TIMESTAMP('$to', 'YYYY-MM-DD_HH24:MI:SS')"; $sqlspec{to_timestamp} = "TO_TIMESTAMP('$to', 'YYYY-MM-DD HH24:MI:SS')";
} elsif ($hash->{DBMODEL} eq "MYSQL") { } elsif ($hash->{DBMODEL} eq "MYSQL") {
$sqlspec{get_timestamp} = "DATE_FORMAT(TIMESTAMP, '%Y-%m-%d_%H:%i:%s')"; $sqlspec{get_timestamp} = "DATE_FORMAT(TIMESTAMP, '%Y-%m-%d %H:%i:%s')";
$sqlspec{from_timestamp} = "STR_TO_DATE('$from', '%Y-%m-%d_%H:%i:%s')"; $sqlspec{from_timestamp} = "STR_TO_DATE('$from', '%Y-%m-%d %H:%i:%s')";
$sqlspec{to_timestamp} = "STR_TO_DATE('$to', '%Y-%m-%d_%H:%i:%s')"; $sqlspec{to_timestamp} = "STR_TO_DATE('$to', '%Y-%m-%d %H:%i:%s')";
} elsif ($hash->{DBMODEL} eq "SQLITE") {
$sqlspec{get_timestamp} = "TIMESTAMP";
$sqlspec{from_timestamp} = "'$from'";
$sqlspec{to_timestamp} = "'$to'";
} else {
$sqlspec{get_timestamp} = "TIMESTAMP";
$sqlspec{from_timestamp} = "'$from'";
$sqlspec{to_timestamp} = "'$to'";
}
if(uc($outf) eq "ALL") {
$sqlspec{all} = ",TYPE,EVENT,UNIT";
} }
for(my $i=0; $i<int(@readings); $i++) { for(my $i=0; $i<int(@readings); $i++) {
@ -516,33 +528,38 @@ DbLog_Get($@)
DEVICE, DEVICE,
READING, READING,
VALUE VALUE
".$sqlspec{all}."
FROM history FROM history
WHERE 1=1 WHERE 1=1
AND (DEVICE || '|' || READING) = ('".@readings[$i]->[0]."|".@readings[$i]->[1]."') AND (DEVICE || '|' || READING) = ('".@readings[$i]->[0]."|".@readings[$i]->[1]."')
AND TIMESTAMP > $sqlspec{from_timestamp} AND TIMESTAMP > $sqlspec{from_timestamp}
AND TIMESTAMP < $sqlspec{to_timestamp} AND TIMESTAMP < $sqlspec{to_timestamp}
ORDER BY TIMESTAMP"; ORDER BY TIMESTAMP";
Log 4, "DbLog: Execute Statement to Database:";
Log 4, $stm; Log GetLogLevel($hash->{NAME},5), "Executing $stm";
my $sth= $dbh->prepare($stm) || my $sth= $dbh->prepare($stm) ||
return "Cannot prepare statement $stm: $DBI::errstr"; return "Cannot prepare statement $stm: $DBI::errstr";
my $rc= $sth->execute() || my $rc= $sth->execute() ||
return "Cannot execute statement $stm: $DBI::errstr"; return "Cannot execute statement $stm: $DBI::errstr";
while( ($sql_timestamp,$sql_dev,$sql_reading,$sql_value)= $sth->fetchrow_array) { if(uc($outf) eq "ALL") {
$retval .= "Timestamp: Device, Type, Event, Reading, Value, Unit\n";
$retval .= "=====================================================\n";
}
while( ($sql_timestamp,$sql_dev,$sql_reading,$sql_value, $type, $event, $unit)= $sth->fetchrow_array) {
$writeout = 0; $writeout = 0;
$out_value = ""; $out_value = "";
$out_tstamp = ""; $out_tstamp = "";
############ Auswerten des 4. Parameters: function ################### ############ Auswerten des 4. Parameters: function ###################
if(@readings[$i]->[3] eq "int") { if(@readings[$i]->[3] eq "int") {
#nur den integerwert ?bernehmen falls zb value=15?C #nur den integerwert uebernehmen falls zb value=15°C
$out_value = $1 if($sql_value =~ m/^(\d+).*/o); $out_value = $1 if($sql_value =~ m/^(\d+).*/o);
$out_tstamp = $sql_timestamp; $out_tstamp = $sql_timestamp;
$writeout=1; $writeout=1;
} elsif (@readings[$i]->[3] =~ m/^int(\d+).*/o) { } elsif (@readings[$i]->[3] =~ m/^int(\d+).*/o) {
#?bernehme den Dezimalwert mit den angegebenen Stellen an Nachkommastellen #übernehme den Dezimalwert mit den angegebenen Stellen an Nachkommastellen
$out_value = $1 if($sql_value =~ m/^([-\.\d]+).*/o); $out_value = $1 if($sql_value =~ m/^([-\.\d]+).*/o);
$out_tstamp = $sql_timestamp; $out_tstamp = $sql_timestamp;
$writeout=1; $writeout=1;
@ -581,9 +598,11 @@ DbLog_Get($@)
} }
} elsif(@readings[$i]->[3]) { } elsif(@readings[$i]->[3]) {
#evaluate #evaluate
my $value = $sql_value; my $val = $sql_value;
$out_value = eval("@readings[$i]->[3]"); eval("@readings[$i]->[3]");
if($@) {Log 3, "DbLog: Fehler in der ?bergebenen Funktion: <".@readings[$i]->[3].">, Fehler: $@";} $out_value = $val;
if($@) {Log 3, "DbLog: Fehler in der übergebenen Funktion: <".@readings[$i]->[3].">, Fehler: $@";}
$out_tstamp = $sql_timestamp; $out_tstamp = $sql_timestamp;
$writeout=1; $writeout=1;
} else { } else {
@ -593,7 +612,14 @@ DbLog_Get($@)
} }
###################### Ausgabe ########################### ###################### Ausgabe ###########################
$retval .= "$out_tstamp $out_value\n" if($writeout); if($writeout) {
if(uc($outf) eq "ALL") {
$retval .= sprintf("%s: %s, %s, %s, %s, %s, %s\n", $out_tstamp, $sql_dev, $type, $event, $sql_reading, $out_value, $unit);
} else {
$out_tstamp =~ s/\ /_/g; #needed by generating plots
$retval .= "$out_tstamp $out_value\n";
}
}
if(defined($sql_value) || $sql_value =~ m/^[-\.\d]+$/o){ if(defined($sql_value) || $sql_value =~ m/^[-\.\d]+$/o){
#nur setzen wenn nummerisch #nur setzen wenn nummerisch
@ -620,8 +646,13 @@ DbLog_Get($@)
$out_value = sprintf("%0.1f", $maxval - $minval); $out_value = sprintf("%0.1f", $maxval - $minval);
$out_tstamp = DbLog_implode_datetime($lasttstamp{year}, $lasttstamp{month}, $lasttstamp{day}, $lasttstamp{hour}, "30", "00") if(@readings[$i]->[3] eq "delta-h"); $out_tstamp = DbLog_implode_datetime($lasttstamp{year}, $lasttstamp{month}, $lasttstamp{day}, $lasttstamp{hour}, "30", "00") if(@readings[$i]->[3] eq "delta-h");
$out_tstamp = DbLog_implode_datetime($lasttstamp{year}, $lasttstamp{month}, $lasttstamp{day}, "00", "00", "00") if(@readings[$i]->[3] eq "delta-d"); $out_tstamp = DbLog_implode_datetime($lasttstamp{year}, $lasttstamp{month}, $lasttstamp{day}, "00", "00", "00") if(@readings[$i]->[3] eq "delta-d");
if(uc($outf) eq "ALL") {
$retval .= sprintf("%s: %s %s %s %s %s %s\n", $out_tstamp, $sql_dev, $type, $event, $sql_reading, $out_value, $unit);
} else {
$out_tstamp =~ s/\ /_/g; #needed by generating plots
$retval .= "$out_tstamp $out_value\n"; $retval .= "$out_tstamp $out_value\n";
} }
}
# DatenTrenner setzen # DatenTrenner setzen
$retval .= "#@readings[$i]->[0]:@readings[$i]->[1]:@readings[$i]->[2]:@readings[$i]->[3]\n"; $retval .= "#@readings[$i]->[0]:@readings[$i]->[1]:@readings[$i]->[2]:@readings[$i]->[3]\n";
} #for @readings } #for @readings
@ -657,6 +688,7 @@ DbLog_Get($@)
1; 1;
=pod =pod
=begin html =begin html
<a name="DbLog"></a> <a name="DbLog"></a>
@ -734,10 +766,12 @@ DbLog_Get($@)
access to the Database.<br> access to the Database.<br>
<ul> <ul>
<li>&lt;infile&gt;<br> <li>&lt;in&gt;<br>
A dummy parameter for FileLog compatibility. Always set to <code>-</code></li>
<li>&lt;outfile&gt;<br>
A dummy parameter for FileLog compatibility. Always set to <code>-</code></li> A dummy parameter for FileLog compatibility. Always set to <code>-</code></li>
<li>&lt;out&gt;<br>
A dummy parameter for FileLog compatibility. Set it to <code>-</code>
to check the output for plot-computing.<br>Set it to the special keyword
<code>all</code> to get all columns from Database.</li>
<li>&lt;from&gt; / &lt;to&gt;<br> <li>&lt;from&gt; / &lt;to&gt;<br>
Used to select the data. Please use the following timeformat or Used to select the data. Please use the following timeformat or
an initial substring of it:<br> an initial substring of it:<br>
@ -765,36 +799,40 @@ DbLog_Get($@)
Extract the decimal digits including negative character and Extract the decimal digits including negative character and
decimal point at the beginning og the string. Used e.g. decimal point at the beginning og the string. Used e.g.
for constructs like 15.7&deg;C</li> for constructs like 15.7&deg;C</li>
<li>delta-h or delta-d<br> <li>delta-h / delta-d<br>
Return the delta of the values for a given hour or a given day. Return the delta of the values for a given hour or a given day.
Used if the column contains a counter, as is the case for the Used if the column contains a counter, as is the case for the
KS300 rain column.</li> KS300 rain column.</li>
<li>everything else<br> <li>everything else<br>
The string is evaluated as a perl expression. $value is the The string is evaluated as a perl expression. $val is the
current value returned from the Database. Note: The string/perl current value returned from the Database.<br>Note: The string/perl
expression cannot contain spaces, as the part after the space expression cannot contain spaces, as the part after the space
will be considered as the next column_spec.</li> will be considered as the next column_spec.</li>
</ul></li> </ul></li>
</ul></li> </ul></li>
</ul> </ul>
<br><br> <br><br>
Example: Examples:
<ul> <ul>
<li><code>get myDbLog - - 2012-11-10 2012-11-20 KS300:temperature::</code></li> <li><code>get myDbLog - - 2012-11-10 2012-11-20 KS300:temperature::</code></li>
<li><code>get myDbLog - - 2012-11-10_10 2012-11-10_20 KS300:temperature::int1</code><br> <li><code>get myDbLog - - 2012-11-10_10 2012-11-10_20 KS300:temperature::int1</code><br>
like from 10am until 20pm at 10.11.2012</li> like from 10am until 20pm at 10.11.2012</li>
<li><code>get myDbLog - - 2012-11-10 2012-11-20 KS300:temperature::</code></li> <li><code>get myDbLog - all 2012-11-10 2012-11-20 KS300:temperature::</code></li>
<li><code>get myDbLog - - 2012-11-10 2012-11-20 KS300:temperature:: KS300:rain::delta-h KS300:rain::delta-d</code></li> <li><code>get myDbLog - - 2012-11-10 2012-11-20 KS300:temperature:: KS300:rain::delta-h KS300:rain::delta-d</code></li>
<li><code>get myDbLog - - 2012-11-10 2012-11-20 MyDummy:data::$value=~"on"?1:0</code></li> <li><code>get myDbLog - - 2012-11-10 2012-11-20 MyFS20:data::$val=~s/(on|off).*/$1eq"on"?1:0/eg</code><br>
return 1 for all occurance of on* (on|on-for-timer etc) and 0 for all off*</li>
<li><code>get myDbLog - - 2012-11-10 2012-11-20 Bodenfeuchte:data::$val=~s/.*B:\s([-\.\d]+).*/$1/eg</code><br>
Example of OWAD: value like this: <code>"A: 49.527 % B: 66.647 % C: 9.797 % D: 0.097 V"</code><br>
and output for port B is like this: <code>2012-11-20_10:23:54 66.647</code></li>
</ul> </ul>
<br><br> <br><br>
</ul> </ul>
<a name="DbLogattr"></a> <a name="DbLogattr"></a>
<b>Attributes</b> <ul>N/A</ul><br> <b>Attributes</b> <ul>N/A</ul><br>
</ul> </ul>
=end html =end html
=begin html_DE
=end html_DE
=cut =cut