// NGnius 2020-02-11

package main

import (
	"database/sql"
	"fmt"
	"time"

	_ "github.com/lib/pq"           // postgres
	_ "github.com/mattn/go-sqlite3" // sqlite
)

const (
	sqlServerDefault     = "sqlite3"
	sqlConnectionDefault = "test.sqlite"
)

var (
	// command line arguments
	sqlServer      string
	sqlConnection  string
	buildTables    bool
	populateTables bool
	autocreate     bool
	// internal variables
	db           *sql.DB
	queryType    int
	queryStrings [][]string
)

func sqlInit() error {
	var dbOpenErr error
	if sqlServer == "postgres" {
		queryType = 1
	} else { // sqlite3
		queryType = 0
	}
	queryStrings = [][]string{
		[]string{ // sqlite
			"SELECT * FROM Boards WHERE name=? LIMIT 1;",
			"SELECT * FROM Players WHERE name=? LIMTI 1;",
			"INSERT INTO Entries(score, player, board, time) VALUES (?, ?, ?, ?);",
			"INSERT INTO Keys(token, player, time) VALUES (?, ?, ?);",
			"SELECT * FROM Keys WHERE token=? AND player=? AND time=?",
			"SELECT * FROM Keys WHERE token=? LIMIT 1;",
			"SELECT * FROM Keys WHERE player=? LIMIT 1;",
			"SELECT * FROM Boards WHERE id=?",
			"INSERT OR REPLACE INTO Boards(id, name, description) VALUES (?, ?, ?);",
			"SELECT * FROM Entries WHERE board=?",
			"SELECT * FROM Entries WHERE board=? and rank >= ? and rank <= ? ORDER BY rank ASC;",
			"SELECT * FROM Players WHERE id=? LIMIT 1;",
			"INSERT OR REPLACE INTO Players(id, name) VALUES (?, ?);",
			"SELECT * FROM Entries WHERE player=?",
			"SELECT * FROM Entries WHERE player=? ORDER BY time DESC LIMIT ?;",
			"SELECT * FROM Entries WHERE id=? LIMIT 1;",
			"INSERT OR REPLACE INTO Entries(id, rank, score, player, board, time, metadata) VALUES (?, ?, ?, ?, ?, ?, ?);",
			"SELECT * FROM Keys WHERE id=? LIMIT 1;",
			"INSERT OR REPLACE INTO Keys(id, token, player, time, metadata) VALUES (?, ?, ?, ?, ?);",
			"CREATE TABLE IF NOT EXISTS Players (id INTEGER PRIMARY KEY, name TEXT NOT NULL);",
			"CREATE TABLE IF NOT EXISTS Boards (id INTEGER PRIMARY KEY, name TEXT NOT NULL, description TEXT NOT NULL);",
			"CREATE TABLE IF NOT EXISTS Entries (id INTEGER PRIMARY KEY, rank INTEGER NOT NULL DEFAULT -1, score INTEGER NOT NULL, player INTEGER NOT NULL, board INTEGER NOT NULL, time INTEGER NOT NULL, metadata BLOB NOT NULL DEFAULT x'FF', FOREIGN KEY(player) REFERENCES Players(id), FOREIGN KEY(board) REFERENCES Boards(id));",
			"CREATE TABLE IF NOT EXISTS Keys (id INTEGER PRIMARY KEY, token TEXT NOT NULL, player INTEGER NOT NULL, time INTEGER NOT NULL, metadata BLOB NOT NULL DEFAULT x'FF', FOREIGN KEY(player) REFERENCES Players(id));",
		},
		[]string{ // postgres
			"SELECT * FROM Boards WHERE name=$1 LIMIT 1;",
			"SELECT * FROM Players WHERE name=$1 LIMTI 1;",
			"INSERT INTO Entries(score, player, board, time) VALUES ($1, $2, $3, $4);",
			"INSERT INTO Keys(token, player, time) VALUES ($1, $2, $3);",
			"SELECT * FROM Keys WHERE token=$1 AND player=$2 AND time=$3",
			"SELECT * FROM Keys WHERE token=$1 LIMIT 1;",
			"SELECT * FROM Keys WHERE player=$1 LIMIT 1;",
			"SELECT * FROM Boards WHERE id=$1",
			"INSERT INTO Boards(id, name, description) VALUES ($1, $2, $3) ON CONFLICT(id) DO UPDATE SET name=$2, description=$3;",
			"SELECT * FROM Entries WHERE board=$1",
			"SELECT * FROM Entries WHERE board=$1 and rank >= $2 and rank <= $3 ORDER BY rank ASC;",
			"SELECT * FROM Players WHERE id=$1 LIMIT 1;",
			"INSERT INTO Players(id, name) VALUES ($1, $2) ON CONFLICT(id) DO UPDATE SET name=$2;",
			"SELECT * FROM Entries WHERE player=$1",
			"SELECT * FROM Entries WHERE player=$1 ORDER BY time DESC LIMIT $2;",
			"SELECT * FROM Entries WHERE id=$1 LIMIT 1;",
			"INSERT INTO Entries(id, rank, score, player, board, time, metadata) VALUES ($1, $2, $3, $4, $5, $6, $7) ON CONFLICT(id) DO UPDATE SET rank=$2, score=$3, player=$4, board=$5, time=$6, metadata=$7;",
			"SELECT * FROM Keys WHERE id=$1 LIMIT 1;",
			"INSERT INTO Keys(id, token, player, time, metadata) VALUES ($1, $2, $3, $4, $5) ON CONFLICT(id) DO UPDATE SET token=$2, player=$3, time=$4, metadata=$5;",
			"CREATE TABLE IF NOT EXISTS Players (id BIGSERIAL PRIMARY KEY, name TEXT NOT NULL);",
			"CREATE TABLE IF NOT EXISTS Boards (id BIGSERIAL PRIMARY KEY, name TEXT NOT NULL, description TEXT NOT NULL);",
			"CREATE TABLE IF NOT EXISTS Entries (id BIGSERIAL PRIMARY KEY, rank INTEGER NOT NULL DEFAULT -1, score BIGINT NOT NULL, player BIGSERIAL NOT NULL, board BIGSERIAL NOT NULL, time INTEGER NOT NULL, metadata BYTEA NOT NULL DEFAULT E'\\\\xFF', FOREIGN KEY(player) REFERENCES Players(id), FOREIGN KEY(board) REFERENCES Boards(id));",
			"CREATE TABLE IF NOT EXISTS Keys (id BIGSERIAL PRIMARY KEY, token TEXT NOT NULL, player BIGSERIAL NOT NULL, time BIGSERIAL NOT NULL, metadata BYTEA NOT NULL DEFAULT E'\\\\xFF', FOREIGN KEY(player) REFERENCES Players(id));",
		},
	}
	fmt.Printf("SQL Server %s is query type %d\n", sqlServer, queryType)
	//fmt.Println(len(queryStrings[queryType]))
	db, dbOpenErr = sql.Open(sqlServer, sqlConnection)
	if dbOpenErr != nil {
		return dbOpenErr
	}
	if buildTables {
		fmt.Println("Building tables in database...")
		sqlBuildTables()
	}
	if populateTables {
		fmt.Println("Populating tables in database...")
		sqlPopulateTables()
	}
	return nil
}

func sqlClose() error {
	if db != nil {
		err := db.Close()
		if err != nil {
			return err
		}
		db = nil
	}
	return nil
}

func boardByName(name string) (*Board, error) {
	b := &Board{}
	return b, db.QueryRow(queryStrings[queryType][0], name).Scan(b.Intake()...)
}

func playerByName(name string) (*Player, error) {
	p := &Player{}
	return p, db.QueryRow(queryStrings[queryType][1], name).Scan(p.Intake()...)
}

func newEntrySql(score, player, board int64) error {
	tx, _ := db.Begin()
	stmt, _ := tx.Prepare(queryStrings[queryType][2])
	_, err := stmt.Exec(score, player, board, time.Now().Unix())
	if err != nil {
		tx.Rollback()
		return err
	}
	tx.Commit()
	return nil
}

func newKeySql(player int64, name string) (*Key, error) {
	tx, _ := db.Begin()
	if autocreate {
		sqlPlayer := &Player{ID: player, Name: name}
		if (sqlPlayer.Load() != nil) {
			playerErr := sqlPlayer.Commit()
			if playerErr != nil {
				return nil, playerErr
			}
		}
	}
	newKey := &Key{Token: "new", Player: player, Time: time.Now().Unix()}
	stmt, _ := tx.Prepare(queryStrings[queryType][3])
	_, err := stmt.Exec(newKey.Token, newKey.Player, newKey.Time)
	if err != nil {
		tx.Rollback()
		return nil, err
	}
	tx.Commit()
	db.QueryRow(queryStrings[queryType][4], newKey.Token, newKey.Player, newKey.Time).Scan(newKey.Intake()...)
	tokenErr := newKey.GenerateToken()
	if tokenErr != nil {
		return nil, tokenErr
	}
	newKey.Metadata = []byte{0xFE} // enable key with not extra permissions
	return newKey, newKey.Commit()
}

func keyByToken(token string) (*Key, error) {
	k := &Key{}
	return k, db.QueryRow(queryStrings[queryType][5], token).Scan(k.Intake()...)
}

func keyByPlayer(player int64) (*Key, error) {
	k := &Key{}
	return k, db.QueryRow(queryStrings[queryType][6], player).Scan(k.Intake()...)
}

// internal operations
func sqlBuildTables() {
	transaction, txErr := db.Begin()
	if txErr != nil {
		return
	}
	// test table
	//transaction.Exec("CREATE TABLE IF NOT EXISTS Test (Sometext VARCHAR, Somenumber);")
	//transaction.Exec("INSERT INTO Test (Sometext, Somenumber) VALUES (?,?);", "Hello sqlite", 123)
	// build real tables
	transaction.Exec(queryStrings[queryType][19])
	transaction.Exec(queryStrings[queryType][20])
	transaction.Exec(queryStrings[queryType][21])
	transaction.Exec(queryStrings[queryType][22])
	transaction.Commit()
}

func sqlPopulateTables() {
	boards := []*Board{
		&Board{ID: 1, Name: "main-test", Description: "Overall best (test data)"},
		&Board{ID: 2, Name: "coolest-test", Description: "Coolest score (test data)"},
		&Board{ID: 3, Name: "fastest-test", Description: "Fastest time (test data)"},
	}
	for _, b := range boards {
		err := b.Commit()
		if err != nil {
			fmt.Printf("Error creating board %d: %s\n", b.ID, err)
		}
	}
	players := []*Player{
		&Player{ID: 1, Name: "NGnius (test)"},
		&Player{ID: 2, Name: "Also NGnius (test)"},
		&Player{ID: 3, Name: ".xX||eDgY TeeNaGeR||Xx. (test)"},
		&Player{ID: 4, Name: "New username who dis? (test)"},
		&Player{ID: 5, Name: "Extremely Ridiculously Long Name to break things (test)"},
		&Player{ID: 6, Name: "P|P3 |o|z (test)"},
		&Player{ID: 7, Name: "Waldo (test)"},
		&Player{ID: 8, Name: "Zettagram.com (test)"},
		&Player{ID: 9, Name: "The Doctor (test)"},
		&Player{ID: 10, Name: "Marvin the Paranoid Android (test)"},
		&Player{ID: 11, Name: "IDK HOW (test)"},
		&Player{ID: 12, Name: "If you can read this your API may be wrong (test)"},
		&Player{ID: 13, Name: "Unlucky 7 (test)"},
	}
	for _, p := range players {
		err := p.Commit()
		if err != nil {
			fmt.Printf("Error creating player %d: %s\n", p.ID, err)
		}
	}
	now := time.Now().Unix()
	metadata := []byte{0x00, 0x00, 0x00, 0x00}
	entries := []*Entry{
		&Entry{ID: 1, Rank: 1, Score: 1000, Player: players[0].ID, Board: boards[0].ID, Time: now, Metadata: metadata},
		&Entry{ID: 2, Rank: 2, Score: 900, Player: players[1].ID, Board: boards[0].ID, Time: now, Metadata: metadata},
		&Entry{ID: 3, Rank: 3, Score: 400, Player: players[2].ID, Board: boards[0].ID, Time: now, Metadata: metadata},
		&Entry{ID: 4, Rank: 4, Score: 350, Player: players[3].ID, Board: boards[0].ID, Time: now, Metadata: metadata},
		&Entry{ID: 5, Rank: 5, Score: 350, Player: players[4].ID, Board: boards[0].ID, Time: now, Metadata: metadata},
		&Entry{ID: 6, Rank: 6, Score: 250, Player: players[5].ID, Board: boards[0].ID, Time: now, Metadata: metadata},
		&Entry{ID: 7, Rank: 7, Score: 200, Player: players[6].ID, Board: boards[0].ID, Time: now, Metadata: metadata},
		&Entry{ID: 8, Rank: 8, Score: 175, Player: players[7].ID, Board: boards[0].ID, Time: now, Metadata: metadata},
		&Entry{ID: 9, Rank: 9, Score: 150, Player: players[8].ID, Board: boards[0].ID, Time: now, Metadata: metadata},
		&Entry{ID: 10, Rank: 10, Score: 140, Player: players[9].ID, Board: boards[0].ID, Time: now, Metadata: metadata},
		&Entry{ID: 11, Rank: 11, Score: 10, Player: players[10].ID, Board: boards[0].ID, Time: now, Metadata: metadata},
		&Entry{ID: 12, Rank: 12, Score: 60, Player: players[11].ID, Board: boards[0].ID, Time: now, Metadata: metadata},
		&Entry{ID: 13, Rank: 13, Score: 13, Player: players[12].ID, Board: boards[0].ID, Time: now},
	}
	for _, e := range entries {
		err := e.Commit()
		if err != nil {
			fmt.Printf("Error creating entry %d: %s\n", e.ID, err)
		}
	}
	metadata = []byte{0x7E}
	keys := []*Key{
		&Key{ID: 1, Token: "", Player: players[0].ID, Time: now, Metadata: metadata},
		&Key{ID: 2, Token: "", Player: players[1].ID, Time: now, Metadata: metadata},
	}
	for _, k := range keys {
		genErr := k.GenerateToken()
		if genErr != nil {
			fmt.Printf("Error generating token for key %d, %s\n", k.ID, genErr)
		}
		//fmt.Printf("Key %d token: %s\n", k.ID, k.Token)
		err := k.Commit()
		if err != nil {
			fmt.Printf("Error creating key %d, %s\n", k.ID, err)
		}
		// bitwise op test
		//fmt.Printf("Key &d is superuser:%t, enabled:%t\n", k.ID, k.IsSuperuser(), k.IsEnabled())
	}
}