www/upl_recipe.php

Mon, 11 May 2020 17:32:08 +0200

author
Michiel Broek <mbroek@mbse.eu>
date
Mon, 11 May 2020 17:32:08 +0200
changeset 671
4b54d6f79d25
parent 308
a59413ba4057
child 709
e251cceec547
permissions
-rw-r--r--

Version 0.3.33 Added websockets framework. Added fermenter status messages to the websockets broadcast.

307
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
1 <?php
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
2 require_once('config.php');
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
3 require("version.php");
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
4 require("includes/formulas.php");
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
5
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
6
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
7 $target_dir = "tmp/";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
8 $target_file = $target_dir . basename($_FILES["fileToUpload"]["name"]);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
9 $uploadOk = 1;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
10 $imageFileType = pathinfo($target_file,PATHINFO_EXTENSION);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
11
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
12 // Check if file already exists
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
13 if (file_exists($target_file)) {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
14 echo "Fout 1: bestand bestaat al. ";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
15 $uploadOk = 0;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
16 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
17 // Check file size
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
18 if ($_FILES["fileToUpload"]["size"] > 500000 && $uploadOk) {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
19 echo "Fout 2: het bestand is te groot. ";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
20 $uploadOk = 0;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
21 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
22 // Allow certain file formats
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
23 if ($imageFileType != "xml" && $uploadOk) {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
24 echo "Fout 3: alleen XML bestanden toegestaan. ";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
25 $uploadOk = 0;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
26 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
27 // Check if $uploadOk is set to 0 by an error
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
28 if ($uploadOk == 0) {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
29 exit;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
30 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
31
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
32 if (move_uploaded_file($_FILES["fileToUpload"]["tmp_name"], $target_file)) {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
33 echo "Verwerken bestand ". basename( $_FILES["fileToUpload"]["name"]). "<br />";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
34 } else {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
35 echo "Fout 4: er ging iets fout met de upload.";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
36 exit;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
37 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
38
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
39
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
40 $db = mysqli_connect(DBASE_HOST, DBASE_USER, DBASE_PASS, DBASE_NAME);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
41 if (! $db) {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
42 echo "Fout 5: ".mysqli_connect_errno()." ".mysqli_connect_error();
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
43 exit;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
44 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
45 mysqli_set_charset($db, "utf8" );
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
46 date_default_timezone_set('Europe/Amsterdam');
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
47
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
48
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
49 $pCara = 0;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
50 $pSugar = 0;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
51 $svg = 77;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
52 $efficiency = 75;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
53 $batch_size = 20;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
54 $colorw = 0;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
55 $f_sugars = 0;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
56
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
57
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
58
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
59 function get_miscs_cost($miscname) {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
60 global $db;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
61
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
62 if ($result = mysqli_query($db, "SELECT cost FROM inventory_miscs WHERE name='$miscname'")) {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
63 if ($row = mysqli_fetch_array($result, MYSQLI_ASSOC)) {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
64 return floatval($row['cost']);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
65 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
66 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
67 return 0.0;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
68 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
69
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
70
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
71
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
72 function recipe_style($recipe)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
73 {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
74 global $db;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
75
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
76 if ($recipe->STYLE->NAME)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
77 $sql = "', st_name='" . mysqli_real_escape_string($db, $recipe->STYLE->NAME);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
78 if ($recipe->STYLE->STYLE_LETTER)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
79 $sql .= "', st_letter='" . mysqli_real_escape_string($db, $recipe->STYLE->STYLE_LETTER);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
80 if ($recipe->STYLE->STYLE_GUIDE) {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
81 if ($recipe->STYLE->STYLE_GUIDE == "Biertypengids Derek Walsh") {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
82 $sql .= "', st_guide='BKG 2015";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
83 } else if ($recipe->STYLE->STYLE_GUIDE == "BKG Biertypen") {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
84 $sql .= "', st_guide='BKG 2015";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
85 } else {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
86 $sql .= "', st_guide='" . mysqli_real_escape_string($db, $recipe->STYLE->STYLE_GUIDE);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
87 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
88 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
89 if ($recipe->STYLE->CATEGORY)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
90 $sql .= "', st_category='" . mysqli_real_escape_string($db, $recipe->STYLE->CATEGORY);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
91 if ($recipe->STYLE->CATEGORY_NUMBER)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
92 $sql .= "', st_category_number='" . floatval($recipe->STYLE->CATEGORY_NUMBER);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
93 if ($recipe->STYLE->TYPE == 'Lager')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
94 $sql .= "', st_type='0";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
95 else if (($recipe->STYLE->TYPE == 'Ale') || ($recipe->STYLE->TYPE == 'Strong Ale'))
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
96 $sql .= "', st_type='1";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
97 else if ($recipe->STYLE->TYPE == 'Mead')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
98 $sql .= "', st_type='2";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
99 else if ($recipe->STYLE->TYPE == 'Wheat')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
100 $sql .= "', st_type='3";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
101 else if ($recipe->STYLE->TYPE == 'Mixed')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
102 $sql .= "', st_type='4";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
103 else if ($recipe->STYLE->TYPE == 'Cider')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
104 $sql .= "', st_type='5";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
105 else
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
106 echo "Unknown TYPE " . $recipe->STYLE->TYPE . "<br />";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
107
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
108 if ($recipe->STYLE->OG_MIN)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
109 $sql .= "', st_og_min='" . floatval($recipe->STYLE->OG_MIN);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
110 if ($recipe->STYLE->OG_MAX)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
111 $sql .= "', st_og_max='" . floatval($recipe->STYLE->OG_MAX);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
112 if ($recipe->STYLE->FG_MIN)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
113 $sql .= "', st_fg_min='" . floatval($recipe->STYLE->FG_MIN);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
114 if ($recipe->STYLE->FG_MAX)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
115 $sql .= "', st_fg_max='" . floatval($recipe->STYLE->FG_MAX);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
116 if ($recipe->STYLE->IBU_MIN)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
117 $sql .= "', st_ibu_min='" . floatval($recipe->STYLE->IBU_MIN);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
118 if ($recipe->STYLE->IBU_MAX)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
119 $sql .= "', st_ibu_max='" . floatval($recipe->STYLE->IBU_MAX);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
120 if ($recipe->STYLE->COLOR_MIN) {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
121 $srm = floatval($recipe->STYLE->COLOR_MIN);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
122 $sql .= "', st_color_min='" . srm_to_ebc($srm);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
123 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
124 if ($recipe->STYLE->COLOR_MAX) {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
125 $srm = floatval($recipe->STYLE->COLOR_MAX);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
126 $sql .= "', st_color_max='" . srm_to_ebc($srm);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
127 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
128 if ($recipe->STYLE->CARB_MIN)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
129 $sql .= "', st_carb_min='" . floatval($recipe->STYLE->CARB_MIN);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
130 if ($recipe->STYLE->CARB_MAX)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
131 $sql .= "', st_carb_max='" . floatval($recipe->STYLE->CARB_MAX);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
132 if ($recipe->STYLE->ABV_MIN)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
133 $sql .= "', st_abv_min='" . floatval($recipe->STYLE->ABV_MIN);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
134 if ($recipe->STYLE->ABV_MAX)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
135 $sql .= "', st_abv_max='" . floatval($recipe->STYLE->ABV_MAX);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
136 return $sql;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
137 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
138
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
139
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
140
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
141 function recipe_fermentables($recipe)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
142 {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
143 global $db;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
144 global $pCara;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
145 global $pSugar;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
146 global $batch_size;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
147 global $efficiency;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
148 global $colorw;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
149 global $f_sugars;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
150
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
151 $fermentables = "[";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
152 $comma = FALSE;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
153 foreach ($recipe->FERMENTABLES->FERMENTABLE as $fermentable) {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
154 if ($comma)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
155 $fermentables .= ',';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
156 $comma = TRUE;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
157 $fermentables .= '{"f_name":"' . mysqli_real_escape_string($db, $fermentable->NAME) . '"';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
158 $fermentables .= ',"f_origin":"' . mysqli_real_escape_string($db, $fermentable->ORIGIN) . '"';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
159 $fermentables .= ',"f_supplier":"' . mysqli_real_escape_string($db, $fermentable->SUPPLIER) . '"';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
160 $famount = floatval($fermentable->AMOUNT);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
161 $fermentables .= ',"f_amount":' . $famount;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
162 $fermentables .= ',"f_cost":' . floatval($fermentable->COST);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
163
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
164 if ($fermentable->TYPE == 'Grain')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
165 $fermentables .= ',"f_type":0';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
166 else if ($fermentable->TYPE == 'Sugar')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
167 $fermentables .= ',"f_type":1';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
168 else if ($fermentable->TYPE == 'Extract')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
169 $fermentables .= ',"f_type":2';
308
a59413ba4057 Some extra firstcap keywords
Michiel Broek <mbroek@mbse.eu>
parents: 307
diff changeset
170 else if (($fermentable->TYPE == 'Dry extract') || ($fermentable->TYPE == 'Dry Extract'))
307
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
171 $fermentables .= ',"f_type":3';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
172 else if ($fermentable->TYPE == 'Adjunct')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
173 $fermentables .= ',"f_type":4';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
174 else
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
175 echo "Unknown TYPE " . $fermentable->TYPE . "<br / >";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
176
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
177 $fyield = floatval($fermentable->YIELD);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
178 $fermentables .= ',"f_yield":' . $fyield;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
179 if ($fermentable->COLOR) {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
180 $srm = floatval($fermentable->COLOR);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
181 $ebc = srm_to_ebc($srm);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
182 } else {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
183 $srm = 0;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
184 $ebc = 0;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
185 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
186 $colorw += ($famount * $srm / $batch_size) * 8.34436; /* Kleurwerking */
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
187 $fermentables .= ',"f_color":' . $ebc;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
188 if ($fermentable->COARSE_FINE_DIFF)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
189 $fermentables .= ',"f_coarse_fine_diff":' . floatval($fermentable->COARSE_FINE_DIFF);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
190 else
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
191 $fermentables .= ',"f_coarse_fine_diff":0';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
192 if ($fermentable->MOISTURE)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
193 $fmoisture = floatval($fermentable->MOISTURE);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
194 else
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
195 $fmoisture = 0;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
196 $fermentables .= ',"f_moisture":' . $fmoisture;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
197 if ($fermentable->DIASTATIC_POWER)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
198 $fermentables .= ',"f_diastatic_power":' . floatval($fermentable->DIASTATIC_POWER);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
199 else
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
200 $fermentables .= ',"f_diastatic_power":0';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
201 if ($fermentable->PROTEIN)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
202 $fermentables .= ',"f_protein":' . floatval($fermentable->PROTEIN);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
203 else
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
204 $fermentables .= ',"f_protein":0';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
205 if ($fermentable->MAX_IN_BATCH)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
206 $fermentables .= ',"f_max_in_batch":' . floatval($fermentable->MAX_IN_BATCH);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
207 else
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
208 $fermentables .= ',"f_max_in_batch":100.0';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
209
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
210 if ($fermentable->GRAINTYPE == 'Roast')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
211 $fermentables .= ',"f_graintype":1';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
212 else if ($fermentable->GRAINTYPE == 'Crystal')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
213 $fermentables .= ',"f_graintype":2';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
214 else if ($fermentable->GRAINTYPE == 'Kilned')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
215 $fermentables .= ',"f_graintype":3';
308
a59413ba4057 Some extra firstcap keywords
Michiel Broek <mbroek@mbse.eu>
parents: 307
diff changeset
216 else if (($fermentable->GRAINTYPE == 'Sour malt') || ($fermentable->GRAINTYPE == 'Sour Malt'))
307
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
217 $fermentables .= ',"f_graintype":4';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
218 else if ($fermentable->GRAINTYPE == 'Special')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
219 $fermentables .= ',"f_graintype":5';
308
a59413ba4057 Some extra firstcap keywords
Michiel Broek <mbroek@mbse.eu>
parents: 307
diff changeset
220 else if (($fermentable->GRAINTYPE == 'No malt') || ($fermentable->GRAINTYPE == 'No Malt'))
307
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
221 $fermentables .= ',"f_graintype":6';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
222 else
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
223 $fermentables .= ',"f_graintype":0'; // Base, default
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
224
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
225 if ($fermentable->ADDED == 'Boil')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
226 $fermentables .= ',"f_added":1';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
227 else if ($fermentable->ADDED == 'Fermentation')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
228 $fermentables .= ',"f_added":2';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
229 else if ($fermentable->ADDED == 'Lagering')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
230 $fermentables .= ',"f_added":3';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
231 else if ($fermentable->ADDED == 'Bottle')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
232 $fermentables .= ',"f_added":4';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
233 else
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
234 $fermentables .= ',"f_added":0'; // Mash, default.
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
235
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
236 ($fermentable->ADD_AFTER_BOIL== "TRUE") ? $fermentables .= ',"f_add_after_boil":1' : $fermentables .= ',"f_add_after_boil":0';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
237 ($fermentable->RECOMMEND_MASH== "TRUE") ? $fermentables .= ',"f_recommend_mash":1' : $fermentables .= ',"f_recommend_mash":0';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
238 if ($fermentable->DISSOLVED_PROTEIN)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
239 $fermentables .= ',"f_dissolved_protein":' . floatval($fermentable->DISSOLVED_PROTEIN);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
240 else
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
241 $fermentables .= ',"f_dissolved_protein":0';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
242 ($fermentable->ADJUST_TO_TOTAL_100 == "TRUE") ? $fermentables .= ',"f_adjust_to_total_100":1' : $fermentables .= ',"f_adjust_to_total_100":0';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
243 $percent = floatval($fermentable->PERCENTAGE);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
244 $fermentables .= ',"f_percentage":' . round($percent * 10) / 10.0;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
245 if ($fermentable->DI_pH)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
246 $fermentables .= ',"f_di_ph":' . floatval($fermentable->DI_pH);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
247 else
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
248 $fermentables .= ',"f_di_ph":0.0';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
249 if ($fermentable->{'ACID_TO_pH_5.7'})
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
250 $fermentables .= ',"f_acid_to_ph_57":' . floatval($fermentable->{'ACID_TO_pH_5.7'});
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
251 else
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
252 $fermentables .= ',"f_acid_to_ph_57":0.0';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
253 $fermentables .= "}";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
254
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
255 /* Sugars */
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
256 $d = $famount * ($fyield / 100) * (1 - $fmoisture / 100);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
257 if ($fermentable->ADDED == 'Mash')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
258 $d = floatval($efficiency) / 100 * $d;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
259 $f_sugars += $d;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
260 if ($fermentable->GRAINTYPE == 'Crystal')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
261 $pCara += $percent;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
262 if ($fermentable->TYPE == 'Sugar')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
263 $pSugar += $percent;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
264 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
265 $fermentables .= ']';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
266 return $fermentables;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
267 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
268
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
269
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
270
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
271 function recipe_hops($recipe)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
272 {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
273 global $db;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
274
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
275 $hops = "[";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
276 $comma = FALSE;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
277 foreach ($recipe->HOPS->HOP as $hop) {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
278 if ($comma)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
279 $hops .= ',';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
280 $comma = TRUE;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
281 $hops .= '{"h_name":"' . mysqli_real_escape_string($db, $hop->NAME) . '"';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
282 $hops .= ',"h_amount":' . floatval($hop->AMOUNT);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
283 $hops .= ',"h_cost":' . floatval($hop->COST);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
284
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
285 if ($hop->TYPE == 'Aroma')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
286 $hops .= ',"h_type":1';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
287 else if ($hop->TYPE == 'Both')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
288 $hops .= ',"h_type":2';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
289 else
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
290 $hops .= ',"h_type":0'; // Default bittering
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
291
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
292 if ($hop->FORM == 'Pellet')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
293 $hops .= ',"h_form":0';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
294 else if ($hop->FORM == 'Plug')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
295 $hops .= ',"h_form":1';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
296 else
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
297 $hops .= ',"h_form":2'; // Default.
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
298
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
299 if ($hop->USE == 'Mash')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
300 $hops .= ',"h_useat":0';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
301 else if (($hop->USE == 'First wort') || ($hop->USE == 'First Wort'))
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
302 $hops .= ',"h_useat":1';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
303 else if ($hop->USE == 'Aroma')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
304 $hops .= ',"h_useat":3';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
305 else if ($hop->USE == 'Whirlpool')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
306 $hops .= ',"h_useat":4';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
307 else if (($hop->USE == 'Dry hop') || ($hop->USE == 'Dry Hop'))
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
308 $hops .= ',"h_useat":5';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
309 else
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
310 $hops .= ',"h_useat":2'; // Default boil.
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
311
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
312 if ($hop->TIME)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
313 $hops .= ',"h_time":' . floatval($hop->TIME);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
314 else
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
315 $hops .= ',"h_time":0';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
316 $hops .= ',"h_alpha":' . floatval($hop->ALPHA);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
317 $hops .= ',"h_beta":' . floatval($hop->BETA);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
318 $hops .= ',"h_hsi":' . floatval($hop->HSI);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
319 $hops .= ',"h_humulene":' . floatval($hop->HUMULENE);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
320 $hops .= ',"h_caryophyllene":' . floatval($hop->CAROPHYLLENE);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
321 $hops .= ',"h_cohumulone":' . floatval($hop->COHUMULONE);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
322 $hops .= ',"h_myrcene":' . floatval($hop->MYRCENE);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
323 if ($hop->TOTAL_OIL)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
324 $hops .= ',"h_total_oil":' . floatval($hop->TOTAL_OIL);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
325 else
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
326 $hops .= ',"h_total_oil":0';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
327 if ($hop->ORIGIN)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
328 $hops .= ',"h_origin":"' . mysqli_real_escape_string($db, $hop->ORIGIN) . '"';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
329 else
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
330 $hops .= ',"h_origin":""';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
331 $hops .= "}";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
332 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
333 $hops .= ']';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
334 return $hops;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
335 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
336
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
337
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
338
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
339 function recipe_miscs($recipe)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
340 {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
341 global $db;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
342
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
343 $miscs = "[";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
344 $comma = FALSE;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
345 foreach ($recipe->MISCS->MISC as $misc) {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
346 if ($comma)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
347 $miscs .= ',';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
348 $comma = TRUE;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
349 $mname = mysqli_real_escape_string($db, $misc->NAME);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
350 $miscs .= '{"m_name":"' . $mname . '"';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
351 $miscs .= ',"m_amount":' . floatval($misc->AMOUNT);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
352 if ($misc->COST) {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
353 $miscs .= ',"m_cost":' . floatval($misc->COST);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
354 } else {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
355 /* Brouwhulp bug, added water agents have no cost field. */
308
a59413ba4057 Some extra firstcap keywords
Michiel Broek <mbroek@mbse.eu>
parents: 307
diff changeset
356 if (($misc->TYPE == "Water agent") || ($misc->TYPE == "Water Agent")) {
307
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
357 $miscs .= ',"m_cost":'. get_miscs_cost($mname);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
358 } else {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
359 $miscs .= ',"m_cost":0';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
360 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
361 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
362
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
363 if ($misc->TYPE == 'Spice')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
364 $miscs .= ',"m_type":0';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
365 else if ($misc->TYPE == 'Herb')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
366 $miscs .= ',"m_type":1';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
367 else if ($misc->TYPE == 'Flavor')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
368 $miscs .= ',"m_type":2';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
369 else if ($misc->TYPE == 'Fining')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
370 $miscs .= ',"m_type":3';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
371 else if (($misc->TYPE == 'Water agent') || ($misc->TYPE == 'Water Agent'))
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
372 $miscs .= ',"m_type":4';
308
a59413ba4057 Some extra firstcap keywords
Michiel Broek <mbroek@mbse.eu>
parents: 307
diff changeset
373 else if (($misc->TYPE == 'Yeast nutrient') || ($misc->TYPE == 'Yeast Nutrient'))
307
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
374 $miscs .= ',"m_type":5';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
375 else if ($misc->TYPE == 'Other')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
376 $miscs .= ',"m_type":6';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
377 else
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
378 echo "Unknown TYPE " . $misc->TYPE . "<br />";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
379
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
380 if ($misc->USE == 'Starter')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
381 $miscs .= ',"m_use_use":0';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
382 else if ($misc->USE == 'Mash')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
383 $miscs .= ',"m_use_use":1';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
384 else if ($misc->USE == 'Primary')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
385 $miscs .= ',"m_use_use":3';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
386 else if ($misc->USE == 'Secondary')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
387 $miscs .= ',"m_use_use":4';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
388 else if ($misc->USE == 'Bottling')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
389 $miscs .= ',"m_use_use":5';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
390 else
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
391 $miscs .= ',"m_use_use":2'; // Default boil. BrewFather defines 'Sparge', we don't support this even if it's a nice idea.
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
392
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
393 ($misc->AMOUNT_IS_WEIGHT== "TRUE") ? $miscs .= ',"m_amount_is_weight":1' : $miscs.= ',"m_amount_is_weight":0';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
394 if ($misc->TIME) {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
395 $miscs .= ',"m_time":' . floatval($misc->TIME);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
396 } else
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
397 $miscs .= ',"m_time":0';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
398 $miscs .= "}";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
399 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
400 $miscs .= ']';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
401 return $miscs;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
402 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
403
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
404
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
405
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
406 function recipe_yeasts($recipe)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
407 {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
408 global $db;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
409 global $svg;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
410
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
411 $yeasts = "[";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
412 $comma = FALSE;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
413 foreach ($recipe->YEASTS->YEAST as $yeast) {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
414 if ($comma)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
415 $yeasts .= ',';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
416 $comma = TRUE;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
417 $yeasts .= '{"y_name":"' . mysqli_real_escape_string($db, $yeast->NAME) . '"';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
418 if ($yeast->FORM == "Liquid") {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
419 $paks = floatval($yeast->AMOUNT) / 0.0588;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
420 $yeasts .= ',"y_amount":' . $paks;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
421 $yeasts .= ',"y_cost":' . floatval($yeast->COST);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
422 } else {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
423 $yeasts .= ',"y_amount":' . floatval($yeast->AMOUNT);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
424 $yeasts .= ',"y_cost":' . floatval($yeast->COST) * 1000;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
425 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
426
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
427 $yeasts .= ',"y_laboratory":"' . mysqli_real_escape_string($db, $yeast->LABORATORY) . '"';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
428 $yeasts .= ',"y_product_id":"' . mysqli_real_escape_string($db, $yeast->PRODUCT_ID) . '"';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
429
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
430 if ($yeast->TYPE == 'Lager')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
431 $yeasts .= ',"y_type":0';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
432 else if ($yeast->TYPE == 'Ale')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
433 $yeasts .= ',"y_type":1';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
434 else if ($yeast->TYPE == 'Wheat')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
435 $yeasts .= ',"y_type":2';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
436 else if ($yeast->TYPE == 'Wine')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
437 $yeasts .= ',"y_type":3';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
438 else if ($yeast->TYPE == 'Champagne')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
439 $yeasts .= ',"y_type":4';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
440 else
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
441 echo "Unknown TYPE " . $yeast->TYPE . "<br />";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
442
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
443 if ($yeast->FORM == 'Liquid') {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
444 if ($yeast->LABORATORY == 'Imperial Yeast')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
445 $yeasts .= ',"y_form":0,"y_cells":200000000000';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
446 else
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
447 $yeasts .= ',"y_form":0,"y_cells":100000000000';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
448 } else if ($yeast->FORM == 'Dry')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
449 $yeasts .= ',"y_form":1,"y_cells":15000000000';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
450 else if ($yeast->FORM == 'Slant')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
451 $yeasts .= ',"y_form":2,"y_cells":1700000000';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
452 else if ($yeast->FORM == 'Culture')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
453 $yeasts .= ',"y_form":3,"y_cells":1700000000';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
454 else if ($yeast->FORM == 'Frozen')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
455 $yeasts .= ',"y_form":4,"y_cells":1700000000';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
456 else if ($yeast->FORM == 'Bottle')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
457 $yeasts .= ',"y_form":5,"y_cells":1700000000';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
458 else
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
459 echo "Unknown FORM " . $yeast->FORM . "<br />";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
460
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
461 if ($yeast->FLOCCULATION == 'Medium')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
462 $yeasts .= ',"y_flocculation":1';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
463 else if ($yeast->FLOCCULATION == 'High')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
464 $yeasts .= ',"y_flocculation":2';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
465 else if ($yeast->FLOCCULATION == 'Very high')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
466 $yeasts .= ',"y_flocculation":3';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
467 else
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
468 $yeasts .= ',"y_flocculation":0'; // Low, default.
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
469
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
470 if ($yeast->PRODUCT_ID=="F2" || $yeast->PRODUCT_ID=="CBC-1") {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
471 $yeasts .= ',"y_use":3'; // Bottle
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
472 } else if ($yeast->ADD_TO_SECONDARY=="TRUE") {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
473 $yeasts .= ',"y_use":1'; // Secondary
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
474 } else {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
475 $yeasts .= ',"y_use":0'; // Primary
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
476 $svg = floatval($yeast->ATTENUATION);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
477 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
478 $yeasts .= ',"y_min_temperature":' . floatval($yeast->MIN_TEMPERATURE);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
479 $yeasts .= ',"y_max_temperature":' . floatval($yeast->MAX_TEMPERATURE);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
480 $yeasts .= ',"y_attenuation":' . floatval($yeast->ATTENUATION);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
481 $yeasts .= "}";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
482 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
483 $yeasts .= ']';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
484 return $yeasts;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
485 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
486
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
487
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
488
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
489 function recipe_waters($recipe, $db)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
490 {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
491 $waters = "";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
492 $index = 0;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
493 foreach ($recipe->WATERS->WATER as $water) {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
494 $index++;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
495 $waters .= "', w" . $index . "_name='" . mysqli_real_escape_string($db, $water->NAME);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
496 $waters .= "', w" . $index . "_amount='" . floatval($water->AMOUNT);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
497 if ($water->CALCIUM)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
498 $waters .= "', w" . $index . "_calcium='" . floatval($water->CALCIUM);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
499 if ($water->SULFATE)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
500 $waters .= "', w" . $index . "_sulfate='" . floatval($water->SULFATE);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
501 if ($water->CHLORIDE)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
502 $waters .= "', w" . $index . "_chloride='" . floatval($water->CHLORIDE);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
503 if ($water->SODIUM)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
504 $waters .= "', w" . $index . "_sodium='" . floatval($water->SODIUM);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
505 if ($water->MAGNESIUM)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
506 $waters .= "', w" . $index . "_magnesium='" . floatval($water->MAGNESIUM);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
507 if ($water->PH)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
508 $waters .= "', w" . $index . "_ph='" . floatval($water->PH);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
509 if ($water->TOTAL_ALKALINITY)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
510 $waters .= "', w" . $index . "_total_alkalinity='" . floatval($water->TOTAL_ALKALINITY);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
511 if ($water->COST)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
512 $waters .= "', w" . $index . "_cost='" . floatval($water->COST);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
513 else
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
514 $waters .= "', w" . $index . "_cost='0";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
515 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
516 return $waters;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
517 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
518
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
519
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
520
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
521 function recipe_mash_steps($recipe)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
522 {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
523 global $db;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
524
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
525 $steps = '[';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
526 $comma = FALSE;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
527 foreach ($recipe->MASH->MASH_STEPS->MASH_STEP as $step) {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
528 if ($comma)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
529 $steps .= ',';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
530 $comma = TRUE;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
531 $steps .= '{"step_name":"' . mysqli_real_escape_string($db, $step->NAME) . '"';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
532
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
533 if ($step->TYPE == 'Infusion')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
534 $steps .= ',"step_type":0';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
535 else if ($step->TYPE == 'Temperature')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
536 $steps .= ',"step_type":1';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
537 else if ($step->TYPE == 'Decoction')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
538 $steps .= ',"step_type":2';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
539 else
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
540 echo "Unknown step TYPE " . $step->TYPE . "<br />";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
541
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
542 if ($step->INFUSE_AMOUNT)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
543 $steps .= ',"step_infuse_amount":' . floatval($step->INFUSE_AMOUNT);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
544 else
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
545 $steps .= ',"step_infuse_amount":0';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
546 if ($step->STEP_TEMP)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
547 $steps .= ',"step_temp":' . floatval($step->STEP_TEMP);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
548 if ($step->STEP_TIME)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
549 $steps .= ',"step_time":' . floatval($step->STEP_TIME);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
550 if ($step->RAMP_TIME)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
551 $steps .= ',"ramp_time":' . floatval($step->RAMP_TIME);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
552 if ($step->END_TEMP)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
553 $steps .= ',"end_temp":' . floatval($step->END_TEMP);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
554 $steps .= "}";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
555 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
556 $steps .= ']';
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
557 return $steps;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
558 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
559
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
560
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
561 $imported = 0;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
562 $recipes = simplexml_load_file($target_file);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
563 foreach ($recipes->RECIPE as $recipe) {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
564 $f_sugars = 0;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
565 $efficiency = 75;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
566 $batch_size = 20;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
567 $boil_size = 22;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
568 $pCara = 0;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
569 $pSugar = 0;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
570 $svg = 77;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
571 $colorw = 0;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
572 $uuid = str_replace("\n", "", file_get_contents('/proc/sys/kernel/random/uuid'));
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
573
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
574 $sql = "INSERT INTO recipes SET uuid='" . $uuid;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
575 $sql .= "', name='" . mysqli_real_escape_string($db, $recipe->NAME);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
576 $sql .= "', locked='0";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
577 if ($recipe->NOTES)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
578 $sql .= "', notes='" . mysqli_real_escape_string($db, $recipe->NOTES);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
579 else
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
580 $sql .= "', notes='";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
581
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
582 if ($recipe->TYPE == 'Extract')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
583 $sql .= "', type='0";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
584 else if ($recipe->TYPE == 'Partial Mash')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
585 $sql .= "', type='1";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
586 else if ($recipe->TYPE == 'All Grain')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
587 $sql .= "', type='2";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
588 else
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
589 echo "Unknown TYPE " . $recipe->TYPE . "<br />";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
590
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
591 if ($recipe->BATCH_SIZE)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
592 $batch_size = floatval($recipe->BATCH_SIZE);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
593 $sql .= "', batch_size='" . $batch_size;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
594 if ($recipe->BOIL_SIZE)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
595 $boil_size = floatval($recipe->BOIL_SIZE);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
596 $sql .= "', boil_size='" . $boil_size;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
597 if ($recipe->BOIL_TIME)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
598 $sql .= "', boil_time='" . floatval($recipe->BOIL_TIME);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
599 else
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
600 $sql .= "', boil_time='90";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
601 if ($recipe->EFFICIENCY)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
602 $efficiency = floatval($recipe->EFFICIENCY);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
603 $sql .= "', efficiency='" . $efficiency;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
604
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
605 $color_method = 0; // Morey
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
606 if ($recipe->COLOR_METHOD == 'Mosher') {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
607 $color_method = 1;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
608 } else if ($recipe->COLOR_METHOD == 'Daniels') {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
609 $color_method = 2;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
610 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
611 $sql .= "', color_method='" . $color_method;;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
612
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
613
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
614 if ($recipe->IBU)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
615 $sql .= "', est_ibu='" . floatval($recipe->IBU);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
616 if ($recipe->IBU_METHOD == 'Rager')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
617 $sql .= "', ibu_method='1";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
618 else if ($recipe->IBU_METHOD == 'Daniels')
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
619 $sql .= "', ibu_method='2";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
620 else
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
621 $sql .= "', ibu_method='0"; // Tinseth, default
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
622
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
623 if ($recipe->CARBONATION)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
624 $sql .= "', est_carb='" . floatval($recipe->CARBONATION);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
625
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
626 if ($recipe->STYLE) {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
627 $sql .= recipe_style($recipe);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
628 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
629 if ($recipe->CALC_ACID) {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
630 ($recipe->CALC_ACID == "TRUE") ? $sql .= "', calc_acid='1" : $sql .= "', calc_acid='0";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
631 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
632 if ($recipe->TARGET_PH) {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
633 $sql .= "', mash_ph='" . floatval($recipe->TARGET_PH);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
634 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
635 if ($recipe->SPARGE_ACID_TYPE && ($recipe->SPARGE_ACID_TYPE == "Lactic")) {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
636 $sql .= "', sparge_acid_type='0";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
637 } else if ($recipe->SPARGE_ACID_TYPE && ($recipe->SPARGE_ACID_TYPE == "Hydrochloric")) {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
638 $sql .= "', sparge_acid_type='1";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
639 } else if ($recipe->SPARGE_ACID_TYPE && ($recipe->SPARGE_ACID_TYPE == "Phosphoric")) {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
640 $sql .= "', sparge_acid_type='2";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
641 } else if ($recipe->SPARGE_ACID_TYPE && ($recipe->SPARGE_ACID_TYPE == "Sulfuric")) {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
642 $sql .= "', sparge_acid_type='3";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
643 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
644 if ($recipe->ACID_SPARGE_PERC) {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
645 $sql .= "', sparge_acid_perc='" . floatval($recipe->ACID_SPARGE_PERC);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
646 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
647 if ($recipe->LACTIC_SPARGE) {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
648 $sql .= "', sparge_acid_amount='" . floatval($recipe->LACTIC_SPARGE);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
649 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
650 if ($recipe->VOLUME_HLT) {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
651 $sql .= "', sparge_volume='" . floatval($recipe->VOLUME_HLT);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
652 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
653 $sql .= "', sparge_source='0";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
654
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
655 /*
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
656 * Put all ingredients in json arrays
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
657 */
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
658 if ($recipe->FERMENTABLES)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
659 $sql .= "', json_fermentables='" . recipe_fermentables($recipe);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
660 if ($recipe->HOPS)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
661 $sql .= "', json_hops='" . recipe_hops($recipe);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
662 if ($recipe->MISCS)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
663 $sql .= "', json_miscs='" . recipe_miscs($recipe);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
664 if ($recipe->YEASTS)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
665 $sql .= "', json_yeasts='" . recipe_yeasts($recipe);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
666 if ($recipe->WATERS)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
667 $sql .= recipe_waters($recipe, $db);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
668 if ($recipe->MASH) {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
669 $sql .= "',sparge_temp='" . floatval($recipe->MASH->SPARGE_TEMP);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
670 $sql .= "',sparge_ph='" . floatval($recipe->MASH->PH);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
671 if ($recipe->MASH->NAME)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
672 $sql .= "',mash_name='" . mysqli_real_escape_string($db, $recipe->MASH->NAME);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
673 if ($recipe->MASH->MASH_STEPS)
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
674 $sql .= "', json_mashs='" . recipe_mash_steps($recipe);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
675 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
676
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
677 /*
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
678 * Added the calculated values
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
679 * OG, FG, color, IBU
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
680 */
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
681 $og = estimate_sg($f_sugars, $batch_size);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
682 $sql .= "', est_og='" . floatval($og);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
683 $fg = estimate_fg($pSugar, $pCara, 0, 0, 0, $svg, $og);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
684 $sql .= "', est_fg='" . floatval($fg);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
685 $abv = abvol($og, $fg);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
686 $sql .= "', est_abv='" . floatval($abv);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
687 $color = kw_to_ebc($color_method, $colorw);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
688 $sql .= "', est_color='" . floatval($color);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
689 $sql .= "';";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
690 if (! $result = mysqli_query($db, $sql)) {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
691 echo "Fout 6: " . mysqli_error($db) . "<br />";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
692 syslog(LOG_NOTICE, "upl_recipe: result: ".mysqli_error($db));
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
693 } else {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
694 echo "Recept `" . $recipe->NAME . "' toegevoegd<br />";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
695 $lastid = mysqli_insert_id($db);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
696 syslog(LOG_NOTICE, "upl_recipe: inserted record ".$lastid);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
697 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
698 $imported++;
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
699 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
700 if ($imported == 0) {
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
701 echo "Fout 7: geen recepten in dit bestand.<br />";
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
702 }
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
703
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
704
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
705 // Don't clutter the upload directory.
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
706 unlink($target_file);
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
707
75f8b569043c Added beerxml recipe import.
Michiel Broek <mbroek@mbse.eu>
parents:
diff changeset
708 ?>

mercurial