mirror of
https://github.com/Dolibarr/dolibarr.git
synced 2025-12-06 09:38:23 +01:00
390 lines
6.9 KiB
PHP
390 lines
6.9 KiB
PHP
<?php
|
|
/*
|
|
* This work is hereby released into the Public Domain.
|
|
* To view a copy of the public domain dedication,
|
|
* visit http://creativecommons.org/licenses/publicdomain/ or send a letter to
|
|
* Creative Commons, 559 Nathan Abbott Way, Stanford, California 94305, USA.
|
|
*
|
|
*/
|
|
|
|
// Artichow configuration
|
|
|
|
// Some useful files
|
|
require_once ARTICHOW."/common.php";
|
|
require_once ARTICHOW."/Component.class.php";
|
|
require_once ARTICHOW."/Image.class.php";
|
|
|
|
require_once ARTICHOW."/inc/Grid.class.php";
|
|
require_once ARTICHOW."/inc/Tools.class.php";
|
|
require_once ARTICHOW."/inc/Drawer.class.php";
|
|
require_once ARTICHOW."/inc/Math.class.php";
|
|
require_once ARTICHOW."/inc/Tick.class.php";
|
|
require_once ARTICHOW."/inc/Axis.class.php";
|
|
require_once ARTICHOW."/inc/Legend.class.php";
|
|
require_once ARTICHOW."/inc/Mark.class.php";
|
|
require_once ARTICHOW."/inc/Label.class.php";
|
|
require_once ARTICHOW."/inc/Text.class.php";
|
|
require_once ARTICHOW."/inc/Color.class.php";
|
|
require_once ARTICHOW."/inc/Font.class.php";
|
|
require_once ARTICHOW."/inc/Gradient.class.php";
|
|
|
|
/**
|
|
* A graph
|
|
*
|
|
* @package Artichow
|
|
*/
|
|
class awGraph extends awImage {
|
|
|
|
/**
|
|
* Graph name
|
|
*
|
|
* @var string
|
|
*/
|
|
var $name;
|
|
|
|
/**
|
|
* Cache timeout
|
|
*
|
|
* @var int
|
|
*/
|
|
var $timeout = 0;
|
|
|
|
/**
|
|
* Graph timing ?
|
|
*
|
|
* @var bool
|
|
*/
|
|
var $timing;
|
|
|
|
/**
|
|
* Components
|
|
*
|
|
* @var array
|
|
*/
|
|
var $components = array();
|
|
|
|
/**
|
|
* Some labels to add to the component
|
|
*
|
|
* @var array
|
|
*/
|
|
var $labels = array();
|
|
|
|
/**
|
|
* Graph title
|
|
*
|
|
* @var Label
|
|
*/
|
|
var $title;
|
|
|
|
/**
|
|
* Construct a new graph
|
|
*
|
|
* @param int $width Graph width
|
|
* @param int $height Graph height
|
|
* @param string $name Graph name for the cache (must be unique). Let it null to not use the cache.
|
|
* @param int $timeout Cache timeout (unix timestamp)
|
|
*/
|
|
function awGraph($width = NULL, $height = NULL, $name = NULL, $timeout = 0) {
|
|
|
|
parent::awImage();
|
|
|
|
$this->setSize($width, $height);
|
|
|
|
if(ARTICHOW_CACHE) {
|
|
|
|
$this->name = $name;
|
|
$this->timeout = $timeout;
|
|
|
|
// Clean sometimes all the cache
|
|
if(mt_rand(0, 5000) === 0) {
|
|
awGraph::cleanCache();
|
|
}
|
|
|
|
if($this->name !== NULL) {
|
|
|
|
$file = ARTICHOW_CACHE_DIRECTORY."/".$this->name."-time";
|
|
|
|
if(is_file($file)) {
|
|
|
|
$type = awGraph::cleanGraphCache($file);
|
|
|
|
if($type === NULL) {
|
|
awGraph::deleteFromCache($this->name);
|
|
} else {
|
|
header("Content-Type: image/".$type);
|
|
readfile(ARTICHOW_CACHE_DIRECTORY."/".$this->name."");
|
|
exit;
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
$this->title = new awLabel(
|
|
NULL,
|
|
new awTuffy(16),
|
|
NULL,
|
|
0
|
|
);
|
|
$this->title->setAlign(LABEL_CENTER, LABEL_BOTTOM);
|
|
|
|
}
|
|
|
|
/**
|
|
* Delete a graph from the cache
|
|
*
|
|
* @param string $name Graph name
|
|
* @return bool TRUE on success, FALSE on failure
|
|
*/
|
|
function deleteFromCache($name) {
|
|
|
|
if(ARTICHOW_CACHE) {
|
|
|
|
if(is_file(ARTICHOW_CACHE_DIRECTORY."/".$name."-time")) {
|
|
unlink(ARTICHOW_CACHE_DIRECTORY."/".$name."");
|
|
unlink(ARTICHOW_CACHE_DIRECTORY."/".$name."-time");
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
/**
|
|
* Delete all graphs from the cache
|
|
*/
|
|
function deleteAllCache() {
|
|
|
|
if(ARTICHOW_CACHE) {
|
|
|
|
$dp = opendir(ARTICHOW_CACHE_DIRECTORY);
|
|
|
|
while($file = readdir($dp)) {
|
|
if($file !== '.' and $file != '..') {
|
|
unlink(ARTICHOW_CACHE_DIRECTORY."/".$file);
|
|
}
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
/**
|
|
* Clean cache
|
|
*/
|
|
function cleanCache() {
|
|
|
|
if(ARTICHOW_CACHE) {
|
|
|
|
$glob = glob(ARTICHOW_CACHE_DIRECTORY."/*-time");
|
|
|
|
foreach($glob as $file) {
|
|
|
|
$type = awGraph::cleanGraphCache($file);
|
|
|
|
if($type === NULL) {
|
|
$name = ereg_replace(".*/(.*)\-time", "\\1", $file);
|
|
awGraph::deleteFromCache($name);
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
/**
|
|
* Enable/Disable Graph timing
|
|
*
|
|
* @param bool $timing
|
|
*/
|
|
function setTiming($timing) {
|
|
$this->timing = (bool)$timing;
|
|
}
|
|
|
|
/**
|
|
* Add a component to the graph
|
|
*
|
|
* @param &$component
|
|
*/
|
|
function add(&$component) {
|
|
|
|
$this->components[] = $component;
|
|
|
|
}
|
|
|
|
/**
|
|
* Add a label to the component
|
|
*
|
|
* @param &$label
|
|
* @param int $x Position on X axis of the center of the text
|
|
* @param int $y Position on Y axis of the center of the text
|
|
*/
|
|
function addLabel(&$label, $x, $y) {
|
|
|
|
$this->labels[] = array(
|
|
$label, $x, $y
|
|
);
|
|
|
|
}
|
|
|
|
/**
|
|
* Add a label to the component with aboslute position
|
|
*
|
|
* @param &$label
|
|
* @param $point Text position
|
|
*/
|
|
function addAbsLabel(&$label, $point) {
|
|
|
|
$this->labels[] = array(
|
|
$label, $point
|
|
);
|
|
|
|
}
|
|
|
|
/**
|
|
* Build the graph and draw component on it
|
|
* Image is sent to the user browser
|
|
*
|
|
* @param string $file Save the image in the specified file. Let it null to print image to screen.
|
|
*/
|
|
function draw($file = NULL) {
|
|
|
|
if($this->timing) {
|
|
$time = microtimeFloat();
|
|
}
|
|
|
|
$this->create();
|
|
|
|
foreach($this->components as $component) {
|
|
|
|
$this->drawComponent($component);
|
|
|
|
}
|
|
|
|
$this->drawTitle();
|
|
$this->drawShadow();
|
|
$this->drawLabels();
|
|
|
|
if($this->timing) {
|
|
$this->drawTiming(microtimeFloat() - $time);
|
|
}
|
|
|
|
if(ARTICHOW_CACHE and $this->name !== NULL) {
|
|
ob_start();
|
|
}
|
|
|
|
$this->send($file);
|
|
|
|
if(ARTICHOW_CACHE and $this->name !== NULL) {
|
|
|
|
$data = ob_get_contents();
|
|
|
|
if(is_writable(ARTICHOW_CACHE_DIRECTORY) === FALSE) {
|
|
trigger_error("Cache directory is not writable");
|
|
}
|
|
|
|
$file = ARTICHOW_CACHE_DIRECTORY."/".$this->name."";
|
|
file_put_contents($file, $data);
|
|
|
|
$file .= "-time";
|
|
file_put_contents($file, $this->timeout."\n".$this->getFormat());
|
|
|
|
ob_clean();
|
|
|
|
echo $data;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
function drawLabels() {
|
|
|
|
$drawer = $this->getDrawer();
|
|
|
|
foreach($this->labels as $array) {
|
|
|
|
if(count($array) === 3) {
|
|
|
|
// Text in relative position
|
|
list($label, $x, $y) = $array;
|
|
|
|
$point = new awPoint(
|
|
$x * $this->width,
|
|
$y * $this->height
|
|
);
|
|
|
|
} else {
|
|
|
|
// Text in absolute position
|
|
list($label, $point) = $array;
|
|
|
|
}
|
|
|
|
$label->draw($drawer, $point);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
function drawTitle() {
|
|
|
|
$drawer = $this->getDrawer();
|
|
|
|
$point = new awPoint(
|
|
$this->width / 2,
|
|
10
|
|
);
|
|
|
|
$this->title->draw($drawer, $point);
|
|
|
|
}
|
|
|
|
function drawTiming($time) {
|
|
|
|
$drawer = $this->getDrawer();
|
|
|
|
$label = new awLabel;
|
|
$label->set("(".sprintf("%.3f", $time)." s)");
|
|
$label->setAlign(LABEL_LEFT, LABEL_TOP);
|
|
$label->border->show();
|
|
$label->setPadding(1, 0, 0, 0);
|
|
$label->setBackgroundColor(new awColor(230, 230, 230, 25));
|
|
|
|
$label->draw($drawer, new awPoint(5, $drawer->height - 5));
|
|
|
|
}
|
|
|
|
function cleanGraphCache($file) {
|
|
|
|
list(
|
|
$time,
|
|
$type
|
|
) = explode("\n", file_get_contents($file));
|
|
|
|
$time = (int)$time;
|
|
|
|
if($time !== 0 and $time < time()) {
|
|
return NULL;
|
|
} else {
|
|
return $type;
|
|
}
|
|
|
|
|
|
}
|
|
|
|
}
|
|
|
|
registerClass('Graph');
|
|
|
|
/*
|
|
* To preserve PHP 4 compatibility
|
|
*/
|
|
function microtimeFloat() {
|
|
list($usec, $sec) = explode(" ", microtime());
|
|
return (float)$usec + (float)$sec;
|
|
}
|
|
?>
|