Thank you for beta testing the Sam Broadcaster Facebook API
   If you've seen this message on your facebook wall, would you please be so kind and report back to me at the Spacialaudio Forums.
   Thank You

{## Facebook Poster v0.10}

///////////////////////////////////////////////////////////////////
// License Agreement or Nettiquette                              //
// You may use this PAL Script to communicate with my server     //
// Change it to your like but don't flood the server/facebook    //
//                                                               //
// Also make sure you don't post any inappropriate messages      //
// Either me or facebook might then cease to run this service    //
//                                                               //
// This service has no guaranteed uptime nor support             //
// However you may ask Questions in the Spacialaudio Forums      //
// I will probably come back to you and help                     //
//                                                               //
// The Webservice talking with facebook will stay private        //
// At least until its completely done and tidied up              //
//                                                               //
// To Register just go to following Website, login to facebook   //
// you will be shown 3 different pages where you have to click   //
// Accept / Allow at the bottom of each page                     //
// If something went wrong you can always start over             //
//                                                               //
// http://apps.facebook.com/sambcsonginfo/?                      //
///////////////////////////////////////////////////////////////////


var Player : TPlayer;
var Song : TSongInfo;
var facebookmessage, returnmessage, logdir, threshold, userid, network : String;
var ErrorLog, DebugLog : TStrings;


///////////////////////////////////////////////////////////////////
// User Configuration Area                                       //
///////////////////////////////////////////////////////////////////
// SAM will create 2 Logfiles:                                   //
// facebook.log contains the IDs of successful postings          //
// facebook.err contains the Error Codes if something went wrong //
// IMPORTANT: Keep the trailing backslash (\) !!!                //
//                                                               //
// Jingle Threshold:                                             //
// Every Title shorter than the threshold will not be published  //
//                                                               //
// User ID:                                                      //
// Your Facebook User ID (Number with up to 20 digits            //
// You'll get that when you register with the app                //
//                                                               //
// Network:                                                      //
// facebook is the only working input here                       //
// Further options will be added here later                      //
///////////////////////////////////////////////////////////////////
//                                                               //
{}    logdir := 'C:\Program Files (x86)\SpacialAudio\SAMBC\';    {}
{}    threshold := '+00:00:25';                                  {}
{}    userid := 'CHANGEME';                               {}
{}    network := 'facebook';                                     {}
//                                                               //
///////////////////////////////////////////////////////////////////
// No Changes below this Point unless you know what you do.      //
///////////////////////////////////////////////////////////////////


PAL.Loop := true;

// URL Encode
// Replaces non Alphanumeric symbols by their numeric representation
// and converts that one to hex prepending the % sign
function urlencode(S: string): string;
begin
  var Idx : integer;
  var tvar : integer;
  result := '';

  if (Length(S)) > 0 then begin

  For Idx := 1 to length(S) do
    begin
      tvar := Ord(S[Idx]);
      if ((tvar > 47) and (tvar < 58)) or ((tvar > 64) and (tvar < 91)) or ((tvar > 96) and (tvar < 123))  Then
        begin
         result := result + (S[Idx])
        end
      else
        begin
         result := result + '%' + IntToHex(Ord(S[Idx]),2);
        end;
   end;
   end;
end;


// Append to File is not possible so we have to load the old contents.
ErrorLog.LoadFromFile(logdir + 'facebook.err');
DebugLog.LoadFromFile(logdir + 'facebook.log');

Player := ActivePlayer;

// Is anything playing right now?
IF ( Player <> NIL ) THEN
BEGIN
  Song := Player.GetSongInfo;

  // Message to display in Facebook
  facebookmessage := Song['title'] + ' - ' + Song['artist'];

  // URLEncode Blanks
  PAL.LockExecution;
  facebookmessage := urlencode(facebookmessage);
  PAL.UnlockExecution;

  // Here goes the magic!
  returnmessage := WebToStr('http://www.xenzilla.de/radioscript/'
    + '?message=' + facebookmessage + '&userid=' + userid + '&dest=' + network);

  // Errormessages don't contain the underscore
  IF ( Pos('_', returnmessage) = 0 )  THEN
  BEGIN
    returnmessage := DateTimeToStr(NOW) + '  ' + returnmessage;
    Writeln(returnmessage);
    ErrorLog.Add(returnmessage);
    ErrorLog.SaveToFile(logdir + 'facebook.err');
  END
  // For debugging purposes Successful Posts will be logged too
  ELSE
  BEGIN
    returnmessage := DateTimeToStr(NOW) + '  ' + returnmessage;
    Writeln(returnmessage);
    DebugLog.Add(returnmessage);
    DebugLog.SaveToFile(logdir + 'facebook.log');
  END;
END;

// Alll done wait for track change
PAL.WaitForPlayCount(1);
// Jingles & Co will not be posted, if  shorter than threshold (adjustable)
PAL.WaitForTime(threshold);