diff --git a/fhem/CHANGED b/fhem/CHANGED
index 79a16856a..92809857b 100644
--- a/fhem/CHANGED
+++ b/fhem/CHANGED
@@ -1,4 +1,6 @@
 - SVN
+  - feature: new Module 98_Heating_Control to switch heatsinks automaticly
+             with a weekly profile (by D. Ortmann / T. Faust)
   - feature: new Module 93_DbLog.pm for logging events into Databases. 
              Generating Plots with weblinks are supportet.
              (by B. Neubert / T. Faust)
diff --git a/fhem/FHEM/98_Heating_Control.pm b/fhem/FHEM/98_Heating_Control.pm
new file mode 100644
index 000000000..c0fea7f9c
--- /dev/null
+++ b/fhem/FHEM/98_Heating_Control.pm
@@ -0,0 +1,459 @@
+# $Id$
+##############################################################################
+#
+#     98_Heating_Control.pm
+#     written by Dietmar Ortmann
+#     modified by Tobias Faust
+#
+#     This file is part of fhem.
+#
+#     Fhem is free software: you can redistribute it and/or modify
+#     it under the terms of the GNU General Public License as published by
+#     the Free Software Foundation, either version 2 of the License, or
+#     (at your option) any later version.
+#
+#     Fhem is distributed in the hope that it will be useful,
+#     but WITHOUT ANY WARRANTY; without even the implied warranty of
+#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#     GNU General Public License for more details.
+#
+#     You should have received a copy of the GNU General Public License
+#     along with fhem.  If not, see <http://www.gnu.org/licenses/>.
+#
+##############################################################################
+
+package main;
+use strict;
+use warnings;
+use POSIX;
+
+sub Heating_Control_Update($);
+
+##################################### 
+sub
+Heating_Control_Initialize($)
+{
+  my ($hash) = @_;
+
+# Consumer
+  $hash->{DefFn}   = "Heating_Control_Define";
+  $hash->{UndefFn} = "Heating_Control_Undef";
+  $hash->{GetFn}   = "Heating_Control_Get";
+  $hash->{AttrList}= "loglevel:0,1,2,3,4,5 disable:0,1 ".
+                        $readingFnAttributes;
+}
+
+sub
+Heating_Control_Get($@)
+{
+  my ($hash, @a) = @_;
+  return "argument is missing" if(int(@a) != 2);
+
+  $hash->{LOCAL} = 1;
+  #Heating_Control_GetUpdate($hash);
+  delete $hash->{LOCAL};
+  my $reading= $a[1];
+  my $value;
+
+  if(defined($hash->{READINGS}{$reading})) {
+        $value= $hash->{READINGS}{$reading}{VAL};
+  } else {
+        return "no such reading: $reading";
+  }
+  return "$a[0] $reading => $value";
+}
+
+
+sub
+Heating_Control_Define($$)
+{
+  my ($hash, $def) = @_;
+  my  @a = split("[ \t]+", $def);
+ 
+  return "Usage: define <name> Heating_Control <device> <switching times> <condition|command>"
+     if(@a < 4);
+
+  my $name       = shift @a;
+  my $type       = shift @a;
+  my $device     = shift @a;
+  my @switchingtimes;
+  my $conditionOrCommand = "";
+  my @Wochentage = ("Montag","Dienstag","Mittwoch","Donnerstag","Freitag","Samstag","Sonntag");
+
+  return "invalid Device, given Device <$device> not found" if(!$defs{$device});
+
+  #Altlasten bereinigen
+  delete($hash->{helper}{CONDITION})         if($hash->{helper}{CONDITION});
+  delete($hash->{helper}{COMMAND})           if($hash->{helper}{COMMAND});
+  delete($hash->{helper}{SWITCHINGTIMES})    if($hash->{helper}{SWITCHINGTIMES});
+  delete($hash->{helper}{SWITCHINGTIME})     if($hash->{helper}{SWITCHINGTIME});
+  for (my $w=0; $w<@Wochentage; $w++) {
+    delete($hash->{"PROFILE ".($w+1).": ".$Wochentage[$w]}) if($hash->{"PROFILE ".($w+1).": ".$Wochentage[$w]});
+  }
+
+  for(my $i=0; $i<@a; $i++) {
+    #prüfen auf Angabe eines Schaltpunktes
+    my @t = split(/\|/, $a[$i]);
+    my $anzahl = @t;
+    if ( $anzahl ~~ [2,3]) {
+      push(@switchingtimes, $a[$i]);
+    } else { 
+      #der Rest ist das auzuführende Kommando/condition
+      $conditionOrCommand = trim(join(" ", @a[$i..@a-1]));
+      last; 
+    }
+  }
+
+  $hash->{NAME}           = $name;
+  $hash->{helper}{SWITCHINGTIMES} = join(" ", @switchingtimes); 
+  $hash->{DEVICE}         = $device;
+  
+  if($conditionOrCommand =~  m/^\(.*\)$/g) {         #condition (*)
+     $hash->{helper}{CONDITION} = $conditionOrCommand;
+  } elsif(length($conditionOrCommand) > 0 ) {
+     $hash->{helper}{COMMAND} = $conditionOrCommand;
+  }  
+
+  my (@st, @days, $daylist, $time, $temp);
+  for(my $i=0; $i<@switchingtimes; $i++) {
+    
+    @st = split(/\|/, $switchingtimes[$i]);
+    if ( @st == 2) {
+      $daylist = "1234567"; #jeden Tag/woche ist vordefiniert
+      $time    = $st[0];
+      $temp    = $st[1];
+    } elsif ( @st == 3) {
+      $daylist = lc($st[0]);
+      $time    = $st[1];
+      $temp    = $st[2];
+    }
+
+    # nur noch die Einzelteile per regExp testen
+    return "invalid daylist in $name <$daylist> 123... | Sa,So,..."
+      if(!($daylist =~  m/^(\d){0,7}$/g    ||     $daylist =~  m/^((Sa|So|Mo|Di|Mi|Do|Fr)(,|$)){0,7}$/g      ));
+
+    # Sa, So ... in den Index übersetzen
+    my $idx = 1;
+    foreach my $day ("mo","di","mi","do","fr","sa","so") {
+       $daylist =~ s/$day/$idx/g;
+       $idx++;
+    }
+
+    # Kommas entfernen
+    $daylist =~ s/,//g;
+    @days = split("", $daylist);
+
+    # doppelte Tage entfernen
+    my %hdays=();
+    @hdays{@days}=1;
+    #korrekt die Tage sortieren
+    @days = sort(SortNumber keys %hdays);
+
+    return "invalid time in $name <$time> HH:MM"
+      if(!($time =~  m/^[0-2][0-9]:[0-5][0-9]$/g));
+    return "invalid temperature in $name <$temp> 99.9"
+      if(!($temp =~  m/^\d{1,2}(\.\d){0,1}$/g));
+
+    for (my $d=0; $d<@days; $d++) {
+      #Log 3, "Switchingtime: $switchingtimes[$i] : $days[$d] -> $time -> $temp ";
+      $hash->{helper}{SWITCHINGTIME}{$days[$d]}{$time} = $temp;
+      $hash->{"PROFILE ".($days[$d]).": ".$Wochentage[$days[$d]-1]} .= sprintf("%s: %.1f°C, ", $time, $temp);
+    }
+  }
+
+  #desired-temp des Zieldevices auswählen
+  if($defs{$device}{TYPE} eq "MAX") {
+    $hash->{helper}{DESIRED_TEMP_READING} = "desiredTemperature"
+  } else {
+    $hash->{helper}{DESIRED_TEMP_READING} = "desired-temp";
+  }
+
+  my $now    = time();
+  InternalTimer ($now+30, "Heating_Control_Update", $hash, 0);
+
+  readingsBeginUpdate  ($hash);
+  readingsBulkUpdate   ($hash, "nextUpdate",   strftime("Heute, %H:%M:%S",localtime($now+30)));
+  readingsBulkUpdate   ($hash, "nextValue",    "???");
+  readingsBulkUpdate   ($hash, "state",        "waiting...");
+  readingsEndUpdate    ($hash, defined($hash->{LOCAL} ? 0 : 1));
+
+  return undef;
+}
+
+sub
+Heating_Control_Undef($$)
+{
+  my ($hash, $arg) = @_;
+
+  RemoveInternalTimer($hash);
+  return undef;
+}
+
+sub
+Heating_Control_Update($)
+{
+  my ($hash) = @_;
+  my $now    = time();
+  my $next   = 0;
+  my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($now);
+
+  my $AktDesiredTemp = ReadingsVal($hash->{DEVICE}, $hash->{helper}{DESIRED_TEMP_READING}, 0);
+  my $newDesTemperature = $AktDesiredTemp; #default#
+  my $nextDesTemperature = 0;
+  my $nextSwitch = 0;
+  my $nowSwitch = 0;
+  my @days = ($wday..7, 1..$wday-1); 
+
+  for (my $d=0; $d<@days; $d++) {
+    #über jeden Tag
+    last if ($nextSwitch > 0);
+    foreach my $st (sort (keys %{ $hash->{helper}{SWITCHINGTIME}{$days[$d]} })) {
+      #berechnen, des Schaltpunktes
+      my $secondsToSwitch = 3600*(int(substr($st,0,2)) - $hour) +
+         60*(int(substr($st,3,2)) - $min ) - $sec;
+      # Tagesdiff dazurechnen
+      if($wday <= int($days[$d])) {
+        $secondsToSwitch += 3600*24*(int($days[$d])-$wday)
+      } else {
+        $secondsToSwitch += 3600*24*(7-$wday+int($days[$d]))
+      }
+
+      $next = time()+$secondsToSwitch;
+      #Log 3, "Jetzt:".strftime('%d.%m.%Y %H:%M:%S',localtime($now))." -> Next: ".strftime('%d.%m.%Y %H:%M:%S',localtime($next))." -> Temp: $hash->{helper}{SWITCHINGTIME}{$days[$d]}{$st}";
+
+      if ($now > $next) {
+        $newDesTemperature =  $hash->{helper}{SWITCHINGTIME}{$days[$d]}{$st};
+        #Log 3, "temperature------------>$newDesTemperature";
+        $nowSwitch = $now;
+      } else {
+        $nextSwitch = $next;
+        $nextDesTemperature = $hash->{helper}{SWITCHINGTIME}{$days[$d]}{$st};
+        last;
+      }
+    }
+  }
+
+  if ($nextSwitch eq "") {
+     $nextSwitch = $now + 3600;
+  }
+
+  my $name = $hash->{NAME};
+  my $command;
+  
+  #Log 3, "NowSwitch: ".strftime('%d.%m.%Y %H:%M:%S',localtime($nowSwitch))." ; AktDesiredTemp: $AktDesiredTemp ; newDesTemperature: $newDesTemperature";
+  if ($nowSwitch gt "" && $AktDesiredTemp != $newDesTemperature) {
+    if (defined $hash->{helper}{CONDITION}) {
+      $command = '{ fhem("set @ '.$hash->{helper}{DESIRED_TEMP_READING}.' %") if' . $hash->{helper}{CONDITION} . '}';
+    } elsif (defined $hash->{helper}{COMMAND}) {
+      $command = $hash->{helper}{COMMAND};
+    } else {
+      $command = '{ fhem("set @ '.$hash->{helper}{DESIRED_TEMP_READING}.' %") }';
+    }
+  }
+
+  if ($command && AttrVal($hash->{NAME}, "disable", 0) == 0) {
+    $command =~ s/@/$hash->{DEVICE}/g;
+    $command =~ s/%/$newDesTemperature/g;
+    $command = SemicolonEscape($command);
+    my $ret = AnalyzeCommandChain(undef, $command);
+    Log GetLogLevel($name,3), $ret if($ret);
+  }
+
+  #Log 3, "nextSwitch=".strftime('%d.%m.%Y %H:%M:%S',localtime($nextSwitch));
+
+  InternalTimer($nextSwitch, "Heating_Control_Update", $hash, 0);
+  readingsBeginUpdate($hash);
+  readingsBulkUpdate($hash, "nextUpdate", strftime("%d.%m.%Y %H:%M:%S",localtime($nextSwitch)));
+  readingsBulkUpdate($hash, "nextValue", $nextDesTemperature . "°C");
+  readingsBulkUpdate($hash, "state", strftime("%d.%m.%Y %H:%M:%S",localtime($nextSwitch)). ": " . $newDesTemperature."°C");
+  readingsEndUpdate($hash, defined($hash->{LOCAL} ? 0 : 1)); 
+  
+  return 1;
+}
+
+sub SortNumber {
+ if($a < $b)
+  { return -1; }
+ elsif($a == $b)
+  { return 0; }
+ else
+  { return 1; }
+}
+
+1;
+
+
+
+=pod
+=begin html
+
+<a name="Heating_Control"></a>
+<h3>Heating Control</h3>
+<ul>
+  <br>
+  <a name="Heating_Controldefine"></a>
+  <b>Define</b>
+  <ul>
+    <code>define &lt;name&gt; Heating_Control &lt;device&gt; &lt;profile&gt; &lt;command&gt;|&lt;condition&gt;</code>
+    <br><br>
+
+    to set a weekly profile for &lt;device&gt;, eg. a heating sink. You can define different switchingtimes for every day.
+    The new temperature is send to the &lt;device&gt; automaticly with <code>set &lt;device&gt; desired-temp &lt;temp&gt;</code>
+    if the device is a heating thermostat (FHT8b, MAX). Have you defined a &lt;condition&gt;
+    and this condition is false if the switchingtime has reached, no command will executed.<br>
+    A other case is to define an own perl command with &lt;command&gt;.
+    <p>
+    The following parameter are defined:
+    <ul><b>device</b><br> 
+      The device to switch at the given time.
+    </ul> 
+    <p>
+    <ul><b>profile</b><br> 
+      Define the weekly profile. All timings are separated by space. One switchingtime are defined
+      by the following example: <br>
+      <ul><b>[&lt;weekdays&gt;|]&lt;time&gt;|&lt;temperature&gt;</b></ul><br>
+      <u>weekdays:</u> optional, if not set every day is using.<br>
+        Otherwise you can define one day as number or as shortname.<br>
+      <u>time:</u>define the time to switch, format: HH24:MI<br>
+      <u>temperature:</u>the temperature to set, using a Integer<br>
+    </ul>
+    <p>
+    <ul><b>command</b><br> 
+      If no condition is set, all others is interpreted as command. Perl-code is setting up
+      by well-known Block with {}.<br>
+      Note: if a command is defined only this command are executed. In case of executing
+      a "set desired-temp" command, you must define it explicit.<br>
+      The following parameter are replaced:<br>
+        <ol>
+          <li>@ => the device to switch</li>
+          <li>% => the new temperature</li>
+        </ol>
+    </ul>
+    <p>
+    <ul><b>condition</b><br> 
+      if a condition is defined you must declared this with () and a valid perl-code.<br>
+      The returnvalue must be boolean.<br> 
+      The parameter @ and % will be interpreted.
+    </ul>
+    <p>
+    <b>Example:</b>
+    <ul>
+        <code>define HCB Heating_Control Bad_Heizung 12345|05:20|21 12345|05:25|12 17:20|21 17:25|12</code><br>
+        Mo-Fr are setting the temperature at 05:20 to 21°C, and at 05:25 to 12°C. 
+        Every day will be set the temperature at 17:20 to 21°C and 17:25 to 12°C.<p>
+
+        <code>define HCW Heating_Control WZ_Heizung 07:00|16 Mo,Die,Mi|16:00|18.5 20:00|12 
+          {fhem(“set dummy on”); fhem("set @ desired-temp %");}</code><br>
+        At the given times and weekdays only(!) the command will be executed.<p>
+
+        <code>define HCK Heating_Control KZ_Heizung 07:00|16 16:00|18.5 20:00|12 ($sunshine=0))</code><br>
+        The temperature is only set if the variable is $sunhine=0.<p>
+    </ul>
+  </ul>
+
+  <a name="Heating_Controlset"></a>
+  <b>Set</b> <ul>N/A</ul><br>
+
+  <a name="Heating_Controlget"></a>
+  <b>Get</b> <ul>N/A</ul><br>
+
+  <a name="Heating_ControlLogattr"></a>
+  <b>Attributes</b> 
+  <ul>
+    <li><a href="#disable">disable</a></li>
+    <li><a href="#loglevel">loglevel</a></li>
+    <li><a href="#event-on-update-reading">event-on-update-reading</a></li>
+    <li><a href="#event-on-change-reading">event-on-change-reading</a></li>
+    <li><a href="#stateFormat">stateFormat</a></li>
+  </ul><br>
+</ul>
+
+=end html
+=begin html_DE
+
+<a name="Heating_Control"></a>
+<h3>Heating Control</h3>
+<ul>
+  <br>
+  <a name="Heating_Controldefine"></a>
+  <b>Define</b>
+  <ul>
+    <code>define &lt;name&gt; Heating_Control &lt;device&gt; &lt;profile&gt; &lt;command&gt;|&lt;condition&gt;</code>
+    <br><br>
+
+    Bildet ein Wochenprofil für ein &lt;device&gt;, zb. Heizkörper, ab. Es können für jeden Tag unterschiedliche 
+    Schaltzeiten angegeben werden. Ist das &lt;device&gt; ein Heizkörperthermostat (zb. FHT8b, MAX) so wird die 
+    zu setzende Temperatur im &lt;profile&gt; automatisch mittels <code>set &lt;device&gt; desired-temp &lt;temp&gt;</code>
+    dem Device mitgeteilt. Ist eine &lt;condition&gt; angegeben und ist zum Schaltpunkt der Ausdruck unwahr, 
+    so wird dieser Schaltpunkt nicht ausgeführt.<br>
+    Alternativ zur Automatik kann stattdessen eigener Perl-Code im &lt;command&gt; ausgeführt werden.
+    <p>
+    Folgende Parameter sind im Define definiert:
+    <ul><b>device</b><br> 
+      Das an den Schaltpunkten zu schaltende Device.
+    </ul> 
+    <p>
+    <ul><b>profile</b><br> 
+      Angabe des Wochenprofils. Die einzelnen Schaltzeiten sind durch Leerzeichen getrennt
+      Die Angabe der Schaltzeiten ist nach folgendem Muster definiert:<br>
+      <ul><b>[&lt;Wochentage&gt;|]&lt;Uhrzeit&gt;|&lt;Temperatur&gt;</b></ul><br>
+      <u>Wochentage:</u> optionale Angabe, falls nicht gesetzt wird der Schaltpunkt jeden Tag ausgeführt.
+        Für die Tage an denen dieser Schaltpunkt aktiv sein soll, ist jeder Tag mit seiner
+        Tagesnummer (Mo=1, ..., So=7) oder Name des Tages (Mo, Die, ..., So) einzusetzen.<br>
+      <u>Uhrzeit:</u>Angabe der Uhrzeit an dem geschaltet werden soll, Format: HH24:MI<br>
+      <u>Temperatur:</u>Angabe der zu setzenden Temperatur als Zahl<br>
+    </ul>
+    <p>
+    <ul><b>command</b><br> 
+      Falls keine Condition in () angegeben wurde, so wird alles weitere als Command
+      interpretiert. Perl-Code ist in {} zu setzen. <br>
+      Wichtig: Falls ein Command definiert ist, so wird zu den definierten Schaltzeiten 
+      nur(!) das Command ausgeführt. Falls ein desired-temp Befehl abgesetzt werde soll, 
+      so muss dies explizit angegeben werden.<br>
+      Folgende Parameter werden ersetzt:<br>
+        <ol>
+          <li>@ => das zu schaltende Device</li>
+          <li>% => die zu setzende Temperatur</li>
+        </ol>
+    </ul>
+    <p>
+    <ul><b>condition</b><br> 
+      Bei Angabe einer Condition ist diese in () zu setzen und mit validem Perl-Code zu versehen.<br>
+      Der Rückgabedatentyp der condition muss boolean sein.<br> 
+      Die Parameter @ und  % werden interpretiert.
+    </ul>
+    <p>
+    <b>Beispiel:</b>
+    <ul>
+        <code>define HCB Heating_Control Bad_Heizung 12345|05:20|21 12345|05:25|12 17:20|21 17:25|12</code><br>
+        Mo-Fr wird die Temperatur um 05:20Uhr auf 21°C, und um 05:25Uhr auf 12°C gesetzt. 
+        Jeden Tag wird die Temperatur um 17:20Uhr auf 21°C und 17:25Uhr auf 12°C gesetzt.<p>
+
+        <code>define HCW Heating_Control WZ_Heizung 07:00|16 Mo,Die,Mi|16:00|18.5 20:00|12 
+          {fhem(“set dummy on”); fhem("set @ desired-temp %");}</code><br>
+        Zu den definierten Schaltzeiten wird nur(!) der in {} angegebene Perl-Code ausgeführt.<p>
+
+        <code>define HCK Heating_Control KZ_Heizung 07:00|16 16:00|18.5 20:00|12 ($sunshine=0))</code><br>
+        Die zu setzendeTemperatur wird nur gesetzt, falls die globale Variable $sunhine=0 ist.<p>
+    </ul>
+  </ul>
+
+  <a name="Heating_Controlset"></a>
+  <b>Set</b> <ul>N/A</ul><br>
+
+  <a name="Heating_Controlget"></a>
+  <b>Get</b> <ul>N/A</ul><br>
+
+  <a name="Heating_ControlLogattr"></a>
+  <b>Attributes</b> 
+  <ul>
+    <li><a href="#disable">disable</a></li>
+    <li><a href="#loglevel">loglevel</a></li>
+    <li><a href="#event-on-update-reading">event-on-update-reading</a></li>
+    <li><a href="#event-on-change-reading">event-on-change-reading</a></li>
+    <li><a href="#stateFormat">stateFormat</a></li>
+  </ul><br>
+</ul>
+
+=end html_DE
+=cut