Gazelle/sections/stats/torrents.php
2015-11-07 08:00:28 +00:00

93 lines
2.8 KiB
PHP

<?
if (!list($Labels, $InFlow, $OutFlow, $NetFlow, $Max) = $Cache->get_value('torrents_timeline')) {
$DB->query("
SELECT DATE_FORMAT(Time,'%b \'%y') AS Month, COUNT(ID)
FROM log
WHERE Message LIKE 'Torrent % was uploaded by %'
GROUP BY Month
ORDER BY Time DESC
LIMIT 1, 12");
$TimelineIn = array_reverse($DB->to_array());
$DB->query("
SELECT DATE_FORMAT(Time,'%b \'%y') AS Month, COUNT(ID)
FROM log
WHERE Message LIKE 'Torrent % was deleted %'
GROUP BY Month
ORDER BY Time DESC
LIMIT 1, 12");
$TimelineOut = array_reverse($DB->to_array());
$DB->query("
SELECT DATE_FORMAT(Time,'%b \'%y') AS Month, COUNT(ID)
FROM torrents
GROUP BY Month
ORDER BY Time DESC
LIMIT 1, 12");
$TimelineNet = array_reverse($DB->to_array());
foreach ($TimelineIn as $Month) {
list($Label, $Amount) = $Month;
if ($Amount > $Max) {
$Max = $Amount;
}
}
foreach ($TimelineOut as $Month) {
list($Label, $Amount) = $Month;
if ($Amount > $Max) {
$Max = $Amount;
}
}
foreach ($TimelineNet as $Month) {
list($Label, $Amount) = $Month;
if ($Amount > $Max) {
$Max = $Amount;
}
}
foreach ($TimelineIn as $Month) {
list($Label, $Amount) = $Month;
$Labels[] = $Label;
$InFlow[] = number_format(($Amount / $Max) * 100, 4);
}
foreach ($TimelineOut as $Month) {
list($Label, $Amount) = $Month;
$OutFlow[] = number_format(($Amount / $Max) * 100, 4);
}
foreach ($TimelineNet as $Month) {
list($Label, $Amount) = $Month;
$NetFlow[] = number_format(($Amount / $Max) * 100, 4);
}
$Cache->cache_value('torrents_timeline', array($Labels, $InFlow, $OutFlow, $NetFlow, $Max), mktime(0, 0, 0, date('n') + 1, 2)); //Tested: fine for dec -> jan
}
include_once(SERVER_ROOT.'/classes/charts.class.php');
$DB->query("
SELECT tg.CategoryID, COUNT(t.ID) AS Torrents
FROM torrents AS t
JOIN torrents_group AS tg ON tg.ID = t.GroupID
GROUP BY tg.CategoryID
ORDER BY Torrents DESC");
$Groups = $DB->to_array();
$Pie = new PIE_CHART(750, 400, array('Other' => 1, 'Percentage' => 1));
foreach ($Groups as $Group) {
list($CategoryID, $Torrents) = $Group;
$CategoryName = $Categories[$CategoryID - 1];
$Pie->add($CategoryName, $Torrents);
}
$Pie->transparent();
$Pie->color('FF33CC');
$Pie->generate();
$Categories = $Pie->url();
View::show_header('Detailed torrent statistics');
?>
<div class="box pad center">
<h1>Uploads by month</h1>
<img src="https://chart.googleapis.com/chart?cht=lc&amp;chs=880x160&amp;chco=000D99,99000D,00990D&amp;chg=0,-1,1,1&amp;chxt=y,x&amp;chxs=0,h&amp;chxl=1:|<?=implode('|', $Labels)?>&amp;chxr=0,0,<?=$Max?>&amp;chd=t:<?=implode(',', $InFlow)?>|<?=implode(',', $OutFlow)?>|<?=implode(',', $NetFlow)?>&amp;chls=2,4,0&amp;chdl=Uploads|Deletions|Remaining&amp;chf=bg,s,FFFFFF00" alt="User Flow Chart" />
</div>
<div class="box pad center">
<h1>Torrents by category</h1>
<img src="<?=$Categories?>" alt="" />
</div>
<?
View::show_footer();