Subversion Repositories Sites.tela-botanica.org

Compare Revisions

Ignore whitespace Rev 3 → Rev 4

/trunk/actu/ecrire/inc_sites.php3
New file
0,0 → 1,1046
<?php
 
/***************************************************************************\
* SPIP, Systeme de publication pour l'internet *
* *
* Copyright (c) 2001-2005 *
* Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
* *
* Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
* Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
\***************************************************************************/
 
 
//
// Ce fichier ne sera execute qu'une fois
if (defined("_INC_SITES")) return;
define("_INC_SITES", "1");
 
 
// Moderation manuelle des liens
if (!_DIR_RESTREINT AND $GLOBALS['connect_statut'] == '0minirezo') {
if ($supprimer_lien = $GLOBALS["supprimer_lien"])
spip_query("UPDATE spip_syndic_articles SET statut='refuse'
WHERE id_syndic_article='$supprimer_lien'");
if ($ajouter_lien = $GLOBALS["ajouter_lien"])
spip_query("UPDATE spip_syndic_articles SET statut='publie'
WHERE id_syndic_article='$ajouter_lien'");
}
 
// Function glue_url : le pendant de parse_url (cf doc spip.net/parse_url)
function glue_url ($url){
if (!is_array($url)){
return false;
}
// scheme
$uri = (!empty($url['scheme'])) ? $url['scheme'].'://' : '';
// user & pass
if (!empty($url['user'])){
$uri .= $url['user'].':'.$url['pass'].'@';
}
// host
$uri .= $url['host'];
// port
$port = (!empty($url['port'])) ? ':'.$url['port'] : '';
$uri .= $port;
// path
$uri .= $url['path'];
// fragment or query
if (isset($url['fragment'])){
$uri .= '#'.$url['fragment'];
} elseif (isset($url['query'])){
$uri .= '?'.$url['query'];
}
return $uri;
}
 
// Ne pas afficher la partie 'password' du proxy
function no_password_proxy_url($http_proxy) {
if ($p = @parse_url($http_proxy)
AND $p['pass']) {
$p['pass'] = '****';
$http_proxy = glue_url($p);
}
return $http_proxy;
}
 
//
// Demarre une transaction HTTP (s'arrete a la fin des entetes)
// retourne un descripteur de fichier
//
function init_http($get, $url) {
$http_proxy = lire_meta("http_proxy");
if (!eregi("^http://", $http_proxy))
$http_proxy = '';
else
$via_proxy = " (proxy $http_proxy)";
 
spip_log("http $get $url$via_proxy");
 
$t = @parse_url($url);
$host = $t['host'];
if ($t['scheme'] == 'http') {
$scheme = 'http'; $scheme_fsock='';
} else {
$scheme = $t['scheme']; $scheme_fsock=$scheme.'://';
}
if (!($port = $t['port'])) $port = 80;
$query = $t['query'];
if (!($path = $t['path'])) $path = "/";
 
if ($http_proxy) {
$t2 = @parse_url($http_proxy);
$proxy_host = $t2['host'];
$proxy_user = $t2['user'];
$proxy_pass = $t2['pass'];
if (!($proxy_port = $t2['port'])) $proxy_port = 80;
$f = @fsockopen($proxy_host, $proxy_port);
} else
$f = @fsockopen($scheme_fsock.$host, $port);
 
if ($f) {
if ($http_proxy)
fputs($f, "$get $scheme://$host" . (($port != 80) ? ":$port" : "") . $path . ($query ? "?$query" : "") . " HTTP/1.0\r\n");
else
fputs($f, "$get $path" . ($query ? "?$query" : "") . " HTTP/1.0\r\n");
 
fputs($f, "Host: $host\r\n");
fputs($f, "User-Agent: SPIP-".$GLOBALS['spip_version_affichee']." (http://www.spip.net/)\r\n");
 
// Proxy authentifiant
if ($proxy_user) {
fputs($f, "Proxy-Authorization: Basic "
. base64_encode($proxy_user . ":" . $proxy_pass) . "\r\n");
}
// Referer = c'est nous !
if ($referer = lire_meta("adresse_site"))
fputs($f, "Referer: $referer/\r\n");
 
// On sait lire du gzip
if ($GLOBALS['flag_gz'])
fputs($f, "Accept-Encoding: gzip\r\n");
 
}
// fallback : fopen
else if (!$GLOBALS['tester_proxy']) {
$f = @fopen($url, "rb");
$fopen = true;
}
// echec total
else {
$f = false;
}
 
return array($f, $fopen);
}
 
//
// Recupere une page sur le net
// et au besoin l'encode dans le charset local
//
// options : get_headers si on veut recuperer les entetes
// taille_max : arreter le contenu au-dela (0 = seulement les entetes)
// Par defaut taille_max = 1Mo.
function recuperer_page($url, $munge_charset=false, $get_headers=false, $taille_max = 1048576) {
 
if ($taille_max == 0)
$get = 'HEAD';
else
$get = 'GET';
 
 
for ($i=0;$i<10;$i++) { // dix tentatives maximum en cas d'entetes 301...
list($f, $fopen) = init_http($get, $url);
 
// si on a utilise fopen() - passer a la suite
if ($fopen) {
spip_log('connexion via fopen');
break;
} else {
// Fin des entetes envoyees par SPIP
fputs($f,"\r\n");
 
// Reponse du serveur distant
$s = trim(fgets($f, 16384));
if (ereg('^HTTP/[0-9]+\.[0-9]+ ([0-9]+)', $s, $r)) {
$status = $r[1];
}
else return;
 
// Entetes HTTP de la page
$headers = '';
while ($s = trim(fgets($f, 16384))) {
$headers .= $s."\n";
if (eregi('^Location: (.*)', $s, $r)) {
include_ecrire('inc_filtres.php3');
$location = suivre_lien($url, $r[1]);
spip_log("Location: $location");
}
if (preg_match(",^Content-Encoding: .*gzip,i", $s))
$gz = true;
}
if ($status >= 300 AND $status < 400 AND $location)
$url = $location;
else if ($status != 200)
return;
else
break; # ici on est content
fclose($f);
$f = false;
}
}
 
// Contenu de la page
if (!$f) {
spip_log("ECHEC chargement $url");
return false;
}
 
$result = '';
while (!feof($f) AND strlen($result)<$taille_max)
$result .= fread($f, 16384);
fclose($f);
 
// Decompresser le flux
if ($gz)
$result = gzinflate(substr($result,10));
 
// Faut-il l'importer dans notre charset local ?
if ($munge_charset) {
include_ecrire('inc_charsets.php3');
$result = transcoder_page ($result, $headers);
}
 
return ($get_headers ? $headers."\n" : '').$result;
}
 
// helas strtotime ne reconnait pas le format W3C
// http://www.w3.org/TR/NOTE-datetime
function my_strtotime($la_date) {
 
$s = strtotime($la_date);
if ($s > 0)
return $s;
 
if (ereg('^([0-9]+-[0-9]+-[0-9]+T[0-9]+:[0-9]+(:[0-9]+)?)(\.[0-9]+)?(Z|([-+][0-9][0-9]):[0-9]+)$', $la_date, $match)) {
$la_date = str_replace("T", " ", $match[1])." GMT";
return strtotime($la_date) - intval($match[5]) * 3600;
}
 
// erreur
spip_log("Impossible de lire le format de date '$la_date'");
return false;
}
 
 
function trouver_format($texte) {
$syndic_version = '';
// Chercher un numero de version
if (ereg('(rss|feed)[[:space:]](([^>]*[[:space:]])*)version[[:space:]]*=[[:space:]]*[\'"]([-_a-zA-Z0-9\.]+)[\'"]', $texte, $regs)) {
$syndic_version = $regs[4];
} else {
if (strpos($texte,'rdf:RDF')) {
$syndic_version = '1.0';
}
}
return $syndic_version;
}
 
function analyser_site($url) {
include_ecrire("inc_filtres.php3"); # pour filtrer_entites()
 
// Accepter les URLs au format feed:// ou qui ont oublie le http://
$url = preg_replace(',^feed://,i', 'http://', $url);
if (!preg_match(',^[a-z]+://,i', $url)) $url = 'http://'.$url;
 
$texte = recuperer_page($url, true);
if (!$texte) return false;
$result = '';
// definir les regexp pour decoder
// il faut deux etapes pour link sous Atom0.3
$syndic_version = trouver_format($texte);
switch ($syndic_version) {
case "1.0" :
$site_regexp = array(
'channel' => '<channel[^>]*>(.*)</channel>',
'link1' => '<link[^>]*>([^<]*)</link>',
'link2' => '(.*)',
'item' => '<item[^>]*>',
'description' => '<description[^>]*>([^<]*)</description>'
);
break;
case "0.3" :
$site_regexp = array(
'channel' => '<feed[^>]*>(.*)</feed>',
'link1' => '<link[[:space:]]([^<]*)rel[[:space:]]*=[[:space:]]*[\'"]alternate[\'"]([^<]*)',
'link2' => 'href[[:space:]]*=[[:space:]]*[\'"]([^["|\']]+)[\'"]',
'item' => '<entry[^>]*>',
'description' => '<tagline[^>]*>([^<]*)</tagline>'
);
break;
case "0.91" :
case "0.92" :
case "2.0" :
default : # backend defectueux, mais il faut une regexp
$site_regexp = array(
'channel' =>'<channel[^>]*>(.*)</channel>',
'link1' => '<link[^>]*>([^<]*)</link>',
'link2' => '(.*)',
'item' => '<item[^>]*>',
'description' => '<description[^>]*>([^<]*)</description>'
);
break;
}
 
if (ereg($site_regexp['channel'], $texte, $regs)) {
$result['syndic'] = true;
$result['url_syndic'] = $url;
$channel = $regs[1];
if (ereg('<title[^>]*>(([^<]|<[^/]|</[^t]>|</t[^i]>)*)</title>', $channel, $r))
$result['nom_site'] = supprimer_tags(filtrer_entites($r[1]));
if (ereg($site_regexp['link1'], $channel, $regs)) {
if (ereg($site_regexp['link2'], $regs[1].$regs[2], $r))
$result['url_site'] = filtrer_entites($r[1]);
}
 
// si le channel n'a pas de description, ne pas prendre celle d'un article
list($channel_desc,$drop) = split($site_regexp['item'], $channel, 2);
if (ereg($site_regexp['description'], $channel_desc, $r))
$result['descriptif'] = filtrer_entites($r[1]);
}
else {
$result['syndic'] = false;
$result['url_site'] = $url;
if (eregi('<head>(.*)', $texte, $regs))
$head = filtrer_entites(eregi_replace('</head>.*', '', $regs[1]));
else
$head = $texte;
if (eregi('<title[^>]*>(.*)', $head, $regs))
$result['nom_site'] = filtrer_entites(supprimer_tags(eregi_replace('</title>.*', '', $regs[1])));
if (eregi('<meta[[:space:]]+(name|http\-equiv)[[:space:]]*=[[:space:]]*[\'"]?description[\'"]?[[:space:]]+(content|value)[[:space:]]*=[[:space:]]*[\'"]([^>]+)[\'"]>', $head, $regs))
$result['descriptif'] = filtrer_entites(supprimer_tags($regs[3]));
 
// Cherchons quand meme un backend
include_ecrire('feedfinder.php');
$feeds = get_feed_from_url($url, $texte);
if (count($feeds>1)) {
spip_log("feedfinder.php :\n".join("\n", $feeds));
$result['url_syndic'] = "select: ".join(' ',$feeds);
} else
$result['url_syndic'] = $feeds[0];
}
return $result;
}
 
// Inserer les references aux fichiers joints
function traiter_les_enclosures_rss($enclosures,$id_syndic,$lelien) {
 
list($id_syndic_article) = spip_fetch_array(spip_query(
"SELECT id_syndic_article FROM spip_syndic_articles
WHERE id_syndic=$id_syndic AND url='$lelien'"));
 
// Attention si cet article est deja vu, ne pas doubler les references
spip_query("DELETE FROM spip_documents_syndic
WHERE id_syndic_article=$id_syndic_article");
 
// Integrer les enclosures
foreach ($enclosures as $enclosure) {
// url et type sont obligatoires
if (preg_match(',[[:space:]]url=[\'"]?([^\'">]*),i',
$enclosure, $enc_regs_url)
AND preg_match(',[[:space:]]type=[\'"]?([^\'">]*),i',
$enclosure, $enc_regs_type)) {
 
$url = substr(urldecode($enc_regs_url[1]), 0,255);
$url = addslashes(abs_url($url, $lelien));
$type = $enc_regs_type[1];
 
// Verifier que le content-type nous convient
list($id_type) = spip_fetch_array(spip_query("SELECT id_type
FROM spip_types_documents WHERE mime_type='$type'"));
if (!$id_type) {
spip_log("enclosure de type inconnu ($type) $url");
list($id_type) = spip_fetch_array(spip_query("SELECT id_type
FROM spip_types_documents WHERE extension='bin'"));
// si les .bin ne sont pas autorises, on ignore ce document
if (!$id_type) continue;
}
 
// length : optionnel (non bloquant)
if (preg_match(',[[:space:]]length=[\'"]?([^\'"]*),i',
$enclosure, $enc_regs_length)) {
$taille = intval($enc_regs_length[1]);
} else {
$taille = 0;
}
 
// Inserer l'enclosure dans la table spip_documents
if ($t = spip_fetch_array(spip_query("SELECT id_document FROM
spip_documents WHERE fichier='$url' AND distant='oui'")))
$id_document = $t['id_document'];
else {
spip_query("INSERT INTO spip_documents
(id_type, titre, fichier, date, distant, taille, mode)
VALUES ($id_type,'','$url',NOW(),'oui',$taille, 'document')");
$id_document = spip_insert_id();
}
 
// lier avec l'article syndique
spip_query("INSERT INTO spip_documents_syndic
(id_document, id_syndic, id_syndic_article)
VALUES ($id_document, $id_syndic, $id_syndic_article)");
 
$n++;
}
}
 
return $n; #nombre d'enclosures integrees
}
 
// prend un fichier backend et retourne un tableau des items lus,
// et une chaine en cas d'erreur
function analyser_backend($rss) {
include_ecrire("inc_texte.php3"); # pour couper()
include_ecrire("inc_filtres.php3"); # pour filtrer_entites()
 
$les_auteurs_du_site = "";
 
// definir les regexp pour decoder
// il faut deux etapes pour link sous Atom0.3
$syndic_version = trouver_format($rss);
switch ($syndic_version) {
case "0.91" :
case "0.92" :
case "2.0" :
$syndic_regexp = array(
'item' => ',<item[>[:space:]],i',
'itemfin' => '</item>',
'link1' => '<link[^>]*>([^<]*)</link>',
'link2' => '(.*)',
'date1' => ',<pubDate>([^<]*)</pubDate>,Uims',
'date2' => ',<[[:alpha:]]{2}:date>([^<]*)</[[:alpha:]]{2}:date>,Uims',
'author1' => '<[[:alpha:]]{2}:[Cc]reator>([^<]*)</[[:alpha:]]{2}:[Cc]reator>',
'author2' => '(.*)',
'authorbis' => '<author>([^<]*)</author>',
'description' => ',<description[^>]*>(.*?)</description[^>]*>,ims',
'descriptionbis' => ',<content[^>]*>(.*?)</content[^>]*>,ims'
);
break;
case "1.0" :
$syndic_regexp = array(
'item' => ',<item[>[:space:]],i',
'itemfin' => '</item>',
'link1' => '<link[^>]*>([^<]*)</link>',
'link2' => '(.*)',
'date1' => ',<[[:alpha:]]{2}:date>([^<]*)</[[:alpha:]]{2}:date>,Uims',
'date2' => ',<pubDate>([^<]*)</pubDate>,Uims',
'author1' => '<[[:alpha:]]{2}:[Cc]reator>([^<]*)</[[:alpha:]]{2}:[Cc]reator>',
'author2' => '(.*)',
'authorbis' => '<author>([^<]*)</author>',
'description' => ',<description[^>]*>(.*?)</description[^>]*>,ims',
'descriptionbis' => ',<content[^>]*>(.*?)</content[^>]*>,ims'
);
break;
case "0.3" :
$syndic_regexp = array('channel'=>'<feed[^>]*>(.*)</feed>',
'item' => ',<entry[>[:space:]],i',
'itemfin' => '</entry>',
'link1' => '<link[[:space:]]([^<]*)rel[[:space:]]*=[[:space:]]*[\'"]alternate[\'"]([^<]*)',
'link2' => 'href[[:space:]]*=[[:space:]]*[\'"]([^"|^\']+)[\'"]',
'date1' => ',<modified>([^<]*)</modified>,Uims',
'date2' => ',<issued>([^<]*)</issued>,Uims',
'author1' => '<author>(.*<name>.*</name>.*)</author>',
'author2' => '<name>([^<]*)</name>',
'authorbis' => '<[[:alpha:]]{2}:[Cc]reator>([^<]*)</[[:alpha:]]{2}:[Cc]reator>',
'description' => ',<summary[^>]*>(.*?)</summary[^>]*>,ims',
'descriptionbis' => ',<content[^>]*>(.*?)</content[^>]*>,ims'
);
break;
default :
// format de syndication non reconnu
return _T('avis_echec_syndication_02');
}
 
// Echapper les CDATA
$echappe_cdata = array();
if (preg_match_all(',<!\[CDATA\[(.*)]]>,Uims', $rss,
$regs, PREG_SET_ORDER)) {
foreach ($regs as $n => $reg) {
$echappe_cdata[$n] = $reg[1];
$rss = str_replace($reg[0], "@@@SPIP_CDATA$n@@@", $rss);
}
}
 
// chercher un auteur dans le fil au cas ou les entry n'en auraient pas
list($channel_head) = preg_split($syndic_regexp['item'], $rss, 2);
if (ereg($syndic_regexp['author1'],$channel_head,$mat)) {
if (ereg($syndic_regexp['author2'],$mat[1],$match))
$les_auteurs_du_site = $match[1];
}
 
 
$items = array();
if (preg_match_all($syndic_regexp['item'],$rss,$r, PREG_SET_ORDER))
foreach ($r as $regs) {
$debut_item = strpos($rss,$regs[0]);
$fin_item = strpos($rss,
$syndic_regexp['itemfin'])+strlen($syndic_regexp['itemfin']);
$items[] = substr($rss,$debut_item,$fin_item-$debut_item);
$debut_texte = substr($rss, "0", $debut_item);
$fin_texte = substr($rss, $fin_item, strlen($rss));
$rss = $debut_texte.$fin_texte;
}
 
// Analyser chaque <item>...</item> du backend et le transformer en tableau
if (!count($items)) return _T('avis_echec_syndication_01');
 
foreach ($items as $item) {
$data = array();
 
// URL (obligatoire)
if (ereg($syndic_regexp['link1'],$item,$match)) {
$link_match = $match[1].$match[2];
if (ereg($syndic_regexp['link2'], $link_match, $mat))
$data['url'] = addslashes(filtrer_entites($mat[1]));
}
// guid n'est un URL que si marque de <guid permalink="true">
else if (eregi("<guid.*>[[:space:]]*(https?:[^<]*)</guid>",$item,$match))
$data['url'] = addslashes(filtrer_entites($match[1]));
else
$data['url'] = false;
 
// Titre (semi-obligatoire)
# note http://static.userland.com/gems/backend/gratefulDead.xml
# n'a que des enclosures, sans url ni titre... tant pis...
if
(preg_match(",<title>(.*?)</title>,ims",$item,$match))
$data['titre'] = $match[1];
else if (($syndic_version==0.3) AND (strlen($letitre)==0))
if (preg_match(',title[[:space:]]*=[[:space:]]*([\'"])(.+?)\\1,ims',$link_match,$mat))
$data['titre']=$mat[2];
if (!$data['titre'] = trim($data['titre']))
$data['titre'] = _T('ecrire:info_sans_titre');
 
// Date
$la_date = "";
if (preg_match(",<date>([^<]*)</date>,Uims",$item,$match))
$la_date = $match[1];
if (preg_match($syndic_regexp['date1'],$item,$match))
$la_date = $match[1];
else if (preg_match($syndic_regexp['date2'],$item,$match))
$la_date = $match[1];
if ($la_date)
$la_date = my_strtotime($la_date);
if ($la_date < time() - 365 * 24 * 3600
OR $la_date > time() + 48 * 3600)
$la_date = time();
$data['date'] = $la_date;
 
// Auteur
if (ereg($syndic_regexp['author1'],$item,$mat)) {
if (ereg($syndic_regexp['author2'],$mat[1],$match))
$data['lesauteurs'] = $match[1];
}
else if (ereg($syndic_regexp['authorbis'],$item,$match))
$data['lesauteurs'] = $match[1];
else
$data['lesauteurs'] = $les_auteurs_du_site;
// Description
if (preg_match($syndic_regexp['description'],$item,$match)) {
$data['descriptif'] = $match[1];
}
else if (preg_match($syndic_regexp['descriptionbis'],$item,$match))
$data['descriptif'] = $match[1];
else
$data['descriptif'] = "";
 
// Nettoyer les donnees et remettre les CDATA en place
foreach ($data as $var => $val) {
$data[$var] = filtrer_entites($data[$var]);
foreach ($echappe_cdata as $n => $e)
$data[$var] = str_replace("@@@SPIP_CDATA$n@@@",$e, $data[$var]);
$data[$var] = trim(textebrut($data[$var]));
}
 
// Honorer le <lastbuilddate> en forcant la date
if (preg_match(',<(lastbuilddate|modified)>([^<>]+)</\1>,i',
$item, $regs)
AND $lastbuilddate = my_strtotime(trim($regs[2]))
// pas dans le futur
AND $lastbuilddate < time())
$data['lastbuilddate'] = $lastbuilddate;
 
// Attraper les URLs des pieces jointes <enclosure>
if (preg_match_all(',<enclosure[[:space:]][^<>]+>,i', $item,
$preg_enclosures, PREG_SET_ORDER)) {
$enclosures = array();
foreach ($preg_enclosures as $e)
$enclosures[] = $e[0];
$data['enclosures'] = $enclosures;
}
 
$data['item'] = $item;
$articles[] = $data;
}
 
return $articles;
}
 
//
// Insere un article syndique (renvoie true si l'article est nouveau)
//
function inserer_article_syndique ($data, $now_id_syndic, $statut, $url_site) {
 
// Creer le lien s'il est nouveau - cle=(id_syndic,url)
$le_lien = addslashes(substr($data['url'], 0,255));
if (spip_num_rows(spip_query(
"SELECT * FROM spip_syndic_articles
WHERE url='$le_lien'
AND id_syndic=$now_id_syndic"
)) == 0 and !spip_sql_error()) {
spip_query("INSERT INTO spip_syndic_articles
(id_syndic, url, date, statut) VALUES
('$now_id_syndic', '$le_lien',
FROM_UNIXTIME(".$data['date']."), '$statut')");
$ajout = true;
}
 
// Nettoyer le descriptif par une fonction personnalisee ?
if (function_exists('nettoyer_descriptif_syndication')) {
$data['descriptif'] = nettoyer_descriptif_syndication(
$data['descriptif'], $now_id_syndic, $url_site
);
} else {
// fonction standard
$data['descriptif'] = couper($data['descriptif'], 300);
}
 
// Mise a jour du contenu (titre,auteurs,description)
spip_query ("UPDATE spip_syndic_articles SET
titre='".addslashes($data['titre'])."',
lesauteurs='".addslashes($data['lesauteurs'])."',
descriptif='".addslashes($data['descriptif'])."'
WHERE id_syndic='$now_id_syndic' AND url='$le_lien'");
 
// Mettre a jour la date si lastbuilddate
if ($data['lastbuilddate'])
spip_query("UPDATE spip_syndic_articles
SET date = FROM_UNIXTIME(".$data['lastbuilddate'].")
WHERE id_syndic='$now_id_syndic' AND url='$le_lien'");
 
// Inserer les enclosures
if ($data['enclosures']) {
traiter_les_enclosures_rss($data['enclosures'],
$now_id_syndic, $le_lien);
}
 
return $ajout;
}
 
//
// Mettre a jour le site
//
function syndic_a_jour($now_id_syndic, $statut = 'off') {
include_ecrire("inc_texte.php3");
include_ecrire("inc_filtres.php3");
 
$query = "SELECT * FROM spip_syndic WHERE id_syndic='$now_id_syndic'";
$result = spip_query($query);
if (!$row = spip_fetch_array($result))
return;
 
$url_syndic = $row['url_syndic'];
$url_site = $row['url_site'];
 
if ($row['moderation'] == 'oui')
$moderation = 'dispo'; // a valider
else
$moderation = 'publie'; // en ligne sans validation
 
// Section critique : n'autoriser qu'une seule syndication
// simultanee pour un site donne
if (!spip_get_lock("syndication $url_syndic")) {
spip_log("lock pour $url_syndic");
return;
}
spip_query("UPDATE spip_syndic SET syndication='$statut',
date_syndic=NOW() WHERE id_syndic='$now_id_syndic'");
 
// Aller chercher les donnees du RSS et les analyser
$rss = recuperer_page($url_syndic, true);
if (!$rss)
$articles = _T('avis_echec_syndication_02');
else
$articles = analyser_backend($rss);
 
// Les enregistrer dans la base
if (is_array($articles)) {
$urls = array();
foreach ($articles as $data) {
if ($data['url']) {
inserer_article_syndique ($data, $now_id_syndic, $moderation, $url_site);
$urls[] = $data['url'];
}
}
 
// moderation automatique des liens qui sont sortis du feed
if (count($urls) > 0
AND $row['miroir'] == 'oui') {
spip_query("UPDATE spip_syndic_articles
SET statut='off', maj=maj
WHERE id_syndic=$now_id_syndic
AND NOT (url IN ('"
. join("','", array_map('addslashes',$urls))
. "'))");
}
 
// suppression apres 2 mois des liens qui sont sortis du feed
if (count($urls) > 0
AND $row['oubli'] == 'oui') {
$time = date('U') - 61*24*3600; # deux mois
spip_query("DELETE FROM spip_syndic_articles
WHERE id_syndic=$now_id_syndic
AND UNIX_TIMESTAMP(maj) < $time
AND UNIX_TIMESTAMP(date) < $time
AND NOT (url IN ('"
. join("','", array_map('addslashes',$urls))
. "'))");
}
 
 
// Noter que la syndication est OK
spip_query("UPDATE spip_syndic SET syndication='oui'
WHERE id_syndic='$now_id_syndic'");
}
 
// Ne pas oublier de liberer le verrou
spip_release_lock($url_syndic);
 
if ($liens_ajoutes) {
spip_log("Syndication: $liens_ajoutes nouveau(x) lien(s)");
include_ecrire('inc_rubriques.php3');
calculer_rubriques();
}
 
// Renvoyer l'erreur le cas echeant
if (!is_array($articles))
return $articles;
else
return false; # c'est bon
}
 
 
function afficher_sites($titre_table, $requete) {
global $couleur_claire, $couleur_foncee, $spip_lang_left, $spip_lang_right;
global $connect_id_auteur;
 
$tranches = afficher_tranches_requete($requete, 3);
 
if ($tranches) {
// debut_cadre_relief("site-24.gif");
if ($titre_table) echo "<div style='height: 12px;'></div>";
echo "<div class='liste'>";
bandeau_titre_boite2($titre_table, "site-24.gif", $couleur_claire, "black");
echo "<table width='100%' cellpadding='2' cellspacing='0' border='0'>";
 
echo $tranches;
 
$result = spip_query($requete);
$num_rows = spip_num_rows($result);
 
$ifond = 0;
$premier = true;
$compteur_liste = 0;
while ($row = spip_fetch_array($result)) {
$vals = '';
$id_syndic=$row["id_syndic"];
$id_rubrique=$row["id_rubrique"];
$nom_site=typo($row["nom_site"]);
$url_site=$row["url_site"];
$url_syndic=$row["url_syndic"];
$description=propre($row["description"]);
$syndication=$row["syndication"];
$statut=$row["statut"];
$date=$row["date"];
$moderation=$row['moderation'];
$tous_id[] = $id_syndic;
 
//echo "<tr bgcolor='$couleur'>";
 
//echo "<td class='arial2'>";
$link = new Link("sites.php3?id_syndic=$id_syndic");
switch ($statut) {
case 'publie':
if (acces_restreint_rubrique($id_rubrique))
$puce = 'puce-verte-anim.gif';
else
$puce='puce-verte-breve.gif';
$title = _T('info_site_reference');
break;
case 'prop':
if (acces_restreint_rubrique($id_rubrique))
$puce = 'puce-orange-anim.gif';
else
$puce='puce-orange-breve.gif';
$title = _T('info_site_attente');
break;
case 'refuse':
if (acces_restreint_rubrique($id_rubrique))
$puce = 'puce-poubelle-anim.gif';
else
$puce='puce-poubelle-breve.gif';
$title = _T('info_site_refuse');
break;
}
if ($syndication == 'off' OR $syndication == 'sus') {
$puce = 'puce-orange-anim.gif';
$title = _T('info_panne_site_syndique');
}
 
$s = "<a href=\"".$link->getUrl()."\" title=\"$title\">";
 
if ($spip_display != 1 AND $spip_display != 4 AND lire_meta('image_process') != "non") {
include_ecrire("inc_logos.php3");
$logo = decrire_logo("siteon$id_syndic");
if ($logo) {
$s.= "<div style='float: $spip_lang_right; margin-top: -2px; margin-bottom: -2px;'>"
. reduire_image_logo(_DIR_IMG.$logo[0], 26, 20)
. "</div>\n";
}
}
 
 
$s .= http_img_pack($puce, $statut, "width='7' height='7' border='0'") ."&nbsp;&nbsp;";
$s .= typo($nom_site);
 
$s .= "</a> &nbsp;&nbsp; <font size='1'>[<a href='$url_site'>"._T('lien_visite_site')."</a>]</font>";
$vals[] = $s;
//echo "</td>";
 
$s = "";
//echo "<td class='arial1' align='right'> &nbsp;";
if ($syndication == 'off' OR $syndication == 'sus') {
$s .= "<font color='red'>"._T('info_probleme_grave')." </font>";
}
if ($syndication == "oui" or $syndication == "off" OR $syndication == 'sus'){
$s .= "<font color='red'>"._T('info_syndication')."</font>";
}
$vals[] = $s;
//echo "</td>";
//echo "<td class='arial1'>";
$s = "";
if ($syndication == "oui" OR $syndication == "off" OR $syndication == "sus") {
$result_art = spip_query("SELECT COUNT(*) FROM spip_syndic_articles WHERE id_syndic='$id_syndic'");
list($total_art) = spip_fetch_array($result_art);
$s .= " $total_art "._T('info_syndication_articles');
} else {
$s .= "&nbsp;";
}
$vals[] = $s;
//echo "</td>";
//echo "</tr></n>";
$table[] = $vals;
}
spip_free_result($result);
$largeurs = array('','','');
$styles = array('arial11', 'arial1', 'arial1');
afficher_liste($largeurs, $table, $styles);
echo "</table>";
//fin_cadre_relief();
echo "</div>\n";
}
return $tous_id;
}
 
 
function afficher_syndic_articles($titre_table, $requete, $afficher_site = false) {
global $couleur_claire;
global $connect_statut;
global $REQUEST_URI;
global $debut_liste_sites;
global $flag_editable;
 
static $n_liste_sites;
global $spip_lang_rtl, $spip_lang_right;
 
$adresse_page = substr($REQUEST_URI, strpos($REQUEST_URI, "/ecrire")+8, strlen($REQUEST_URI));
$adresse_page = ereg_replace("\&?debut\_liste\_sites\[$n_liste_sites\]\=[0-9]+","",$adresse_page);
$adresse_page = ereg_replace("\&?(ajouter\_lien|supprimer_lien)\=[0-9]+","",$adresse_page);
 
if (ereg("\?",$adresse_page)) $lien_url = "&";
else $lien_url = "?";
 
$lien_url .= "debut_liste_sites[".$n_liste_sites."]=".$debut_liste_sites[$n_liste_sites]."&";
 
$cols = 2;
if ($connect_statut == '0minirezo') $cols ++;
if ($afficher_site) $cols ++;
 
$tranches = afficher_tranches_requete($requete, $cols);
 
if (strlen($tranches)) {
 
if ($titre_table) echo "<div style='height: 12px;'></div>";
echo "<div class='liste'>";
//debut_cadre_relief("rubrique-24.gif");
 
if ($titre_table) {
bandeau_titre_boite2($titre_table, "site-24.gif", "#999999", "white");
}
echo "<table width=100% cellpadding=3 cellspacing=0 border=0 background=''>";
 
echo $tranches;
 
$result = spip_query($requete);
 
$table = '';
while ($row = spip_fetch_array($result)) {
$vals = '';
 
$id_syndic_article=$row["id_syndic_article"];
$id_syndic=$row["id_syndic"];
$titre=typo($row["titre"]);
$url=$row["url"];
$date=$row["date"];
$lesauteurs=typo($row["lesauteurs"]);
$statut=$row["statut"];
$descriptif=propre($row["descriptif"]);
 
if ($statut=='publie') {
if (acces_restreint_rubrique($id_rubrique))
$puce = 'puce-verte-anim.gif';
else
$puce='puce-verte.gif';
}
else if ($statut == "refuse") {
$puce = 'puce-poubelle.gif';
}
 
else if ($statut == "dispo") { // moderation : a valider
$puce = 'puce-rouge.gif';
}
 
else if ($statut == "off") { // feed d'un site en mode "miroir"
$puce = 'puce-rouge-anim.gif';
}
 
$s = http_img_pack($puce, $statut, "width='7' height='7' border='0'");
$vals[] = $s;
 
$s = "<a href='$url'>$titre</a>";
 
$date = affdate_court($date);
if (strlen($lesauteurs) > 0) $date = $lesauteurs.', '.$date;
$s.= " ($date)";
 
// S'il y a des fichiers joints (enclosures), on les affiche ici
if (spip_num_rows($q = spip_query("SELECT docs.* FROM spip_documents AS docs, spip_documents_syndic AS lien WHERE lien.id_syndic_article = $id_syndic_article AND lien.id_document = docs.id_document"))) {
include_ecrire('inc_documents.php3');
while ($t = spip_fetch_array($q)) {
$t = $t['fichier'];
$s .= '&nbsp;' .
http_href_img($t,
'attachment.gif',
'height="15" width="15" border="0"',
entites_html($t));
}
}
 
if (strlen($descriptif) > 0) $s .= "<div class='arial1'>$descriptif</div>";
$vals[] = $s;
 
// $my_sites cache les resultats des requetes sur les sites
if (!$my_sites[$id_syndic])
$my_sites[$id_syndic] = spip_fetch_array(spip_query(
"SELECT * FROM spip_syndic WHERE id_syndic=$id_syndic"));
 
if ($afficher_site) {
$aff = $my_sites[$id_syndic]['nom_site'];
if ($my_sites[$id_syndic]['moderation'] == 'oui')
$s = "<i>$aff</i>";
else
$s = $aff;
$s = "<a href='sites.php3?id_syndic=$id_syndic'>$aff</a>";
 
$vals[] = $s;
}
 
if ($connect_statut == '0minirezo'){
if ($statut == "publie"){
$s = "[<a href='".$adresse_page.$lien_url."id_syndic=$id_syndic&supprimer_lien=$id_syndic_article'><font color='black'>"._T('info_bloquer_lien')."</font></a>]";
}
else if ($statut == "refuse"){
$s = "[<a href='".$adresse_page.$lien_url."id_syndic=$id_syndic&ajouter_lien=$id_syndic_article'>"._T('info_retablir_lien')."</a>]";
}
else if ($statut == "off"
AND $my_sites[$id_syndic]['miroir'] == 'oui') {
$s = '('._T('syndic_lien_obsolete').')';
}
else /* 'dispo' ou 'off' (dans le cas ancien site 'miroir') */
{
$s = "[<a href='".$adresse_page.$lien_url."id_syndic=$id_syndic&ajouter_lien=$id_syndic_article'>"._T('info_valider_lien')."</a>]";
}
$vals[] = $s;
}
$table[] = $vals;
}
spip_free_result($result);
 
if ($afficher_site) {
$largeurs = array(7, '', '100');
$styles = array('','arial11', 'arial1');
} else {
$largeurs = array(7, '');
$styles = array('','arial11');
}
if ($connect_statut == '0minirezo') {
$largeurs[] = '80';
$styles[] = 'arial1';
}
afficher_liste($largeurs, $table, $styles);
 
echo "</TABLE>";
//fin_cadre_relief();
echo "</div>";
}
return $tous_id;
}
 
 
//
// Effectuer la syndication d'un unique site, retourne 0 si aucun a faire.
//
 
function executer_une_syndication() {
$id_syndic = 0;
 
// On va tenter un site 'sus' ou 'off' de plus de 24h, et le passer en 'off'
// s'il echoue
if ($row = spip_fetch_array(spip_query("SELECT * FROM spip_syndic WHERE syndication IN ('sus','off') AND statut='publie' AND date_syndic < DATE_SUB(NOW(), INTERVAL 24 HOUR) ORDER BY date_syndic LIMIT 0,1"))) {
$id_syndic = $row["id_syndic"];
syndic_a_jour($id_syndic, 'off');
}
 
// Et un site 'oui' de plus de 2 heures, qui passe en 'sus' s'il echoue
if ($row = spip_fetch_array(spip_query("SELECT * FROM spip_syndic WHERE syndication='oui' AND statut='publie' AND date_syndic < DATE_SUB(NOW(), INTERVAL 2 HOUR) ORDER BY date_syndic LIMIT 0,1"))) {
$id_syndic = $row["id_syndic"];
syndic_a_jour($id_syndic, 'sus');
}
return $id_syndic;
}
 
?>