WebPgm2 gnuplot scrolling

git-svn-id: https://fhem.svn.sourceforge.net/svnroot/fhem/trunk/fhem@198 2b470e98-0d58-463d-a4d8-8e2adae1ed80

webfrontend/pgm2/01_FHEMWEB.pm

@@ -35,11 +35,13 @@ sub FHEMWEB_showLogWrapper($);
 sub FHEMWEB_popup($$$);
 sub FHEMWEB_textfield($$);
 sub FHEMWEB_submit($$);
-sub __roomOverview();
+sub FHEMWEB_roomOverview();
 sub FHEMWEB_fatal($);
 sub pF($@);
 sub pO(@);
 sub FHEMWEB_AnswerCall($);
+sub FHEMWEB_zoomLink($$$$);
+sub FHEMWEB_calcWeblink($$);
 
 #########################
 # As we are _not_ multithreaded, it is safe to use global variables.
@@ -52,10 +54,15 @@ my $__room;
 my $__detail;
 my $__title;
 my $__cmdret;
+my $__scrolledweblinkcount;
+my %__wlpos;
 my $__RET;
 my $__RETTYPE;
 my $__SF;
 my $__ti;  # Tabindex for all input fields
+my @__zoom;
+my %__zoom;
+my $__plotmode;
 
 
 #####################################
@@ -68,7 +75,7 @@ FHEMWEB_Initialize($)
 
   $hash->{DefFn}   = "FHEMWEB_Define";
   $hash->{UndefFn} = "FHEMWEB_Undef";
-  $hash->{AttrList}= "loglevel:0,1,2,3,4,5,6 fhemwebdir fhemwebname";
+  $hash->{AttrList}= "loglevel:0,1,2,3,4,5,6 webdir webname plotmode:gnuplot,gnuplot-scroll,SVG";
 }
 
 #####################################
@@ -95,6 +102,12 @@ FHEMWEB_Define($$)
   $hash->{SERVERSOCKET} = "True";
   Log(2, "FHEMWEB port $port opened");
 
+  ###############
+  # Initialize internal structures
+  my $n = 0;
+  @__zoom = ("day","week","month","year");
+  %__zoom = map { $_, $n++ } @__zoom;
+
   return undef;
 }
 
@@ -145,10 +158,10 @@ FHEMWEB_Read($)
 
   my $name = $hash->{SNAME};
   my $ll = GetLogLevel($name,4);
-  $FHEMWEBdir = ($attr{$name} && $attr{$name}{fhemwebdir}) ? 
-                        $attr{$name}{fhemwebdir} : "$attr{global}{modpath}/FHEM";
-  $__ME = "/" . (($attr{$name} && $attr{$name}{fhemwebname}) ? 
-                                $attr{$name}{fhemwebname} : "fhem");
+  $FHEMWEBdir = ($attr{$name} && $attr{$name}{webdir}) ? 
+                        $attr{$name}{webdir} : "$attr{global}{modpath}/FHEM";
+  $__ME = "/" . (($attr{$name} && $attr{$name}{webname}) ? 
+                                $attr{$name}{webname} : "fhem");
   $FHEMWEB_reldoc = "$__ME/commandref.html";
   $__SF = "<form method=\"get\" action=\"$__ME\">";
 
@@ -173,16 +186,16 @@ FHEMWEB_Read($)
   $hash->{BUF} = "";
 
   Log($ll, "HTTP $hash->{NAME} GET $arg");
+  $__plotmode = $attr{$name}{plotmode} ? $attr{$name}{plotmode} : "gnuplot";
 
   FHEMWEB_AnswerCall($arg);
 
   my $c = $hash->{CD};
   my $l = length($__RET);
-  my $exp = localtime(time()+300) . " GMT";
-
+#  my $exp = localtime(time()+300) . " GMT";
+#            "Expires: $exp\r\n",
   print  $c "HTTP/1.1 200 OK\r\n",
             "Content-Length: $l\r\n",
-            "Expires: $exp\r\n",
             "Content-Type: $__RETTYPE\r\n\r\n",
             $__RET;
 }
@@ -195,6 +208,7 @@ FHEMWEB_AnswerCall($)
 
   %__rooms = ();
   %__devs = ();
+  %__wlpos = ();
   %__types = ();
   $__room = "";
   $__detail = "";
@@ -266,8 +280,8 @@ FHEMWEB_AnswerCall($)
     pO "</div>\n";
   }
 
-  __roomOverview();
-  FHEMWEB_doDetail($__detail)    if($__detail);
+  FHEMWEB_roomOverview();
+  FHEMWEB_doDetail($__detail)  if($__detail);
   FHEMWEB_showRoom()           if($__room && !$__detail);
   FHEMWEB_showLogWrapper($cmd) if($cmd =~ /^showlogwrapper/);
   FHEMWEB_showArchive($cmd)    if($cmd =~ m/^showarchive/);
@@ -289,7 +303,7 @@ FHEMWEB_digestCgi($)
     $pv =~ s/\+/ /g;
     $pv =~ s/%(..)/chr(hex($1))/ge;
     my ($p,$v) = split("=",$pv, 2);
-    $v =~ s/[\r]\n/\\\n/g; 
+    $v =~ s/[\r]\n/\\\n/g;              # Multiline: escape the NL for fhem
     #Log(0, "P: $p, V: $v");
 
     if($p eq "detail")       { $__detail = $v; }
@@ -299,6 +313,9 @@ FHEMWEB_digestCgi($)
     if($p =~ m/^val\.(.*)$/) { $val{$1} = $v; }
     if($p =~ m/^dev\.(.*)$/) { $dev{$1} = $v; }
     if($p =~ m/^cmd\.(.*)$/) { $cmd = $v; $c= $1; }
+    if($p eq "wlpos")        { %__wlpos =  split(/[=;]/, $v); }
+
+
   }
   $cmd.=" $dev{$c}" if($dev{$c});
   $cmd.=" $arg{$c}" if($arg{$c});
@@ -514,14 +531,30 @@ FHEMWEB_doDetail($)
 ##############
 # Room overview
 sub
-__roomOverview()
+FHEMWEB_roomOverview()
 {
   pO $__SF;
 
   pO "<div id=\"hdr\">\n";
+  pO "<table><tr><td>";
   pO "<a href=\"$FHEMWEB_reldoc\">Cmd</a>: ";
   pO FHEMWEB_textfield("cmd", 30);
-  pO FHEMWEB_hidden("room", "$__room") if($__room);
+  $__scrolledweblinkcount = 0;
+  if($__room) {
+    pO FHEMWEB_hidden("room", "$__room");
+    if(!$__detail) {    # Global navigation buttons for weblink >= 2
+      FHEMWEB_calcWeblink(undef,undef);
+      if($__scrolledweblinkcount) {
+        pO "</td><td>";
+        pO "&nbsp;&nbsp;";
+        FHEMWEB_zoomLink("zoom=-1", "Zoom-in.png", "zoom in", 0);
+        FHEMWEB_zoomLink("zoom=1",  "Zoom-out.png","zoom out", 0);
+        FHEMWEB_zoomLink("all=-1",  "Prev.png",    "prev", 0);
+        FHEMWEB_zoomLink("all=1",   "Next.png",    "next", 0);
+      }
+    }
+  }
+  pO "</td></tr></table>";
   pO "</div>\n";
 
   pO "<div id=\"left\">\n";
@@ -717,8 +750,20 @@ FHEMWEB_showRoom()
               $__devs{$va[0]}{INT}{currentlogfile}{VAL} =~ m,([^/]*)$,;
               $va[2] = $1;
             }
-            pO "<td><img src=\"$__ME?cmd=showlog $va[0] $va[1] $va[2]\"/>";
+            pO "<table><tr><td>";
+
+            my $wl = "";
+            $__wlpos{$va[0]} = $__wlpos{$d} if($__wlpos{$d});
+            $wl = "&wlpos=" . join(";", map { "$_=$__wlpos{$_}" }
+                                  grep { /(zoom|all|$va[0])/ } keys %__wlpos);
+            
+            pO "<img src=\"$__ME?cmd=showlog $d $va[0] $va[1] $va[2]$wl\"/>";
+            pO "</td><td>";
+            
+            FHEMWEB_zoomLink("$d=-1", "Prev.png", "prev", 1);
+            FHEMWEB_zoomLink("$d=1",  "Next.png", "next", 1);
             pO "<a href=\"$__ME?detail=$d\">$d</a></td>";
+            pO "</td></tr></table>";
 
           }
         }
@@ -756,6 +801,8 @@ FHEMWEB_fileList($)
 }
 
 ######################
+# Show the content of the log (plain text), or an image and offer a link
+# to convert it to a weblink
 sub
 FHEMWEB_showLogWrapper($)
 {
@@ -782,7 +829,7 @@ FHEMWEB_showLogWrapper($)
     pO "<div id=\"right\">\n";
     pO "<table><tr></td>\n";
     pO "<table><tr></td>\n";
-    pO "<td><img src=\"$__ME?cmd=showlog $d $type $file\"/>";
+    pO "<td><img src=\"$__ME?cmd=showlog undef $d $type $file\"/>";
     pO "<a href=\"$__ME?cmd=toweblink $d:$type:$file\"><br>Convert to weblink</a></td>";
     pO "</td></tr></table>\n";
     pO "</td></tr></table>\n";
@@ -795,28 +842,83 @@ sub
 FHEMWEB_showLog($)
 {
   my ($cmd) = @_;
-  my (undef, $d, $type, $file) = split(" ", $cmd, 4);
-
-  $__devs{$d}{INT}{logfile}{VAL} =~ m,^(.*)/([^/]*)$,; # Dir and File
-  my $path = "$1/$file";
-  $path = $__devs{$d}{ATTR}{archivedir}{VAL} . "/$file" if(!-f $path);
+  my (undef, $wl, $d, $type, $file) = split(" ", $cmd, 5);
 
   my $gplot_pgm = "$FHEMWEBdir/$type.gplot";
-
   return FHEMWEB_fatal("Cannot read $gplot_pgm") if(!-r $gplot_pgm);
-  return FHEMWEB_fatal("Cannot read $path") if(!-r $path);
 
-  # Read in the template gnuplot file
-  open(FH, $gplot_pgm) || FHEMWEB_fatal("$gplot_pgm: $!"); 
-  my $gplot_script = join("", <FH>);
-  close(FH);
-  $gplot_script =~ s/<OUT>/$FHEMWEB_tmpfile/g;
-  $gplot_script =~ s/<IN>/$path/g;
-  $gplot_script =~ s/<TL>/$file/g;
+  FHEMWEB_calcWeblink($d,$wl);
+  if($__plotmode eq "gnuplot" || !$__devs{$d}{from}) {
+
+    # Looking for the logfile....
+
+    $__devs{$d}{INT}{logfile}{VAL} =~ m,^(.*)/([^/]*)$,; # Dir and File
+    my $path = "$1/$file";
+    $path = $__devs{$d}{ATTR}{archivedir}{VAL} . "/$file" if(!-f $path);
+    return FHEMWEB_fatal("Cannot read $path") if(!-r $path);
+
+    open(FH, $gplot_pgm) || FHEMWEB_fatal("$gplot_pgm: $!"); 
+    my $gplot_script = join("", <FH>);
+    close(FH);
+    $gplot_script =~ s/<OUT>/$FHEMWEB_tmpfile/g;
+    $gplot_script =~ s/<IN>/$path/g;
+    $gplot_script =~ s/<TL>/$file/g;
+
+    if($__devs{$wl} && $__devs{$wl}{ATTR}{fixedrange}) {
+      my $fr = $__devs{$wl}{ATTR}{fixedrange}{VAL};
+      $fr =~ s/ /\":\"/;
+      $fr = "set xrange [\"$fr\"]\n";
+      $gplot_script =~ s/(set timefmt ".*")/$1\n$fr/;
+    }
+
+    open(FH, "|gnuplot > /dev/null");# feed it to gnuplot
+    print FH $gplot_script;
+    close(FH);
+
+  } else { # gnuplot-scroll
+
+    ############################
+    # Read in the template gnuplot file.  Digest the #FileLog lines.  Replace
+    # the plot directive with our own, as we offer a file for each line
+    my (@filelog, @data, $plot);
+    open(FH, $gplot_pgm) || FHEMWEB_fatal("$gplot_pgm: $!"); 
+    while(my $l = <FH>) {
+      if($l =~ m/^#FileLog (.*)$/) {
+        push(@filelog, $1);
+      } elsif($l =~ "^plot" || $plot) {
+        $plot .= $l;
+      } else {
+        push(@data, $l);
+      }
+    }
+    close(FH);
+
+    my $gplot_script = join("", @data);
+    $gplot_script =~ s/<OUT>/$FHEMWEB_tmpfile/g;
+    $gplot_script =~ s/<TL>/$file/g;
+
+    my ($f,$t)=($__devs{$d}{from}, $__devs{$d}{to});
+
+    my @path = split(" ", fC("get $d $file $FHEMWEB_tmpfile $f $t " .
+                                join(" ", @filelog)));
+    my $i = 0;
+    $plot =~ s/\".*?using 1:[^ ]+ /"\"$path[$i++]\" using 1:2 "/gse;
+    my $xrange = "set xrange [\"$f\":\"$t\"]\n";
+    foreach my $p (@path) {
+      next if(!-z $p);
+      open(FH, ">$p");
+      print FH "$f 0\n";
+      close(FH);
+    }
+
+    open(FH, "|gnuplot > /dev/null");# feed it to gnuplot
+    print FH $gplot_script, $xrange, $plot;
+    close(FH);
+    foreach my $p (@path) {
+      unlink($p);
+    }
+  }
 
-  open(FH, "|gnuplot > /dev/null");# feed it to gnuplot
-  print FH $gplot_script;
-  close(FH);
 
   $__RETTYPE = "image/png";
   open(FH, "$FHEMWEB_tmpfile.png");         # read in the result and send it
@@ -904,6 +1006,131 @@ FHEMWEB_submit($$)
   return $s;
 }
 
+##################
+sub
+FHEMWEB_zoomLink($$$$)
+{
+  my ($cmd, $img, $alt, $br) = @_;
+
+  my ($d,$off) = split("=", $cmd, 2);
+
+  return if($__plotmode eq "gnuplot");
+  return if($__devs{$d} && $__devs{$d}{ATTR}{fixedrange});
+  return if($__devs{$d} && $__devs{$d}{ATTR}{noscroll});
+
+  my $val = $__wlpos{$d};
+
+  $cmd = "room=$__room&wlpos=";
+  if($d eq "zoom") {
+
+    $val = "day" if(!$val);
+    $val = $__zoom{$val};
+    return if(!defined($val) || $val+$off < 0 || $val+$off >= int(@__zoom) );
+    $val = $__zoom[$val+$off];
+    return if(!$val);
+    $cmd .= "zoom=$val";
+
+  } else {
+
+    return if((!$val && $off > 0) || ($val && $val+$off > 0)); # no future
+    $__wlpos{$d}=($val ? $val+$off : $off);
+    $cmd .= join(";", map { "$_=$__wlpos{$_}" } sort keys %__wlpos);
+
+    if(!defined($val)) {
+      delete $__wlpos{$d};
+    } else {
+      $__wlpos{$d} = $val;
+    }
+  }
+
+  pO "<a href=\"$__ME?$cmd\">";
+  pO "<img style=\"border-color:transparent\" alt=\"$alt\" ".
+                "src=\"$__ME/icons/$img\"/></a>";
+  pO "<br>" if($br);
+}
+
+##################
+# Calculate either the number of scrollable weblinks (for $d = undef) or
+# for the device the valid from and to dates for the given zoom and offset
+sub
+FHEMWEB_calcWeblink($$)
+{
+  my ($d,$wl) = @_;
+
+  return if($__plotmode eq "gnuplot");
+  my $now = time();
+
+  my $zoom = $__wlpos{zoom};
+  $zoom = "day" if(!$zoom);
+
+  if(!$d) {
+    foreach my $d (sort keys %__devs ) {
+      next if($__devs{$d}{type} ne "weblink");
+      next if(!$__room || ($__room ne "all" && !$__rooms{$__room}{$d}));
+      next if($__devs{$d}{ATTR} && $__devs{$d}{ATTR}{noscroll});
+      next if($__devs{$d}{ATTR} && $__devs{$d}{ATTR}{fixedrange});
+      $__scrolledweblinkcount++;
+    }
+    return;
+  }
+
+  return if(!$__devs{$wl});
+  return if($__devs{$wl} && $__devs{$wl}{ATTR}{noscroll});
+
+  if($__devs{$wl} && $__devs{$wl}{ATTR}{fixedrange}) {
+    my @range = split(" ", $__devs{$wl}{ATTR}{fixedrange}{VAL});
+    $__devs{$d}{from} = $range[0];
+    $__devs{$d}{to}   = $range[1];
+    return;
+  }
+
+  my $off = $__wlpos{$d};
+  $off = 0 if(!$off);
+  $off += $__wlpos{all} if($__wlpos{all});
+
+  if($zoom eq "day") {
+
+    my $t = $now + $off*86400;
+    my @l = localtime($t);
+    $__devs{$d}{from} = sprintf("%04d-%02d-%02d",$l[5]+1900,$l[4]+1,$l[3]);
+    $__devs{$d}{to}   = sprintf("%04d-%02d-%02d",$l[5]+1900,$l[4]+1,$l[3]+1);
+
+  } elsif($zoom eq "week") {
+
+    my @l = localtime($now);
+    my $t = $now - ($l[6]*86400) + ($off*86400)*7;
+    @l = localtime($t);
+    $__devs{$d}{from} = sprintf("%04d-%02d-%02d",$l[5]+1900,$l[4]+1,$l[3]);
+
+    @l = localtime($t+7*86400);
+    $__devs{$d}{to}   = sprintf("%04d-%02d-%02d",$l[5]+1900,$l[4]+1,$l[3]);
+
+
+  } elsif($zoom eq "month") {
+
+    my @l = localtime($now);
+    while($off < -12) {
+      $off += 12; $l[5]--;
+    }
+    $l[4] += $off;
+    $l[4] += 12, $l[5]-- if($l[4] < 0);
+    $__devs{$d}{from} = sprintf("%04d-%02d", $l[5]+1900, $l[4]+1);
+
+    $l[4]++;
+    $l[4] = 0, $l[5]++ if($l[4] == 12);
+    $__devs{$d}{to}   = sprintf("%04d-%02d", $l[5]+1900, $l[4]+1);
+
+  } elsif($zoom eq "year") {
+
+    my @l = localtime($now);
+    $l[5] += $off;
+    $__devs{$d}{from} = sprintf("%04d", $l[5]+1900);
+    $__devs{$d}{to}   = sprintf("%04d", $l[5]+1901);
+
+  }
+}
+
+##################
 sub
 pF($@)
 {
@@ -911,12 +1138,14 @@ pF($@)
   $__RET .= sprintf $fmt, @_;
 }
 
+##################
 sub
 pO(@)
 {
   $__RET .= shift;
 }
 
+##################
 sub
 fC($)
 {

webfrontend/pgm2/98_weblink.pm

@@ -11,6 +11,7 @@ weblink_Initialize($)
   my ($hash) = @_;
 
   $hash->{DefFn} = "weblink_Define";
+  $hash->{AttrList}= "fixedrange noscroll";
 }
 
 

webfrontend/pgm2/em.gplot

@@ -19,4 +19,6 @@ set y2tics
 set format y "%.1f"
 set format y2 "%.1f"
 
+#FileLog 0 4::
+
 plot "<IN>" using 1:4 notitle with lines

webfrontend/pgm2/fht.gplot

@@ -17,10 +17,15 @@ set grid xtics y2tics
 set y2label "temperature (Celsius)"
 set ylabel "Actuator (%)"
 
+#FileLog 4:measured:
+##FileLog 4:desired:
+#FileLog 4:actuator.*%:int
+
+#  "< awk '/desired/ {print $1, $4+0}' <IN>"\
+#     using 1:2 axes x1y2 title 'Desired temperature' with steps,\
+
 plot \
   "< awk '/measured/{print $1, $4}' <IN>"\
      using 1:2 axes x1y2 title 'Measured temperature' with lines lw 2,\
-  "< awk '/desired/ {print $1, $4+0}' <IN>"\
-     using 1:2 axes x1y2 title 'Desired temperature' with steps,\
   "< awk '/actuator/ {print $1, $4+0}' <IN>"\
      using 1:2 axes x1y1 title 'Actuator (%)' with lines\

webfrontend/pgm2/fs20.gplot

@@ -17,5 +17,7 @@ set y2range [-0.1:1.1]
 set ylabel "Pumpe"
 set y2label "Pumpe"
 
+#FileLog 3::$fld[2]eq"on"?1:0
+
 plot "< awk '{print $1, $3==\"on\"? 1 : 0; }' <IN>"\
         using 1:2 notitle with steps

webfrontend/pgm2/ks300_1.gplot

@@ -20,6 +20,10 @@ set yrange [0:]
 
 # Computing Rain/h and Rain/d values by accumulating the changes.
 
+#FileLog 4:IR:
+#FileLog 10:IR:delta-h
+#FileLog 10:IR:delta-d
+
 plot "<IN>" using 1:4 axes x1y2 title 'Temperature' with lines lw 2,\
      "<grep -v avg_ <IN> | perl -ane '\
         @a = split(\"[_:]\", $F[0]);\

webfrontend/pgm2/ks300_2.gplot

@@ -15,5 +15,9 @@ set grid
 
 set ylabel "Wind (Km/h)"
 set y2label "Humidity (%)"
+
+#FileLog 8:IR:
+#FileLog 6:IR:
+
 plot "<IN>" using 1:8 axes x1y1 title 'Wind' with lines,\
      "<IN>" using 1:6 axes x1y2 title 'Rel. Humidity (%)' with lines

webfrontend/pgm2/ks300_3.gplot

@@ -16,5 +16,8 @@ set grid
 set ylabel "Temperature (Celsius)"
 set y2label "Rain (l/m2)"
 
+#FileLog 5:avg_day:
+#FileLog 11:avg_day:
+
 plot "<grep avg_day <IN>" using 1:5 axes x1y1 title 'Temperature' with lines,\
      "<grep avg_day <IN>" using 1:11 axes x1y2 title 'Rain' with histeps

webfrontend/pgm2/mpiri.gplot

@@ -15,6 +15,12 @@ set ytics ("Sz" 0.8, "FlO" 0.6, "FlU" 0.4, "Wz1" 0.2, "Wz2" 0.0)
 set y2tics ("Sz" 0.8, "FlO" 0.6, "FlU" 0.4, "Wz1" 0.2, "Wz2" 0.0)
 set yrange [-0.1:0.9]
 
+#FileLog "0.8":sz:
+#FileLog "0.6":flo:
+#FileLog "0.4":flu:
+#FileLog "0.2":wz1:
+#FileLog "0.0":wz2:
+
 plot\
   "< awk '/sz/ {print $1, 0.8; }' <IN>" using 1:2 notitle with points,\
   "< awk '/flo/{print $1, 0.6; }' <IN>" using 1:2 notitle with points,\

webfrontend/pgm2/piri.gplot

@@ -13,5 +13,7 @@ set title '<TL>'
 set grid
 set yrange [-0.2:1.2]
 
+#FileLog "1":::
+
 plot "< awk '{print $1, $3==\"on\"? 1 : 0; }' <IN>"\
         using 1:2 title 'On/Off' with impulses

webfrontend/pgm2/style.css

@@ -0,0 +1,145 @@
+body {
+  color: black;
+   background: #FFFFD7;
+}
+
+table.room {
+  border: solid;
+  border-width: thin;
+  width: 100%;
+  -moz-border-radius:8px;
+  background: #D7FFFF;
+}
+
+table.room               tr.sel {
+  background: #A0FFFF;
+}
+
+table.FS20 {
+  border: solid;
+  border-width: thin;
+  width: 100%;
+  -moz-border-radius:8px;
+  background: #C0FFFF;
+}
+
+table.FS20               tr.odd {
+  background: #D7FFFF;
+}
+
+table.FHT {
+  border: solid;
+  border-width: thin;
+  width: 100%;
+  -moz-border-radius:8px;
+  background: #FFC0C0;
+}
+
+table.FHT                tr.odd {
+  background: #FFD7D7;
+}
+
+table.KS300 {
+  border: solid;
+  border-width: thin;
+  width: 100%;
+  -moz-border-radius:8px;
+  background: #C0FFC0;
+}
+
+table.KS300              tr.odd {
+  background: #A7FFA7;
+}
+
+table.FileLog {
+  border: solid;
+  border-width: thin;
+  width: 100%;
+  -moz-border-radius:8px;
+  background: #FFC0C0;
+}
+
+table.FileLog            tr.odd {
+  background: #FFD7D7;
+}
+
+table.at {
+  border: solid;
+  border-width: thin;
+  width: 100%;
+  -moz-border-radius:8px;
+  background: #FFFFC0;
+}
+
+table.at                 tr.odd {
+  background: #FFFFD7;
+}
+
+table.notify {
+  border: solid;
+  border-width: thin;
+  width: 100%;
+  -moz-border-radius:8px;
+  background: #D7D7A0;
+}
+
+table.notify            tr.odd {
+  background: #FFFFC0;
+}
+
+table.FHZ {
+  border: solid;
+  border-width: thin;
+  width: 100%;
+  -moz-border-radius:8px;
+  background: #C0C0C0;
+}
+
+table.FHZ                tr.odd {
+  background: #D7D7D7;
+}
+
+table.EM {
+  border: solid;
+  border-width: thin;
+  width: 100%;
+  -moz-border-radius:8px;
+  background: #E0E0E0;
+}
+
+table.EM                 tr.odd {
+  background: #F0F0F0;
+}
+
+table._internal_ {
+  border: solid;
+  border-width: thin;
+  width: 100%;
+  -moz-border-radius:8px;
+  background: #C0C0C0;
+}
+
+table._internal_         tr.odd {
+  background: #D7D7D7;
+}
+
+#hdr {
+  position:absolute;
+  top:10px;
+  left:10px;
+}
+
+#left {
+  position:absolute;
+  top:50px;
+  left:10px;
+  width:130px;
+}
+
+#right {
+  position:absolute;
+  top:50px;
+  left:160px;
+  bottom:10px;
+  overflow:auto;
+}