Code: Select all

'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' ISDBApplicationEvent Logging Script
' 
' Play 
' Pause
' NowPlayingModified
' 
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

Option Explicit

Sub OnStartup
  Call Script.RegisterEvent(SDB,"OnPlay","Event_OnPlay")
  Call Script.RegisterEvent(SDB,"OnPause","Event_OnPause")
  Call Script.RegisterEvent(SDB,"OnNowPlayingModified","Event_OnNowPlayingModified")
End Sub

Sub logme(msg)
  Dim fso, logf

  On Error Resume Next
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set logf = fso.OpenTextFile(Script.ScriptPath&".log",ForAppending,True)
  logf.WriteLine Now() & ": " & msg
  Set fso = Nothing
  Set logf = Nothing
End Sub

Sub Event_OnPlay
  Dim Warning, Res
  
  logme("Play Initiated")
  Warning = Warning & vbNewLine & "Play Initiated"
  If Warning <> "" Then
    Res = SDB.MessageBox("ISDBApplicationEvent:" & vbNewLine & _
    Warning, mtWarning, Array(mbOk))
  End If
End Sub

Sub Event_OnPause
  Dim Warning, Res
  
  logme("Pause Initiated")
  Warning = Warning & vbNewLine & "Pause Initiated"
  If Warning <> "" Then
    Res = SDB.MessageBox("ISDBApplicationEvent:" & vbNewLine & _
    Warning, mtWarning, Array(mbOk))
  End If
End Sub

Sub Event_OnNowPlayingModified
  Dim Warning, Res
  
  logme("Now playing modified")
  Warning = Warning & vbNewLine & "Now Playing Modified"
  If Warning <> "" Then
    Res = SDB.MessageBox("ISDBApplicationEvent:" & vbNewLine & _
    Warning, mtWarning, Array(mbOk))
  End If
End Sub

Code: Select all

string sql = BuildTracksSQL(tracksResponse);
if (!String.Empty.Equals(sql)) {
	if (clearQueue) {
		LOG.Info("Clearing current playlist cue");
		MediaMonkey.Player.PlaylistClear();
		ClearQueue = false;
	}
	SDBSongIterator iterator = QuerySongs(sql);
	while (!iterator.EOF) {
		SDBSongData track = iterator.Item;
		MediaMonkey.Player.PlaylistAddTrack(track);
		iterator.Next();
	}
}

Code: Select all

'borrowed from a teknojunky - if you want the popups add them to this and then just call logme
Sub logme(msg)
  Dim fso, logf

  On Error Resume Next
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set logf = fso.OpenTextFile(Script.ScriptPath&".log",ForAppending,True)
  logf.WriteLine Now() & ": " & msg
  Set fso = Nothing
  Set logf = Nothing
End Sub
'*************************************************************
'Perl is taking the JSON strings directly into variables - "\" is a special character in perl to escape the following string
'wherever we have a "\" we need it to be "\\" in anything that goes to Perl (ie: anything that goes to SqueezeBox)
Function perlEscape(str1)
  perlEscape = Replace(str1, "\", "\\")
End Function
'*************************************************************
Sub registerEvents
  Call Script.RegisterEvent(SDB,"OnPlay","Event_OnPlay")
  Call Script.RegisterEvent(SDB,"OnPause","Event_OnPause")
  Call Script.RegisterEvent(SDB,"OnStop","Event_OnStop")
  Call Script.RegisterEvent(SDB,"OnSeek","Event_OnSeek")
  Call Script.RegisterEvent(SDB,"OnTrackEnd","Event_OnTrackEnd")
  Call Script.RegisterEvent(SDB,"OnShutdown","Event_OnShutdown")
  Call Script.RegisterEvent(SDB,"OnNowPlayingModified","Event_OnNowPlayingModified")
End Sub
'*************************************************************
Sub Event_OnNowPlayingModified
  Dim MMcount

  MMcount = SDB.Player.CurrentPlayList.Count
  logme("Now playing modified")
  logme("Aantal MM tracks: " & Cstr(MMcount))
  logme("Aantal LMS tracks: " & Cstr(LMScount))
  If SqueezeBoxMode = "stop" Then
    FillPlaylist
  ElseIf MMcount = 0 Then
    ResetPlaylist
  ElseIf MMcount < LMScount Then
    TracksDeleted(MMcount)
  ElseIf MMcount > LMScount Then
    TracksAdded(MMcount)
  Else
    TracksMoved
  End If
End Sub