Mr.X

<?php
/* Copyright (C) 2003      Eric Seigne          <erics@rycks.com>
 * Copyright (C) 2003,2005 Rodolphe Quiedeville <rodolphe@quiedeville.org>
 * Copyright (C) 2004-2011 Laurent Destailleur  <eldy@users.sourceforge.net>
 * Copyright (C) 2004      Sebastien Di Cintio  <sdicintio@ressource-toi.org>
 * Copyright (C) 2004      Benoit Mortier       <benoit.mortier@opensides.be>
 * Copyright (C) 2005-2011 Regis Houssin        <regis.houssin@inodbox.com>
 * Copyright (C) 2011 	   Juanjo Menent		<jmenent@2byte.es>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program. If not, see <http://www.gnu.org/licenses/>.
 */

/**
 *      \file       htdocs/admin/external_rss.php
 *      \ingroup    external_rss
 *      \brief      Page to setupe module ExternalRss
 */

require '../main.inc.php';
require_once DOL_DOCUMENT_ROOT.'/core/lib/admin.lib.php';
require_once DOL_DOCUMENT_ROOT.'/core/class/rssparser.class.php';

// Load translation files required by the page
$langs->load("admin");

// Security check
if (!$user->admin) accessforbidden();

$def = array();
$lastexternalrss=0;
$action=GETPOST('action', 'aZ09');


/*
 * Actions
 */

// positionne la variable pour le nombre de rss externes
$sql ="SELECT ".$db->decrypt('name')." as name FROM ".MAIN_DB_PREFIX."const";
$sql.=" WHERE ".$db->decrypt('name')." LIKE 'EXTERNAL_RSS_URLRSS_%'";
//print $sql;
$result=$db->query($sql);	// We can't use SELECT MAX() because EXTERNAL_RSS_URLRSS_10 is lower than EXTERNAL_RSS_URLRSS_9
if ($result)
{
    while ($obj = $db->fetch_object($result))
    {
        preg_match('/([0-9]+)$/i', $obj->name, $reg);
        if ($reg[1] && $reg[1] > $lastexternalrss) $lastexternalrss = $reg[1];
    }
}
else
{
    dol_print_error($db);
}

if ($action == 'add' || GETPOST("modify"))
{
    $external_rss_title = "external_rss_title_" . GETPOST("norss", 'int');
    $external_rss_urlrss = "external_rss_urlrss_" . GETPOST("norss", 'int');

    if (! empty($_POST[$external_rss_urlrss]))
    {
        $boxlabel='(ExternalRSSInformations)';
        //$external_rss_url = "external_rss_url_" . $_POST["norss"];

        $db->begin();

		if ($_POST["modify"])
		{
			// Supprime boite box_external_rss de definition des boites
/*	        $sql = "UPDATE ".MAIN_DB_PREFIX."boxes_def";
			$sql.= " SET name = '".$boxlabel."'";
	        $sql.= " WHERE file ='box_external_rss.php' AND note like '".$_POST["norss"]." %'";

			$resql=$db->query($sql);
			if (! $resql)
	        {
				dol_print_error($db,"sql=$sql");
				exit;
	        }
*/
		}
		else
		{
			// Ajoute boite box_external_rss dans definition des boites
	        $sql = "INSERT INTO ".MAIN_DB_PREFIX."boxes_def (file, note)";
			$sql.= " VALUES ('box_external_rss.php','".$db->escape(GETPOST("norss", 'int').' ('.GETPOST($external_rss_title, 'alpha')).")')";
	        if (! $db->query($sql))
	        {
	        	dol_print_error($db);
	            $err++;
	        }
		}

		$result1=dolibarr_set_const($db, "EXTERNAL_RSS_TITLE_" . GETPOST("norss", 'int'), GETPOST($external_rss_title, 'alpha'), 'chaine', 0, '', $conf->entity);
		if ($result1) $result2=dolibarr_set_const($db, "EXTERNAL_RSS_URLRSS_" . GETPOST("norss", 'int'), GETPOST($external_rss_urlrss, 'alpha'), 'chaine', 0, '', $conf->entity);

        if ($result1 && $result2)
        {
            $db->commit();
            header("Location: ".$_SERVER["PHP_SELF"]);
            exit;
        }
        else
        {
            $db->rollback();
            dol_print_error($db);
        }
    }
}

if ($_POST["delete"])
{
    if (GETPOST("norss", 'int'))
    {
        $db->begin();

		// Supprime boite box_external_rss de definition des boites
        $sql = "SELECT rowid FROM ".MAIN_DB_PREFIX."boxes_def";
        $sql.= " WHERE file = 'box_external_rss.php' AND note LIKE '".$db->escape(GETPOST("norss", 'int'))." %'";

		$resql=$db->query($sql);
		if ($resql)
        {
			$num = $db->num_rows($resql);
			$i=0;
			while ($i < $num)
			{
				$obj=$db->fetch_object($resql);

		        $sql = "DELETE FROM ".MAIN_DB_PREFIX."boxes";
		        $sql.= " WHERE entity = ".$conf->entity;
		        $sql.= " AND box_id = ".$obj->rowid;
				$resql=$db->query($sql);

		        $sql = "DELETE FROM ".MAIN_DB_PREFIX."boxes_def";
		        $sql.= " WHERE rowid = ".$obj->rowid;
				$resql=$db->query($sql);

				if (! $resql)
				{
					$db->rollback();
					dol_print_error($db, "sql=".$sql);
					exit;
				}

				$i++;
			}

			$db->commit();
		}
		else
		{
			$db->rollback();
			dol_print_error($db, "sql=".$sql);
			exit;
        }


		$result1=dolibarr_del_const($db, "EXTERNAL_RSS_TITLE_".GETPOST("norss", 'int'), $conf->entity);
		if ($result1) $result2=dolibarr_del_const($db, "EXTERNAL_RSS_URLRSS_".GETPOST("norss", 'int'), $conf->entity);

        if ($result1 && $result2)
        {
            $db->commit();
            header("Location: external_rss.php");
            exit;
        }
        else
        {
            $db->rollback();
            dol_print_error($db);
        }
    }
}


/*
 * View
 */

llxHeader('', $langs->trans("ExternalRSSSetup"));

$linkback='<a href="'.DOL_URL_ROOT.'/admin/modules.php?restore_lastsearch_values=1">'.$langs->trans("BackToModuleList").'</a>';
print load_fiche_titre($langs->trans("ExternalRSSSetup"), $linkback, 'title_setup');
print '<br>';

// Formulaire ajout
print '<form name="externalrssconfig" action="'.$_SERVER["PHP_SELF"].'" method="post">';
print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';

print '<table class="noborder" width="100%">';
print '<tr class="liste_titre">';
print '<td colspan="2">'.$langs->trans("NewRSS").'</td>';
print '<td>'.$langs->trans("Example").'</td>';
print '</tr>';
print '<tr class="impair">';
print '<td width="100">'.$langs->trans("Title").'</td>';
print '<td><input type="text" class="flat minwidth300" name="external_rss_title_'.($lastexternalrss+1).'" value=""></td>';
print '<td>'.$langs->trans('RSSUrlExample').'</td>';
print '</tr>';

print '<tr class="pair">';
print '<td>'.$langs->trans('RSSUrl').'</td>';
print '<td><input type="text" class="flat minwidth300" name="external_rss_urlrss_'.($lastexternalrss+1).'" value=""></td>';
print '<td>http://news.google.com/news?ned=us&topic=h&output=rss<br>http://www.dolibarr.org/rss</td>';
print '</tr>';
print '</table>';

print '<br><div class="center">';
print '<input type="submit" class="button" value="'.$langs->trans("Add").'">';
print '<input type="hidden" name="action" value="add">';
print '<input type="hidden" name="norss" value="'.($lastexternalrss+1).'">';
print '</div><br><br>';

print '</form>';


$sql ="SELECT rowid, file, note FROM ".MAIN_DB_PREFIX."boxes_def";
$sql.=" WHERE file = 'box_external_rss.php'";
$sql.=" ORDER BY note";

dol_syslog("select rss boxes", LOG_DEBUG);
$resql=$db->query($sql);
if ($resql)
{
	$num =$db->num_rows($resql);
	$i=0;

	while ($i < $num)
	{
		$obj = $db->fetch_object($resql);

		preg_match('/^([0-9]+)/i', $obj->note, $reg);
		$idrss = $reg[1];
		$keyrsstitle="EXTERNAL_RSS_TITLE_".$idrss;
		$keyrssurl="EXTERNAL_RSS_URLRSS_".$idrss;
        //print "x".$idrss;

        $rssparser=new RssParser($db);
		$result = $rssparser->parser($conf->global->$keyrssurl, 5, 300, $conf->externalrss->dir_temp);

		print "<br>";
		print "<form name=\"externalrssconfig\" action=\"".$_SERVER["PHP_SELF"]."\" method=\"post\">";

		print '<table class="noborder" width="100%">';
		print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';

		print "<tr class=\"liste_titre\">";
		print "<td>".$langs->trans("RSS")." ".($i+1)."</td>";
        print '<td class="right">';
        print "<input type=\"submit\" class=\"button\" name=\"modify\" value=\"".$langs->trans("Modify")."\">";
		print " &nbsp; ";
		print "<input type=\"submit\" class=\"button\" name=\"delete\" value=\"".$langs->trans("Delete")."\">";
		print "<input type=\"hidden\" name=\"norss\"  value=\"".$idrss."\">";
		print '</td>';
		print "</tr>";


		print '<tr class="oddeven">';
		print "<td width=\"100px\">".$langs->trans("Title")."</td>";
		print "<td><input type=\"text\" class=\"flat minwidth300\" name=\"external_rss_title_" . $idrss . "\" value=\"" . dol_escape_htmltag($conf->global->$keyrsstitle) . "\"></td>";
		print "</tr>";


		print '<tr class="oddeven">';
		print "<td>".$langs->trans("URL")."</td>";
		print "<td><input type=\"text\" class=\"flat minwidth300\" name=\"external_rss_urlrss_" . $idrss . "\" value=\"" . dol_escape_htmltag($conf->global->$keyrssurl) . "\"></td>";
		print "</tr>";


		print '<tr class="oddeven">';
		print "<td>".$langs->trans("Status")."</td>";
		print "<td>";
	    if ($result > 0 && empty($rss->error))
	    {
			print '<font class="ok">'.$langs->trans("Online").'</div>';
		}
		else
		{
			print '<font class="error">'.$langs->trans("Offline");
			$langs->load("errors");
			if ($rssparser->error) print ' - '.$langs->trans($rssparser->error);
			print '</div>';
		}
		print "</td>";
		print "</tr>";

		// Logo
	    if ($result > 0 && empty($rss->error))
	    {

			print '<tr class="oddeven">';
			print "<td>".$langs->trans("Logo")."</td>";
			print '<td>';
			$imageurl=$rssparser->getImageUrl();
			$linkrss=$rssparser->getLink();
			if (! preg_match('/^http/', $imageurl)) $imageurl=$linkrss.$imageurl;
			if ($imageurl) print '<img height="32" src="'.$imageurl.'">';
			else print $langs->trans("None");
			print '</td>';
			print "</tr>";
		}

		print '</table>';

		print "</form>";

		$i++;
	}
}
else
{
	dol_print_error($db);
}

// End of page
llxFooter();
$db->close();

Name	Type	Size	Permission
dolistore	Folder		0755
menus	Folder		0755
system	Folder		0755
tools	Folder		0755
accountant.php	File	12.11 KB	0644
agenda.php	File	6.9 KB	0644
agenda_extrafields.php	File	4.05 KB	0644
agenda_extsites.php	File	8.28 KB	0644
agenda_other.php	File	13.79 KB	0644
agenda_reminder.php	File	7.64 KB	0644
agenda_xcal.php	File	8.51 KB	0644
bank.php	File	15.28 KB	0644
bank_extrafields.php	File	3.94 KB	0644
barcode.php	File	13.3 KB	0644
bom.php	File	19.14 KB	0644
boxes.php	File	16.47 KB	0644
chequereceipts.php	File	9.19 KB	0644
clicktodial.php	File	4.96 KB	0644
commande.php	File	22.97 KB	0644
commande_fournisseur_dispatch_extrafields.php	File	4.2 KB	0644
company.php	File	50.66 KB	0644
compta.php	File	5.06 KB	0644
confexped.php	File	4.44 KB	0644
const.php	File	8.76 KB	0644
contract.php	File	16.82 KB	0644
dav.php	File	5.44 KB	0644
debugbar.php	File	3.63 KB	0644
defaultvalues.php	File	15.43 KB	0644
delais.php	File	14.61 KB	0644
dict.php	File	98.49 KB	0644
ecm.php	File	2.96 KB	0644
emailcollector_card.php	File	26.66 KB	0644
emailcollector_list.php	File	22.51 KB	0644
events.php	File	3.34 KB	0644
expedition.php	File	17.34 KB	0644
expedition_extrafields.php	File	4.12 KB	0644
expeditiondet_extrafields.php	File	4.18 KB	0644
expensereport.php	File	16.41 KB	0644
expensereport_extrafields.php	File	4.06 KB	0644
expensereport_ik.php	File	6.15 KB	0644
expensereport_rules.php	File	11.07 KB	0644
export.php	File	3.09 KB	0644
external_rss.php	File	9.84 KB	0644
facture.php	File	31.87 KB	0644
fckeditor.php	File	7.85 KB	0644
fichinter.php	File	21.23 KB	0644
geoipmaxmind.php	File	4.88 KB	0644
holiday.php	File	17.15 KB	0644
ihm.php	File	25.84 KB	0644
index.php	File	5.01 KB	0644
ldap.php	File	12.66 KB	0644
ldap_contacts.php	File	14.99 KB	0644
ldap_groups.php	File	9.14 KB	0644
ldap_members.php	File	19.96 KB	0644
ldap_members_types.php	File	8.77 KB	0644
ldap_users.php	File	19.88 KB	0644
limits.php	File	11.75 KB	0644
livraison.php	File	15.98 KB	0644
livraison_extrafields.php	File	4.12 KB	0644
livraisondet_extrafields.php	File	4.19 KB	0644
loan.php	File	3.23 KB	0644
mailing.php	File	5.43 KB	0644
mailman.php	File	7.97 KB	0644
mails.php	File	37.39 KB	0644
mails_emailing.php	File	25.29 KB	0644
mails_senderprofile_list.php	File	19.89 KB	0644
mails_templates.php	File	45.42 KB	0644
menus.php	File	9.94 KB	0644
modulehelp.php	File	18.72 KB	0644
modules.php	File	47.46 KB	0644
multicurrency.php	File	12.68 KB	0644
notification.php	File	10.78 KB	0644
oauth.php	File	4.75 KB	0644
oauthlogintokens.php	File	13.62 KB	0644
openinghours.php	File	7.95 KB	0644
order_extrafields.php	File	3.99 KB	0644
orderdet_extrafields.php	File	4.07 KB	0644
payment.php	File	9.93 KB	0644
pdf.php	File	22.38 KB	0644
perms.php	File	6.58 KB	0644
prelevement.php	File	19.35 KB	0644
propal.php	File	25.24 KB	0644
proxy.php	File	6.78 KB	0644
receiptprinter.php	File	16.75 KB	0644
reception_extrafields.php	File	4.11 KB	0644
reception_setup.php	File	16.96 KB	0644
resource.php	File	4.14 KB	0644
resource_extrafields.php	File	3.96 KB	0644
salaries.php	File	3.23 KB	0644
security.php	File	15.86 KB	0644
security_file.php	File	6.91 KB	0644
security_other.php	File	6.11 KB	0644
sms.php	File	11.31 KB	0644
socialnetworks.php	File	3.21 KB	0644
spip.php	File	4.88 KB	0644
stock.php	File	16.71 KB	0644
supplier_invoice.php	File	18.5 KB	0644
supplier_order.php	File	21.15 KB	0644
supplier_payment.php	File	16.44 KB	0644
supplier_proposal.php	File	20.35 KB	0644
supplierinvoice_extrafields.php	File	4.13 KB	0644
supplierinvoicedet_extrafields.php	File	4.2 KB	0644
supplierorder_extrafields.php	File	4.05 KB	0644
supplierorderdet_extrafields.php	File	4.12 KB	0644
syslog.php	File	10.12 KB	0644
taxes.php	File	8.8 KB	0644
ticket.php	File	18.65 KB	0644
ticket_extrafields.php	File	3.8 KB	0644
ticket_public.php	File	17.54 KB	0644
translation.php	File	22.63 KB	0644
triggers.php	File	2.7 KB	0644
user.php	File	11.4 KB	0644
usergroup.php	File	10.14 KB	0644
website.php	File	23.24 KB	0644
website_options.php	File	4.65 KB	0644
workflow.php	File	7.02 KB	0644

Upload:

Command:

Filemanager

Server Info

System Info

User Info