< ?php
/*
Last.fm 2 Twitter and Blip Script 
by Harv - http://harv.pl
      v.0.1
*/
include_once "xx_xml.php";
 
#Dane dla blipa
$bl_user = '';
$bl_pass = '';
#Dane dla Twittera
$tw_user = '';
$tw_pass = '';
#User Last.fm
$lfm_user = '';
#Sciezka pliku tmp
$tmp_fn = "lsfm_tw";
 
#Adresy API etc
$lfm_url = 'http://ws.audioscrobbler.com/1.0/user/'.$lfm_user.'/recentlovedtracks.xml';
$tw_url  = 'http://twitter.com/statuses/update.xml';
$bl_url  = 'http://api.blip.pl/updates';
 
function postTwitter($message) {
global $tw_user, $tw_pass, $tw_url ;
 
   $curl_handle = curl_init();
    curl_setopt($curl_handle,CURLOPT_URL,"$tw_url");
    curl_setopt($curl_handle,CURLOPT_CONNECTTIMEOUT,2);
    curl_setopt($curl_handle,CURLOPT_RETURNTRANSFER,1);
    curl_setopt($curl_handle,CURLOPT_POST,1);
    curl_setopt($curl_handle,CURLOPT_POSTFIELDS,"status=$message");
    curl_setopt($curl_handle,CURLOPT_USERPWD, "$tw_user:$tw_pass");
    $buffer = curl_exec($curl_handle);
    curl_close($curl_handle);
    // check for success or failure
    if ($buffer) {
        echo 'Twitter success';
    } else {
        echo $buffer;
    }
 
}
 
function postBlip($message) {
global $bl_user, $bl_pass, $bl_url;
 
    $curl_handle = curl_init();
    curl_setopt($curl_handle,CURLOPT_URL,"$bl_url");
    curl_setopt($curl_handle,CURLOPT_CONNECTTIMEOUT,2);
    curl_setopt($curl_handle,CURLOPT_RETURNTRANSFER,1);
    curl_setopt($curl_handle,CURLOPT_POST,1);
    curl_setopt($curl_handle,CURLOPT_POSTFIELDS,"body=$message");
    curl_setopt($curl_handle,CURLOPT_USERPWD, "$bl_user:$bl_pass");
    $buffer = curl_exec($curl_handle);
    curl_close($curl_handle);
    // check for success or failure
    if ($buffer) {
        echo 'Blip success';
    } else {
        echo $buffer;
    }
 
}
 
#Czyta XML
$raw = new xx_xml($lfm_url ,'url');
 
$last_url = $raw->data ['recentlovedtracks|track|url']['data'][0] ;
$last_artist = $raw->data ['recentlovedtracks|track|artist']['data'][0] ;
$last_track = $raw->data ['recentlovedtracks|track|name']['data'][0] ;
$lat_date = $raw->data ['recentlovedtracks|track|date']['data'][0] ;
 
#Skroc URL
$sh_url = 'http://is.gd/api.php?longurl='.$last_url;
$short_url = file_get_contents($sh_url);
 
#Wiadomosc
$message = 'Last.fm: '.$last_artist.' - '.$last_track.' '.$short_url ;
 
#Pierwszy raz ? 
if(file_exists($tmp_fn)) {
 
  $fh = fopen($tmp_fn, 'r') or die("Can't open file");
  $tmp_data = fread($fh, filesize($tmp_fn));
  fclose($fh);
 
  if($tmp_data != $last_url) {
 
    if(!empty($tw_user))
      postTwitter($message);
    sleep(2);
    if(!empty($bl_user))
      postBlip($message);
 
 
    $fh = fopen($tmp_fn, 'w+') or die("Can't open file");
    fwrite($fh, $last_url);
    fclose($fh);
  }
  else 
    echo 'Bez zmian';
  }
  #Pliku nie ma, pierwsze odpalenie
  else {
    $fh = fopen($tmp_fn, 'w+') or die("Can't open file");
    fwrite($fh, $last_url);
    fclose($fh);
    echo 'First Run';
 
 
 
  }
 
?>

#!/usr/bin/env ruby
# @author:  Nicholas Pike - npike@npike.net
#blip-mod: Harv - http://harv.pl 
 
require 'net/http'
require 'rexml/document'
 
# Dane dla Twittera
TW_USER = ''
TW_PASS = ''
# Dane dla Blipa
BL_USER = ''
BL_PASS = ''
 
# Nazwa użytkownika w Last.fm
LF_USER = ""
 
# DO NOT CHANGE BELOW THIS
TW_URL  = 'http://twitter.com/statuses/update.xml'
BL_URL  = 'http://api.blip.pl/updates'
LAST_FM_URL = "http://ws.audioscrobbler.com/1.0/user/#{LF_USER}/recentlovedtracks.xml"
 
# temp variables
last_url = ""
first_run = 1
 
def postToTwitter(message)
  begin
    url = URI.parse(TW_URL)
    req = Net::HTTP::Post.new(url.path)
    req.basic_auth TW_USER, TW_PASS
    req.set_form_data({'status' => message})
    begin
      res = Net::HTTP.new(url.host, url.port).start {|http| http.request(req) }
      case res
        when Net::HTTPSuccess, Net::HTTPRedirection
          if res.body.empty?
            puts "Twitter nie odpowiada"
 
          else
            puts 'Twitter zaktualizowany'
 
          end
        else
          puts 'Aktualizacja sie nie powiodla'
          # res.error!
 
        end
    rescue
      puts $!
 
    end
  rescue SocketError
    puts "Twitter jest niedostepny"
 
  end
end
 
def postToBlip(message)
  begin
    url = URI.parse(BL_URL)
    req = Net::HTTP::Post.new(url.path)
    req.basic_auth BL_USER, BL_PASS
    req.set_form_data({'body' => message})
    begin
      res = Net::HTTP.new(url.host, url.port).start {|http| http.request(req) }
      case res
        when Net::HTTPSuccess, Net::HTTPRedirection
          if res.body.empty?
            puts "Blip nie odpowiada"
 
          else
            puts 'Blip zaktualizowany'
 
          end
        else
          puts 'Aktualizacja sie nie powiodla'
          # res.error!
 
        end
    rescue
      #puts $!
 
 
    end
  rescue SocketError
    puts "Blip jest niedostepny"
 
  end
end
 
while true
 
# get the XML data as a string
xml_data = Net::HTTP.get_response(URI.parse(LAST_FM_URL)).body
doc = REXML::Document.new(xml_data)
 
if ( doc.elements["recentlovedtracks/track[1]/url"].text != last_url)
   puts "No match"
 
   last_url = doc.elements["recentlovedtracks/track[1]/url"].text
   last_artist = doc.elements["recentlovedtracks/track[1]/artist"].text
   last_name = doc.elements["recentlovedtracks/track[1]/name"].text 
 
   short_url = Net::HTTP.get_response(URI.parse('http://is.gd/api.php?longurl='+last_url)).body
 
   message = "Last.FM: #{last_name} - #{last_artist} \n\n#{short_url}"
 
  # Dont send a twitter message on first run of script
   if (first_run != 1)
      if (TW_USER != '')
        postToTwitter(message)
       end
      if (BL_USER != '')
        postToBlip(message)
      end
   end
   first_run = 0
else
  puts "Brak zmian"
end
sleep 200
end