Web interface and MYSQL structures added
[weathermon.git] / web / image_minmax.php
1 <?php // content="text/plain; charset=utf-8"
2
3 error_reporting(E_ALL & ~E_STRICT & ~E_NOTICE);
4
5 include ('config_local.php');
6
7 require_once ('jpgraph/jpgraph.php');
8 require_once ('jpgraph/jpgraph_line.php');
9 require_once ('jpgraph/jpgraph_date.php');
10 require_once ('jpgraph/jpgraph_scatter.php');
11 require_once ('jpgraph/jpgraph_regstat.php');
12
13 if (! ($db = new PDO("mysql:host=$mysql_host;port=$mysql_port;dbname=$mysql_schema",$mysql_user,$mysql_pwd,array( PDO::ATTR_PERSISTENT => false)))) {
14
15   die('Не могу подключиться к БД');
16
17 }  
18
19 $db -> exec('SET CHARACTER SET utf8');
20   
21 $type = $_REQUEST['type'];
22 $sensor=$_REQUEST['sensor'];
23 $param=$_REQUEST['param'];
24 $year=$_REQUEST['year'];
25 $month=$_REQUEST['month'];
26
27 if ($type and $param) {
28   
29   $sensor = intval($sensor);
30   $param = intval($param);
31
32   $q = $db -> prepare(
33     'select s_description from sensors where id='.$sensor
34   );
35   $q -> execute();
36
37   while ($row = $q -> fetch(PDO::FETCH_ASSOC)) {
38     $sensor_name = $row['s_description'];
39   }                                                                
40
41   $q = $db -> prepare(
42     'select st.st_fill_color_top,st.st_fill_color_bottom,st.st_description,u.id,u.unit_group from st_parameters st,units u where st.id='.$param.' and st.st_unit=u.id
43 '
44   );
45   $q -> execute();
46
47   while ($row = $q -> fetch(PDO::FETCH_ASSOC)) {
48     $param_name = $row['st_description'];
49     $from_unit = $row['id'];
50     $unit_group = $row['unit_group'];
51     $fill_color_top=$row['st_fill_color_top'];
52     $fill_color_bottom=$row['st_fill_color_bottom'];
53   }                                                                
54
55   if (!empty($_COOKIE['unit_'.$unit_group])) {
56     $to_unit=intval($_COOKIE['unit_'.$unit_group]);
57   } else {
58     $to_unit=$from_unit;
59   }  
60
61   $q = $db -> prepare(
62     'select u.name_short from units u where u.id='.$to_unit
63   );
64   $q -> execute();
65
66   while ($row = $q -> fetch(PDO::FETCH_ASSOC)) {
67     $param_unit = $row['name_short'];
68   }                     
69   
70   $xdata = array();
71   $ydata = array();
72
73   if ($type == 'month') { 
74
75     $next_year = $year;
76     $next_month = $month+1;
77
78     if ($month==13) {
79     
80       $next_year++;
81       $month=1;
82     
83     }
84
85     $q = $db -> prepare(
86       '
87         select 
88           x,
89           unitconv(min(value),'.$from_unit.','.$to_unit.') min_value,
90           unitconv(max(value),'.$from_unit.','.$to_unit.') max_value
91         from  (
92           select 
93             unix_timestamp(cast(timestamp as date)) x,
94             value
95           from 
96             sensor_values 
97           where 
98             timestamp>=str_to_date(\''.$year.$month.'\',\'%Y%m\')
99             and timestamp<str_to_date(\''.$next_year.$next_month.'\',\'%Y%m\')
100             and sensor_id='.$sensor.'
101             and parameter_id='.$param.'
102           ) t group by x
103         order by x'
104     );
105     
106   } elseif ($type == "year") {
107
108     $next_year = $year+1;
109
110     $q = $db -> prepare(
111       '
112         select 
113           x,
114           unitconv(min(value),'.$from_unit.','.$to_unit.') min_value,
115           unitconv(max(value),'.$from_unit.','.$to_unit.') max_value
116         from  (
117           select 
118             unix_timestamp(
119               DATE_SUB(cast(timestamp as date), INTERVAL DAYOFWEEK(cast(timestamp as date))-1 DAY)
120               ) x,
121             value
122           from 
123             sensor_values 
124           where 
125             timestamp>=str_to_date(\''.$year.'\',\'%Y\')
126             and timestamp<str_to_date(\''.$next_year.'\',\'%Y\')
127             and sensor_id='.$sensor.'
128             and parameter_id='.$param.'
129           ) t group by x
130         order by x'
131     );
132   
133   }
134
135   $q -> execute();
136     
137   while ($row = $q -> fetch(PDO::FETCH_ASSOC)) {
138     
139     $xdata[] = $row['x'];
140     $mindata[] = $row['min_value'];
141     $maxdata[] = $row['max_value'];
142     
143   }                                                                
144
145
146   // Create the graph
147   $g = new Graph(640,480);
148   $g->graph_theme = null;
149
150   //$g->img->SetAntiAliasing();
151
152   // We need a linlin scale since we provide both
153   // x and y coordinates for the data points.
154   $g->SetScale('datlin');
155   $g->xaxis->SetLabelAngle(90);
156   $g->xaxis->SetPos("min");
157
158   // We use a scatterplot to illustrate the original
159   // contro points.
160
161   $bplot = new LinePlot($maxdata,$xdata);
162   $g->Add($bplot);
163   $bplot->SetColor($fill_color_top);
164   $bplot->SetFillGradient($fill_color_top,$fill_color_bottom,100,TRUE);
165   $bplot->SetFillFromYMin(TRUE);        
166   $bplot->SetWeight(4);
167
168   $aplot = new LinePlot($mindata,$xdata);
169   $g->Add($aplot);
170   $aplot->SetColor($fill_color_bottom);
171   $aplot->SetFillGradient($fill_color_bottom,'white',100,TRUE);
172   $aplot->SetFillFromYMin(TRUE);        
173   $aplot->SetWeight(4);
174
175   $g->SetMargin(60,60,60,130);
176   $g->title->Set($sensor_name.'/'.$param_name.', '.$param_unit);
177   $g->title->SetFont(FF_DV_SANSSERIF,FS_BOLD,12);
178   $g->subtitle->Set('(минимальные и максимальные значения за период)');
179   $g->subtitle->SetColor('darkred');
180   $g->SetMarginColor('silver');
181
182   // Add the plots to the graph and stroke
183   $g->Stroke();
184   
185 } else {
186
187   header("Content-Type: text/html; charset=UTF-8");
188   die('Сенсор не выбран!');
189
190 }  
191
192 ?>