gnu-social/plugins/Irc/extlib/phergie/Phergie/Plugin/Karma.php

428 lines
11 KiB
PHP
Raw Normal View History

2010-07-26 19:13:00 +01:00
<?php
/**
* Phergie
*
* PHP version 5
*
* LICENSE
*
* This source file is subject to the new BSD license that is bundled
* with this package in the file LICENSE.
* It is also available through the world-wide-web at this URL:
* http://phergie.org/license
*
* @category Phergie
* @package Phergie_Plugin_Karma
* @author Phergie Development Team <team@phergie.org>
* @copyright 2008-2010 Phergie Development Team (http://phergie.org)
* @license http://phergie.org/license New BSD License
* @link http://pear.phergie.org/package/Phergie_Plugin_Karma
*/
/**
* Handles requests for incrementation or decrementation of a maintained list
2010-08-05 00:02:24 +01:00
* of counters for specified terms.
2010-07-26 19:13:00 +01:00
*
* @category Phergie
* @package Phergie_Plugin_Karma
* @author Phergie Development Team <team@phergie.org>
* @license http://phergie.org/license New BSD License
* @link http://pear.phergie.org/package/Phergie_Plugin_Karma
2010-08-05 00:02:24 +01:00
* @uses extension PDO
* @uses extension pdo_sqlite
* @uses Phergie_Plugin_Command pear.phergie.org
* @uses Phergie_Plugin_Message pear.phergie.org
2010-07-26 19:13:00 +01:00
*/
class Phergie_Plugin_Karma extends Phergie_Plugin_Abstract
{
/**
2010-08-05 00:02:24 +01:00
* SQLite object
2010-07-26 19:13:00 +01:00
*
* @var resource
*/
protected $db = null;
/**
2010-08-05 00:02:24 +01:00
* Prepared statement to add a new karma record
2010-07-26 19:13:00 +01:00
*
2010-08-05 00:02:24 +01:00
* @var PDOStatement
2010-07-26 19:13:00 +01:00
*/
2010-08-05 00:02:24 +01:00
protected $insertKarma;
2010-07-26 19:13:00 +01:00
/**
2010-08-05 00:02:24 +01:00
* Prepared statement to update an existing karma record
2010-07-26 19:13:00 +01:00
*
2010-08-05 00:02:24 +01:00
* @var PDOStatement
2010-07-26 19:13:00 +01:00
*/
2010-08-05 00:02:24 +01:00
protected $updateKarma;
2010-07-26 19:13:00 +01:00
/**
2010-08-05 00:02:24 +01:00
* Retrieves an existing karma record
2010-07-26 19:13:00 +01:00
*
2010-08-05 00:02:24 +01:00
* @var PDOStatement
2010-07-26 19:13:00 +01:00
*/
2010-08-05 00:02:24 +01:00
protected $fetchKarma;
2010-07-26 19:13:00 +01:00
/**
2010-08-05 00:02:24 +01:00
* Retrieves an existing fixed karma record
2010-07-26 19:13:00 +01:00
*
2010-08-05 00:02:24 +01:00
* @var PDOStatement
*/
2010-08-05 00:02:24 +01:00
protected $fetchFixedKarma;
/**
2010-08-05 00:02:24 +01:00
* Retrieves a positive answer for a karma comparison
*
* @var PDOStatement
2010-07-26 19:13:00 +01:00
*/
2010-08-05 00:02:24 +01:00
protected $fetchPositiveAnswer;
2010-07-26 19:13:00 +01:00
/**
2010-08-05 00:02:24 +01:00
* Retrieves a negative answer for a karma comparison
2010-07-26 19:13:00 +01:00
*
* @var PDOStatement
*/
2010-08-05 00:02:24 +01:00
protected $fetchNegativeAnswer;
2010-07-26 19:13:00 +01:00
/**
2010-08-05 00:02:24 +01:00
* Check for dependencies and initializes a database connection and
* prepared statements.
2010-07-26 19:13:00 +01:00
*
* @return void
*/
public function onLoad()
{
2010-08-05 00:02:24 +01:00
$plugins = $this->getPluginHandler();
$plugins->getPlugin('Command');
$plugins->getPlugin('Message');
2010-07-26 19:13:00 +01:00
2010-08-05 00:02:24 +01:00
$file = dirname(__FILE__) . '/Karma/karma.db';
$this->db = new PDO('sqlite:' . $file);
2010-07-26 19:13:00 +01:00
2010-08-05 00:02:24 +01:00
$this->fetchKarma = $this->db->prepare('
SELECT karma
FROM karmas
WHERE term = :term
LIMIT 1
');
$this->insertKarma = $this->db->prepare('
2010-08-05 00:02:24 +01:00
INSERT INTO karmas (term, karma)
VALUES (:term, :karma)
2010-07-26 19:13:00 +01:00
');
2010-08-05 00:02:24 +01:00
$this->updateKarma = $this->db->prepare('
UPDATE karmas
SET karma = :karma
WHERE term = :term
2010-07-26 19:13:00 +01:00
');
2010-08-05 00:02:24 +01:00
$this->fetchFixedKarma = $this->db->prepare('
SELECT karma
FROM fixed_karmas
WHERE term = :term
LIMIT 1
2010-08-03 17:42:02 +01:00
');
2010-08-05 00:02:24 +01:00
$this->fetchPositiveAnswer = $this->db->prepare('
SELECT answer
FROM positive_answers
ORDER BY RANDOM()
LIMIT 1
');
$this->fetchNegativeAnswer = $this->db->prepare('
SELECT answer
FROM negative_answers
ORDER BY RANDOM()
LIMIT 1
2010-07-26 19:13:00 +01:00
');
}
/**
2010-08-05 00:02:24 +01:00
* Get the canonical form of a given term.
2010-07-26 19:13:00 +01:00
*
2010-08-05 00:02:24 +01:00
* In the canonical form all sequences of whitespace
* are replaced by a single space and all characters
* are lowercased.
*
* @param string $term Term for which a canonical form is required
*
* @return string Canonical term
2010-07-26 19:13:00 +01:00
*/
2010-08-05 00:02:24 +01:00
protected function getCanonicalTerm($term)
2010-07-26 19:13:00 +01:00
{
2010-08-05 00:02:24 +01:00
$canonicalTerm = strtolower(preg_replace('|\s+|', ' ', trim($term, '()')));
switch ($canonicalTerm) {
case 'me':
$canonicalTerm = strtolower($this->event->getNick());
break;
case 'all':
case '*':
case 'everything':
$canonicalTerm = 'everything';
break;
}
return $canonicalTerm;
2010-07-26 19:13:00 +01:00
}
/**
2010-08-05 00:02:24 +01:00
* Intercepts a message and processes any contained recognized commands.
2010-07-26 19:13:00 +01:00
*
* @return void
*/
public function onPrivmsg()
{
2010-08-05 00:02:24 +01:00
$message = $this->getEvent()->getText();
$termPattern = '\S+?|\([^<>]+?\)+';
$actionPattern = '(?P<action>\+\+|--)';
$modifyPattern = <<<REGEX
{^
(?J) # allow overwriting capture names
\s* # ignore leading whitespace
(?: # start with ++ or -- before the term
$actionPattern
(?P<term>$termPattern)
| # follow the term with ++ or --
(?P<term>$termPattern)
$actionPattern # allow no whitespace between the term and the action
)
$}ix
REGEX;
$versusPattern = <<<REGEX
{^
(?P<term0>$termPattern)
\s+(?P<method><|>)\s+
(?P<term1>$termPattern)$#
$}ix
REGEX;
$match = null;
if (preg_match($modifyPattern, $message, $match)) {
$action = $match['action'];
$term = $this->getCanonicalTerm($match['term']);
$this->modifyKarma($term, $action);
} elseif (preg_match($versusPattern, $message, $match)) {
$term0 = trim($match['term0']);
$term1 = trim($match['term1']);
$method = $match['method'];
$this->compareKarma($term0, $term1, $method);
2010-07-26 19:13:00 +01:00
}
}
2010-08-05 00:02:24 +01:00
/**
* Get the karma rating for a given term.
*
* @param string $term Term for which the karma rating needs to be
* retrieved
*
* @return void
*/
public function onCommandKarma($term)
2010-07-26 19:13:00 +01:00
{
2010-08-05 00:02:24 +01:00
$source = $this->getEvent()->getSource();
$nick = $this->getEvent()->getNick();
if (empty($term)) {
return;
}
$canonicalTerm = $this->getCanonicalTerm($term);
$fixedKarma = $this->fetchFixedKarma($canonicalTerm);
if ($fixedKarma) {
2010-08-08 00:31:30 +01:00
$message = $nick . ': ' . $term . ' ' . $fixedKarma . '.';
2010-08-05 00:02:24 +01:00
$this->doPrivmsg($source, $message);
return;
}
$karma = $this->fetchKarma($canonicalTerm);
$message = $nick . ': ';
if ($term == 'me') {
$message .= 'You have';
} else {
$message .= $term . ' has';
}
$message .= ' ';
if ($karma) {
$message .= 'karma of ' . $karma;
} else {
$message .= 'neutral karma';
}
$message .= '.';
$this->doPrivmsg($source, $message);
2010-07-26 19:13:00 +01:00
}
2010-08-05 00:02:24 +01:00
/**
* Resets the karma for a term to 0.
*
* @param string $term Term for which to reset the karma rating
*
* @return void
*/
public function onCommandReincarnate($term)
2010-07-26 19:13:00 +01:00
{
2010-08-05 00:02:24 +01:00
$data = array(
':term' => $term,
':karma' => 0
);
$this->updateKarma->execute($data);
2010-07-26 19:13:00 +01:00
}
2010-08-05 00:02:24 +01:00
/**
* Compares the karma between two terms. Optionally increases/decreases
* the karma of either term.
*
* @param string $term0 First term
* @param string $term1 Second term
* @param string $method Comparison method (< or >)
*
* @return void
*/
protected function compareKarma($term0, $term1, $method)
2010-07-26 19:13:00 +01:00
{
2010-08-05 00:02:24 +01:00
$event = $this->getEvent();
$nick = $event->getNick();
$source = $event->getSource();
$canonicalTerm0 = $this->getCanonicalTerm($term0);
$canonicalTerm1 = $this->getCanonicalTerm($term1);
$fixedKarma0 = $this->fetchFixedKarma($canonicalTerm0);
$fixedKarma1 = $this->fetchFixedKarma($canonicalTerm1);
if ($fixedKarma0
|| $fixedKarma1
|| empty($canonicalTerm0)
|| empty($canonicalTerm1)
) {
return;
}
if ($canonicalTerm0 == 'everything') {
$change = $method == '<' ? '++' : '--';
$this->modifyKarma($canonicalTerm1, $change);
$karma0 = 0;
$karma1 = $this->fetchKarma($canonicalTerm1);
} elseif ($canonicalTerm1 == 'everything') {
$change = $method == '<' ? '--' : '++';
$this->modifyKarma($canonicalTerm0, $change);
$karma0 = $this->fetchKarma($canonicalTerm1);
$karma1 = 0;
} else {
$karma0 = $this->fetchKarma($canonicalTerm0);
$karma1 = $this->fetchKarma($canonicalTerm1);
2010-07-26 19:13:00 +01:00
}
2010-08-05 00:02:24 +01:00
if (($method == '<'
&& $karma0 < $karma1)
|| ($method == '>'
&& $karma0 > $karma1)) {
$replies = $this->fetchPositiveAnswer;
} else {
$replies = $this->fetchNegativeAnswer;
}
$replies->execute();
$reply = $replies->fetchColumn();
if (max($karma0, $karma1) == $karma1) {
list($canonicalTerm0, $canonicalTerm1) =
array($canonicalTerm1, $canonicalTerm0);
}
$message = str_replace(
array('%owner%','%owned%'),
array($canonicalTerm0, $canonicalTerm1),
$reply
);
$this->doPrivmsg($source, $message);
2010-07-26 19:13:00 +01:00
}
/**
2010-08-05 00:02:24 +01:00
* Modifes a term's karma.
*
* @param string $term Term to modify
* @param string $action Karma action (either ++ or --)
2010-07-26 19:13:00 +01:00
*
* @return void
*/
2010-08-05 00:02:24 +01:00
protected function modifyKarma($term, $action)
2010-07-26 19:13:00 +01:00
{
2010-08-05 00:02:24 +01:00
if (empty($term)) {
return;
}
$karma = $this->fetchKarma($term);
if ($karma !== false) {
$statement = $this->updateKarma;
} else {
$statement = $this->insertKarma;
}
$karma += ($action == '++') ? 1 : -1;
$args = array(
':term' => $term,
':karma' => $karma
);
$statement->execute($args);
}
/**
* Returns the karma rating for a specified term for which the karma
* rating can be modified.
*
* @param string $term Term for which to fetch the corresponding karma
* rating
*
* @return integer|boolean Integer value denoting the term's karma or
* FALSE if there is the specified term has no associated karma
* rating
*/
protected function fetchKarma($term)
{
$this->fetchKarma->execute(array(':term' => $term));
$result = $this->fetchKarma->fetch(PDO::FETCH_ASSOC);
if ($result === false) {
return false;
}
return (int) $result['karma'];
}
/**
* Returns a phrase describing the karma rating for a specified term for
* which the karma rating is fixed.
*
* @param string $term Term for which to fetch the corresponding karma
* rating
*
* @return string Phrase describing the karma rating, which may be append
* to the term to form a complete response
*/
protected function fetchFixedKarma($term)
{
$this->fetchFixedKarma->execute(array(':term' => $term));
$result = $this->fetchFixedKarma->fetch(PDO::FETCH_ASSOC);
if ($result === false) {
return false;
}
return $result['karma'];
2010-07-26 19:13:00 +01:00
}
}