From ab117cb1e09998929e19d21291accf73a9e24e13 Mon Sep 17 00:00:00 2001
From: Hugues Hiegel <hugues@hiegel.fr>
Date: Fri, 18 Jan 2008 16:29:43 +0100
Subject: Repository creation from my ~/www

---
 Last.fm.php | 199 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 199 insertions(+)
 create mode 100644 Last.fm.php

(limited to 'Last.fm.php')

diff --git a/Last.fm.php b/Last.fm.php
new file mode 100644
index 0000000..228b6a8
--- /dev/null
+++ b/Last.fm.php
@@ -0,0 +1,199 @@
+<?
+
+$Pathinfo=$_SERVER['PATH_INFO'];
+$pathinfo=explode("/", $Pathinfo);
+$script=explode("/", $_SERVER['SCRIPT_NAME']);
+
+$type=$script[3];
+$username=$pathinfo[1];
+if ($username == "") $username="gugusse";
+
+//$Stats=".lastfm/Stats/".strtolower(rawurlencode($username)).".xml";
+$Cache="/blackhole/.lastfm/Oldies/UNAVAILABLE.png";
+//$Cache="";
+$CacheTime = array("Monthly"     => 7*24*60*60,
+			   	   "TotalTracks" => 600,
+				   "TrueFalse"   => 7*24*60*60);
+
+if (! array_key_exists($type, $CacheTime))
+	exit;
+
+header("Content-Type: image/png");
+
+/*if ( ! is_file($Stats)
+	||(filemtime($Stats) + $CACHE < $_SERVER['REQUEST_TIME']))
+{
+//	system("wget --no-cache http://ws.audioscrobbler.com/1.0/user/".rawurlencode($username)."/profile.xml -O $Stats");
+}*/
+
+if (   is_file($Cache)
+/*	&& is_file($Stats) 
+    &&(filemtime($Cache) > filemtime($Stats))*/
+   )
+{
+	$fd=fopen($Cache, "r");
+	echo fread($fd, filesize($Cache));
+	fclose($fd);
+	exit;
+}
+
+putenv("GDFONTPATH=/usr/share/fonts/truetype");
+
+class Text {
+	var $width = 0;
+	var $height = 0;
+	var $x = 0;
+	var $y = 0;
+
+	var $font = "import/typeo___";
+	var $size = 0;
+	var $angle = 0;
+	var $color = 0;
+	var $value = "";
+
+	function initiate($size) {
+		$this->width = max($size[0], $size[2], $size[4], $size[6]) - min(0, $size[0], $size[2], $size[4], $size[6]);
+		$this->height= max($size[1], $size[3], $size[5], $size[7]) - min(0, $size[1], $size[3], $size[5], $size[7]);
+	}
+}
+
+/*system("wget http://ws.audioscrobbler.com/1.0/user/gugusse/friends.txt -O - | grep -i $username > /dev/null", $exitcode);*/
+
+$MainText = new Text;
+$Info = new Text;
+
+//$feed=new XMLReader();
+/*if ($feed->open("$Stats"))
+	while ($feed->read())
+	{
+		switch ($feed->name)
+		{
+			case "playcount":
+				$feed->read();
+				$playcount=$feed->value;
+				$feed->read();
+				break;
+
+			case "registered":
+			case "statsreset":
+				$registration=$feed->getAttribute("unixtime");
+				$feed->read();
+				$feed->read();
+				break;
+
+			case "profile":
+				$username=$feed->getAttribute("username");
+				break;
+		}
+	}*/
+
+/*if (! $playcount)
+{
+	$MainText->value="Sorry, $username is not";
+	$Info->value="a valid Last.fm account";
+	$MainText->size=30;
+	$MainText->angle=2;
+	$Info->angle=1;
+	$Info->size=30;
+	$FinalHeight=50;
+	$Cache="";
+}
+else*/
+{
+/*	$TrueFalse =  $_SERVER['REQUEST_TIME'] - $registration;
+	$TrueFalse /= (60*60*24*30);
+	$TrueFalse = floor($playcount / $TrueFalse);*/
+	$MainText->size=180;
+
+	switch($type)
+	{
+		default:
+			$MainText->value = "Not available anymore";
+			$MainText->size = 180;
+			$Info->value = "Go check Updates";
+			$Info->size = 150;
+			$MainText->angle = 1;
+			$Info->angle = 1;
+			$FinalHeight=50;
+			break;
+	}
+}
+
+$size=imageftbbox($MainText->size, $MainText->angle, $MainText->font, $MainText->value);
+$MainText->initiate($size);
+$MainText->x=0;
+$MainText->y=$MainText->height;
+if ($Info->value != "")
+{
+	$size=imageftbbox($Info->size, $Info->angle, $Info->font, $Info->value);
+	$Info->initiate($size);
+	$Info->x=0;
+	$Info->y=$MainText->height + $Info->height;
+}
+
+$Image = new Text;
+$Image->width=max($MainText->width, $Info->width);
+$Image->height=$MainText->height;
+$Image->height+=$Info->height;
+
+$MainText->x = max(0, floor(($Image->width - $MainText->width) / 2));
+$MainText->y = 0;
+$Info->x = max(0, floor(($Image->width - $Info->width) / 2));
+$Info->y = $MainText->height + 1;
+
+$img=imagecreatetruecolor($Image->width, $Image->height);
+
+if (   isset($TrueFalse)
+    && $TrueFalse > 3000)
+	$MainText->color=imagecolorallocate($img, 0, 0, 0);
+else
+	$MainText->color=imagecolorallocate($img, 220, 50, 50);
+$Info->color=$MainText->color;
+
+imagealphablending($img, FALSE);
+$transparent=imagecolorallocatealpha($img, 255, 255, 255, 127);
+$area=imagefilledrectangle($img, 0, 0, $Image->width, $Image->height, $transparent);
+
+imagealphablending($img, TRUE);
+imagettftext($img, $MainText->size, $MainText->angle, $MainText->x, $MainText->y + $MainText->height - 1, $MainText->color, $MainText->font, $MainText->value);
+if ($Info->value != "")
+	imagettftext($img, $Info->size, $Info->angle, $Info->x, $Info->y + $Info->height - 1, $Info->color, $Info->font, $Info->value);
+
+$new=imagecreatetruecolor(150, $FinalHeight);
+imagealphablending($new, FALSE);
+$white=imagecolorallocatealpha($new, 255, 255, 255, 0);
+$area=imagefilledrectangle($new, 0, 0, 150, $FinalHeight, $white);
+imagealphablending($new, FALSE);
+
+$y=floor($MainText->height * $FinalHeight / $Image->height);
+
+imagecopyresampled($new,
+				   																	$img,
+				   0,
+				   0,
+																					$MainText->x,
+																					$MainText->y,
+				   150,
+				   $y,
+																					$MainText->width,
+																					$MainText->height);
+
+if ($Info->value != "")
+	imagecopyresampled($new,
+					   																$img,
+					   0,
+					   $y + 1,
+					   																$Info->x,
+																					$Info->y,
+					   150,
+					   ceil($Info->height * $FinalHeight / $Image->height),
+					   																$Info->width,
+																					$Info->height);
+	//imagecopyresampled($new, $img, 0, 0, 0, 0, 150, $FinalHeight, $Image->width, $Image->height);
+
+if ($Cache != "") imagepng($new, $Cache);
+imagepng($new);
+imagedestroy($img);
+imagedestroy($new);
+
+?>
-- 
cgit v1.2.3