<?php // content="text/plain; charset=utf-8"

error_reporting(E_ALL & ~E_STRICT & ~E_NOTICE);

include ('config_local.php');

require_once ('jpgraph/jpgraph.php');
require_once ('jpgraph/jpgraph_line.php');
require_once ('jpgraph/jpgraph_date.php');
require_once ('jpgraph/jpgraph_scatter.php');
require_once ('jpgraph/jpgraph_regstat.php');

if (! ($db = new PDO("mysql:host=$mysql_host;port=$mysql_port;dbname=$mysql_schema",$mysql_user,$mysql_pwd,array( PDO::ATTR_PERSISTENT => false)))) {

  die('Не могу подключиться к БД');

}  

$supported = imagetypes();
if( $supported & IMG_PNG )    $img_format="png";
elseif( $supported & IMG_GIF ) $img_format="gif";
elseif( $supported & IMG_JPG ) $img_format="jpeg";
elseif( $supported & IMG_WBMP ) $img_format="wbmp";
elseif( $supported & IMG_XPM ) $img_format="xpm";

$cachefilename = NULL;

$db -> exec('SET CHARACTER SET utf8');
  
$type = $_REQUEST['type'];
$sensor=$_REQUEST['sensor'];
$param=$_REQUEST['param'];
$year=$_REQUEST['year'];
$month=$_REQUEST['month'];

if ($type and $param) {
  
  $sensor = intval($sensor);
  $param = intval($param);

  $q = $db -> prepare(
    'select s_description from sensors where id='.$sensor
  );
  $q -> execute();

  while ($row = $q -> fetch(PDO::FETCH_ASSOC)) {
    $sensor_name = $row['s_description'];
  }                                                                

  $q = $db -> prepare(
    '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'
  );
  $q -> execute();

  while ($row = $q -> fetch(PDO::FETCH_ASSOC)) {
    $param_name = $row['st_description'];
    $from_unit = $row['id'];
    $unit_group = $row['unit_group'];
    $fill_color_top=$row['st_fill_color_top'];
    $fill_color_bottom=$row['st_fill_color_bottom'];
  }                                                                

  if (!empty($_COOKIE['unit_'.$unit_group])) {
    $to_unit=intval($_COOKIE['unit_'.$unit_group]);
  } else {
    $to_unit=$from_unit;
  }  

  $q = $db -> prepare(
    'select u.name_short from units u where u.id='.$to_unit
  );
  $q -> execute();

  while ($row = $q -> fetch(PDO::FETCH_ASSOC)) {
    $param_unit = $row['name_short'];
  }                     
  
  $xdata = array();
  $ydata = array();

  if ($type == 'month') { 

    $next_year = $year;
    $next_month = $month+1;

    if ($month==12) {
    
      $next_year++;
      $next_month=1;

    }

    $curr = date("Ym");
    $ym=sprintf('%04d%02d',$next_year,$next_month);
    
    if ($curr>$ym) {
    
      $cachefilename='meteo.month.'.$sensor.'.'.$param.'.'.$to_unit.'.'.$year.'-'.$month.'.'.$img_format;
    
    }

    $datestr=sprintf("%04d%02d01",$year,$month);
    $nextdatestr=sprintf("%04d%02d01",$next_year,$next_month);

    $q = $db -> prepare(
     '
        select 
          x,
          unitconv(min(min),'.$from_unit.','.$to_unit.') min_value,
          unitconv(max(max),'.$from_unit.','.$to_unit.') max_value
        from  (
          select 
            unix_timestamp(day) x,
            min,
            max
          from 
            sensors_ranges 
          where 
            day>=STR_TO_DATE(\''.$datestr.'\',\'%Y%m%d\')
            and day<STR_TO_DATE(\''.$nextdatestr.'\',\'%Y%m%d\')
            and sensor='.$sensor.'
            and parameter='.$param.'
          ) t group by x
        order by x'
    );

  } elseif ($type == "year") {

    $next_year = $year+1;

    $curr = date("Y");
        
    if ($curr>$next_year) {
                
        $cachefilename='meteo.year.'.$sensor.'.'.$param.'.'.$year.'.'.$img_format;
                          
    }

    $datestr=sprintf("%04d0101",$year);
    $nextdatestr=sprintf("%04d0101",$next_year);

    $q = $db -> prepare(
      '
        select 
          x,
          unitconv(min(min),'.$from_unit.','.$to_unit.') min_value,
          unitconv(max(max),'.$from_unit.','.$to_unit.') max_value
        from  (
          select 
            unix_timestamp(
              DATE_SUB(day, INTERVAL DAYOFWEEK(day)-1 DAY)
              ) x,
            min,
            max
          from 
            sensors_ranges
          where 
            day>=STR_TO_DATE(\''.$datestr.'\',\'%Y%m%d\')
            and day<STR_TO_DATE(\''.$nextdatestr.'\',\'%Y%m%d\')
            and sensor='.$sensor.'
            and parameter='.$param.'
          ) t group by x
        order by x'
    );
  
  }

  $g = new Graph(640,480);

  if ($cachefilename) {
      if ($g->cache->IsValid($cachefilename)) {
  
          $g->cache->StreamImgFile($g->img,$cachefilename);
          return;
  
      } else {
  
          $timeout = 8640000;
          $g->SetupCache($cachefilename,$timeout);

      }
  }


  $q -> execute();
    
  while ($row = $q -> fetch(PDO::FETCH_ASSOC)) {
    
    $xdata[] = $row['x'];
    $mindata[] = $row['min_value'];
    $maxdata[] = $row['max_value'];
    
  }                                                                

  // Create the graph
  $g->graph_theme = null;

  //$g->img->SetAntiAliasing();

  // We need a linlin scale since we provide both
  // x and y coordinates for the data points.
  $g->SetScale('datlin');
  $g->xaxis->SetLabelAngle(90);
  $g->xaxis->SetPos("min");
  $g->xaxis->scale->SetTimeAlign( MINADJ_1 );

  // We use a scatterplot to illustrate the original
  // contro points.

  $bplot = new LinePlot($maxdata,$xdata);
  $g->Add($bplot);
  $bplot->SetColor($fill_color_top);
  $bplot->SetFillGradient($fill_color_top.'@0.2',$fill_color_bottom.'@0.9',100,TRUE);
  $bplot->SetFillFromYMin(TRUE);	
  $bplot->SetWeight(4);

  $aplot = new LinePlot($mindata,$xdata);
  $g->Add($aplot);
  $aplot->SetColor($fill_color_bottom);
  $aplot->SetFillGradient($fill_color_bottom.'@0.2','white@0.9',100,TRUE);
  $aplot->SetFillFromYMin(TRUE);	
  $aplot->SetWeight(4);

  $g->SetMargin(60,60,60,130);
  $g->title->Set($sensor_name.'/'.$param_name.', '.$param_unit);
  $g->title->SetFont(FF_DV_SANSSERIF,FS_BOLD,12);
  $g->subtitle->Set('(минимальные и максимальные значения за период)');
  $g->subtitle->SetColor('darkred');
  $g->SetMarginColor('silver');

  $g->xgrid->Show();
  $g->xgrid->SetLineStyle('dotted');
  $g->ygrid->Show();
  $g->ygrid->SetLineStyle('dotted');
        
  // Add the plots to the graph and stroke
  $g->Stroke();
  
} else {

  header("Content-Type: text/html; charset=UTF-8");
  die('Сенсор не выбран!');

}  

?>