2015-06-17 07:36:11 +00:00
|
|
|
<?php
|
|
|
|
|
|
|
|
class Af_Sort_Bayes extends Plugin {
|
|
|
|
|
|
|
|
private $host;
|
|
|
|
private $filters = array();
|
|
|
|
private $dbh;
|
2015-06-17 12:15:04 +00:00
|
|
|
private $score_modifier = 50;
|
2015-06-17 13:50:21 +00:00
|
|
|
private $sql_prefix = "ttrss_plugin_af_sort_bayes";
|
2015-06-17 19:13:58 +00:00
|
|
|
private $auto_categorize_threshold = 10000;
|
2015-06-17 07:36:11 +00:00
|
|
|
|
|
|
|
function about() {
|
|
|
|
return array(1.0,
|
|
|
|
"Bayesian classifier for tt-rss (WIP)",
|
|
|
|
"fox");
|
|
|
|
}
|
|
|
|
|
|
|
|
function init($host) {
|
|
|
|
require_once __DIR__ . "/lib/class.naivebayesian.php";
|
2015-06-18 08:56:07 +00:00
|
|
|
//require_once __DIR__ . "/lib/class.naivebayesian_ngram.php";
|
2015-06-17 07:36:11 +00:00
|
|
|
require_once __DIR__ . "/lib/class.naivebayesianstorage.php";
|
|
|
|
|
|
|
|
$this->host = $host;
|
|
|
|
$this->dbh = Db::get();
|
|
|
|
|
|
|
|
$this->init_database();
|
|
|
|
|
|
|
|
$host->add_hook($host::HOOK_ARTICLE_FILTER, $this);
|
|
|
|
$host->add_hook($host::HOOK_PREFS_TAB, $this);
|
|
|
|
$host->add_hook($host::HOOK_ARTICLE_BUTTON, $this);
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
function trainArticle() {
|
|
|
|
$article_id = (int) $_REQUEST["article_id"];
|
|
|
|
$train_up = sql_bool_to_bool($_REQUEST["train_up"]);
|
|
|
|
|
2015-06-17 15:53:53 +00:00
|
|
|
//$category = $train_up ? "GOOD" : "UGLY";
|
|
|
|
$dst_category = "UGLY";
|
2015-06-17 07:36:11 +00:00
|
|
|
|
2015-06-17 12:15:04 +00:00
|
|
|
$nbs = new NaiveBayesianStorage($_SESSION["uid"]);
|
2015-06-18 08:56:07 +00:00
|
|
|
$nb = new NaiveBayesian($nbs);
|
2015-06-17 12:15:04 +00:00
|
|
|
|
|
|
|
$result = $this->dbh->query("SELECT score, guid, title, content FROM ttrss_entries, ttrss_user_entries WHERE ref_id = id AND id = " .
|
|
|
|
$article_id . " AND owner_uid = " . $_SESSION["uid"]);
|
|
|
|
|
|
|
|
if ($this->dbh->num_rows($result) != 0) {
|
|
|
|
$guid = $this->dbh->fetch_result($result, 0, "guid");
|
|
|
|
$title = $this->dbh->fetch_result($result, 0, "title");
|
|
|
|
$content = mb_strtolower($title . " " . strip_tags($this->dbh->fetch_result($result, 0, "content")));
|
|
|
|
$score = $this->dbh->fetch_result($result, 0, "score");
|
|
|
|
|
|
|
|
$this->dbh->query("BEGIN");
|
|
|
|
|
2015-06-17 15:53:53 +00:00
|
|
|
$ref = $nbs->getReference($guid, false);
|
|
|
|
|
|
|
|
if (isset($ref['category_id'])) {
|
|
|
|
$current_category = $nbs->getCategoryById($ref['category_id']);
|
|
|
|
} else {
|
|
|
|
$current_category = "UGLY";
|
2015-06-17 12:15:04 +00:00
|
|
|
}
|
|
|
|
|
2015-06-17 15:53:53 +00:00
|
|
|
// set score to fixed value for now
|
|
|
|
|
|
|
|
if ($train_up) {
|
|
|
|
switch ($current_category) {
|
|
|
|
case "UGLY":
|
|
|
|
$dst_category = "GOOD";
|
|
|
|
$score = $this->score_modifier;
|
|
|
|
break;
|
|
|
|
case "BAD":
|
|
|
|
$dst_category = "UGLY";
|
|
|
|
$score = 0;
|
|
|
|
break;
|
|
|
|
case "GOOD":
|
|
|
|
$dst_category = "GOOD";
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
} else {
|
|
|
|
switch ($current_category) {
|
|
|
|
case "UGLY":
|
|
|
|
$dst_category = "BAD";
|
2015-06-17 19:09:02 +00:00
|
|
|
$score = -$this->score_modifier;
|
2015-06-17 15:53:53 +00:00
|
|
|
break;
|
|
|
|
case "BAD":
|
|
|
|
$dst_category = "BAD";
|
|
|
|
break;
|
|
|
|
case "GOOD":
|
|
|
|
$dst_category = "UGLY";
|
2015-06-17 19:04:32 +00:00
|
|
|
$score = 0;
|
2015-06-17 15:53:53 +00:00
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
2015-06-17 12:15:04 +00:00
|
|
|
|
2015-06-17 15:53:53 +00:00
|
|
|
$nb->untrain($guid, $content);
|
|
|
|
$nb->train($guid, $nbs->getCategoryByName($dst_category), $content);
|
2015-06-17 12:15:04 +00:00
|
|
|
|
|
|
|
$this->dbh->query("UPDATE ttrss_user_entries SET score = '$score' WHERE ref_id = $article_id AND owner_uid = " . $_SESSION["uid"]);
|
|
|
|
|
|
|
|
$nb->updateProbabilities();
|
|
|
|
|
|
|
|
$this->dbh->query("COMMIT");
|
|
|
|
|
|
|
|
}
|
|
|
|
|
2015-06-17 15:53:53 +00:00
|
|
|
print "$article_id :: $dst_category :: $score";
|
2015-06-17 07:36:11 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
function get_js() {
|
|
|
|
return file_get_contents(__DIR__ . "/init.js");
|
|
|
|
}
|
|
|
|
|
2015-06-17 13:50:21 +00:00
|
|
|
function get_prefs_js() {
|
|
|
|
return file_get_contents(__DIR__ . "/init.js");
|
|
|
|
}
|
|
|
|
|
2015-06-17 07:36:11 +00:00
|
|
|
function hook_article_button($line) {
|
|
|
|
return "<img src=\"plugins/af_sort_bayes/thumb_up.png\"
|
|
|
|
style=\"cursor : pointer\" style=\"cursor : pointer\"
|
|
|
|
onclick=\"bayesTrain(".$line["id"].", true)\"
|
|
|
|
class='tagsPic' title='".__('+1')."'>" .
|
|
|
|
"<img src=\"plugins/af_sort_bayes/thumb_down.png\"
|
|
|
|
style=\"cursor : pointer\" style=\"cursor : pointer\"
|
|
|
|
onclick=\"bayesTrain(".$line["id"].", false)\"
|
|
|
|
class='tagsPic' title='".__('-1')."'>";
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
function init_database() {
|
2015-06-17 13:50:21 +00:00
|
|
|
$prefix = $this->sql_prefix;
|
2015-06-17 07:36:11 +00:00
|
|
|
|
2015-06-17 12:15:04 +00:00
|
|
|
// TODO there probably should be a way for plugins to determine their schema version to upgrade tables
|
|
|
|
|
|
|
|
/*$this->dbh->query("DROP TABLE IF EXISTS ${prefix}_wordfreqs", false);
|
|
|
|
$this->dbh->query("DROP TABLE IF EXISTS ${prefix}_references", false);
|
|
|
|
$this->dbh->query("DROP TABLE IF EXISTS ${prefix}_categories", false);*/
|
2015-06-17 07:36:11 +00:00
|
|
|
|
|
|
|
$this->dbh->query("BEGIN");
|
|
|
|
|
|
|
|
// PG only for the time being
|
|
|
|
|
2015-06-17 12:38:59 +00:00
|
|
|
if (DB_TYPE == "mysql") {
|
|
|
|
|
|
|
|
$this->dbh->query("CREATE TABLE IF NOT EXISTS ${prefix}_categories (
|
|
|
|
id INTEGER NOT NULL PRIMARY KEY auto_increment,
|
|
|
|
category varchar(100) NOT NULL DEFAULT '',
|
|
|
|
probability DOUBLE NOT NULL DEFAULT '0',
|
|
|
|
owner_uid INTEGER NOT NULL,
|
|
|
|
FOREIGN KEY (owner_uid) REFERENCES ttrss_users(id) ON DELETE CASCADE,
|
|
|
|
word_count BIGINT NOT NULL DEFAULT '0') ENGINE=InnoDB");
|
|
|
|
|
|
|
|
$this->dbh->query("CREATE TABLE IF NOT EXISTS ${prefix}_references (
|
|
|
|
id INTEGER NOT NULL PRIMARY KEY auto_increment,
|
|
|
|
document_id VARCHAR(255) NOT NULL,
|
|
|
|
category_id INTEGER NOT NULL,
|
|
|
|
FOREIGN KEY (category_id) REFERENCES ${prefix}_categories(id) ON DELETE CASCADE,
|
|
|
|
owner_uid INTEGER NOT NULL,
|
2015-06-17 16:46:52 +00:00
|
|
|
FOREIGN KEY (owner_uid) REFERENCES ttrss_users(id) ON DELETE CASCADE) ENGINE=InnoDB");
|
2015-06-17 12:38:59 +00:00
|
|
|
|
|
|
|
$this->dbh->query("CREATE TABLE IF NOT EXISTS ${prefix}_wordfreqs (
|
|
|
|
word varchar(100) NOT NULL DEFAULT '',
|
|
|
|
category_id INTEGER NOT NULL,
|
|
|
|
FOREIGN KEY (category_id) REFERENCES ${prefix}_categories(id) ON DELETE CASCADE,
|
|
|
|
owner_uid INTEGER NOT NULL,
|
|
|
|
FOREIGN KEY (owner_uid) REFERENCES ttrss_users(id) ON DELETE CASCADE,
|
|
|
|
count BIGINT NOT NULL DEFAULT '0') ENGINE=InnoDB");
|
|
|
|
|
|
|
|
|
|
|
|
} else {
|
|
|
|
$this->dbh->query("CREATE TABLE IF NOT EXISTS ${prefix}_categories (
|
|
|
|
id SERIAL NOT NULL PRIMARY KEY,
|
|
|
|
category varchar(100) NOT NULL DEFAULT '',
|
2015-06-17 16:42:41 +00:00
|
|
|
probability DOUBLE PRECISION NOT NULL DEFAULT '0',
|
2015-06-17 12:38:59 +00:00
|
|
|
owner_uid INTEGER NOT NULL REFERENCES ttrss_users(id) ON DELETE CASCADE,
|
|
|
|
word_count BIGINT NOT NULL DEFAULT '0')");
|
|
|
|
|
|
|
|
$this->dbh->query("CREATE TABLE IF NOT EXISTS ${prefix}_references (
|
|
|
|
id SERIAL NOT NULL PRIMARY KEY,
|
|
|
|
document_id VARCHAR(255) NOT NULL,
|
|
|
|
category_id INTEGER NOT NULL REFERENCES ${prefix}_categories(id) ON DELETE CASCADE,
|
2015-06-17 16:46:52 +00:00
|
|
|
owner_uid INTEGER NOT NULL REFERENCES ttrss_users(id) ON DELETE CASCADE)");
|
2015-06-17 12:38:59 +00:00
|
|
|
|
|
|
|
$this->dbh->query("CREATE TABLE IF NOT EXISTS ${prefix}_wordfreqs (
|
|
|
|
word varchar(100) NOT NULL DEFAULT '',
|
|
|
|
category_id INTEGER NOT NULL REFERENCES ${prefix}_categories(id) ON DELETE CASCADE,
|
|
|
|
owner_uid INTEGER NOT NULL REFERENCES ttrss_users(id) ON DELETE CASCADE,
|
|
|
|
count BIGINT NOT NULL DEFAULT '0')");
|
|
|
|
}
|
2015-06-17 07:36:11 +00:00
|
|
|
|
2015-06-17 12:15:04 +00:00
|
|
|
$owner_uid = @$_SESSION["uid"];
|
|
|
|
|
|
|
|
if ($owner_uid) {
|
|
|
|
$result = $this->dbh->query("SELECT id FROM ${prefix}_categories WHERE owner_uid = $owner_uid LIMIT 1");
|
|
|
|
|
|
|
|
if ($this->dbh->num_rows($result) == 0) {
|
|
|
|
$this->dbh->query("INSERT INTO ${prefix}_categories (category, owner_uid) VALUES ('GOOD', $owner_uid)");
|
2015-06-17 15:53:53 +00:00
|
|
|
$this->dbh->query("INSERT INTO ${prefix}_categories (category, owner_uid) VALUES ('BAD', $owner_uid)");
|
|
|
|
$this->dbh->query("INSERT INTO ${prefix}_categories (category, owner_uid) VALUES ('UGLY', $owner_uid)");
|
2015-06-17 12:15:04 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2015-06-17 07:36:11 +00:00
|
|
|
$this->dbh->query("COMMIT");
|
|
|
|
}
|
|
|
|
|
2015-06-17 18:40:44 +00:00
|
|
|
function renderPrefsUI() {
|
2015-06-17 14:00:36 +00:00
|
|
|
$result = $this->dbh->query("SELECT category, probability, word_count,
|
|
|
|
(SELECT COUNT(id) FROM {$this->sql_prefix}_references WHERE
|
|
|
|
category_id = {$this->sql_prefix}_categories.id) as doc_count
|
|
|
|
FROM {$this->sql_prefix}_categories WHERE owner_uid = " . $_SESSION["uid"]);
|
2015-06-17 13:50:21 +00:00
|
|
|
|
2015-06-17 18:40:44 +00:00
|
|
|
print "<h3>" . __("Statistics") . "</h3>";
|
|
|
|
|
2015-06-17 19:13:58 +00:00
|
|
|
print "<p>".T_sprintf("Required UGLY word count for automatic matching: %d", $this->auto_categorize_threshold)."</p>";
|
|
|
|
|
2015-06-17 13:50:21 +00:00
|
|
|
print "<table>";
|
2015-06-17 18:40:44 +00:00
|
|
|
print "<tr><th>Category</th><th>Probability</th><th>Words</th><th>Articles</th></tr>";
|
2015-06-17 13:50:21 +00:00
|
|
|
|
|
|
|
while ($line = $this->dbh->fetch_assoc($result)) {
|
|
|
|
print "<tr>";
|
|
|
|
foreach ($line as $k => $v) {
|
|
|
|
if ($k == "probability") $v = sprintf("%.3f", $v);
|
|
|
|
|
|
|
|
print "<td>$v</td>";
|
|
|
|
}
|
|
|
|
print "</tr>";
|
|
|
|
}
|
|
|
|
|
|
|
|
print "</table>";
|
|
|
|
|
2015-06-17 18:40:44 +00:00
|
|
|
print "<h3>" . __("Last matched articles") . "</h3>";
|
|
|
|
|
|
|
|
$result = $this->dbh->query("SELECT te.title, category, tf.title AS feed_title
|
|
|
|
FROM ttrss_entries AS te, ttrss_user_entries AS tu, ttrss_feeds AS tf, {$this->sql_prefix}_references AS tr, {$this->sql_prefix}_categories AS tc
|
|
|
|
WHERE tf.id = tu.feed_id AND tu.ref_id = te.id AND tc.id = tr.category_id AND tr.document_id = te.guid ORDER BY te.id DESC LIMIT 20");
|
|
|
|
|
|
|
|
print "<ul class=\"browseFeedList\" style=\"border-width : 1px\">";
|
|
|
|
|
|
|
|
while ($line = $this->dbh->fetch_assoc($result)) {
|
|
|
|
print "<li>" . $line["category"] . ": " . $line["title"] . " (" . $line["feed_title"] . ")</li>";
|
|
|
|
}
|
|
|
|
|
|
|
|
print "</ul>";
|
|
|
|
|
|
|
|
print "<button dojoType=\"dijit.form.Button\" onclick=\"return bayesUpdateUI()\">".
|
|
|
|
__('Refresh')."</button> ";
|
|
|
|
|
2015-06-17 13:50:21 +00:00
|
|
|
print "<button dojoType=\"dijit.form.Button\" onclick=\"return bayesClearDatabase()\">".
|
|
|
|
__('Clear database')."</button> ";
|
2015-06-17 07:36:11 +00:00
|
|
|
|
|
|
|
//
|
2015-06-17 18:40:44 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
function hook_prefs_tab($args) {
|
|
|
|
if ($args != "prefPrefs") return;
|
|
|
|
|
|
|
|
print "<div id=\"af_sort_bayes_prefs\" dojoType=\"dijit.layout.AccordionPane\" title=\"".__('Bayesian classifier (af_sort_bayes)')."\">";
|
|
|
|
|
|
|
|
$this->renderPrefsUI();
|
2015-06-17 07:36:11 +00:00
|
|
|
|
|
|
|
print "</div>";
|
|
|
|
}
|
|
|
|
|
|
|
|
function hook_article_filter($article) {
|
|
|
|
$owner_uid = $article["owner_uid"];
|
|
|
|
|
2015-06-18 07:56:42 +00:00
|
|
|
// guid already includes owner_uid so we don't need to include it
|
|
|
|
$result = $this->dbh->query("SELECT id FROM {$this->sql_prefix}_references WHERE
|
|
|
|
document_id = '" . $this->dbh->escape_string($article['guid_hashed']) . "'");
|
2015-06-17 12:15:04 +00:00
|
|
|
|
2015-06-18 09:10:22 +00:00
|
|
|
if (db_num_rows($result) != 0) {
|
|
|
|
_debug("bayes: article already categorized");
|
|
|
|
return $article;
|
|
|
|
}
|
|
|
|
|
2015-06-18 07:56:42 +00:00
|
|
|
$nbs = new NaiveBayesianStorage($owner_uid);
|
2015-06-18 08:56:07 +00:00
|
|
|
$nb = new NaiveBayesian($nbs);
|
2015-06-17 20:18:12 +00:00
|
|
|
|
2015-06-17 12:15:04 +00:00
|
|
|
$categories = $nbs->getCategories();
|
|
|
|
|
|
|
|
if (count($categories) > 0) {
|
|
|
|
|
|
|
|
$count_neutral = 0;
|
2015-06-17 15:53:53 +00:00
|
|
|
|
2015-06-17 12:15:04 +00:00
|
|
|
$id_good = 0;
|
2015-06-17 15:53:53 +00:00
|
|
|
$id_ugly = 0;
|
|
|
|
$id_bad = 0;
|
2015-06-17 12:15:04 +00:00
|
|
|
|
|
|
|
foreach ($categories as $id => $cat) {
|
|
|
|
if ($cat["category"] == "GOOD") {
|
|
|
|
$id_good = $id;
|
2015-06-17 15:53:53 +00:00
|
|
|
} else if ($cat["category"] == "UGLY") {
|
|
|
|
$id_ugly = $id;
|
2015-06-17 12:15:04 +00:00
|
|
|
$count_neutral += $cat["word_count"];
|
2015-06-17 15:53:53 +00:00
|
|
|
} else if ($cat["category"] == "BAD") {
|
|
|
|
$id_bad = $id;
|
2015-06-17 12:15:04 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2015-06-17 15:53:53 +00:00
|
|
|
$dst_category = $id_ugly;
|
2015-06-17 12:15:04 +00:00
|
|
|
|
|
|
|
$bayes_content = mb_strtolower($article["title"] . " " . strip_tags($article["content"]));
|
|
|
|
|
2015-06-17 19:13:58 +00:00
|
|
|
if ($count_neutral >= $this->auto_categorize_threshold) {
|
2015-06-17 12:15:04 +00:00
|
|
|
// enable automatic categorization
|
|
|
|
|
|
|
|
$result = $nb->categorize($bayes_content);
|
|
|
|
|
2015-06-17 16:53:49 +00:00
|
|
|
//print_r($result);
|
2015-06-17 16:20:17 +00:00
|
|
|
|
2015-06-17 15:53:53 +00:00
|
|
|
if (count($result) == 3) {
|
2015-06-17 12:15:04 +00:00
|
|
|
$prob_good = $result[$id_good];
|
2015-06-17 15:53:53 +00:00
|
|
|
$prob_bad = $result[$id_bad];
|
2015-06-17 12:15:04 +00:00
|
|
|
|
2015-06-17 15:53:53 +00:00
|
|
|
if ($prob_good > 0.90) {
|
2015-06-17 16:20:17 +00:00
|
|
|
$dst_category = $id_good;
|
2015-06-17 12:15:04 +00:00
|
|
|
$article["score_modifier"] += $this->score_modifier;
|
2015-06-17 15:53:53 +00:00
|
|
|
} else if ($prob_bad > 0.90) {
|
2015-06-17 16:20:17 +00:00
|
|
|
$dst_category = $id_bad;
|
2015-06-17 15:53:53 +00:00
|
|
|
$article["score_modifier"] -= $this->score_modifier;
|
2015-06-17 12:15:04 +00:00
|
|
|
}
|
|
|
|
}
|
2015-06-17 16:20:17 +00:00
|
|
|
|
|
|
|
_debug("bayes, dst category: $dst_category");
|
2015-06-17 12:15:04 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
$nb->train($article["guid_hashed"], $dst_category, $bayes_content);
|
|
|
|
|
|
|
|
$nb->updateProbabilities();
|
|
|
|
}
|
2015-06-17 07:36:11 +00:00
|
|
|
|
|
|
|
return $article;
|
|
|
|
|
|
|
|
}
|
|
|
|
|
2015-06-17 13:50:21 +00:00
|
|
|
function clearDatabase() {
|
|
|
|
$prefix = $this->sql_prefix;
|
|
|
|
|
|
|
|
$this->dbh->query("BEGIN");
|
|
|
|
$this->dbh->query("DELETE FROM ${prefix}_references WHERE owner_uid = " . $_SESSION["uid"]);
|
|
|
|
$this->dbh->query("DELETE FROM ${prefix}_wordfreqs WHERE owner_uid = " . $_SESSION["uid"]);
|
|
|
|
$this->dbh->query("COMMIT");
|
|
|
|
|
|
|
|
$nbs = new NaiveBayesianStorage($_SESSION["uid"]);
|
2015-06-18 08:56:07 +00:00
|
|
|
$nb = new NaiveBayesian($nbs);
|
2015-06-17 13:50:21 +00:00
|
|
|
$nb->updateProbabilities();
|
|
|
|
}
|
|
|
|
|
2015-06-17 07:36:11 +00:00
|
|
|
function api_version() {
|
|
|
|
return 2;
|
|
|
|
}
|
|
|
|
|
|
|
|
}
|
|
|
|
?>
|