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); }