Renamed files

git-svn-id: https://fhem.svn.sourceforge.net/svnroot/fhem/trunk/fhem@35 2b470e98-0d58-463d-a4d8-8e2adae1ed80
2007-03-27 14:51:29 +00:00
parent 44fea995b1
commit f7d151456e
6 changed files with 1149 additions and 0 deletions
--- a/FHEM/92_FileLog.pm
+++ b/FHEM/92_FileLog.pm
@@ -0,0 +1,120 @@
+##############################################
+package main;
+
+use strict;
+use warnings;
+use IO::File;
+
+#####################################
+sub
+FileLog_Initialize($)
+{
+  my ($hash) = @_;
+
+  $hash->{DefFn} = "FileLog_Define";
+  $hash->{UndefFn} = "FileLog_Undef";
+  $hash->{NotifyFn} = "FileLog_Log";
+  $hash->{AttrFn}   = "FileLog_Attr";
+  $hash->{AttrList} = "disable:0,1 logtype";
+}
+
+
+#####################################
+sub
+FileLog_Define($@)
+{
+  my ($hash, $def) = @_;
+  my @a = split("[ \t][ \t]*", $def);
+  my $fh;
+
+  return "wrong syntax: define <name> FileLog filename regexp" if(int(@a) != 4);
+
+  eval { "Hallo" =~ m/^$a[3]$/ };
+  return "Bad regexp: $@" if($@);
+
+  my @t = localtime;
+  my $f = ResolveDateWildcards($a[2], @t);
+  $fh = new IO::File ">>$f";
+  return "Can't open $f" if(!defined($fh));
+
+  $hash->{FH} = $fh;
+  $hash->{REGEXP} = $a[3];
+  $hash->{FILENAME} = $a[2];
+  $hash->{CURRENT} = $f;
+  $hash->{STATE} = "active";
+
+  return undef;
+}
+
+#####################################
+sub
+FileLog_Undef($$)
+{
+  my ($hash, $name) = @_;
+  close($hash->{FH});
+  return undef;
+}
+
+
+#####################################
+sub
+FileLog_Log($$)
+{
+  # Log is my entry, Dev is the entry of the changed device
+  my ($log, $dev) = @_;
+
+  my $ln = $log->{NAME};
+  return if($attr{$ln} && $attr{$ln}{disable});
+
+  my $n = $dev->{NAME};
+  my $re = $log->{REGEXP};
+  my $max = int(@{$dev->{CHANGED}});
+
+  for (my $i = 0; $i < $max; $i++) {
+    my $s = $dev->{CHANGED}[$i];
+    $s = "" if(!defined($s));
+    if($n =~ m/^$re$/ || "$n:$s" =~ m/^$re$/) {
+      my $t = TimeNow();
+      $t = $dev->{CHANGETIME}[$i] if(defined($dev->{CHANGETIME}[$i]));
+      $t =~ s/ /_/; # Makes it easier to parse with gnuplot
+
+      my $fh = $log->{FH};
+      my @t = localtime;
+      my $cn = ResolveDateWildcards($log->{FILENAME},  @t);
+
+      if($cn ne $log->{CURRENT}) { # New logfile
+	$fh->close();
+	$fh = new IO::File ">>$cn";
+	if(!defined($fh)) {
+	  Log(0, "Can't open $cn");
+	  return;
+	}
+	$log->{CURRENT} = $cn;
+	$log->{FH} = $fh;
+      }
+
+      print $fh "$t $n $s\n";
+      $fh->flush;
+      $fh->sync;
+    }
+  }
+  return "";
+}
+
+sub
+FileLog_Attr(@)
+{
+  my @a = @_;
+  my $do = 0;
+
+  if($a[0] eq "set" && $a[2] eq "disable") {
+    $do = (!defined($a[3]) || $a[3]) ? 1 : 2;
+  }
+  $do = 2 if($a[0] eq "del" && (!$a[2] || $a[2] eq "disable"));
+  return if(!$do);
+
+  $defs{$a[1]}{STATE} = ($do == 1 ? "disabled" : "active");
+
+  return undef;
+}
+1;