web/image.php

   1 <?php // content="text/plain; charset=utf-8"
   2
   3 error_reporting(E_ALL & ~E_STRICT & ~E_NOTICE & ~E_DEPRECATED);
   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('Ð\9dÐµ Ð¼Ð¾Ð³Ñƒ Ð¿Ð¾Ð´ÐºÐ»ÑŽÑ‡Ð¸Ñ‚ÑŒÑ\81Ñ\8f Ðº Ð‘Ð”');
  16
  17 }
  18
  19 $supported = imagetypes();
  20 if( $supported & IMG_PNG )    $img_format="png";
  21 elseif( $supported & IMG_GIF ) $img_format="gif";
  22 elseif( $supported & IMG_JPG ) $img_format="jpeg";
  23 elseif( $supported & IMG_WBMP ) $img_format="wbmp";
  24 elseif( $supported & IMG_XPM ) $img_format="xpm";
  25
  26 $cachefilename = NULL;
  27
  28 $db -> exec('SET CHARACTER SET utf8');
  29
  30 $type = $_REQUEST['type'];
  31 $sensor=$_REQUEST['sensor'];
  32 $param=$_REQUEST['param'];
  33
  34 if ($type and $param) {
  35
  36   $sensor = intval($sensor);
  37   $param = intval($param);
  38
  39   $q = $db -> prepare(
  40     'select s_description from sensors where id='.$sensor
  41   );
  42   $q -> execute();
  43
  44   while ($row = $q -> fetch(PDO::FETCH_ASSOC)) {
  45     $sensor_name = $row['s_description'];
  46   }
  47
  48   $q = $db -> prepare(
  49     'select st.st_dot_color,st.st_line_color,st.st_description,u.id,u.unit_group from st_parameters st,units u where st.id='.$param.' and st.st_unit=u.id'
  50   );
  51   $q -> execute();
  52
  53   while ($row = $q -> fetch(PDO::FETCH_ASSOC)) {
  54     $param_name = $row['st_description'];
  55     $from_unit = $row['id'];
  56     $unit_group = $row['unit_group'];
  57     $dot_color = $row['st_dot_color'];
  58     $line_color = $row['st_line_color'];
  59   }
  60
  61   if (!empty($_COOKIE['unit_'.$unit_group])) {
  62     $to_unit=intval($_COOKIE['unit_'.$unit_group]);
  63   } else {
  64     $to_unit=$from_unit;
  65   }
  66
  67   $q = $db -> prepare(
  68     'select u.name_short,u.prec from units u where u.id='.$to_unit
  69   );
  70   $q -> execute();
  71
  72   while ($row = $q -> fetch(PDO::FETCH_ASSOC)) {
  73     $param_unit = $row['name_short'];
  74     $precision = $row['prec'];
  75   }
  76
  77   $xdata = array();
  78   $ydata = array();
  79
  80   if ($type == 'last24') {
  81
  82     $q = $db -> prepare(
  83       'select unix_timestamp(timestamp) as x,unitconv(value,'.$from_unit.','.$to_unit.') as y from sensor_values where timestamp>adddate(now(), -1) and sensor_id='.$sensor.' and parameter_id='.$param.' order by timestamp'
  84     );
  85
  86     $bottomheight = 130;
  87     $topheight = 40;
  88     $sizex = 1000;
  89     $sizey = 800;
  90     $scale = True;
  91
  92   } elseif ($type == 'last24small') {
  93
  94     $q = $db -> prepare(
  95       'select unix_timestamp(timestamp) as x,unitconv(value,'.$from_unit.','.$to_unit.') as y from sensor_values where timestamp>adddate(now(), -1) and sensor_id='.$sensor.' and parameter_id='.$param.' order by timestamp'
  96     );
  97
  98     $bottomheight = 20;
  99     $topheight = 20;
 100     $sizex = 400;
 101     $sizey = 300;
 102     $scale = False;
 103
 104   } elseif ($type == 'range') {
 105
 106     $curr = intval(date('YmdHis'));
 107
 108     $from = intval($_REQUEST['fromdate']);
 109     $to = intval($_REQUEST['todate']);
 110
 111     if ($curr>$to) {
 112
 113         $cachefilename='meteo.'.$sensor.'.'.$param.'.'.$to_unit.'.'.$from.'-'.$to.'.'.$img_format;
 114
 115     }
 116
 117     $q = $db -> prepare(
 118       'select unix_timestamp(timestamp) as x,unitconv(value,'.$from_unit.','.$to_unit.') as y from sensor_values where timestamp>=str_to_date("'.$from.'","%Y%m%d%H%i%s") and timestamp<=str_to_date("'.$to.'","%Y%m%d%H%i%s") and sensor_id='.$sensor.' and parameter_id='.$param.' order by timestamp'
 119     );
 120
 121     $bottomheight = 60;
 122     $topheight = 40;
 123     $sizex = 1000;
 124     $sizey = 800;
 125     $scale = True;
 126
 127   }
 128
 129   $g = new Graph($sizex,$sizey);
 130
 131   if ($cachefilename) {
 132       if ($g->cache->IsValid($cachefilename)) {
 133
 134           $g->cache->StreamImgFile($g->img,$cachefilename);
 135           return;
 136
 137       } else {
 138
 139           $timeout = 8640000;
 140           $g->SetupCache($cachefilename,$timeout);
 141
 142       }
 143   }
 144
 145   $q -> execute();
 146
 147   while ($row = $q -> fetch(PDO::FETCH_ASSOC)) {
 148
 149     $xdata[] = $row['x'];
 150     $ydata[] = $row['y'];
 151
 152   }
 153
 154
 155   for ($i = 0; $i < count($xdata); ++$i) {
 156
 157     $total_weight=0;
 158     $sum=0;
 159     $maxdelta = 1800;
 160
 161     for ($j = $i; $j < count($xdata); ++$j) {
 162
 163       $delta = abs($xdata[$i]-$xdata[$j]);
 164       if ($delta > $maxdelta) { break; }
 165
 166       $weight = 1-$delta/$maxdelta;
 167       $total_weight += $weight;
 168       $sum += $weight*$ydata[$j];
 169
 170     }
 171
 172     for ($j = $i-1; $j >=0 ; --$j) {
 173
 174       $delta = abs($xdata[$i]-$xdata[$j]);
 175       if ($delta > $maxdelta) { break; }
 176
 177       $weight = 1-$delta/$maxdelta;
 178       $total_weight += $weight;
 179       $sum += $weight*$ydata[$j];
 180
 181     }
 182
 183     $new_val = $sum/$total_weight;
 184     $f_ydata[$i] = $new_val;
 185
 186   }
 187
 188   // Create the graph
 189   $g->graph_theme = null;
 190
 191   $g->img->SetAntiAliasing();
 192
 193   // We need a datlin scale since we provide both
 194   // x and y coordinates for the data points, but x is unix timestamp.
 195   $g->SetScale('datlin');
 196   if ($scale) {
 197     $g->xaxis->SetLabelAngle(90);
 198   } else {
 199     $g->xaxis->HideLabels(True);
 200   }
 201   $g->xaxis->SetPos("min");
 202   $g->yaxis->SetLabelFormat("%0.".$precision."f");
 203 #  $g->xaxis->scale->SetTimeAlign( HOURADJ_1 );
 204
 205
 206   if ($type!="last24small") {
 207
 208     // We use a scatterplot to illustrate the original
 209     // contro points.
 210     $splot = new ScatterPlot($ydata,$xdata);
 211     $g->Add($splot);
 212
 213     //
 214     $splot->mark->SetFillColor($dot_color);
 215     $splot->mark->SetColor($dot_color);
 216     $splot->mark->SetType(MARK_FILLEDCIRCLE);
 217     $splot->mark->SetSize(2);
 218
 219   }
 220
 221   $fplot = new LinePlot($f_ydata,$xdata);
 222   $g->Add($fplot);
 223   $fplot->SetColor($line_color);
 224   $fplot->SetWeight(2);
 225
 226   $g->SetMargin(50,30,$topheight,$bottomheight);
 227   if ($scale) {
 228     $g->title->Set($sensor_name.'/'.$param_name.', '.$param_unit);
 229     $g->title->SetFont(FF_DV_SANSSERIF,FS_BOLD,12);
 230   }
 231   $g->SetMarginColor('lightgray');
 232
 233   $g->xgrid->Show();
 234   $g->xgrid->SetLineStyle('dotted');
 235   $g->ygrid->Show();
 236   $g->ygrid->SetLineStyle('dotted');
 237
 238   // Add the plots to the graph and stroke
 239   $g->Stroke();
 240
 241 } else {
 242
 243   header("Content-Type: text/html; charset=UTF-8");
 244   die('Ð¡ÐµÐ½Ñ\81Ð¾Ñ€ Ð½Ðµ Ð²Ñ‹Ð±Ñ€Ð°Ð½!');
 245
 246 }
 247
 248 ?>