summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xenergyadder.pl119
1 files changed, 119 insertions, 0 deletions
diff --git a/energyadder.pl b/energyadder.pl
new file mode 100755
index 0000000..730a953
--- /dev/null
+++ b/energyadder.pl
@@ -0,0 +1,119 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Config::Simple;
+use DBI;
+use DateTime;
+use YAML;
+
+use common;
+use utf8;
+
+binmode STDOUT, 'utf8';
+
+use constant GOAL_ENERGY => 900;
+
+tie my %Config, "Config::Simple", '/etc/mat.conf';
+
+my $db = DBI->connect($Config{'database'}, "", "", {RaiseError => 1,
+ AutoCommit => 1, sqlite_unicode => 1});
+
+my $recipe_id = $ARGV[0];
+$recipe_id =~ s/(.*\/)*([0-9]*)-.*/$2/;
+
+
+#if ( length(@ingredients) == 1 ) {
+#if ( 0 ) {
+if ( $recipe_id eq $ARGV[0] ) {
+ print "original_scale_reading: 0\n";
+ print "already_eaten: 0\n";
+ print "scale_reading: 0\n";
+ print "container_weight: 0\n";
+ print "\n";
+ print "ingredients:\n";
+
+ my $sql = "SELECT * FROM contents WHERE recipe_id=$recipe_id";
+ my $sth = $db->prepare($sql);
+ $sth->execute();
+# my $first_line = 1;
+ my $ingredient_row;
+ while ( my $content_row = $sth->fetchrow_hashref() ) {
+# if ( $first_line ) {
+# print 'my @ingredients = ( ';
+# $first_line = 0;
+# } else {
+# printf ", # %s\n%20s", $last_ingredient->{name}, " ";
+# }
+ $sql = "SELECT * FROM ingredients WHERE id=$content_row->{ingredient_id}";
+ ( $ingredient_row ) = $db->selectrow_hashref($sql);
+# printf '{ ingredient => %4d, quantity => 0 }', $content_row->{ingredient_id};
+ print " - description: $ingredient_row->{'name'}\n";
+ print " ingredient: $content_row->{ingredient_id}\n";
+ print " # $content_row->{quantity} $content_row->{unit}\n";
+ print " quantity : 0\n\n";
+ }
+# printf " ); # %s\n", $last_ingredient->{name};
+ exit 1;
+}
+
+open my $cooking_file, '<', $ARGV[0];
+my $cooking = YAML::LoadFile($cooking_file);
+my @ingredients = @{ $cooking->{'ingredients'} };
+
+print "Goal energy: ", GOAL_ENERGY, " kJ\n\n";
+
+my $energy = 0;
+
+for my $ingredient ( @ingredients ) {
+
+ my $sql = "SELECT * FROM LivsmedelsDatabas WHERE ".
+ "ingredient_id=$ingredient->{ingredient}";
+ my ( $row ) = $db->selectrow_hashref($sql);
+ if ($row->{'Livsmedelsnamn'}) {
+# print $row->{'Livsmedelsnamn'};
+ $energy += $ingredient->{quantity} * $row->{'Energi'} / 100;
+ } else {
+ $sql = "SELECT * FROM ingredients WHERE id=$ingredient->{ingredient}";
+ ( $row ) = $db->selectrow_hashref($sql);
+ print "Could not find ingredient $ingredient->{ingredient} ".
+ "($row->{'name'}) in LivsmedelsDatabas.\n";
+ }
+ printf "%5d%5d g|%-40s%10d kJ\n", $ingredient->{ingredient},
+ $ingredient->{quantity}, $row->{'Livsmedelsnamn'},
+ $ingredient->{quantity} * $row->{'Energi'} / 100;
+# printf "%5d|%5d g|%-50s%10s kJ|%10s kJ\n", $ingredient->{ingredient},
+# $ingredient->{quantity}, $row->{'Livsmedelsnamn'},
+# $ingredient->{quantity} * $row->{'Energi'} / 100, $energy;
+}
+
+#my $total_food_weight = SCALE_READING - CONTAINER_WEIGHT;
+my $total_food_weight = $cooking->{'scale_reading'} - $cooking->{'container_weight'}
+ + $cooking->{'scale_reading'} * (1.0 * $cooking->{'already_eaten'} / $cooking->{'original_scale_reading'});
+my $specific_energy = $energy / $total_food_weight * 100; # kJ/100 g
+#my $left = ( $total_food_weight - 198 ) * $specific_energy;
+
+#my $reduced = $left / 2.980;
+
+print "\n";
+printf "Total energy (all %d g): %d kJ\n", $total_food_weight, $energy;
+printf "Specific energi: %d kJ/100 g\n", $specific_energy;
+
+print "\n";
+
+my $portions = int($energy/GOAL_ENERGY);
+print $portions, " matlådor på ", int($total_food_weight/$portions), " g ger ",
+ int($total_food_weight/$portions/100 * $specific_energy) ," kJ/matlåda.\n";
+$portions++;
+print $portions, " matlådor på ", int($total_food_weight/$portions), " g ger ",
+ int($total_food_weight/$portions/100 * $specific_energy) ," kJ/matlåda.\n";
+
+print "\n";
+
+my $database_path = (split(":", $Config{'database'}))[2];
+add_to_cooking($recipe_id, $specific_energy, $database_path);
+print "echo \"INSERT INTO cookings VALUES ($recipe_id, '".
+ DateTime->now()->ymd()."', ".int($specific_energy+0.5)."); \" | sqlite3 ".
+ $database_path."\n";
+