Difference between revisions of "Extension:Selenium.php"

From Organic Design wiki
(Documentation changes)
(Fix up hiddeous EMACS carnage)
Line 1: Line 1:
 
<?php
 
<?php
 +
/**
 +
* Extension:Selenium{{php}}{{Category:Extensions|Selenium}}{{Category:Extensions in progress|Selenium}}
 +
* {{Category:Selenium}}{{Category:Extensions created with Template:SpecialPage}}
 +
* - Licenced under LGPL http://www.gnu.org/copyleft/lesser.html
 +
* - Author: http://www.organicdesign.co.nz/User:Sven (M Davy)
 +
*/
  
−
  /**
 
−
  * Extension:Selenium {{php}}{{Category:Extensions|Selenium}}{{Category:Extensions in progress|Selenium}}
 
−
  * {{Category:Selenium}}{{Category:Extensions created with Template:SpecialPage}}
 
−
  * - Licenced under LGPL http://www.gnu.org/copyleft/lesser.html
 
−
  * - Author: http://www.organicdesign.co.nz/User:Sven (M Davy)
 
−
  */
 
−
 
 
if (!defined('MEDIAWIKI')) die('Not an entry point.');
 
if (!defined('MEDIAWIKI')) die('Not an entry point.');
−
define('SELENIUM_VERSION','0.7.6, 2007-1-09, selenium-core 0.8.3');
+
define('SELENIUM_VERSION', '0.8.0, 2008-08-01');
−
+
 
−
$egSeleniumTag                 = "selenium";
+
$egSeleniumTag         = "selenium";
−
$egSeleniumPath               = "/wiki/extensions/Selenium/selenium-core-0/core/TestRunner.html";
+
$egSeleniumPath         = "/wiki/extensions/Selenium/selenium-core-0/core/TestRunner.html";
−
$egResultsUrlPath               = "../../tmp/results.php";
+
$egResultsUrlPath       = "../../tmp/results.php";
−
$egSpecialPath                 = "/wiki/index.php?title=Special:Selenium&suite=";
+
$egSpecialPath         = "/wiki/index.php?title=Special:Selenium&suite=";
−
$egSeleniumCategory           = "Selenium";
+
$egSeleniumCategory     = "Selenium";
−
$egSeleniumNamespace           = "";
+
$egSeleniumNamespace   = "";
−
+
preg_replace('|^.+(?=[/\\\\]extensions)|', $wgScriptPath, $this->baseDir);
 
/**
 
/**
 
  * http://www.mediawiki.org/wiki/Manual:Special_pages
 
  * http://www.mediawiki.org/wiki/Manual:Special_pages
 
  * $wgSpecialPages['Selenium'] = 'Selenium';
 
  * $wgSpecialPages['Selenium'] = 'Selenium';
 
  */
 
  */
−
+
 
 
$wgExtensionFunctions[]        = 'efSetupSelenium';
 
$wgExtensionFunctions[]        = 'efSetupSelenium';
 
$wgHooks['LanguageGetMagic'][] = 'efSeleniumLanguageGetMagic';
 
$wgHooks['LanguageGetMagic'][] = 'efSeleniumLanguageGetMagic';
−
+
 
 
$wgExtensionCredits['specialpage'][] = array(
 
$wgExtensionCredits['specialpage'][] = array(
 
    'name'        => 'Special:Selenium',
 
    'name'        => 'Special:Selenium',
Line 33: Line 32:
 
    'version'    => SELENIUM_VERSION
 
    'version'    => SELENIUM_VERSION
 
    );
 
    );
−
+
 
 
require_once "$IP/includes/SpecialPage.php";
 
require_once "$IP/includes/SpecialPage.php";
−
+
 
 
# Define the seleium tag class
 
# Define the seleium tag class
 
class Selenium {
 
class Selenium {
 +
 +
# Properties
  
−
# Properties
+
# Constructor
 +
function __construct() {
 +
global $wgHooks,$wgParser,$egSeleniumTag;
  
−
+
# Add the tagHook
−
# Constructor
+
$wgParser->setHook($egSeleniumTag,array($this,'tagSelenium'));
−
  function __construct() {
+
}   
−
    global $wgHooks,$wgParser,$egSeleniumTag;
+
 
−
+
/**
−
# Add the tagHook
+
* Deploy tags to allow additional html table tags
−
    $wgParser->setHook($egSeleniumTag,array($this,'tagSelenium'));
+
*/
−
  }   
+
public function tagSelenium($text, $argv, &$parser) {
−
+
global $wgTitle, $egSeleniumCategory;
−
# Deploy tags to allow additional html table tags
+
 
−
  public function tagSelenium($text,$argv,&$parser) {
+
/**
−
    global $wgTitle, $egSeleniumCategory;
+
* Should be a preprocess using first stage of parser
−
    /**
+
* $text = $parser->preprocess($text,$wgTitle,$parser->mOptions);
−
    * Should be a preprocess using first stage of parser
+
*/
−
    * $text = $parser->preprocess($text,$wgTitle,$parser->mOptions);
+
 
−
    */
+
/**
 +
* Want the Selenium tag to strip out <html>...</html> enclosing tags
 +
* It currently removes everything around the first <table...</table> tags found
 +
*/
 +
 
 +
$text = eregi_replace('<html>.+<table', '<div class="selenium"><table', $text);
 +
$text = eregi_replace('</table>.+', '</table></div>', $text);
 +
 
 +
# Automatically create category as specified in $egSeleniumCategory
 +
if($egSeleniumCategory) {
 +
$this->magicCategory($parser, $egSeleniumCategory, $sortkey = '');
 +
}
  
−
    /**
+
# We have not run htmlspecialchars to minimize cross-site scripting vulnerabilities
−
    * Want the Selenium tag to strip out <html>...</html> enclosing tags
+
return($text);
−
    * It currently removes everything around the first <table...</table> tags found
+
}
−
    */
 
  
−
    $text = eregi_replace('<html>.+<table', '<div class="selenium"><table', $text);
+
# Expand the category-magic to nothing and parse separately as normal category links
−
    $text = eregi_replace('</table>.+', '</table></div>', $text);
+
private function magicCategory(&$parser, $cat, $sortkey = '') {
−
   
+
if ($sortkey) $sortkey = "|$sortkey";
−
# Automatically create category as specified in $egSeleniumCategory
+
$parser->parse("[[Category:$cat$sortkey]]", $parser->mTitle, $parser->mOptions, false, false);
−
    if($egSeleniumCategory) {
+
return '';
−
      $this->magicCategory($parser, $egSeleniumCategory, $sortkey = '');
+
}
−
    }
 
  
−
# We have not run htmlspecialchars to minimize cross-site scripting vulnerabilities
+
/**
−
    return($text);
+
* Needed in some versions to prevent Special:Version from breaking
−
  }
+
*/
−
+
private function __toString() {
−
# Expand the category-magic to nothing and parse separately as normal category links
+
return __CLASS__;
−
  private function magicCategory(&$parser,$cat,$sortkey = '') {
+
}
−
    if ($sortkey) $sortkey = "|$sortkey";
 
−
    $parser->parse("[[Category:$cat$sortkey]]",$parser->mTitle,$parser->mOptions,false,false);
 
−
    return '';
 
−
  }
 
−
 
−
 
−
# Needed in some versions to prevent Special:Version from breaking
 
−
  private function __toString() { return 'Selenium'; }
 
 
}
 
}
−
+
 
−
   
+
 
−
# Define a new class based on the SpecialPage class
+
/**
 +
  * Define a new class based on the SpecialPage class
 +
*/
 
class SpecialSelenium extends SpecialPage {
 
class SpecialSelenium extends SpecialPage {
 +
 +
/**
 +
* Need a global for the location of Selenium
 +
*/
 
   
 
   
−
  /**
+
# Properties
−
  * Need a global for the location of Selenium
+
var $suite = array(
−
  */
+
'header' => '<html><head><meta content="text/html; charset=ISO-8859-1" http-equiv="content-type"><title>Selenium</title></head><body><table cellpadding="1" cellspacing="1" border="1"><tbody>',
 +
'footer' => "\n</tbody></table></body></html>"
 +
);
 
   
 
   
−
# Properties
+
/**
−
  var $suite = array(
+
* Constructor
−
    'header' => '<html><head><meta content="text/html; charset=ISO-8859-1" http-equiv="content-type"><title>Selenium</title></head><body><table cellpadding="1" cellspacing="1" border="1"><tbody>',
+
*/
−
    'footer'      => "\n</tbody></table></body></html>"
+
function __construct() {
−
    );
+
SpecialPage::SpecialPage(
 +
'Selenium',    # name as seen in links etc
 +
'',            # user rights required
 +
true,          # listed in special:specialpages
 +
false,        # function called by execute() - defaults to wfSpecial{$name}
 +
false,        # file included by execute() - defaults to Special{$name}.php, only used if no function
 +
false          # includable
 +
);
 +
}
 
   
 
   
−
# Constructor
+
/**
−
  function __construct() {
+
* -------------------- Create form for Special:Selenium --------------------
−
+
* Override SpecialPage::execute()
−
    SpecialPage::SpecialPage(
+
*/
−
    'Selenium',    # name as seen in links etc
+
public function execute() {
−
    '',      # user rights required
+
global $wgOut, $wgParser, $wgRequest, $egResultsUrlPath;
−
    true,          # listed in special:specialpages
+
 
−
    false,        # function called by execute() - defaults to wfSpecial{$name}
+
# Process suite or test if ?suite=article_name in query string
−
    false,        # file included by execute() - defaults to Special{$name}.php, only used if no function
+
if ($wgRequest->getText('suite')) {
−
    false          # includable
+
 
−
    );
+
# Grab article $param and process contents  
−
  }
+
$suiteTitle = Title::newFromText($wgRequest->getText('suite'));
−
+
 
−
  /**  
+
#      print $suiteTitle;
−
  * -------------------- Create form for Special:Selenium --------------------
+
#      print $suiteTitle->getText();
−
  * Override SpecialPage::execute()
+
#      print $wgRequest->getText('suite');
−
  */
+
 
−
  public function execute() {
+
$wikitext = $this->fetchContents($suiteTitle);
−
    global $wgOut, $wgParser, $wgRequest, $egResultsUrlPath;
+
# Expanding braces of any transcluded tests  
−
+
$wikitext = $wgParser->preprocess($wikitext, $suiteTitle, new ParserOptions());
−
# Process suite or test if ?suite=article_name in query string
+
 
−
    if($wgRequest->getText('suite')) {
+
# Preparse encapsulations around Selenium tags e.g. <nowiki><selenium></nowiki>
−
# Grab article $param and process contents  
+
$wikitext = preg_replace("|<nowiki></?selenium></nowiki>|", "<nowiki><selenium></nowiki>", $wikitext);
−
      $suiteTitle = Title::newFromText($wgRequest->getText('suite'));
+
 
−
+
$matches = array();
−
#      print $suiteTitle;
+
if (!$this->articleRegex($wikitext, $matches)) {
−
#      print $suiteTitle->getText();
+
$this -> build404('Specified suite contains no selenium test tags');
−
#      print $wgRequest->getText('suite');
+
}
−
+
else {
−
      $wikitext = $this->fetchContents($suiteTitle);
+
 
−
# Expanding braces of any transcluded tests  
+
# Determine whether suite or test from ?suite=article_name&test=section_num in query string       
−
      $wikitext = $wgParser->preprocess($wikitext,$suiteTitle,new ParserOptions());
+
 
−
+
if ($wgRequest->getText('test')) {
−
# Preparse encapsulations around Selenium tags e.g. <nowiki><selenium></nowiki>
+
# Grab name of test
−
      $wikitext = preg_replace("|<nowiki></?selenium></nowiki>|", "<nowiki><selenium></nowiki>", $wikitext);
+
$testTitle = Title::newFromText($wgRequest->getText('test'));
−
+
if (in_array($testTitle->getText(), $matches[1])) {
−
      $matches = array();
+
$counter = 0;
−
      if(! $this->articleRegex($wikitext, $matches)) {
+
foreach ($matches[1] as $value) {
−
$this -> build404('Specified suite contains no selenium test tags');
+
if ($value == $testTitle->getText()) {
−
      } else {
+
# Generating test html
−
# Determine whether suite or test from ?suite=article_name&test=section_num in query string       
+
$matches[2][$counter] = preg_replace('|.+?<selenium>\n?(.+?)</selenium>|ms', "\\1", $matches[2][$counter]);
−
if($wgRequest->getText('test')) {  
+
print $matches[2][$counter];
−
# Grab name of test
+
break; #exit foreach loop when test is found
−
  $testTitle = Title::newFromText($wgRequest->getText('test'));
+
}
−
  if(in_array($testTitle->getText(), $matches[1])) {
+
$counter++;        
−
    $counter = 0;
+
}
−
    foreach($matches[1] as $value) {
+
}
−
      if($value == $testTitle->getText()) {
+
else $this -> build404("Specified test does not exist in " . $wgRequest->getText('suite'));
−
# Generating test html
+
}
−
$matches[2][$counter] = preg_replace('|.+?<selenium>\n?(.+?)</selenium>|ms', "\\1", $matches[2][$counter]);
+
else {
−
print $matches[2][$counter];
+
# Obtain suite section headers
−
break; #exit foreach loop when test is found
+
$suite_urls = array();
−
}
+
foreach ($matches[1] as $value) array_push($suite_urls, $value);
−
      $counter++;        
+
print $this->buildSuite($suite_urls, $wgRequest->getText('suite'));
−
    }
+
}
−
  } else {
+
}
−
    $this -> build404("Specified test does not exist in " . $wgRequest->getText('suite'));
+
}
−
  }
+
−
} else {
+
else {
−
+
global $egSeleniumCategory;
−
# Obtain suite section headers
+
 
−
  $suite_urls = array();
+
# Retrieve articles in category labelled $egSeleniumCategory
−
  foreach($matches[1] as $value) {
+
$list = $this->categoryArticles($egSeleniumCategory);
−
    array_push($suite_urls, $value);
+
 
−
  }
+
# Grab article $param and process contents
−
  print $this->buildSuite($suite_urls, $wgRequest->getText('suite'));
+
$suites = array();
 +
foreach ($list as $articleName) {
 +
$suiteTitle = Title::newFromText($articleName);
 +
$wikitext = $this->fetchContents($suiteTitle);
 +
if ($this->articleRegex($wikitext, $matches)) $suites[] = $articleName;
 +
}
 +
 +
$selectTag = '<select name="selenium">';
 +
foreach($suites as $suite) $selectTag .= "<option>$suite</option>";
 +
$selectTag .= '</select>';
 +
 
 +
$this->setHeaders();
 +
$title = Title::makeTitle(NS_SPECIAL, 'Selenium');
 +
 
 +
global $egSeleniumPath, $egSpecialPath;
 +
$path = "$egSeleniumPath?test=" . urlencode($egSpecialPath);
 +
 
 +
$form  = wfElement('form',array('action' => $title->getLocalURL('action=submit'),'method' => 'post'),null);
 +
$form .= '<fieldset><legend>Select a suite to run</legend>';
 +
$form .= $selectTag;
 +
$form .=  wfElement('input',array('type' => 'submit'));
 +
$form .= "<br /><br />" . wfCheckLabel("Run automatically","wfRunAuto" , "wfRunAuto",$checked = false);
 +
$form .=  '</fieldset></form>';
 +
 
 +
$wgOut->addHTML($form);
 +
 
 +
if ($wgRequest->getText('action')) {
 +
# foreach($_REQUEST as $key=>$value) {
 +
#   print "$key>$value" . "<br />";
 +
}
 +
$path .= urlencode($wgRequest->getText('selenium'));
 +
 
 +
if ($wgRequest->getBool('wfRunAuto')) $path .= "&auto=true&resultsUrl=$egResultsUrlPath";
 +
 
 +
$form_link  = '<fieldset><legend>Click link to run selenium-core</legend>';
 +
$form_link .= "<a href=\"$path\">" . $wgRequest->getText('selenium') . '</a></fieldset>';
 +
$wgOut->addHTML($form_link);
 +
}
 +
}
 +
 
 +
private function categoryArticles($category) {
 +
$list  = array();
 +
$dbr    = &wfGetDB(DB_SLAVE);
 +
$cl    = $dbr->tableName('categorylinks');
 +
$res    = $dbr->select($cl, 'cl_from', "cl_to = '$category'", __METHOD__, array('ORDER BY' => 'cl_sortkey'));
 +
while ($row = $dbr->fetchRow($res)) {
 +
$list[] = Title::newFromID($row[0])->getPrefixedText();   
 +
}
 +
return $list;
 +
}
 +
 
 +
private function fetchContents($title) {
 +
$article  = new Article($title);
 +
$contents = $article->getContent();
 +
return $contents;
 +
}
 +
 
 +
private function articleRegex(&$wikitext, &$matches) {
 +
return preg_match_all('|^={2,}\s*([^\#\<\>\[\]\|\{\}\n]+?)\s*={2,}(.+?</selenium>)|ms', $wikitext, $matches);
 +
}
 +
 
 +
/**
 +
* Method to bypass $wgOut -must be called early to avoid conflict with other extensions
 +
*/
 +
static function disableHTML(&$wgOut) {
 +
$wgOut->disable();
 +
wfResetOutputBuffers();
 +
return;
 
}
 
}
−
      }
+
 
−
    } else {
+
/**
−
      global $egSeleniumCategory;
+
* Method to generate 404 error
−
# Retrieve articles in category labelled $egSeleniumCategory
+
*/
−
      $list = $this->categoryArticles($egSeleniumCategory);
+
private function build404($message) {
−
+
header('HTTP/1.0 404 not Found');
−
# Grab article $param and process contents
+
$err = "<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML 2.0//EN\"><html><head><title>404 Error</title></head>
−
      $suites = array();
+
<body><h1>$message</h1><p>The requested URL was not found on this server.</p></body></html>";
−
      foreach($list as $articleName) {
+
print $err;
−
$suiteTitle = Title::newFromText($articleName);
+
return;
−
$wikitext = $this->fetchContents($suiteTitle);
 
−
 
−
if( $this->articleRegex($wikitext, $matches) ) {
 
−
  $suites[] = $articleName;
 
 
}
 
}
−
      }
+
 
−
      $selectTag = '<select name="selenium">';
+
/**
−
      foreach($suites as $suite) {
+
* Method to build a suite from an array of tests
−
$selectTag .= "<option>$suite</option>";
+
*/
−
      }
+
private function buildSuite($tests, $article) {
−
      $selectTag .= '</select>';
+
 
−
+
$html = $this->suite['header'];
−
      $this->setHeaders();
+
$html .= "<tr><td><b>$article</b></td></tr>";
−
      $title = Title::makeTitle(NS_SPECIAL,'Selenium');
+
foreach ($tests as $element) {
−
+
$html .= "\n<tr><td><a href=\"/wiki/index.php?title=Special:Selenium&suite=$article&test=$element\">$element</a></td></tr>";
−
      global $egSeleniumPath, $egSpecialPath;
+
}
−
      $path = "$egSeleniumPath?test=" . urlencode($egSpecialPath);
+
 
−
+
$html .= $this->suite['footer'];
−
      $form  = wfElement('form',array('action' => $title->getLocalURL('action=submit'),'method' => 'post'),null);
+
return $html;
−
      $form  .= '<fieldset><legend>Select a suite to run</legend>';
 
−
      $form .= $selectTag;
 
−
      $form .=  wfElement('input',array('type' => 'submit'));
 
−
      $form .= "<br /><br />" . wfCheckLabel("Run automatically","wfRunAuto" , "wfRunAuto",$checked = false);
 
−
      $form .=  '</fieldset></form>';
 
−
 
−
      $wgOut->addHTML($form);
 
−
 
−
      if($wgRequest->getText('action')) {
 
−
# foreach($_REQUEST as $key=>$value) {
 
−
#   print "$key>$value" . "<br />";
 
−
# }
 
−
$path .= urlencode($wgRequest->getText('selenium'));
 
−
 
−
if($wgRequest->getBool('wfRunAuto')) {
 
−
  $path .= "&auto=true&resultsUrl=$egResultsUrlPath";
 
 
}
 
}
−
 
−
$form_link  = '<fieldset><legend>Click link to run selenium-core</legend>';
 
−
$form_link .= "<a href=\"$path\">" . $wgRequest->getText('selenium') . '</a></fieldset>';
 
−
$wgOut->addHTML($form_link);
 
−
      }
 
−
    }
 
−
  }
 
−
 
−
  private function categoryArticles($category) {
 
−
    $list  = array();
 
−
    $dbr    = &wfGetDB(DB_SLAVE);
 
−
    $cl    = $dbr->tableName('categorylinks');
 
−
    $res    = $dbr->select($cl,'cl_from',"cl_to = '$category'",__METHOD__,array('ORDER BY' => 'cl_sortkey'));
 
−
    while ($row = $dbr->fetchRow($res)){
 
−
      $list[]  = Title::newFromID($row[0])->getPrefixedText();   
 
−
    }
 
−
    return($list);
 
 
}
 
}
−
+
 
−
  private function fetchContents($title) {
+
/**
−
    $article    = new Article($title);
+
  * Called from $wgExtensionFunctions array when initialising extensions
−
    $contents  = $article->getContent();
+
*/
−
    return($contents);
 
−
  }
 
−
 
−
  private function articleRegex(&$wikitext,&$matches) {
 
−
    $count = preg_match_all('|^={2,}\s*([^\#\<\>\[\]\|\{\}\n]+?)\s*={2,}(.+?</selenium>)|ms',$wikitext,$matches);
 
−
    return($count);
 
−
  }
 
−
   
 
−
# Method to bypass $wgOut -must be called early to avoid conflict with other extensions
 
−
  static function disableHTML(&$wgOut) {
 
−
    $wgOut->disable();
 
−
    wfResetOutputBuffers();
 
−
    return;
 
−
  }
 
−
 
−
# Method to generate 404 error
 
−
  private function  build404($message) {
 
−
    header('HTTP/1.0 404 not Found');
 
−
    $err = "<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML 2.0//EN\"><html><head><title>404 Error</title></head>
 
−
<body><h1>$message</h1><p>The requested URL was not found on this server.</p></body></html>";
 
−
    print $err;
 
−
    return;
 
−
  }
 
−
 
−
# Method to build a suite from an array of tests
 
−
  private function buildSuite($tests, $article) {
 
−
 
−
    $html = $this->suite['header'];
 
−
    $html .= "<tr><td><b>$article</b></td></tr>";
 
−
    foreach ($tests as $element) {
 
−
      $html .= "\n<tr><td><a href=\"/wiki/index.php?title=Special:Selenium&suite=$article&test=$element\">$element</a></td></tr>";
 
−
    }
 
−
    $html .= $this->suite['footer'];
 
−
    return $html;
 
−
  }
 
−
}
 
−
 
−
# Called from $wgExtensionFunctions array when initialising extensions
 
 
function efSetupSelenium() {
 
function efSetupSelenium() {
−
  global $wgRequest, $wgOut;
+
global $wgRequest, $wgOut, $egSelenium, $wgLanguageCode, $wgMessageCache;
−
# Process suite or test if ?suite=article_name in query string
+
 
−
  if($wgRequest->getText('suite')) {
+
# Process suite or test if ?suite=article_name in query string
−
# Render only Selenium html
+
if ($wgRequest->getText('suite')) {
−
    SpecialSelenium::disableHTML($wgOut);
+
SpecialSelenium::disableHTML($wgOut); # Render only Selenium html
−
  }
+
}
−
+
 
−
  global $egSelenium, $wgLanguageCode, $wgMessageCache;
+
$egSelenium = new Selenium();
−
  $egSelenium = new Selenium();
+
 
−
+
# Add the messages used by the specialpage
−
# Add the messages used by the specialpage
+
if ($wgLanguageCode == 'en') {
−
    if ($wgLanguageCode == 'en') {
+
$wgMessageCache->addMessages(array(
−
      $wgMessageCache->addMessages(array(
+
'selenium' => 'Selenium testing environment',        # The friendly page title
−
'selenium' => 'Selenium testing environment',        # The friendly page title
+
));
−
));
+
}
−
    }
+
 
−
+
# Add the specialpage to the environment
−
# Add the specialpage to the environment
+
SpecialPage::addPage(new SpecialSelenium());
−
  SpecialPage::addPage(new SpecialSelenium());
 
 
}
 
}
−
   
+
 
−
# Needed in MediaWiki >1.8.0 for magic word hooks to work properly
+
/**
−
function efSeleniumLanguageGetMagic(&$magicWords,$langCode = 0) {
+
  * Needed in MediaWiki >1.8.0 for magic word hooks to work properly
−
  global $egSeleniumMagic;
+
*/
−
  $magicWords[$egSeleniumMagic] = array(0,$egSeleniumMagic);
+
function efSeleniumLanguageGetMagic(&$magicWords, $langCode = 0) {
−
  return true;
+
global $egSeleniumMagic;
 +
$magicWords[$egSeleniumMagic] = array($langCode, $egSeleniumMagic);
 +
return true;
 
}
 
}

Revision as of 03:30, 1 August 2008

<?php /** 

* Extension:SeleniumTemplate:Php
Info.svg These are the MediaWiki extensions we're using and/or developing. Please refer to the information on the mediawiki.org wiki for installation and usage details. Extensions here which have no corresponding mediawiki article are either not ready for use or have been superseded. You can also browse our extension code in our local Subversion repository or our GitHub mirror.

Category:Extensions in progress 

* Category:SeleniumCategory:Extensions created with Template:SpecialPage
* - Licenced under LGPL http://www.gnu.org/copyleft/lesser.html
* - Author: http://www.organicdesign.co.nz/User:Sven (M Davy)
*/

if (!defined('MEDIAWIKI')) die('Not an entry point.'); define('SELENIUM_VERSION', '0.8.0, 2008-08-01');

$egSeleniumTag = "selenium"; $egSeleniumPath = "/wiki/extensions/Selenium/selenium-core-0/core/TestRunner.html"; $egResultsUrlPath = "../../tmp/results.php"; $egSpecialPath = "/wiki/index.php?title=Special:Selenium&suite="; $egSeleniumCategory = "Selenium"; $egSeleniumNamespace = ""; preg_replace('|^.+(?=[/\\\\]extensions)|', $wgScriptPath, $this->baseDir); /** 

* http://www.mediawiki.org/wiki/Manual:Special_pages
* $wgSpecialPages['Selenium'] = 'Selenium';
*/

$wgExtensionFunctions[] = 'efSetupSelenium'; $wgHooks['LanguageGetMagic'][] = 'efSeleniumLanguageGetMagic';

$wgExtensionCredits['specialpage'][] = array( 'name' => 'Special:Selenium', 'author' => 'Sven (M Davy)', 'description' => 'Incorporating Selenium tests into the MediaWiki environment', 'url' => 'http://www.organicdesign.co.nz/Extension:Selenium.php', 'version' => SELENIUM_VERSION );

require_once "$IP/includes/SpecialPage.php";

  1. Define the seleium tag class

class Selenium {

# Properties

# Constructor function __construct() { global $wgHooks,$wgParser,$egSeleniumTag;

# Add the tagHook $wgParser->setHook($egSeleniumTag,array($this,'tagSelenium')); }

/** * Deploy tags to allow additional html table tags */ public function tagSelenium($text, $argv, &$parser) { global $wgTitle, $egSeleniumCategory;

/** * Should be a preprocess using first stage of parser * $text = $parser->preprocess($text,$wgTitle,$parser->mOptions); */

/** * Want the Selenium tag to strip out ... enclosing tags

* It currently removes everything around the first <table... tags found

*/

$text = eregi_replace('.+.+', '', $text); # Automatically create category as specified in $egSeleniumCategory if($egSeleniumCategory) { $this->magicCategory($parser, $egSeleniumCategory, $sortkey = ''); } # We have not run htmlspecialchars to minimize cross-site scripting vulnerabilities return($text); } # Expand the category-magic to nothing and parse separately as normal category links private function magicCategory(&$parser, $cat, $sortkey = '') { if ($sortkey) $sortkey = "|$sortkey"; $parser->parse("[[Category:$cat$sortkey]]", $parser->mTitle, $parser->mOptions, false, false); return ''; } /** * Needed in some versions to prevent Special:Version from breaking */ private function __toString() { return __CLASS__; } } /** * Define a new class based on the SpecialPage class */ class SpecialSelenium extends SpecialPage { /** * Need a global for the location of Selenium */ # Properties var $suite = array( 'header' => 'Selenium

', 'footer' => "\n

" );

/** * Constructor */ function __construct() { SpecialPage::SpecialPage( 'Selenium', # name as seen in links etc , # user rights required true, # listed in special:specialpages false, # function called by execute() - defaults to wfSpecial{$name} false, # file included by execute() - defaults to Special{$name}.php, only used if no function false # includable ); }

/** * -------------------- Create form for Special:Selenium -------------------- * Override SpecialPage::execute() */ public function execute() { global $wgOut, $wgParser, $wgRequest, $egResultsUrlPath;

# Process suite or test if ?suite=article_name in query string if ($wgRequest->getText('suite')) {

# Grab article $param and process contents $suiteTitle = Title::newFromText($wgRequest->getText('suite'));

# print $suiteTitle; # print $suiteTitle->getText(); # print $wgRequest->getText('suite');

$wikitext = $this->fetchContents($suiteTitle); # Expanding braces of any transcluded tests $wikitext = $wgParser->preprocess($wikitext, $suiteTitle, new ParserOptions());

# Preparse encapsulations around Selenium tags e.g. <selenium> $wikitext = preg_replace("|</?selenium>|", "<selenium>", $wikitext);

$matches = array(); if (!$this->articleRegex($wikitext, $matches)) { $this -> build404('Specified suite contains no selenium test tags'); } else {

# Determine whether suite or test from ?suite=article_name&test=section_num in query string

if ($wgRequest->getText('test')) { # Grab name of test $testTitle = Title::newFromText($wgRequest->getText('test')); if (in_array($testTitle->getText(), $matches[1])) { $counter = 0; foreach ($matches[1] as $value) { if ($value == $testTitle->getText()) { # Generating test html $matches[2][$counter] = preg_replace('|.+?<selenium>\n?(.+?)</selenium>|ms', "\\1", $matches[2][$counter]); print $matches[2][$counter]; break; #exit foreach loop when test is found } $counter++; } } else $this -> build404("Specified test does not exist in " . $wgRequest->getText('suite')); } else { # Obtain suite section headers $suite_urls = array(); foreach ($matches[1] as $value) array_push($suite_urls, $value); print $this->buildSuite($suite_urls, $wgRequest->getText('suite')); } } }

else { global $egSeleniumCategory;

# Retrieve articles in category labelled $egSeleniumCategory $list = $this->categoryArticles($egSeleniumCategory);

# Grab article $param and process contents $suites = array(); foreach ($list as $articleName) { $suiteTitle = Title::newFromText($articleName); $wikitext = $this->fetchContents($suiteTitle); if ($this->articleRegex($wikitext, $matches)) $suites[] = $articleName; }

$selectTag = '<select name="selenium">'; foreach($suites as $suite) $selectTag .= "<option>$suite</option>"; $selectTag .= '</select>';

$this->setHeaders(); $title = Title::makeTitle(NS_SPECIAL, 'Selenium');

global $egSeleniumPath, $egSpecialPath; $path = "$egSeleniumPath?test=" . urlencode($egSpecialPath);

$form = wfElement('form',array('action' => $title->getLocalURL('action=submit'),'method' => 'post'),null); $form .= '<fieldset><legend>Select a suite to run</legend>'; $form .= $selectTag; $form .= wfElement('input',array('type' => 'submit')); $form .= "

" . wfCheckLabel("Run automatically","wfRunAuto" , "wfRunAuto",$checked = false); $form .= '</fieldset></form>';

$wgOut->addHTML($form);

if ($wgRequest->getText('action')) { # foreach($_REQUEST as $key=>$value) { # print "$key>$value" . "
"; } $path .= urlencode($wgRequest->getText('selenium'));

if ($wgRequest->getBool('wfRunAuto')) $path .= "&auto=true&resultsUrl=$egResultsUrlPath";

$form_link = '<fieldset><legend>Click link to run selenium-core</legend>'; $form_link .= "<a href=\"$path\">" . $wgRequest->getText('selenium') . '</a></fieldset>'; $wgOut->addHTML($form_link); } }

private function categoryArticles($category) { $list = array(); $dbr = &wfGetDB(DB_SLAVE); $cl = $dbr->tableName('categorylinks'); $res = $dbr->select($cl, 'cl_from', "cl_to = '$category'", __METHOD__, array('ORDER BY' => 'cl_sortkey')); while ($row = $dbr->fetchRow($res)) { $list[] = Title::newFromID($row[0])->getPrefixedText(); } return $list; }

private function fetchContents($title) { $article = new Article($title); $contents = $article->getContent(); return $contents; }

private function articleRegex(&$wikitext, &$matches) { return preg_match_all('|^={2,}\s*([^\#\<\>\[\]\|\{\}\n]+?)\s*={2,}(.+?</selenium>)|ms', $wikitext, $matches); }

/** * Method to bypass $wgOut -must be called early to avoid conflict with other extensions */ static function disableHTML(&$wgOut) { $wgOut->disable(); wfResetOutputBuffers(); return; }

/** * Method to generate 404 error */ private function build404($message) { header('HTTP/1.0 404 not Found'); $err = "<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML 2.0//EN\">404 Error

$message

The requested URL was not found on this server.

"; print $err; return; }

/** * Method to build a suite from an array of tests */ private function buildSuite($tests, $article) {

$html = $this->suite['header'];

$html .= "$article";

foreach ($tests as $element) {

$html .= "\n<a href=\"/wiki/index.php?title=Special:Selenium&suite=$article&test=$element\">$element</a>";

}

$html .= $this->suite['footer']; return $html; } }

/** 

* Called from $wgExtensionFunctions array when initialising extensions
*/

function efSetupSelenium() { global $wgRequest, $wgOut, $egSelenium, $wgLanguageCode, $wgMessageCache;

# Process suite or test if ?suite=article_name in query string if ($wgRequest->getText('suite')) { SpecialSelenium::disableHTML($wgOut); # Render only Selenium html }

$egSelenium = new Selenium();

# Add the messages used by the specialpage if ($wgLanguageCode == 'en') { $wgMessageCache->addMessages(array( 'selenium' => 'Selenium testing environment', # The friendly page title )); }

# Add the specialpage to the environment SpecialPage::addPage(new SpecialSelenium()); }

/** 

* Needed in MediaWiki >1.8.0 for magic word hooks to work properly
*/

function efSeleniumLanguageGetMagic(&$magicWords, $langCode = 0) { global $egSeleniumMagic; $magicWords[$egSeleniumMagic] = array($langCode, $egSeleniumMagic); return true; }

Retrieved from "https://organicdesign.nz/wiki/index.php?title=Extension:Selenium.php&oldid=85682"