# -*- coding: utf8 -*

# TODO : renommer 'etat' dela sqlite en 'fin_ban'

from flask import Flask, request, g, redirect, url_for, \
        abort, render_template, flash

from functools import wraps
from contextlib import closing
import sqlite3
import MySQLdb as mdb
from time import time, localtime, strftime
import locale
import random
from getpass import getpass

# configuration
DEBUG = True
SECRET_KEY = "\xf3'\xd2\xf7\xa4[.h\x8e\x11|\xda\x00\x9fyS\xfe\xb3(!\x91'6\x16"
USERnom = 'admin'
PASSWORD = 'pipo'

SQLITE_FILEnom = '/var/roulette/players.db'
SQLITE_SCHEMA = 'schema.sql'

MYSQL_HOST = 'mysql.rez'
MYSQL_USER = 're2o'
MYSQL_DB = 're2o'

BAN_DURATION = 30. * 60.

IMMUNITY_FILE = '/var/www/roulette/immunity'
ASSHOLES_FILE = '/var/www/roulette/assholes'

IMMUNITY = []

ASSHOLES = []

app = Flask(__name__)
app.config.from_object(__name__)
app.secret_key = SECRET_KEY

random.seed(time())

locale.setlocale(locale.LC_ALL, 'fr_FR.utf8')

# Utilisation de la base SQLite
def connect_sqlite():
    return sqlite3.connect(SQLITE_FILEnom)

def init_db():

    # Initialisation de la base SQLite
    with closing(connect_sqlite()) as con_sqlite:
        with app.open_resource('schema.sql') as f:
            con_sqlite.cursor().executescript(f.read().decode("utf-8"))
            con_sqlite.commit()

    cur_sqlite.execute('''create table players (uid,prenom,nom, etat)''')
    cur_sqlite.execute('''create table machines (id,uid_user,ip)''')
    for user in User.objects.filter(school=1):
        if user.has_access() and user.is_adherent():
            cur_sqlite.execute("""insert into players values (?,?,?,?)""",(user.uid_number, user.nom, user.surnom, 0))
            for m in Machine.objects.filter(user= user):
                for i in Interface.objects.filter(machine = m):
                    cur_sqlite.execute("""insert into machines values (?,?,?) """,(i.id, user.uid_number, i.ipv4.ipv4))

    con_sqlite.commit()
    con_sqlite.close()


def duration_format(seconds):
    hours = seconds // 3600
    seconds -= 3600*hours
    minutes = seconds // 60
    seconds -= 60*minutes
    s_str = seconds <= 1 and 'seconde' or 'secondes'
    m_str = minutes <= 1 and 'minute' or 'minutes'
    h_str = hours <= 1 and 'heure' or 'heures'
    if hours == 0:
        if minutes == 0:
            return '%01d %s' % (seconds, s_str)
        return '%01d %s et %01d %s' % (minutes, m_str, seconds, s_str)
    return '%01d %s, %01d %s et %01d %s' % (hours, h_str, minutes, m_str, seconds, s_str)

def get_ip():
    return request.remote_addr

def get_player(player_id):
    con = connect_sqlite()
    cur = con.cursor()

    cur.execute("""select uid,prenom,nom,etat
            where id=(?)""", [player_id])

    row = cur.fetchone()
    con.close()

    return {'uid': row[0], 'prenom': row[1], 'nom': row[2], 'etat': row[3]}

def get_player_from_ip(ip):
    con = connect_sqlite()
    cur = con.cursor()

    cur.execute("""select players.id,players.prenom,players.nom,
        machines.id,machines.ip,players.etat
        from players
        inner join machines on players.id=machines.player_id
        where machines.ip=(?)""", [ip])

    row = cur.fetchone()
    con.close()

    user = None
    if row is not None:
        user = {'uid': row[0], 'prenom': row[1], 'nom': row[2], \
                'id': row[3], 'ip': row[4], 'etat': row[5]}

        return user

def get_player_from_full_nom(prenom, nom):
    con = connect_sqlite()
    cur = con.cursor()

    cur.execute("""select players.id,players.prenom,players.nom,
        machines.id,machines.ip,players.etat
        from players
        inner join machines on players.id=machines.player_id
        where players.prenom=(?) and players.nom=(?)""", [prenom, nom])

    row = cur.fetchone()
    con.close()

    user = None
    if row is not None:
        user = {'id': row[0], 'prenom': row[1], 'nom': row[2], \
                'id': row[3], 'ip': row[4], 'etat': row[5]}

        return user

def is_banned(user_id):
    con = connect_sqlite()
    cur = con.cursor()

    cur.execute("""select etat from players where id=(?)""", [user_id])

    etat = cur.fetchone()[0]
    con.close()

    return time() < etat

def playable_required(f):
    @wraps(f)
    def decorated_function(*args, **kwargs):
        ip=get_ip()
        # if DEBUG and ip == '172.21.3.124':

        user = get_player_from_ip(ip)

        if not user:
            return render_template('not_subscribed.html')

        # Un utilisateur banni ne peut pas jouer
        elif is_banned(user['id']):
            return banned()

        return f(*args, **kwargs)
    return decorated_function

def get_players_not_banned():
    con = connect_sqlite()
    cur = con.cursor()

    cur.execute("""select id,prenom,nom from players
            where (?) > etat """, [time()])

    rows = cur.fetchall()
    con.close()

    return [{'id': row[0], 'prenom': row[1], 'nom': row[2]} for row in rows]

def cheat(player_id, target_id):
    success = random.choice([True, False])
    try:
        ok = [line.strip().partition(' ') for line in IMMUNITY]
        ok = [get_player_from_full_nom(noms[0], noms[2])['id'] for noms in ok]

        ko = [line.strip().partition(' ') for line in ASSHOLES]
        ko = [get_player_from_full_nom(noms[0], noms[2])['id'] for noms in ko]

        if target_id in ko:
            success = True
        elif player_id in ko:
            success = False
        elif target_id in ok:
            success = False

    except TypeError:
        pass

    return success


def ban(player_id, target_id, success):
    player = get_player(player_id)
    target = get_player(target_id)

    banned_player = success and target or player

    con = connect_sqlite()
    cur = con.cursor()

    cur.execute("""select id,etat from players
            where id=(?)""", [banned_player['id']])

    etat = cur.fetchone()[0]
    etat = time() + BAN_DURATION

    cur.execute("""update players set etat=(?)
            where id=(?)""", [etat, banned_player['id']])

    cur.execute("""insert into bans (player_id,target_id,success,time)
            values (?,?,?,?)""", [player['id'], target['id'], \
                    success and 1 or 0, time()])

    con.commit()
    con.close()

def unban(player_id):
    con = connect_sqlite()
    cur = con.cursor()

    cur.execute("""update players set etat=(?)
            where id=(?)""", [time() - BAN_DURATION, player_id])

    con.commit()
    con.close()

def get_bans(player_id):
    con = connect_sqlite()
    cur = con.cursor()

    # Bannissements concernant le joueur :
    cur.execute("""select player_id,target_id,success,time from bans
            where target_id=(?)
            or player_id=(?)""", [player_id, player_id])

    rows = cur.fetchall()
    con.close()

    return [{'player_id': row[0], 'target_id': row[1], \
            'success': row[2], 'time': row[3]} for row in rows]

def banned():
    player = get_player_from_ip(get_ip())
    if DEBUG:
        print(player,'is banned and tries to play')
    last_ban = sorted(get_bans(player['id']), key=lambda p: p['time'], \
            reverse=False)[-1]

    if last_ban['target_id'] == player['id'] and last_ban['success'] == 1:
        source = get_player(last_ban['player_id'])
        explanation = u'Tu t\'es fait bannir par %s %s.' \
                % (source['prenom'], source['nom'])
    else:
        explanation = u'Tu t\'es banni toi-même, pas de chance...'

    timeleft = duration_format(int(player['etat'] - time()))

    return render_template('banned.html', \
            explanation=explanation,  timeleft=timeleft)


@app.route('/banned_ip')
def banned_ip():
    # Liste des ip pour récupération par babel et plop
    if not DEBUG:
        if get_ip() not in ['10.7.0.254']:
            abort(403)

    con = connect_sqlite()
    cur = con.cursor()

    cur.execute("""select machines.ip from players
        inner join machines on players.id=machines.player_id
        where players.etat>(?)""", [time()])

    rows = cur.fetchall()
    con.close()

    return '\n'.join([row[0] for row in rows])

@app.route('/')
@playable_required
def home():
    player = get_player_from_ip(get_ip())

    #if ip not in ['10.69.8.5', '10.69.8.202']:
    #    abort(403)

    if DEBUG:
        print(player, 'arrived')

    bans = sorted(get_bans(player['id']), \
            key=lambda ban: ban['time'], \
            reverse=True)

    bans_hist = []
    for ban in bans:
        date = strftime('%Hh%M (%A)', localtime(ban['time']))
        source = get_player(ban['player_id'])
        target = get_player(ban['target_id'])

        if target['id'] == player['id']:
            if ban['success']:
                entry = ('ban', u'%s : %s %s a réussi à t\'avoir.' \
                        % (date, source['prenom'], source['nom']))
            else:
                entry = ('warn', u'%s : %s %s a essayé de te bannir, en vain.' \
                        % (date, source['prenom'], source['nom']))
        else:
            if ban['success']:
                entry = ('ok', u'%s : Tu as banni %s %s avec succès.' \
                        % (date, target['prenom'], target['nom']))
            else:
                entry = ('ban', u'%s : Tu as échoué en voulant bannir %s %s.' \
                        % (date, target['prenom'], target['nom']))

        bans_hist.append(entry)

    return render_template('home.html', bans_hist=bans_hist)

@app.route('/jouer', methods=['GET', 'POST'])
@playable_required
def play():
    ip = get_ip()
    player = get_player_from_ip(ip)

    # Traitement de la requête de bannissement
    if request.method == 'POST':
        target_id = request.form['target_id']
        if target_id != 'none':
            if is_banned(target_id):
                flash(u'Utilisateur déjà banni, il faut en choisir un autre.')
            else:
                success = cheat(player['id'], target_id)
                if success:
                    target = get_player(target_id)
                    ban(player['id'], target_id, True)
                    flash(u'Trop cool, %s a été tranché pour un bon moment.' \
                             % target['prenom'])
                else:
                    ban(player['id'], target_id, False)
                    return banned()

    # Liste des joueurs non bannis, triée dans l'ordre croissant ou décroissant
    players = sorted(get_players_not_banned(), \
            key=lambda player: player['prenom'], \
            reverse = random.choice([True, False]))

    # sans le joueur actuel
    players = filter(lambda p: p['id'] != player['id'], players)

    return render_template('play.html', players=players)

if __name__ == '__main__':
    app.run()