|
|
| Line 1: |
Line 1: |
| − | <?php
| + | {{svn|extensions|MarketResearch/MarketResearch.php}} |
| − | /**
| |
| − | * MarketResearch extension{{php}}{{Category:Extensions|MarketResearch}}
| |
| − | *
| |
| − | * Version 0.0.1 started 2008-07-12
| |
| − | *
| |
| − | * @package MediaWiki
| |
| − | * @subpackage Extensions
| |
| − | * @licence GNU General Public Licence 2.0 or later
| |
| − | */
| |
| − | | |
| − | if (!defined('MEDIAWIKI')) die('Not an entry point.');
| |
| − | | |
| − | define('MARKETRESEARCH_VERSION', '0.2.5, 2008-08-31');
| |
| − | | |
| − | $wgMarketResearchPartner = 'partnerid-not-set';
| |
| − | $wgMarketResearchSearch = 'http://www.marketresearch.com/feed/search_results.asp?bquery=$2&partnerid=$1';
| |
| − | $wgMarketResearchCart = 'http://www.marketresearch.com/feed/cart/addtocart.asp';
| |
| − | $wgMarketResearchView = 'http://www.marketresearch.com/feed/cart/ViewCart.asp';
| |
| − | $wgMarketResearchExpiry = 600; # Number of seconds a cached entry should live for
| |
| − | $wgMarketResearchDescSize = 500; # Max characters to render of a description
| |
| − | $wgMarketResearchLink = 'http://www.govitwiki.com';
| |
| − | $wgMarketResearchName = 'GovITwiki Research Report Store';
| |
| − | $wgMarketResearchImages = preg_replace('|^.+(?=[/\\\\]extensions)|', $wgScriptPath, dirname(__FILE__).'/images');
| |
| − | | |
| − | # Extension credits that show up on Special:Version
| |
| − | $wgExtensionCredits['parserhook'][] = array(
| |
| − | 'name' => 'MarketResearch',
| |
| − | 'author' => '[http://www.organicdesign.co.nz/nad Nad] for [http://www.wikiexpert.com WikiExpert]',
| |
| − | 'url' => 'http://www.organicdesign.co.nz/Extension:MarketResearch',
| |
| − | 'description' => 'Display market research information'
| |
| − | );
| |
| − | | |
| − | $wgSpecialPages['MarketResearch'] = 'SpecialMarketResearch';
| |
| − | $wgExtensionFunctions[] = "wfSetupMarketResearch";
| |
| − | | |
| − | require_once "$IP/includes/SpecialPage.php";
| |
| − | | |
| − | /**
| |
| − | * The callback function for converting the input text to HTML output
| |
| − | */
| |
| − | function wfMarketResearchTag($input) {
| |
| − | global $wgTitle, $wgMarketResearchPartner, $wgMarketResearchSearch, $wgMarketResearchDescSize,
| |
| − | $wgMarketResearchTable, $wgMarketResearchExpiry, $wgMarketResearchImages;
| |
| − | | |
| − | # Add keywords and product id into feed URL
| |
| − | $keywords = preg_split('/[\x00-\x1f+,]+/', strtolower(trim($input)));
| |
| − | $search = str_replace('$1', $wgMarketResearchPartner, $wgMarketResearchSearch);
| |
| − | $search = str_replace('$2', join('+', $keywords), $search);
| |
| − | $keywords = join(',', $keywords);
| |
| − | $ts = time();
| |
| − | $db = &wfGetDB(DB_MASTER);
| |
| − | $return = urlencode($wgTitle->getFullURL());
| |
| − | $html = "";
| |
| − | | |
| − | # Remove expired items & attempt to read current item
| |
| − | $xml = false;
| |
| − | if ($wgMarketResearchTable) {
| |
| − | $db->delete($wgMarketResearchTable, array("mrc_time < ".($ts-$wgMarketResearchExpiry)), __FUNCTION__);
| |
| − | if ($row = $db->selectRow($wgMarketResearchTable, 'mrc_xml', "mrc_keywords = '$keywords'", __FUNCTION__))
| |
| − | $xml = $row->mrc_xml;
| |
| − | }
| |
| − | | |
| − | # If no XML yet, read from feed and store in cache
| |
| − | if ($xml === false) {
| |
| − | $xml = file_get_contents($search);
| |
| − | if ($wgMarketResearchTable) {
| |
| − | $row = array(
| |
| − | 'mrc_keywords' => $keywords,
| |
| − | 'mrc_time' => $ts,
| |
| − | 'mrc_xml' => $xml
| |
| − | );
| |
| − | $db->insert($wgMarketResearchTable, $row, __FUNCTION__);
| |
| − | }
| |
| − | }
| |
| − | | |
| − | # Read the feed into a DOM object
| |
| − | $doc = new DOMDocument();
| |
| − | $doc->loadXML($xml);
| |
| − | if (is_object($doc)) {
| |
| − | | |
| − | $jump = Title::makeTitle(NS_SPECIAL, 'MarketResearch');
| |
| − | $buy = "<img src=\"$wgMarketResearchImages/more-info.gif\" />";
| |
| − |
| |
| − | # Loop through products
| |
| − | foreach ($doc->getElementsByTagName('PRODUCT') as $product) {
| |
| − | $id = $product->getAttribute('id');
| |
| − | foreach ($product->getElementsByTagName('TITLE') as $i) $title = $i->textContent;
| |
| − | foreach ($product->getElementsByTagName('VENDOR') as $i) $vendor = $i->textContent;
| |
| − | foreach ($product->getElementsByTagName('DESCRIPTION') as $i) $desc = $i->textContent;
| |
| − | if (strlen($desc) > $wgMarketResearchDescSize) $desc = substr($desc, 0, $wgMarketResearchDescSize).'...';
| |
| − | | |
| − | # Jump page link
| |
| − | $link = "<a href=\"".$jump->getLocalURL("keywords=$keywords&productid=$id&returnURL=$return")."\">$buy</a>\n";
| |
| − | | |
| − | # render this item
| |
| − | $html .= "<div class=\"marketresearch-item\">\n<h3>$title by $vendor</h3>\n<p>$desc</p>\n$link\n</div>";
| |
| − | }
| |
| − | } else $html = 'no valid XML returned';
| |
| − | | |
| − | return "<div class=\"marketresearch\">$html</div>";
| |
| − | }
| |
| − | | |
| − | /**
| |
| − | * An unlisted special page used as the "jump page" to a product
| |
| − | */
| |
| − | class SpecialMarketResearch extends SpecialPage {
| |
| − | | |
| − | function __construct() {
| |
| − | SpecialPage::SpecialPage('MarketResearch', '', false, false, false, false);
| |
| − | }
| |
| − |
| |
| − | public function execute($param) {
| |
| − | global $wgOut, $wgParser, $wgRequest,
| |
| − | $wgMarketResearchTable, $wgMarketResearchPartner, $wgMarketResearchCart, $wgMarketResearchView,
| |
| − | $wgMarketResearchLink, $wgMarketResearchName, $wgMarketResearchImages;
| |
| − |
| |
| − | $this->setHeaders();
| |
| − | $title = Title::makeTitle(NS_SPECIAL, 'MarketResearch');
| |
| − | $keywords = $wgRequest->getText('keywords');
| |
| − | $product = $wgRequest->getText('productid');
| |
| − | $return = urlencode($wgRequest->getText('returnURL'));
| |
| − | | |
| − | # Read query XML from cache
| |
| − | $db = &wfGetDB(DB_SLAVE);
| |
| − | if ($row = $db->selectRow($wgMarketResearchTable, 'mrc_xml', "mrc_keywords = '$keywords'", __FUNCTION__)) {
| |
| − | $doc = new DOMDocument();
| |
| − | $xml = $row->mrc_xml;
| |
| − | $doc->loadXML($xml);
| |
| − | } else $doc = false;
| |
| − | | |
| − | # Parse XML and render
| |
| − | if (is_object($doc)) {
| |
| − | $wgOut->addHTML("<form name=\"mr-form\" action=\"$wgMarketResearchCart\" method=\"GET\">\n");
| |
| − | foreach ($doc->getElementsByTagName('PRODUCT') as $p) if ($p->getAttribute('id') == $product) {
| |
| − | foreach ($p->getElementsByTagName('TITLE') as $i) $title = $i->textContent;
| |
| − | foreach ($p->getElementsByTagName('VENDOR') as $i) $vendor = $i->textContent;
| |
| − | foreach ($p->getElementsByTagName('DESCRIPTION') as $i) $desc = $i->textContent;
| |
| − | $wgOut->addWikiText("== $title by $vendor ==\n");
| |
| − | $wgOut->addHTML($desc);
| |
| − | $options = "";
| |
| − | foreach ($p->getElementsByTagName('BUY') as $i) {
| |
| − | $id = $i->getAttribute('id');
| |
| − | $name = $i->textContent;
| |
| − | $price = '$'.$i->getAttribute('price').'.00';
| |
| − | $options .= "<option value=\"$id\">$price ($name)</option>\n";
| |
| − | }
| |
| − | $wgOut->addHTML("<br><select name=\"productid\">$options</select>");
| |
| − | $wgOut->addHTML(" <input type=\"image\" src=\"$wgMarketResearchImages/add-to-cart.gif\" />\n");
| |
| − | $wgOut->addHTML("<br><a href=\"$wgMarketResearchView?partnerid=$wgMarketResearchPartner&returnURL=$return\">View cart</a>");
| |
| − | $wgOut->addHTML(" | <a href=\"$wgMarketResearchLink\">$wgMarketResearchName</a>");
| |
| − | $wgOut->addHTML(" | <a href=\"javascript:history.go(-1)\">Back</a>");
| |
| − | }
| |
| − | $wgOut->addHTML("<input type=\"hidden\" name=\"partnerid\" value=\"$wgMarketResearchPartner\" />\n");
| |
| − | $wgOut->addHTML("<input type=\"hidden\" name=\"returnURL\" value=\"$return\" />\n");
| |
| − | $wgOut->addHTML("</form>\n");
| |
| − | } else $wgOut->addWikiText('no valid XML returned');
| |
| − | }
| |
| − | }
| |
| − | | |
| − | /**
| |
| − | * Install the hook and special page
| |
| − | */
| |
| − | function wfSetupMarketResearch() {
| |
| − | global $wgParser, $wgRequest, $wgOut, $egSelenium, $wgLanguageCode, $wgMessageCache, $wgMarketResearchTable;
| |
| − | $wgParser->setHook("marketresearch", "wfMarketResearchTag");
| |
| − | | |
| − | # Create cache DB table if it doesn't exist
| |
| − | $db = &wfGetDB(DB_MASTER);
| |
| − | $wgMarketResearchTable = $db->tableName('MarketResearchCache');
| |
| − | if (!$db->tableExists($wgMarketResearchTable)) {
| |
| − | $query = "CREATE TABLE $wgMarketResearchTable (mrc_keywords TINYBLOB, mrc_time INTEGER NOT NULL, mrc_xml MEDIUMBLOB);";
| |
| − | $result = $db->query($query);
| |
| − | }
| |
| − | | |
| − | # If the table couldn't be created, disable IPN and add error to site notice
| |
| − | if (!$db->tableExists($wgMarketResearchTable)) {
| |
| − | global $wgSiteNotice;
| |
| − | $wgMarketResearchTable = false;
| |
| − | $wgSiteNotice = "<div class=\"errorbox\"><b>MarketResearch extension problem! Could not create database table, caching functionality is disabled.</b><br>Please ensure the wiki database user has CREATE permission, or add the table manually with the following query:<br><tt>$query</tt></div>";
| |
| − | }
| |
| − | | |
| − | # Add any messages
| |
| − | if ($wgLanguageCode == 'en') {
| |
| − | $wgMessageCache->addMessages(array(
| |
| − | 'marketresearch' => "Details on This Report"
| |
| − | ));
| |
| − | }
| |
| − | | |
| − | SpecialPage::addPage(new SpecialMarketResearch());
| |
| − | } | |
