Go to the documentation of this file.
31 require
'../main.inc.php';
32 require_once DOL_DOCUMENT_ROOT.
'/core/lib/admin.lib.php';
33 require_once DOL_DOCUMENT_ROOT.
'/core/class/rssparser.class.php';
34 require_once DOL_DOCUMENT_ROOT.
'/core/class/infobox.class.php';
37 $langs->load(
"admin");
45 $action =
GETPOST(
'action',
'aZ09');
53 $sql =
"SELECT ".$db->decrypt(
'name').
" as name FROM ".MAIN_DB_PREFIX.
"const";
54 $sql .=
" WHERE ".$db->decrypt(
'name').
" LIKE 'EXTERNAL_RSS_URLRSS_%'";
56 $result = $db->query($sql);
59 while ($obj = $db->fetch_object($result)) {
60 preg_match(
'/([0-9]+)$/i', $obj->name, $reg);
61 if ($reg[1] && $reg[1] > $lastexternalrss) {
62 $lastexternalrss = $reg[1];
69 if ($action ==
'add' ||
GETPOST(
"modify")) {
70 $external_rss_title =
"external_rss_title_".GETPOST(
"norss",
'int');
71 $external_rss_urlrss =
"external_rss_urlrss_".GETPOST(
"norss",
'int');
73 if (
GETPOST($external_rss_urlrss,
'alpha')) {
74 $boxlabel =
'(ExternalRSSInformations)';
94 $sql =
"INSERT INTO ".MAIN_DB_PREFIX.
"boxes_def (file, note)";
95 $sql .=
" VALUES ('box_external_rss.php','".$db->escape(
GETPOST(
"norss",
'int').
' ('.
GETPOST($external_rss_title,
'alpha')).
")')";
96 if (!$db->query($sql)) {
105 $consttosave =
"EXTERNAL_RSS_URLRSS_".GETPOST(
"norss",
'int');
106 $urltosave =
GETPOST($external_rss_urlrss,
'alpha');
107 $result2 =
dolibarr_set_const($db, $consttosave, $urltosave,
'chaine', 0,
'', $conf->entity);
111 if ($result1 && $result2) {
113 header(
"Location: ".$_SERVER[
"PHP_SELF"]);
127 $sql =
"SELECT rowid FROM ".MAIN_DB_PREFIX.
"boxes_def";
128 $sql .=
" WHERE file = 'box_external_rss.php' AND note LIKE '".$db->escape(
GETPOST(
"norss",
'int')).
" %'";
130 $resql = $db->query($sql);
132 $num = $db->num_rows(
$resql);
135 $obj = $db->fetch_object(
$resql);
137 $sql =
"DELETE FROM ".MAIN_DB_PREFIX.
"boxes";
138 $sql .=
" WHERE entity = ".$conf->entity;
139 $sql .=
" AND box_id = ".((int) $obj->rowid);
140 $resql = $db->query($sql);
142 $sql =
"DELETE FROM ".MAIN_DB_PREFIX.
"boxes_def";
143 $sql .=
" WHERE rowid = ".((int) $obj->rowid);
144 $resql = $db->query($sql);
168 if ($result1 && $result2) {
170 header(
"Location: external_rss.php");
185 llxHeader(
'', $langs->trans(
"ExternalRSSSetup"));
187 $linkback =
'<a href="'.DOL_URL_ROOT.
'/admin/modules.php?restore_lastsearch_values=1">'.$langs->trans(
"BackToModuleList").
'</a>';
188 print
load_fiche_titre($langs->trans(
"ExternalRSSSetup"), $linkback,
'title_setup');
192 print
'<form name="externalrssconfig" action="'.$_SERVER[
"PHP_SELF"].
'" method="post">';
193 print
'<input type="hidden" name="token" value="'.newToken().
'">';
195 print
'<table class="noborder centpercent">';
196 print
'<tr class="liste_titre">';
197 print
'<td colspan="2">'.$langs->trans(
"NewRSS").
'</td>';
198 print
'<td>'.$langs->trans(
"Example").
'</td>';
200 print
'<tr class="impair">';
201 print
'<td width="100">'.$langs->trans(
"Title").
'</td>';
202 print
'<td><input type="text" class="flat minwidth300" name="external_rss_title_'.($lastexternalrss + 1).
'" value=""></td>';
203 print
'<td>'.$langs->trans(
'RSSUrlExample').
'</td>';
206 print
'<tr class="pair">';
207 print
'<td>'.$langs->trans(
'RSSUrl').
'</td>';
208 print
'<td><input type="text" class="flat minwidth300" name="external_rss_urlrss_'.($lastexternalrss + 1).
'" value=""></td>';
209 print
'<td>http://news.google.com/news?ned=us&topic=h&output=rss<br>http://www.dolibarr.org/rss</td>';
213 print
$form->buttonsSaveCancel(
"Add",
'');
214 print
'<input type="hidden" name="action" value="add">';
215 print
'<input type="hidden" name="norss" value="'.($lastexternalrss + 1).
'">';
220 print
'<span class="opacitymedium">'.$langs->trans(
'RssNote').
'</span> - <a href="'.DOL_MAIN_URL_ROOT.
'/admin/boxes.php">'.$langs->trans(
'JumpToBoxes').
'</a>';
223 $sql =
"SELECT rowid, file, note FROM ".MAIN_DB_PREFIX.
"boxes_def";
224 $sql .=
" WHERE file = 'box_external_rss.php'";
225 $sql .=
" ORDER BY note";
228 $resql = $db->query($sql);
231 $num = $db->num_rows(
$resql);
235 $obj = $db->fetch_object(
$resql);
237 preg_match(
'/^([0-9]+)/i', $obj->note, $reg);
239 $keyrsstitle =
"EXTERNAL_RSS_TITLE_".$idrss;
240 $keyrssurl =
"EXTERNAL_RSS_URLRSS_".$idrss;
244 $result = $rssparser->parser($conf->global->$keyrssurl, 5, 300, $conf->externalrss->dir_temp);
247 print
'<form name="externalrssconfig" action="'.$_SERVER[
"PHP_SELF"].
'" method="post">'.
"\n";
249 print
'<table class="noborder centpercent">'.
"\n";
250 print
'<input type="hidden" name="token" value="'.newToken().
'">'.
"\n";
252 print
'<tr class="liste_titre">';
253 print
"<td>".$langs->trans(
"RSS").
" ".($i + 1).
"</td>";
254 print
'<td class="right">';
255 print
'<input type="submit" class="button buttongen button-save" name="modify" value="'.$langs->trans(
"Modify").
'">';
256 print
'<input type="submit" class="button buttongen button-cancel" name="delete" value="'.$langs->trans(
"Delete").
'">';
257 print
'<input type="hidden" name="norss" value="'.$idrss.
'">';
262 print
'<tr class="oddeven">';
263 print
'<td class="titlefield">'.$langs->trans(
"Title").
"</td>";
264 print
'<td><input type="text" class="flat minwidth300" name="external_rss_title_'.$idrss.
'" value="'.
dol_escape_htmltag($conf->global->$keyrsstitle).
'"></td>';
268 print
'<tr class="oddeven">';
269 print
"<td>".$langs->trans(
"URL").
"</td>";
270 print
'<td><input type="text" class="flat minwidth300" name="external_rss_urlrss_'.$idrss.
'" value="'.
dol_escape_htmltag($conf->global->$keyrssurl).
'"></td>';
274 print
'<tr class="oddeven">';
275 print
"<td>".$langs->trans(
"Status").
"</td>";
277 if ($result > 0 && empty($rss->error)) {
278 print
'<span class="ok">'.$langs->trans(
"Online").
'</div>';
280 print
'<span class="error">'.$langs->trans(
"Offline");
281 $langs->load(
"errors");
282 if ($rssparser->error) {
283 print
' - '.$langs->trans($rssparser->error);
291 if ($result > 0 && empty($rss->error)) {
292 print
'<tr class="oddeven">';
293 print
"<td>".$langs->trans(
"Logo").
"</td>";
295 $imageurl = $rssparser->getImageUrl();
296 $linkrss = $rssparser->getLink();
297 if (!preg_match(
'/^http/', $imageurl)) {
298 $imageurl = $linkrss.$imageurl;
301 print
'<img height="32" src="'.$imageurl.
'">';
303 print $langs->trans(
"None");
310 $active = _isInBoxList($idrss, $boxlist) ?
'yes' :
'no';
311 print
'<tr class="oddeven">';
312 print
'<td>'.$langs->trans(
'WidgetAvailable').
'</td>';
313 print
'<td>'.yn($active).
'</td>';
316 print
'</table>'.
"\n";
337 function _isInBoxList($idrss, array $boxlist)
339 foreach ($boxlist as $box) {
340 if ($box->boxcode ===
"lastrssinfos" && strpos($box->note, $idrss) !==
false) {
dol_escape_htmltag($stringtoescape, $keepb=0, $keepn=0, $noescapetags='', $escapeonlyhtmltags=0)
Returns text escaped for inclusion in HTML alt or title tags, or into values of HTML input fields.
dolibarr_del_const($db, $name, $entity=1)
Delete a constant.
load_fiche_titre($titre, $morehtmlright='', $picto='generic', $pictoisfullpath=0, $id='', $morecssontable='', $morehtmlcenter='')
Load a title with picto.
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
dol_print_error($db='', $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
if($cancel &&! $id) if($action=='add' &&! $cancel) if($action=='delete') if($id) $form
Actions.
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.
static listBoxes($dbs, $mode, $zone, $user=null, $excludelist=array(), $includehidden=1)
Return array of boxes qualified for area and user.
dolibarr_set_const($db, $name, $value, $type='chaine', $visible=0, $note='', $entity=1)
Insert a parameter (key,value) into database (delete old key then insert it again).
if(isModEnabled('facture') &&!empty($user->rights->facture->lire)) if((isModEnabled('fournisseur') &&empty($conf->global->MAIN_USE_NEW_SUPPLIERMOD) && $user->rights->fournisseur->facture->lire)||(isModEnabled('supplier_invoice') && $user->rights->supplier_invoice->lire)) if(isModEnabled('don') &&!empty($user->rights->don->lire)) if(isModEnabled('tax') &&!empty($user->rights->tax->charges->lire)) if(isModEnabled('facture') &&isModEnabled('commande') && $user->rights->commande->lire &&empty($conf->global->WORKFLOW_DISABLE_CREATE_INVOICE_FROM_ORDER)) $resql
Social contributions to pay.
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program Calling this function terminate execution ...
if(!defined('NOREQUIRESOC')) if(!defined('NOREQUIRETRAN')) if(!defined('NOCSRFCHECK')) if(!defined('NOTOKENRENEWAL')) if(!defined('NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined('NOREQUIREAJAX')) llxHeader()
Empty header.