public Sub Initialize As ResumableSub
oAuthMap.Initialize
For Each app In Main.pluginList
Dim infos As Map = Main.getPluginInfos(app)
If infos.ContainsKey("oauth") Then
If infos.get("oauth") Then
Dim m As Map = infos.get("oauthmap")
If m.Size=0 Then Return True
Dim oauthApp As oauthServer
oauthApp.Initialize(app,m.Get("AuthorizeURL"),m.Get("TokenURL"),m.Get("ClientId"),m.Get("ClientSecret"),m.Get("Scope"))
oAuthMap.Put(app,oauthApp)
wait for (Main.updateByName(app)) complete
End If
End If
Next
Return True
End Sub