Vermischtes

  my $sql;
  open(DEBUGLOG, ">>/var/log/digitemp/error.log) || die "cannot write error.log";
  if ( $temperature == 185.00 ) {
    my $debugdate=`date +%Y%m%d-%H%M%S`;
    chomp $debugdate;
      print DEBUGLOG $debugdate . "ERROR sensor: " . $serialnumber . " lieferte fehlerwert 185 zurueck\n";
    if ( $lastserialtemp{$serialnumber} == 185.00 )
    {
      print DEBUGLOG $debugdate . "FATAL sensor: " . $serialnumber . "- zweite messung ergab auch fehlercode.\n";
      $temperature = 0;
      $sql="INSERT INTO digitemp SET SerialNumber='$serialnumber',Fahrenheit=$temperature";
    }
    else
    {
      print DEBUGLOG $debugdate . "CORRECTED sensor: " . $serialnumber . "- lieferte falsche werte - korrigiert durch letzten wert: $lastserialtemp fahrenheit\n";
      
      $temperature = $lastserialtemp{$serialnumber};
      $sql="INSERT INTO digitemp SET SerialNumber='$serialnumber',Fahrenheit=$temperature";
    }
  close(DEBUGLOG);
  }