# copyright 2003-2016 LOGILAB S.A. (Paris, FRANCE), all rights reserved.

# contact http://www.logilab.fr/ -- mailto:contact@logilab.fr

#

# This file is part of CubicWeb.

#

# CubicWeb is free software: you can redistribute it and/or modify it under the

# terms of the GNU Lesser General Public License as published by the Free

# Software Foundation, either version 2.1 of the License, or (at your option)

# any later version.

#

# CubicWeb is distributed in the hope that it will be useful, but WITHOUT

# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS

# FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public License for more

# details.

#

# You should have received a copy of the GNU Lesser General Public License along

# with CubicWeb.  If not, see <http://www.gnu.org/licenses/>.

"""Integrity checking tool for instances:

* integrity of a CubicWeb repository. Hum actually only the system database is

  checked.

"""

from __future__ import print_function

import sys

from datetime import datetime

from logilab.common.shellutils import ProgressBar

from yams.constraints import UniqueConstraint

from cubicweb.toolsutils import underline_title

from cubicweb.schema import PURE_VIRTUAL_RTYPES, VIRTUAL_RTYPES, UNIQUE_CONSTRAINTS

from cubicweb.server.sqlutils import SQL_PREFIX

from cubicweb.server.schema2sql import iter_unique_index_names, build_index_name

def notify_fixed(fix):

    if fix:

        sys.stderr.write(' [FIXED]')

    sys.stderr.write('\n')

def has_eid(cnx, sqlcursor, eid, eids):

    """return true if the eid is a valid eid"""

    if eid in eids:

        return eids[eid]

    sqlcursor.execute('SELECT type FROM entities WHERE eid=%s' % eid)

    try:

        etype = sqlcursor.fetchone()[0]

    except Exception:

        eids[eid] = False

        return False

    if etype not in cnx.vreg.schema:

        eids[eid] = False

        return False

    sqlcursor.execute('SELECT * FROM %s%s WHERE %seid=%s' % (SQL_PREFIX, etype,

                                                             SQL_PREFIX, eid))

    result = sqlcursor.fetchall()

    if len(result) == 0:

        eids[eid] = False

        return False

    elif len(result) > 1:

        msg = ('  More than one entity with eid %s exists in source!\n'

               '  WARNING : Unable to fix this, do it yourself!\n')

        sys.stderr.write(msg % eid)

    eids[eid] = True

    return True

# XXX move to yams?

def etype_fti_containers(eschema, _done=None):

    if _done is None:

        _done = set()

    _done.add(eschema)

    containers = tuple(eschema.fulltext_containers())

    if containers:

        for rschema, target in containers:

            if target == 'object':

                targets = rschema.objects(eschema)

            else:

                targets = rschema.subjects(eschema)

            for targeteschema in targets:

                if targeteschema in _done:

                    continue

                _done.add(targeteschema)

                for container in etype_fti_containers(targeteschema, _done):

                    yield container

    else:

        yield eschema

def reindex_entities(schema, cnx, withpb=True, etypes=None):

    """reindex all entities in the repository"""

    # deactivate modification_date hook since we don't want them

    # to be updated due to the reindexation

    repo = cnx.repo

    dbhelper = repo.system_source.dbhelper

    cursor = cnx.cnxset.cu

    if not dbhelper.has_fti_table(cursor):

        print('no text index table')

        dbhelper.init_fti(cursor)

    repo.system_source.do_fti = True  # ensure full-text indexation is activated

    if etypes is None:

        print('Reindexing entities')

        etypes = set()

        for eschema in schema.entities():

            if eschema.final:

                continue

            indexable_attrs = tuple(eschema.indexable_attributes()) # generator

            if not indexable_attrs:

                continue

            for container in etype_fti_containers(eschema):

                etypes.add(container)

        # clear fti table first

        cnx.system_sql('DELETE FROM %s' % dbhelper.fti_table)

    else:

        print('Reindexing entities of type %s' % \

              ', '.join(sorted(str(e) for e in etypes)))

        # clear fti table first. Use subquery for sql compatibility

        cnx.system_sql("DELETE FROM %s WHERE EXISTS(SELECT 1 FROM ENTITIES "

                       "WHERE eid=%s AND type IN (%s))" % (

                           dbhelper.fti_table, dbhelper.fti_uid_attr,

                           ','.join("'%s'" % etype for etype in etypes)))

    if withpb:

        pb = ProgressBar(len(etypes) + 1)

        pb.update()

    # reindex entities by generating rql queries which set all indexable

    # attribute to their current value

    source = repo.system_source

    for eschema in etypes:

        etype_class = cnx.vreg['etypes'].etype_class(str(eschema))

        for rset in etype_class.cw_fti_index_rql_limit(cnx):

            source.fti_index_entities(cnx, rset.entities())

            # clear entity cache to avoid high memory consumption on big tables

            cnx.drop_entity_cache()

        if withpb:

            pb.update()

    if withpb:

        pb.finish()

_CHECKERS = {}

def _checker(func):

    """Decorator to register a function as a checker for check()."""

    fname = func.__name__

    prefix = 'check_'

    assert fname.startswith(prefix), 'cannot register %s as a checker' % func

    _CHECKERS[fname[len(prefix):]] = func

    return func

@_checker

def check_schema(schema, cnx, eids, fix=1):

    """check serialized schema"""

    print('Checking serialized schema')

    rql = ('Any COUNT(X),RN,SN,ON,CTN GROUPBY RN,SN,ON,CTN ORDERBY 1 '

           'WHERE X is CWConstraint, R constrained_by X, '

           'R relation_type RT, RT name RN, R from_entity ST, ST name SN, '

           'R to_entity OT, OT name ON, X cstrtype CT, CT name CTN')

    for count, rn, sn, on, cstrname in cnx.execute(rql):

        if count == 1:

            continue

        if cstrname in UNIQUE_CONSTRAINTS:

            print("ERROR: got %s %r constraints on relation %s.%s.%s" % (

                count, cstrname, sn, rn, on))

            if fix:

                print('dunno how to fix, do it yourself')

@_checker

def check_text_index(schema, cnx, eids, fix=1):

    """check all entities registered in the text index"""

    print('Checking text index')

    msg = ('  Entity with eid %s exists in the text index but not in any '

           'entity type table (autofix will remove from text index)')

    cursor = cnx.system_sql('SELECT uid FROM appears;')

    for row in cursor.fetchall():

        eid = row[0]

        if not has_eid(cnx, cursor, eid, eids):

            sys.stderr.write(msg % eid)

            if fix:

                cnx.system_sql('DELETE FROM appears WHERE uid=%s;' % eid)

            notify_fixed(fix)

@_checker

def check_entities(schema, cnx, eids, fix=1):

    """check all entities registered in the repo system table"""

    print('Checking entities system table')

    # system table but no source

    msg = ('  Entity %s with eid %s exists in "entities" table but not in any '

           'entity type table (autofix will delete the entity)')

    cursor = cnx.system_sql('SELECT eid,type FROM entities;')

    for row in cursor.fetchall():

        eid, etype = row

        if not has_eid(cnx, cursor, eid, eids):

            sys.stderr.write(msg % (etype, eid))

            if fix:

                cnx.system_sql('DELETE FROM entities WHERE eid=%s;' % eid)

            notify_fixed(fix)

    # source in entities, but no relation cw_source

    # XXX this (get_versions) requires a second connection to the db when we already have one open

    cursor = cnx.system_sql('SELECT e.eid FROM entities as e, cw_CWSource as s '

                            'WHERE NOT EXISTS(SELECT 1 FROM cw_source_relation as cs '

                            '  WHERE cs.eid_from=e.eid) '

                            'ORDER BY e.eid')

    msg = ('  Entity with eid %s is missing relation cw_source (autofix will create the relation)\n')

    for row in cursor.fetchall():

        sys.stderr.write(msg % row[0])

    if fix:

        cnx.system_sql('INSERT INTO cw_source_relation (eid_from, eid_to) '

                       'SELECT e.eid, s.cw_eid FROM entities as e, cw_CWSource as s '

                       "WHERE s.cw_name='system' AND NOT EXISTS(SELECT 1 FROM cw_source_relation as cs "

                       '  WHERE cs.eid_from=e.eid)')

        notify_fixed(True)

    # inconsistencies for 'is'

    msg = '  %s #%s is missing relation "is" (autofix will create the relation)\n'

    cursor = cnx.system_sql('SELECT e.type, e.eid FROM entities as e, cw_CWEType as s '

                                'WHERE s.cw_name=e.type AND NOT EXISTS(SELECT 1 FROM is_relation as cs '

                                '  WHERE cs.eid_from=e.eid AND cs.eid_to=s.cw_eid) '

                                'ORDER BY e.eid')

    for row in cursor.fetchall():

        sys.stderr.write(msg % tuple(row))

    if fix:

        cnx.system_sql('INSERT INTO is_relation (eid_from, eid_to) '

                           'SELECT e.eid, s.cw_eid FROM entities as e, cw_CWEType as s '

                           'WHERE s.cw_name=e.type AND NOT EXISTS(SELECT 1 FROM is_relation as cs '

                           '  WHERE cs.eid_from=e.eid AND cs.eid_to=s.cw_eid)')

        notify_fixed(True)

    # inconsistencies for 'is_instance_of'

    msg = '  %s #%s is missing relation "is_instance_of" (autofix will create the relation)\n'

    cursor = cnx.system_sql('SELECT e.type, e.eid FROM entities as e, cw_CWEType as s '

                                'WHERE s.cw_name=e.type AND NOT EXISTS(SELECT 1 FROM is_instance_of_relation as cs '

                                '  WHERE cs.eid_from=e.eid AND cs.eid_to=s.cw_eid) '

                                'ORDER BY e.eid')

    for row in cursor.fetchall():

        sys.stderr.write(msg % tuple(row))

    if fix:

        cnx.system_sql('INSERT INTO is_instance_of_relation (eid_from, eid_to) '

                           'SELECT e.eid, s.cw_eid FROM entities as e, cw_CWEType as s '

                           'WHERE s.cw_name=e.type AND NOT EXISTS(SELECT 1 FROM is_instance_of_relation as cs '

                           '  WHERE cs.eid_from=e.eid AND cs.eid_to=s.cw_eid)')

        notify_fixed(True)

    print('Checking entities tables')

    msg = ('  Entity with eid %s exists in the %s table but not in "entities" '

           'table (autofix will delete the entity)')

    for eschema in schema.entities():

        if eschema.final:

            continue

        table = SQL_PREFIX + eschema.type

        column = SQL_PREFIX +  'eid'

        cursor = cnx.system_sql('SELECT %s FROM %s;' % (column, table))

        for row in cursor.fetchall():

            eid = row[0]

            # eids is full since we have fetched everything from the entities table,

            # no need to call has_eid

            if not eid in eids or not eids[eid]:

                sys.stderr.write(msg % (eid, eschema.type))

                if fix:

                    cnx.system_sql('DELETE FROM %s WHERE %s=%s;' % (table, column, eid))

                notify_fixed(fix)

def bad_related_msg(rtype, target, eid, fix):

    msg = ('  A relation %(rtype)s with %(target)s eid %(eid)d exists but '

           'entity #(eid)d does not exist')

    sys.stderr.write(msg % {'rtype': rtype, 'target': target, 'eid': eid})

    notify_fixed(fix)

def bad_inlined_msg(rtype, parent_eid, eid, fix):

    msg = ('  An inlined relation %s from %s to %s exists but the latter '

           'entity does not exist')

    sys.stderr.write(msg % (rtype, parent_eid, eid))

    notify_fixed(fix)

@_checker

def check_relations(schema, cnx, eids, fix=1):

    """check that eids referenced by relations are registered in the repo system

    table

    """

    print('Checking relations')

    for rschema in schema.relations():

        if rschema.final or rschema.rule or rschema.type in PURE_VIRTUAL_RTYPES:

            continue

        if rschema.inlined:

            for subjtype in rschema.subjects():

                table = SQL_PREFIX + str(subjtype)

                column = SQL_PREFIX +  str(rschema)

                sql = 'SELECT cw_eid,%s FROM %s WHERE %s IS NOT NULL;' % (

                    column, table, column)

                cursor = cnx.system_sql(sql)

                for row in cursor.fetchall():

                    parent_eid, eid = row

                    if not has_eid(cnx, cursor, eid, eids):

                        bad_inlined_msg(rschema, parent_eid, eid, fix)

                        if fix:

                            sql = 'UPDATE %s SET %s=NULL WHERE %s=%s;' % (

                                table, column, column, eid)

                            cnx.system_sql(sql)

            continue

        try:

            cursor = cnx.system_sql('SELECT eid_from FROM %s_relation;' % rschema)

        except Exception as ex:

            # usually because table doesn't exist

            print('ERROR', ex)

            continue

        for row in cursor.fetchall():

            eid = row[0]

            if not has_eid(cnx, cursor, eid, eids):

                bad_related_msg(rschema, 'subject', eid, fix)

                if fix:

                    sql = 'DELETE FROM %s_relation WHERE eid_from=%s;' % (

                        rschema, eid)

                    cnx.system_sql(sql)

        cursor = cnx.system_sql('SELECT eid_to FROM %s_relation;' % rschema)

        for row in cursor.fetchall():

            eid = row[0]

            if not has_eid(cnx, cursor, eid, eids):

                bad_related_msg(rschema, 'object', eid, fix)

                if fix:

                    sql = 'DELETE FROM %s_relation WHERE eid_to=%s;' % (

                        rschema, eid)

                    cnx.system_sql(sql)

@_checker

def check_mandatory_relations(schema, cnx, eids, fix=1):

    """check entities missing some mandatory relation"""

    print('Checking mandatory relations')

    msg = '%s #%s is missing mandatory %s relation %s (autofix will delete the entity)'

    for rschema in schema.relations():

        if rschema.final or rschema in PURE_VIRTUAL_RTYPES or rschema in ('is', 'is_instance_of'):

            continue

        smandatory = set()

        omandatory = set()

        for rdef in rschema.rdefs.values():

            if rdef.cardinality[0] in '1+':

                smandatory.add(rdef.subject)

            if rdef.cardinality[1] in '1+':

                omandatory.add(rdef.object)

        for role, etypes in (('subject', smandatory), ('object', omandatory)):

            for etype in etypes:

                if role == 'subject':

                    rql = 'Any X WHERE NOT X %s Y, X is %s' % (rschema, etype)

                else:

                    rql = 'Any X WHERE NOT Y %s X, X is %s' % (rschema, etype)

                for entity in cnx.execute(rql).entities():

                    sys.stderr.write(msg % (entity.cw_etype, entity.eid, role, rschema))

                    if fix:

                        entity.cw_delete() # XXX this is BRUTAL!

                    notify_fixed(fix)

@_checker

def check_mandatory_attributes(schema, cnx, eids, fix=1):

    """check for entities stored in the system source missing some mandatory

    attribute

    """

    print('Checking mandatory attributes')

    msg = '%s #%s is missing mandatory attribute %s (autofix will delete the entity)'

    for rschema in schema.relations():

        if not rschema.final or rschema in VIRTUAL_RTYPES:

            continue

        for rdef in rschema.rdefs.values():