tiny.pl

#!/usr/bin/perl -w

# Uses the Tinysong and Posterous APIs to embed a player for a song search. 
# Requires a creds.txt file which contains exactly two lines, with the username # on the first line, and the password on the second in plaintext.
# by modifying the posterous query settings, you can post to your own 
# whatever.posterous.com blog.

# This search takes a string from the command line which may contain any 
# information pertaining to song title, artist name, or album title.  Tinysong 
# automatically finds the most popular song that corresponds to the search and 
# returns, among other details, the songID that will be used in the creation of # the widget.  The widget is then posted to Posterous in the 'body' form 
# element.  I don't really know why, but there has to be a space between the 
# "body=" and the "<object width=" otherwise posterous says the content is 
# invalid... oh well.  Finally, Posterous returns some XML to describe the 
# success or failure of the post.  There are other variables available (see 
# the Posterous API for details on the returned XML) but I simply grab the 
# short url and print it.  By default, this script does not set to autopost 
# on Posterous to your other connected sites - you can easily enable that by 
# changing autopost to '1'.  Enjoy! 


require LWP::UserAgent;
require HTML::Parser;
use URI;
use XML::Simple;

my @creds;
open (CREDS, "creds.txt") || die "fill in your creds.txt.";
while (my $line = <CREDS>){
 push(@creds, $line);}
close(CREDS);
$creds[0] =~ s/\n//g;
$creds[1] =~ s/\n//g;

my $ua = LWP::UserAgent->new;
 $ua->timeout(10);
 $ua->env_proxy;
 $ua->credentials("posterous.com:80",'Posterous',$creds[0],$creds[1]);

my $request = shift;
 while (@ARGV) {$request .= " " . shift;}
 my $url = URI->new( "http://www.tinysong.com/b/$request" );
 
my @songinfo = split(/; /, $ua->get($url)->decoded_content);
 my $htmlresults = qq~ <object width="250" height="40"><param name="movie" value="http://listen.grooveshark.com/songWidget.swf" /><param name="flashvars" value="hostname=cowbell.grooveshark.com&amp;songID=$songinfo[1]&amp;style=metal&amp;p=0" /><embed src="http://listen.grooveshark.com/songWidget.swf" type="application/x-shockwave-flash" wmode="window" width="250" height="40" flashvars="hostname=cowbell.grooveshark.com&amp;songID=$songinfo[1]&amp;style=metal&amp;p=0"></embed>~;
#  $htmlresults =~ s/([^\\])(["`])/$1\\$2/g;

my $posturl = URI->new( "http://posterous.com/api/newpost");
  $posturl->query_form(  # And here the form data pairs:
   'site_id' => 1251953,
   'autopost' => 0,
   'title' => "$songinfo[4] - $songinfo[2]",
   'body' => $htmlresults,
  );

my $data = XMLin($ua->get($posturl)->content);
 my $posterousurl = $data->{post}->{url};

foreach my $n (@songinfo) {
        print $n . "\n";}

print $posterousurl . "\n";