Reply to thread

Public Sub Start()

    Dim currentUser As String = String.Empty

    _alertTime = INFINITE_TIME

    GUIWindowManager.OnNewAction += New OnActionHandler(OnNewAction)

    g_Player.PlayBackStarted += New g_Player.StartedHandler(OnPlayBackStarted)

    g_Player.PlayBackEnded += New g_Player.EndedHandler(OnPlayBackEnded)

    g_Player.PlayBackStopped += New g_Player.StoppedHandler(OnPlayBackStopped)

    Using xmlreader As Settings = New MPSettings()

        currentUser = xmlreader.GetValueAsString("audioscrobbler", "user", [String].Empty)

        _announceNowPlaying = xmlreader.GetValueAsBool("audioscrobbler", "EnableNowPlaying", True)

    End Using

    Dim mdb As MusicDatabase = MusicDatabase.Instance

        _doSubmit = false

     If(mdb.AddScrobbleUserSettings(Convert.ToString(mdb.AddScrobbleUser(currentUser)), "iSubmitOn", -1) = 1) then

        _doSubmit = true

        end if

    Log.Info("Audioscrobbler plugin: Submit songs: {0}, announce Now Playing: {1}", Convert.ToString(_doSubmit), Convert.ToString(_announceNowPlaying))

    If _doSubmit Then

        OnManualConnect(Nothing, Nothing)

    End If

End Sub