Changeset 3944 in spip-zone


Ignore:
Timestamp:
Jul 12, 2006, 8:20:23 AM (13 years ago)
Author:
fil@…
Message:

shiraz

File:
1 edited

Legend:

Unmodified
Added
Removed
  • _acotes_/irc/iq_module_rezo.php

    r176 r3944  
    22
    33// REZO module for IQ (http://f0rked.com/IQ)
    4 // version: 2.0
     4// version: 2.1
    55// author: fil@rezo.net
    66// This script will take recent articles from a SPIP database and
    77// return the top results to #rezo every 90 seconds
     8// also send new stuff to #spip
    89
    910$this->bind("pubm","","","",'rezo');
     
    1314        global $bot;
    1415        static $welcome;
     16        static $welcome_spip;
     17        static $dingdong;
    1518        static $seen;
     19        static $seen_spip;
    1620
    17         chdir("/var/shim/rezo/Web");   ## Where is SPIP ?
    18         if(!function_exists("spip_query")){
     21        if (!function_exists("spip_query")) {
     22                chdir("/var/shim/rezo/Web");
    1923                include("ecrire/inc_version.php3");
    2024                include_ecrire("inc_connect.php3");
    2125                include_ecrire("inc_texte.php3");
     26                include_ecrire("inc_sites.php3");
     27                include_ecrire("inc_meta.php3");
    2228        }
    23 
    2429        if (!$bot->replyto("rss_idle",90)) {
    2530                # initialisation
    2631                if (!$welcome) {
    2732                        $welcome = true;
    28                         $bot->msg("#rezo","Salut, c\'est moi rez000 ! je reb00te...", 1, $buffering);
     33#                       $bot->msg("#rezo","Salut, c\'est moi rez000 ! je reb00te...", 1, $buffering);
    2934                }
    3035
     
    3237                ORDER BY date DESC
    3338                LIMIT 0,10");
    34                 while ($t = spip_fetch_array($s)) {
     39#$bot->msg("_fil_", "coucou $s");
     40                while ($t = mysql_fetch_array($s)) {
    3541                        $watch =trim($t["url_site"]);
    3642                        $newseen[$watch] = true;
     
    4248
    4349                                # aller chercher le titre de la rubrique
    44                                 list($rub) = spip_fetch_array(mysql_query("SELECT titre FROM spip_rubriques WHERE id_rubrique=".$t["id_rubrique"]));
     50                                list($rub) = mysql_fetch_array(mysql_query("SELECT titre FROM spip_rubriques WHERE id_rubrique=".$t["id_rubrique"]));
    4551                                $rub = filtrer_entites(supprimer_tags(texte_backend(typo($rub.", ".heures($t["date"]).":".minutes($t["date"])))));
    4652
     
    5359        } # reply-to
    5460
     61
     62        ### troll rss->#spip
     63        if (!$bot->replyto("rss_idle_spip",90)) {
     64                # initialisation
     65                if (!$welcome_spip) {
     66                        $welcome_spip = true;
     67#                       $bot->msg("#spip","Salut, c\'est moi ! je reb00te...", 1, $buffering);
     68                }
     69
     70                if ($rss = recuperer_page("http://sedna.spip.org/sedna/?rss=1"))
     71                foreach (analyser_backend($rss) as $t) {
     72
     73                        $watch =trim($t["url"]);
     74                        $newseen_spip[$watch] = true;
     75                        if (
     76                                !$seen_spip[$watch]
     77                                AND $l++<4
     78                        ) {
     79                                $titre = typo($t["titre"]);
     80                                $rub = $t["source"];
     81                                $auteur = $t["lesauteurs"] ? ", par ".$t["lesauteurs"] : "";
     82                                $msg = "$titre$auteur ($rub) $watch";
     83                                $msg = unicode_to_utf_8(texte_backend(textebrut($msg)));
     84                                $bot->msg("#spip", $msg, 1, $buffering);
     85                                sleep(1);
     86                        }
     87#                       if ($dingdong <> ($t = "H+".ceil((date("U")-date("U",mktime(1,0,0,7,1,2006)))/3600)))
     88#                               $bot->msg("#spip", $dingdong = $t, 1, $buffering);
     89                }
     90
     91                $seen_spip = $newseen_spip; # ne garder que 10 resultats dans $seen (sinon explosion)
     92        } # reply-to
     93
    5594        chdir("/home/fil/IQ-0.9.3");  ## where is IQ ?
    5695');
Note: See TracChangeset for help on using the changeset viewer.