#!/usr/bin/perl

use CGI;
$q=new CGI;

$file='FILL_IN_YOUR_FILES_FULL_PATH/wp_POST.txt';
$playing=$q->param('p');
$history=$q->param('history');

$song1=$q->param('Title1');
$song2=$q->param('Title2');

open (FILE,">$file");

print FILE "<BR><CENTER>My Playlist at this moment</CENTER><BR>\n";
if ($playing eq '1') {
	print FILE "Currently Playing: $song1<br><br>\n";
	if($history>1) {print FILE "Previously Played:<ul><li>$song2\n";}
}
else {
	print FILE "I am not listening to anything right now.<br><br>\n";
	print FILE "Previously Played:<ul><li>$song1\n";
	if($history>1) {print FILE "<li>$song2\n";}
}

for($i=3;$i<=$history;$i++)
{
	$temp='Title'.$i;
	$temp1=$q->param($temp);
	print FILE "<li>$temp1\n";
}
print FILE "</ul>";
print FILE "<br><br><font size=1>Generated  by <a href=\"http://www.srijith.net/codes/whatsplaying\">What's Playing 1.2</a> for <a href=\"http://www.winamp.com\">Winamp 3.0</a>";
close FILE;
exit 1;