Share My Creation [Project Template] User Login Server

Version: 3.00
Based on (Project Template) Web API Server v3.30

Description:
This is a fully functional user registration and login system with user login management.
It is a remake of MySQL API Server (Key + Token) and [B4X] User Login Apps.
The access token will expired in 10 minutes (you can set it like 30 minutes or longer).
It can be renewed using API key.
It is similar to JSON Web Token.
Testing can be done locally without setting up email.

Database:
SQLite or MySQL

Client app:
[B4X] User Login Client

Depends on:

• ByteConverter v1.10
• jNet v1.81
• Encryption v1.10
• MiniORMUtils v2.40
• WebApiUtils v3.05

Update user-login-client for v2.00

'Public strURL As String = "http://192.168.50.42:17178/web/api/v1/"
Public strURL As String = "http://192.168.50.42:8080/api/v1/"

 

[aeric]

Some testing and fixes to support MySQL database. Template updated in post #1.

 

[aeric]

Updated to v1.01

It is fully functional now. Support MySQL and SQLite.

 

[aeric]

concept

 

[aeric]

Version: 2.00beta1

Based on Web API Server v3.10
Depends on MiniORMUtils v1.14 and WebApiUtils v3.02

Update user-login-client

'Public strURL As String = "http://192.168.50.42:17178/web/api/v1/"
Public strURL As String = "http://192.168.50.42:8080/api/v1/"

 

[aeric]

Version: 2.00 released
Based on (Project Template) Web API Server v3.10

 

[aeric]

Two bugs found and will be fixed in next version.

In User Login Server,
UsersApiHandler
Update to the following code:

Private Sub ValidateToken (Token As UserData) As Boolean
    Try
        If Token = Null Or Token.IsInitialized = False Then
            HRM.ResponseCode = 401
            HRM.ResponseError = "Undefine User Token"
            ReturnApiResponse
            Return False
        End If

In User Login Client app,
B4XPageUserProfile
Update to the following code:

Sub UpdateProfile
    Try
        Log("[B4XPageUserProfile] UpdateProfile")
        Dim data As Map
        data.Initialize
        data.Put("key", Main.User.ApiKey)
        data.Put("token", Main.User.Token)
        data.Put("user_name", txtUserName.Text.Trim)
        data.Put("user_location", txtUserLocation.Text.Trim)
        Dim job As HttpJob
        job.Initialize("", Me)
        job.PutString(Main.strURL & "users/update-profile", data.As(JSON).ToString)
        job.GetRequest.SetHeader("Authorization", "Bearer " & Main.User.Token)
        Wait For (job) JobDone(job As HttpJob)

 

[aeric]

Version: 3.00 released
Based on Web API Server v3.30