Kod: Markera allt
#!/usr/bin/perl
use DBI;
# MYSQL INFO
$host = "localhost";
$database = "1wire";
$table = "sensor_readings";
$user = "";
$pw = "";
# Connect to SQL with Perl
$dbh = DBI->connect("DBI:mysql:database=$database", $user, $pw);
#misc
$time = time();
#Script part, enter follow data
#&sensors("sensor id", "location", "Type", "hilarm", "lolarm");
&sensors("28.FA5CD6020000", "Sovrum", "Temp", "20", "15");
&sensors("28.BB5B70020000", "Hallen", "Temp", "35", "15");
sub sensors
{
my $value = `grep . /mnt/1wire/$_[0]/temperature`;
my $fixed = sprintf("%.2f", $value);
if($fixed > "$_[4]") { return; }
elsif($fixed < "$_[5]") { return; }
else{
$dbh->do("INSERT INTO sensor_readings(timestamp,sensor,data,type) VALUES($time, '$_[1]', $fixed ,'$_[2]')");
}
}