41 lines
988 B
Plaintext
41 lines
988 B
Plaintext
sub Main()
|
|
keepalive = CreateObject("roSGScreen")
|
|
keepalive.show()
|
|
|
|
' First thing to do is validate the ability to use the API
|
|
|
|
start_login:
|
|
if get_setting("server") = invalid then
|
|
print "Get server details"
|
|
ShowServerSelect()
|
|
end if
|
|
|
|
if ServerInfo() = invalid
|
|
' Maybe don't unset setting, but offer as a prompt
|
|
' Server not found, is it online? New values / Retry
|
|
print "Connection to server failed, restart flow"
|
|
unset_setting("server")
|
|
unset_setting("active_user")
|
|
goto start_login
|
|
end if
|
|
|
|
if get_setting("active_user") = invalid then
|
|
print "Get user login"
|
|
ShowSigninSelect()
|
|
end if
|
|
|
|
' Confirm the configured server and user work
|
|
m.user = AboutMe()
|
|
if m.user = invalid or m.user.id <> get_setting("active_user")
|
|
print "Login failed, restart flow"
|
|
unset_setting("active_user")
|
|
goto start_login
|
|
end if
|
|
|
|
ShowLibrarySelect()
|
|
|
|
if get_setting("active_user") = invalid
|
|
goto start_login
|
|
end if
|
|
end sub
|