###
# Copyright (c) 2002-2004, Jeremiah Fincher
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions are met:
#
#   * Redistributions of source code must retain the above copyright notice,
#     this list of conditions, and the following disclaimer.
#   * Redistributions in binary form must reproduce the above copyright notice,
#     this list of conditions, and the following disclaimer in the
#     documentation and/or other materials provided with the distribution.
#   * Neither the name of the author of this software nor the name of
#     contributors to this software may be used to endorse or promote products
#     derived from this software without specific prior written consent.
#
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
# ARE DISCLAIMED.  IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.
###

"""
Handles 'factoids,' little tidbits of information held in a database and
available on demand via several commands.
"""

__revision__ = "$Id$"

import time
import getopt
import string
import os.path
from itertools import imap

import supybot.dbi as dbi
import supybot.conf as conf
import supybot.utils as utils
import supybot.ircdb as ircdb
from supybot.commands import *
import supybot.plugins as plugins
import supybot.ircutils as ircutils
import supybot.privmsgs as privmsgs
import supybot.registry as registry
import supybot.callbacks as callbacks

conf.registerPlugin('Factoids')

conf.registerChannelValue(conf.supybot.plugins.Factoids, 'learnSeparator',
    registry.String('as', """Determines what separator must be used in the
    learn command.  Defaults to 'as' -- learn <key> as <value>.  Users might
    feel more comfortable with 'is' or something else, so it's
    configurable."""))
conf.registerChannelValue(conf.supybot.plugins.Factoids,
    'showFactoidIfOnlyOneMatch', registry.Boolean(True, """Determines whether
    the bot will reply with the single matching factoid if only one factoid
    matches when using the search command."""))
conf.registerChannelValue(conf.supybot.plugins.Factoids,
    'replyWhenInvalidCommand', registry.Boolean(True,  """Determines whether
    the bot will reply to invalid commands by searching for a factoid;
    basically making the whatis unnecessary when you want all factoids for a
    given key."""))
conf.registerChannelValue(conf.supybot.plugins.Factoids,
    'factoidPrefix', registry.StringWithSpaceOnRight('could be ', """Determines
    the string that factoids will be introduced by."""))

class MultiKeyError(KeyError):
    pass

class LockError(Exception):
    pass

class SqliteFactoidsDB(object):
    def __init__(self, filename):
        self.dbs = ircutils.IrcDict()
        self.filename = filename

    def close(self):
        for db in self.dbs.itervalues():
            db.close()

    def _getDb(self, channel):
        try:
            import sqlite
        except ImportError:
            raise callbacks.Error, 'You need to have PySQLite installed to ' \
                                   'use this plugin.  Download it at ' \
                                   '<http://pysqlite.sf.net/>'
        filename = plugins.makeChannelFilename(self.filename, channel)
        if filename in self.dbs:
            return self.dbs[filename]
        if os.path.exists(filename):
            self.dbs[filename] = sqlite.connect(filename)
            return self.dbs[filename]
        db = sqlite.connect(filename)
        self.dbs[filename] = db
        cursor = db.cursor()
        cursor.execute("""CREATE TABLE keys (
                          id INTEGER PRIMARY KEY,
                          key TEXT UNIQUE ON CONFLICT IGNORE,
                          locked BOOLEAN
                          )""")
        cursor.execute("""CREATE TABLE factoids (
                          id INTEGER PRIMARY KEY,
                          key_id INTEGER,
                          added_by TEXT,
                          added_at TIMESTAMP,
                          fact TEXT
                          )""")
        cursor.execute("""CREATE TRIGGER remove_factoids
                          BEFORE DELETE ON keys
                          BEGIN
                            DELETE FROM factoids WHERE key_id = old.id;
                          END
                       """)
        db.commit()
        return db

    def add(self, channel, key, factoid, name):
        db = self._getDb(channel)
        cursor = db.cursor()
        cursor.execute("SELECT id, locked FROM keys WHERE key LIKE %s", key)
        if cursor.rowcount == 0:
            cursor.execute("""INSERT INTO keys VALUES (NULL, %s, 0)""", key)
            db.commit()
            cursor.execute("SELECT id, locked FROM keys WHERE key LIKE %s",key)
        (id, locked) = imap(int, cursor.fetchone())
        if not locked:
            cursor.execute("""INSERT INTO factoids VALUES
                              (NULL, %s, %s, %s, %s)""",
                           id, name, int(time.time()), factoid)
            db.commit()
        else:
            raise LockError

    def get(self, channel, key):
        db = self.getDb(channel)
        cursor = db.cursor()
        cursor.execute("""SELECT factoids.fact FROM factoids, keys
                          WHERE keys.key LIKE %s AND factoids.key_id=keys.id
                          ORDER BY factoids.id
                          LIMIT 20""", key)
        return [t[0] for t in cursor.fetchall()]

    def lock(self, channel, key):
        db = self.getDb(channel)
        cursor = db.cursor()
        cursor.execute("UPDATE keys SET locked=1 WHERE key LIKE %s", key)
        db.commit()

    def unlock(self, channel, key):
        db = self.getDb(channel)
        cursor = db.cursor()
        cursor.execute("UPDATE keys SET locked=0 WHERE key LIKE %s", key)
        db.commit()

    def remove(self, channel, key, number):
        db = self.getDb(channel)
        cursor = db.cursor()
        cursor.execute("""SELECT keys.id, factoids.id
                          FROM keys, factoids
                          WHERE key LIKE %s AND
                                factoids.key_id=keys.id""", key)
        if cursor.rowcount == 0:
            raise dbi.NoRecordError
        elif cursor.rowcount == 1 or number is True:
            (id, _) = cursor.fetchone()
            cursor.execute("""DELETE FROM factoids WHERE key_id=%s""", id)
            cursor.execute("""DELETE FROM keys WHERE key LIKE %s""", key)
            db.commit()
        else:
            if number is not None:
                results = cursor.fetchall()
                try:
                    (_, id) = results[number]
                except IndexError:
                    raise dbi.NoRecordError
                cursor.execute("DELETE FROM factoids WHERE id=%s", id)
                db.commit()
            else:
                raise MultiKeyError, cursor.rowcount

    def random(self, channel):
        db = self.getDb(channel)
        cursor = db.cursor()
        cursor.execute("""SELECT fact, key_id FROM factoids
                          ORDER BY random()
                          LIMIT 3""")
        if cursor.rowcount == 0:
            raise dbi.NoRecordError
        L = []
        for (factoid, id) in cursor.fetchall():
            cursor.execute("""SELECT key FROM keys WHERE id=%s""", id)
            (key,) = cursor.fetchone()
            L.append((key, factoid))
        return L

    def info(self, channel, key):
        db = self.getDb(channel)
        cursor = db.cursor()
        cursor.execute("SELECT id, locked FROM keys WHERE key LIKE %s", key)
        if cursor.rowcount == 0:
            raise dbi.NoRecordError
        (id, locked) = imap(int, cursor.fetchone())
        cursor.execute("""SELECT  added_by, added_at FROM factoids
                          WHERE key_id=%s
                          ORDER BY id""", id)
        return (locked, cursor.fetchall())

    _sqlTrans = string.maketrans('*?', '%_')
    def select(self, channel, values, predicates, globs):
        db = self.getDb(channel)
        cursor = db.cursor()
        tables = ['keys']
        criteria = []
        predicateName = 'p'
        formats = []
        if not values:
            target = 'keys.key'
        else:
            target = 'factoids.fact'
            if 'factoids' not in tables:
                tables.append('factoids')
            criteria.append('factoids.key_id=keys.id')
        for glob in globs:
            criteria.append('TARGET LIKE %s')
            formats.append(glob.translate(self._sqlTrans))
        for predicate in predicates:
            criteria.append('%s(TARGET)' % predicateName)
            def p(s, r=arg):
                return int(bool(predicate(s)))
            db.create_function(predicateName, 1, p)
            predicateName += 'p'
        sql = """SELECT keys.key FROM %s WHERE %s""" % \
              (', '.join(tables), ' AND '.join(criteria))
        sql = sql.replace('TARGET', target)
        cursor.execute(sql, formats)
        if cursor.rowcount == 0:
            raise dbi.NoRecordError
        elif cursor.rowcount == 1 and \
        conf.supybot.plugins.Factoids.showFactoidIfOnlyOneMatch.get(channel)():
            return cursor.fetchone()[0]
        elif cursor.rowcount > 100:
            return None
        else:
            return cursor.fetchall()

FactoidsDB = plugins.DB('Factoids', {'sqlite': SqliteFactoidsDB})

class Factoids(callbacks.Privmsg):
    def __init__(self):
        self.__parent = super(Factoids, self)
        self.__parent.__init__()
        self.db = FactoidsDB()

    def die(self):
        self.__parent.die()
        self.db.close()

    def learn(self, irc, msg, args, channel, text):
        """[<channel>] <key> as <value>

        Associates <key> with <value>.  <channel> is only necessary if the
        message isn't sent on the channel itself.  The word 'as' is necessary
        to separate the key from the value.  It can be changed to another
        word via the learnSeparator registry value.
        """
        try:
            separator = conf.supybot.plugins.Factoids. \
                            learnSeparator.get(channel)()
            i = text.index(separator)
        except ValueError:
            raise callbacks.ArgumentError
        text.pop(i)
        key = ' '.join(text[:i])
        factoid = ' '.join(text[i:])
        try:
            name = ircdb.users.getUser(msg.prefix).name
        except KeyError:
            name = msg.nick
        try:
            self.db.add(channel, key, factoid, nick)
            irc.replySuccess()
        except LockError:
            irc.error('That factoid is locked.')
    learn = wrap(learn, ['channeldb', many('text')])

    def _replyFactoids(self, irc, channel, key, factoids, number=0, error=True):
        if factoids:
            if number:
                try:
                    irc.reply(factoids[number])
                except IndexError:
                    irc.error('That\'s not a valid number for that key.')
                    return
            else:
                intro = self.registryValue('factoidPrefix', channel)
                prefix = '%s %s' % (utils.quoted(key), intro)
                if len(factoids) == 1:
                    irc.reply(prefix + factoids[0])
                else:
                    factoidsS = []
                    counter = 1
                    for factoid in factoids:
                        factoidsS.append('(#%s) %s' % (counter, factoid))
                        counter += 1
                    irc.replies(factoidsS, prefixer=prefix,
                                joiner=', or ', onlyPrefixFirst=True)
        elif error:
            irc.error('No factoid matches that key.')

    def tokenizedCommand(self, irc, msg, tokens):
        if ircutils.isChannel(msg.args[0]):
            channel = msg.args[0]
            if self.registryValue('replyWhenInvalidCommand', channel):
                key = ' '.join(tokens)
                factoids = self.db.get(channel, key)
                self._replyFactoids(irc, channel, key, factoids, error=False)

    def whatis(self, irc, msg, args, channel, number, key):
        """[<channel>] <key> [<number>]

        Looks up the value of <key> in the factoid database.  If given a
        number, will return only that exact factoid.  <channel> is only
        necessary if the message isn't sent in the channel itself.
        """
        factoids = self.db.get(channel, key)
        self._replyFactoids(irc, channel, key, factoids, number)
    whatis = wrap(whatis, ['channeldb', reverse(optional('positiveInt', 0)), 'text'],
                  allowExtra=True)

    def lock(self, irc, msg, args, channel, key):
        """[<channel>] <key>

        Locks the factoid(s) associated with <key> so that they cannot be
        removed or added to.  <channel> is only necessary if the message isn't
        sent in the channel itself.
        """
        self.db.lock(channel, key)
        irc.replySuccess()
    lock = wrap(lock, ['channeldb', 'text'], allowExtra=True)

    def unlock(self, irc, msg, args, channel, key):
        """[<channel>] <key>

        Unlocks the factoid(s) associated with <key> so that they can be
        removed or added to.  <channel> is only necessary if the message isn't
        sent in the channel itself.
        """
        self.db.unlock(channel, key)
        irc.replySuccess()
    unlock = wrap(unlock, ['channeldb', 'text'], allowExtra=True)

    def forget(self, irc, msg, args, channel, number, key):
        """[<channel>] <key> [<number>|*]

        Removes the factoid <key> from the factoids database.  If there are
        more than one factoid with such a key, a number is necessary to
        determine which one should be removed.  A * can be used to remove all
        factoids associated with a key.  <channel> is only necessary if
        the message isn't sent in the channel itself.
        """
        if number == '*':
            number = True
        else:
            number -= 1
        key = ' '.join(key)
        try:
            self.db.remove(channel, key, number)
            irc.replySuccess()
        except dbi.NoRecordError:
            irc.error('There is no such factoid.')
        except MultiKeyError, e:
            irc.error('%s factoids have that key.  '
                      'Please specify which one to remove, '
                      'or use * to designate all of them.' % str(e))
    forget = wrap(forget, ['channeldb',
                           reverse(first('positiveInt', ('literal', '*'))),
                           'text'], allowExtra=True)

    def random(self, irc, msg, args, channel):
        """[<channel>]

        Returns a random factoid from the database for <channel>.  <channel>
        is only necessary if the message isn't sent in the channel itself.
        """
        try:
            L = ['"%s": %s' % (ircutils.bold(k), v)
                 for (k, v) in self.db.random(channel)]
            irc.reply('; '.join(L))
        except dbi.NoRecordError:
            irc.error('I couldn\'t find a factoid.')
    random = wrap(random, ['channeldb'])

    def info(self, irc, msg, args, channel, key):
        """[<channel>] <key>

        Gives information about the factoid(s) associated with <key>.
        <channel> is only necessary if the message isn't sent in the channel
        itself.
        """
        try:
            (locked, factoids) = self.db.info(channel, key)
        except dbi.NoRecordError:
            irc.error('No factoid matches that key.', Raise=True)
        L = []
        counter = 0
        for (added_by, added_at) in factoids:
            counter += 1
            added_at = time.strftime(conf.supybot.humanTimestampFormat(),
                                     time.localtime(int(added_at)))
            L.append('#%s was added by %s at %s' % (counter,added_by,added_at))
        factoids = '; '.join(L)
        s = 'Key %s is %s and has %s associated with it: %s' % \
            (utils.quoted(key), locked and 'locked' or 'not locked',
             utils.nItems('factoid', counter), factoids)
        irc.reply(s)
    info = wrap(info, ['channeldb', 'text'], allowExtra=True)

    def change(self, irc, msg, args):
        """[<channel>] <key> <number> <regexp>

        Changes the factoid #<number> associated with <key> according to
        <regexp>.
        """
        channel = privmsgs.getChannel(msg, args)
        (key, number, regexp) = privmsgs.getArgs(args, required=3)
        try:
            replacer = utils.perlReToReplacer(regexp)
        except ValueError, e:
            irc.error('Invalid regexp: %s' % e)
            return
        try:
            number = int(number)
            if number <= 0:
                raise ValueError
        except ValueError:
            irc.error('Invalid key id.')
            return
        db = self.getDb(channel)
        cursor = db.cursor()
        cursor.execute("""SELECT factoids.id, factoids.fact
                          FROM keys, factoids
                          WHERE keys.key LIKE %s AND
                                keys.id=factoids.key_id""", key)
        if cursor.rowcount == 0:
            irc.error('I couldn\'t find any key %s' % utils.quoted(key))
            return
        elif cursor.rowcount < number:
            irc.error('That\'s not a valid key id.')
            return
        (id, fact) = cursor.fetchall()[number-1]
        newfact = replacer(fact)
        cursor.execute("UPDATE factoids SET fact=%s WHERE id=%s", newfact, id)
        db.commit()
        irc.replySuccess()

    def search(self, irc, msg, args, channel, optlist, globs):
        """[<channel>] [--values] [--{regexp}=<value>] [<glob>]

        Searches the keyspace for keys matching <glob>.  If --regexp is given,
        it associated value is taken as a regexp and matched against the keys.
        If --values is given, search the value space instead of the keyspace.
        """
        if not optlist and not globs:
            raise callbacks.ArgumentError
        values = False
        for (option, arg) in optlist:
            if option == 'values':
                values = True
            elif option == 'regexp':
                predicates.append(r.search)
        L = []
        for glob in globs:
            if '*' not in glob and '?' not in glob:
                glob = '*%s*' % glob
            L.append(glob)
        try:
            factoids = self.db.select(channel, values, predicates, L)
            if isinstance(factoids, basestring):
                self.whatis(irc, msg, factoids)
            elif factoids is None:
                irc.reply('More than 100 keys matched that query; '
                          'please narrow your query.')
            else:
                keys = [repr(t[0]) for t in factoids]
                s = utils.commaAndify(keys)
                irc.reply(s)
        except dbi.NoRecordError:
            irc.reply('No keys matched that query.')
    search = wrap(search, ['channeldb',
                           getopts({'values':'', 'regexp':'regexpMatcher'}),
                           additional('text')])


Class = Factoids


# vim:set shiftwidth=4 tabstop=8 expandtab textwidth=78: