#!/user/bin/perl
#A very simple script to output all the var/values pairs sent to it 
#If you are using this to test What's Playing 1.2 RC 1, please take a look at the file
#"c:/Your Winamp Install/Wacs/data/whatsplaying/whatsplaying_http.out
#It should contain a list of all the received var/value pair

use CGI;
$cgi=new CGI;
print "Content-type:text/html \n\n";

#set $file to the full path of the output file at the side of the script
$file='/www/POST.html';
open (FILE,">$file");


for $key ( $cgi->param() ) {
	$input{$key} = $cgi->param($key);
}

for $key ( keys %input ) {
	print FILE $key, ' = ', $input{$key}, "\n";
	print $key, ' = ', $input{$key}, "\n";
}

close FILE;

print "Done printing all values from this script";
exit 1;