<?php
/**
  *
		Licensed under WTFPL - DoWhatTheFuckYouWant Public License
		(c) Hugues Hiegel 2006-2008 <hugues@hiegel.fr>

		Thanks to Pavel Zbytovský - www.zby.cz
			for saving me time with the MySQL stuff !


CREATE TABLE `users` (
	`username` varchar(100) NOT NULL,
	`statsstart` bigint(11) NOT NULL,
	`playcount` int(10) unsigned NOT NULL,
	`lastupdate` bigint(11) unsigned NOT NULL,
	`lastchecked` bigint(11) unsigned NOT NULL,
	PRIMARY KEY  (`username`)
) ;

CREATE TABLE `badges` (
	`username` varchar(100) NOT NULL,
	`type` varchar(100) NOT NULL,
	`style` varchar(100) NOT NULL,
	`color` varchar(100) NOT NULL,
	`lastupdate` bigint(11) default NULL,
	`hits` bigint(20) unsigned NOT NULL,
	`lasthit` bigint(11) unsigned default NULL,
	`png` varchar(100) NOT NULL,
	PRIMARY KEY  (`username`,`type`)
);

  *
  */

/*get the parameters*/
$Pathinfo=$_SERVER['PATH_INFO'];
$pathinfo=explode("/", $Pathinfo);
$script=explode("/", $_SERVER['SCRIPT_NAME']);

$username=$pathinfo[1];
$type=$pathinfo[2];
$style=$pathinfo[3];
$color=$pathinfo[4];


include("Config.BigLine.php");


mysql_connect(MYSQL_HOST, MYSQL_USER);
mysql_select_db(MYSQL_DB);

/*make cache data (array $data)*/
$res = mysql_query("SELECT * FROM users WHERE username='" . gpc_addslashes(strtolower($username)) . "'");
$data = mysql_fetch_assoc($res);

if(($username AND !mysql_num_rows($res))
// Check once every hour.
OR ($data['lastchecked'] AND $data["lastchecked"]+3600 < time()))
  make_db_cache($username);

/*output image cache*/
$user=strtolower(rawurlencode($username))
$Cache=CACHE_FOLDER."/Pictures/".substr($user, 0, 2)."/".$user."_$type-$style-$color.png";

//clearstatcache();

if (is_file($Cache))
{
	SendCacheHeaders($data["lastupdate"], CACHE);
}

/*-----------------------------------------------------------
	Expired.
		Ok, now we are ready to create the image with GD.
*/

$Lines = array();
$Lines[] = new Text;

if (! $data["playcount"])
{
	header('Location: /out-of-order.png');
	exit();
}
else
{
	$playcount = $data['playcount'];
	$statsstart = $data['statsstart'];

	$res = mysql_query("SELECT * FROM badges WHERE username='" . gpc_addslashes(strtolower($username)) . "' AND type='$type' AND style='$style' AND color='$color';");
	$badge = mysql_fetch_assoc($res);

	if (  !is_file($Cache)
	   OR (filemtime($Cache) < $data['lastupdate'])
	   OR !filesize($Cache)
	   )
	{

		$duration =  $_SERVER['REQUEST_TIME'] - $statsstart;
		$months = $duration / (60*60*24*30);
		$weeks  = $duration / (60*60*24*7);
		$days   = $duration / (60*60*24);

		$TracksPerDay = floor($playcount / $days);
		$TracksPerWeek = floor($playcount / $weeks);
		$TracksPerMonth = floor($playcount / $months);
		define("TRACKS_PER_ALBUM", 13);
		$AlbumsPerDay = floor($TracksPerDay / TRACKS_PER_ALBUM);
		$AlbumsPerWeek = floor($TracksPerWeek / TRACKS_PER_ALBUM);
		$AlbumsPerMonth = floor($TracksPerMonth / TRACKS_PER_ALBUM);

		$formats = array("DEFAULT"	=> "\$number \$albumtrack per \$dayweekmonth",
						 "Total"	=> "\$number \$albumtrack played",
						 "Trueness"	=> "\$username is \$trueness listener",
						 "Since"	=> "Since \$since");

		switch($type)
		{
			case "AlbumsPerDay":
			case "AlbumsPerWeek":
			case "AlbumsPerMonth":
			case "TracksPerDay":
			case "TracksPerWeek":
			case "TracksPerMonth":
				$format="DEFAULT";
				preg_match("/^(Album|Track)sPer(Day|Week|Month)$/",$type,$match);
				$albumtrack=$match[1];
				$dayweekmonth=$match[2];
				eval("\$number=\$".$albumtrack."sPer".$dayweekmonth.";");
				$albumtrack .= ($number != 1 ? 's' : '');
				break;
			case "Trueness":
				$format=$type;
				$trueness = ($TracksPerMonth < TRUENESS ? "a true" : "an untrue");
				break;
			case "Since":
				$format=$type;
				$since=strftime("%B %Y", $statsstart);
				break;
			case "TotalTracks":
			case "TotalAlbums":
				$format="Total";
				preg_match("/^Total(Track|Album)s$/",$type,$match);
				$albumtrack=$match[1];
				switch ($albumtrack.'s')
				{
					case "Tracks":
						$number=$playcount;
						$albumtrack.=($number != 1 ? 's' : '');
						break;
					case "Albums":
						$number = floor($playcount / TRACKS_PER_ALBUM);
						$albumtrack.=($number != 1 ? 's' : '');
						break;
				}
				break;
			default:
				header('Location: /out-of-order.png');
				exit();
				break;
		}

		define("ANGLE",2);
		$y=0;

		$username=ucfirst($username);
		foreach ($Lines as $Line)
		{
			eval("\$Line->value=\"$formats[$format]\";");
			$Line->font = "" . $Styles[$style];
			$Line->angle=ANGLE;

			$size=imageftbbox($Line->size, $Line->angle, $Line->font, $Line->value);
			$Line->initiate($size);
			$y+=$Line->height + 20;
			$Line->y = $y - 15;
			$Line->x += 10;
		}
		$username=strtolower($username);

		$Image = new Text;
		$Image->width   = WIDTH + 20;
		$Image->height  = $y;

		$img=imagecreatetruecolor($Image->width, $Image->height);
		imagealphablending($img, FALSE);
		imagesavealpha($img, TRUE);

		foreach ($Lines as $Line)
		{
			$Line->color=imagecolorallocate($img, GetColor("r", $Colors[$color]),
												  GetColor("g", $Colors[$color]),
												  Getcolor("b", $Colors[$color]));
		}
		$transparent=imagecolorallocatealpha($img, 255, 255, 255, 127);

		imagefilledrectangle($img, 0, 0, $Image->width, $Image->height, $transparent);

		foreach ($Lines as $Line)
		{
			//if ($username == "gugusse") imagerectangle($img, 0, 0, $Image->width - 1, $Image->height - 1, $Line->color);
			imagettftext($img, $Line->size, $Line->angle, $Line->x, $Line->y, $Line->color, $Line->font, $Line->value);
		}


		imagepng($img, $Cache);
		imagedestroy($img);

		$QUERY=sprintf("REPLACE INTO badges (username, type, style, color, lastupdate, png) VALUES ('%s','%s','%s','%s', %s, '%s');", 
			  $username,
			  $type,
			  $style,
			  $color,
			  time(),
			  $Cache );
		//echo $QUERY;
		mysql_query($QUERY);
	}

	if (is_file($Cache))
	{
		touch_badge($username, $type, $style, $color);
		header("Content-Type: image/png");
		echo @file_get_contents($Cache);
	}
}

//------------ END -----------------------------------------------//


function GetGMT($time)
{
	return gmdate("D, d M Y H:i:s", $time) . " GMT";
}

function SendCacheHeaders($lastmodified, $maxage, $limit="public")
{
	$LastModified = GetGMT($lastmodified);
	if (array_key_exists("HTTP_IF_MODIFIED_SINCE", $_SERVER) &&
	    $_SERVER['HTTP_IF_MODIFIED_SINCE'] == "$LastModified")
	{
		header("HTTP/1.1 304 Not Modified");
		exit;
	}

	/* Give a fresh copy */
	$Expires = GetGMT($_SERVER['REQUEST_TIME'] + $maxage);
	header("Cache-Control: max-age=$maxage, $limit");
	header("Last-Modified: $LastModified");
	header("Expires: $Expires");
}


function make_db_cache($username){
  global $data;
  $profile_xml = @file_get_contents("http://ws.audioscrobbler.com/1.0/user/".rawurlencode($username)."/profile.xml");

  $feed=new XMLReader();
  if($profile_xml && $feed->xml($profile_xml)){

	$modified = FALSE;

	while ($feed->read())
	{
		switch ($feed->name)
		{
			case "playcount":
				$feed->read();
				$value = intval($feed->value);
				if ($data['playcount'] != $value)
				{
					$data['playcount']=$value;
					$modified=TRUE;
				}
				$feed->read();
				break;

			case "registered":
			case "statsreset":
				$value = $feed->getAttribute("unixtime");
				if ($data['statsstart'] != $value)
				{
					$data['statsstart']=$value;
					$modified = TRUE;
				}
				$feed->read();
				$feed->read();
				break;

			case "profile":
				$value = $feed->getAttribute("username");
				if ($data['username'] != $value)
				{
					$data['username']=$value;
					$modified = TRUE;
				}
				break;
		}
	}


	if ($data['playcount'] != 0)
	{
		$data['lastchecked']=time();
		if ($modified)
			$data['lastupdate']=$data['lastchecked'];

		$QUERY=(sprintf("REPLACE INTO users (lastupdate,lastchecked,playcount,statsstart,username) VALUES ('%s',%s,'%s','%s','%s');",
		  $data['lastupdate'], $data['lastchecked'], $data['playcount'], gpc_addslashes($data['statsstart']), gpc_addslashes(strtolower($username))));
		mysql_query($QUERY);
	}
  }
}

function touch_badge($username, $type, $style, $color)
{
	$res = mysql_query("SELECT hits FROM badges WHERE username='" . gpc_addslashes(strtolower($username)) . "' AND type='$type' AND style='$style' AND color='$color';");
	$data = mysql_fetch_assoc($res);

	//if(mysql_num_rows($res))
	$hits = @$data["hits"];
	$hits++;

	$QUERY=sprintf("UPDATE badges SET hits=%s, lasthit='%s' WHERE username='%s' AND type='$type' AND style='$style' AND color='$color';", 
		$hits, time(), gpc_addslashes(strtolower($username)));
	//echo $QUERY;
	mysql_query($QUERY);
}

function gpc_addslashes($str){
  return (get_magic_quotes_gpc() ? $str : addslashes($str));
}

function GetColor($color, $code) {
	switch($color)
	{
		case "r":
			return ($code >> 16) & 0xff;
			break;
		case "g":
			return ($code >>  8) & 0xff;
			break;
		case "b":
			return ($code >>  0) & 0xff;
			break;
	}
}


class Text {
	var $width = 0;
	var $height = 0;
	var $x = 0;
	var $y = 0;

	var $font = "";
	var $size = 300; // High values to better quality
	var $angle = 0;
	var $color = 0;
	var $value = "";

	function initiate($size) {
		$this->width = abs(
			max($size[0], $size[2], $size[4], $size[6])
		  - min($size[0], $size[2], $size[4], $size[6])
		  );
		$this->height= abs(
		    max($size[1], $size[3], $size[5], $size[7])
		  - min($size[1], $size[3], $size[5], $size[7])
		  );

		$ratio = WIDTH / $this->width;

		$this->width *= WIDTH;
		$this->height *= $ratio;
		$this->size *= $ratio;
	}
}