{
Script to submit song info to the TuneIn AIR API (http://tunein.com/broadcasters/api/).
The stationId, partnerId and partnerKey values need to be set for this to work.
}

const STATION_ID = 'sXXXX';
const PARTNER_ID = 'partnerId';
const PARTNER_KEY = 'partnerKey';

var player : TPlayer;
var song : TSongInfo;
var baseUrl: String;

FUNCTION urlEncode(s: String): String; forward;
PROCEDURE update(stationId, partnerId, partnerKey, artist, title : String); forward;

{Main}
PAL.Loop := true;

PAL.WaitForPlayCount(1);
player := ActivePlayer;
IF ( player <> NIL ) THEN
BEGIN
	IF ( player.Duration > 45000 ) THEN
	BEGIN
		song := player.GetSongInfo;
		IF ( song <> NIL ) THEN
		BEGIN
			update(STATION_ID, PARTNER_ID, PARTNER_KEY, song['artist'],song['title']);
			song.Free;
		END;
	END;
END;

FUNCTION urlEncode(s: String): String;
BEGIN
	var index : integer;
	var intVal : integer;
	result := '';

	PAL.LockExecution;
	
	IF (Length(s)) > 0 THEN
	BEGIN
		FOR index := 1 TO length(s) DO
		BEGIN
			intVal := Ord(s[index]);
			IF ((intVal > 47) AND (intVal < 58)) OR ((intVal > 64) AND (intVal < 91)) OR ((intVal > 96) AND (intVal < 123))  THEN
			BEGIN
				result := result + (s[index])
			END
			ELSE
			BEGIN
				IF ( intVal < 128 ) THEN
				BEGIN
					result := result + '%' + IntToHex(intVal, 2);
				END
				ELSE IF ( intVal < 2048 ) THEN
				BEGIN
					result := result + '%' + IntToHex( $C0 or Trunc( intVal / 64 ), 2 ) + '%' + IntToHex( $BF and intVal, 2 );
				END
				ELSE
				BEGIN
					// not yet supported
				END;
			END;
		END;
	END;
	PAL.UnlockExecution;
END;

PROCEDURE update(stationId, partnerId, partnerKey, artist, title : String);
BEGIN
	var req : String;
	req := 'http://air.radiotime.com/Playing.ashx?id=' + stationId
	+ '&partnerId=' + urlEncode(partnerId)
	+ '&partnerKey=' + urlEncode(partnerKey)
		+ '&title=' + urlEncode(title)
		+ '&artist=' + urlEncode(artist);

	WebToStr(req);
END;