Extension talk:IncludeArticle

function renderIncArticle( $input, $argv, &$parser ) {
    global $wgUser;
    $newvariables[] = array();
    if (!isset($argv["start"])){$argv["start"]=0;}     
    // --------------------------------------------------------------------------------
    // By default, set count to false
    if (!isset($argv["count"])){$argv["count"]=false;}
    // --------------------------------------------------------------------------------
    if (!isset($argv["lines"])){$argv["lines"]=false;}
    if (!isset($argv['namespaces'])){$argv['namespaces']=0;}
    if (!isset($argv["article"])){$argv["article"]=getrandompage($argv['namespaces']);}
    if (isset($argv["random"])){$argv["article"]=getrandompage($argv['namespaces']);}
    $articlestart = $argv["start"];
    $articleend = $argv["count"] + $articlestart;
    $preloadTitle = Title::newFromText( $argv["article"] );
    if ( isset($preloadTitle ) && $preloadTitle->userCanRead())
    {
       $rev=Revision::newFromTitle($preloadTitle);
       if ( is_object( $rev ) )
       {
          $text = $rev->getText();
          $text = preg_replace( '~</?includeonly>~', '', $text );
          $aTitlecomp = $rev->getTitle()->getPrefixedText();
          $aTitleblank = $rev->getTitle()->getText();
       }
       else
       {
           $text = '';
       }
    }
    if ($argv["lines"]==false)
    {
    // --------------------------------------------------------------------------------
                // if count is false, return the article starting at start until the end of the article
		if ($argv["count"]==false)
		{
			$text = substr($text, $articlestart);
		}
		else
		{
        	        $text = substr($text, $articlestart, $articleend);
		}
    // --------------------------------------------------------------------------------
    }
    else
    {
        $linestart=$articlestart;
        $lineend=$articleend;
        $artoutput="";
        for ($i=0;$i<=$lineend;$i++)
        {
                $endpos = stripos($text,"\n");
                $artlen = strlen($text);
                $artoutput2 = substr($text,0,$endpos+1);
                $artoutput = $artoutput.$artoutput2;
                $text = substr($text, $endpos+1, $artlen);
        }
        for ($i=1;$i<$linestart;$i++)
        {
                $endpos = stripos($artoutput,"\n");
                $artlen = strlen($artoutput);
                $artoutput = substr($artoutput, $endpos+1, $artlen);
        }
        $text = $artoutput;
 
    }
    $newvariables["title"]=$aTitlecomp;
    $newvariables["titleblank"]=$aTitleblank;
    $newvariables["content"]=$text;
    $variables = $parser->replaceVariables( $input, $newvariables );
    $output = $parser->parse( $variables, $parser->mTitle, $parser->mOptions, true, false );
    $inhalt = $output->getText();
    $html=$inhalt;
    return $html;
}

<?php
# Include Article Extension
# author Markus Rückerl, bomber-online.de
# copyright © 2007 Markus Rückerl
# licence GNU General Public Licence 2.0 or later
  
# RCT modified to add $ellipsis when transcluded text is cut short.  
# $ellipsis creates a hyperlink to the transcluded page, with the text in $wgEllipsis = "<...more>"  
  
if( !defined('MEDIAWIKI') ) {
  die(); 
}
 
$wgEllipsis = "<...more>";  ## RCT added
$wgExtensionFunctions[] = "wfIncArticleExtension";
$wgExtensionCredits['parserhook'][] = array(
  'name' => 'IncludeArticle',
  'author' => 'Markus Rueckerl',
  'url' => 'http://www.mediawiki.org/wiki/Extension:IncludeArticle',
  'description' => 'Allows the inclusion of any article to be shown on any wiki page.'
);
 
function wfIncArticleExtension() {
    global $wgParser;
    $wgParser->setHook( "IncArticle", "renderIncArticle" );
}
 
function renderIncArticle( $input, $argv, &$parser ) {
    global $wgUser;
	global $wgEllipsis; ## RCT added
    $newvariables[] = array();
    if (!isset($argv["start"])){$argv["start"]=0;}     
    // --------------------------------------------------------------------------------
    // By default, set count to false
    if (!isset($argv["count"])){$argv["count"]=false;}
    // --------------------------------------------------------------------------------
    if (!isset($argv["lines"])){$argv["lines"]=false;}
    if (!isset($argv['namespaces'])){$argv['namespaces']=0;}
    if (!isset($argv["article"])){$argv["article"]=getrandompage($argv['namespaces']);}
    if (isset($argv["random"])){$argv["article"]=getrandompage($argv['namespaces']);}
    $articlestart = $argv["start"];
    $articleend = $argv["count"] + $articlestart;
    $preloadTitle = Title::newFromText( $argv["article"] );
    if ( isset($preloadTitle ) && $preloadTitle->userCanRead())
    {
       $rev=Revision::newFromTitle($preloadTitle);
	   
       if ( is_object( $rev ) )
       {
          $text = $rev->getText();
          $text = preg_replace( '~</?includeonly>~', '', $text );
          $aTitlecomp = $rev->getTitle()->getPrefixedText();
          $aTitleblank = $rev->getTitle()->getText();

			// RCT added to handle sub pages  -- this code works for any number of subpage levels
			$findslash   = '/';
			$pos = strpos($aTitleblank, $findslash);
			// Note use of !==.  Simply != would not work as expected
			// because the position of 'a' was the 0th (first) character.
			while ($pos !== false) {
    			// strip out everything that comes before the slash
				$aTitleblank = substr($aTitleblank, $pos+1);
				$pos = strpos($aTitleblank, $findslash);
			}
       }
       else
       {
           $text = '';
		   $ellipsis=""; ## RCT Added 
       }
    }
    if ($argv["lines"]==false)
    {
    // --------------------------------------------------------------------------------
                // if count is false, return the article starting at start until the end of the article
                if ($argv["count"]==false)
                {
                        $text = substr($text, $articlestart);
						$ellipsis=""; ## RCT Added 
                }
                else
                {
                        //RCT added -- increment $articleend until a whitespace character appears
						$iswhitespace = false;
						$whitespacechar = array(" ", "\t", "\n", "\r", "\0", "\x0B");
						$articleend = $argv["count"] + $articlestart;
						$charcount = $argv["count"];
						$iswhitespace = in_array(substr($text, $articleend,1),$whitespacechar);
						while (! $iswhitespace)  {
							$articleend++;
							$charcount++;
							$iswhitespace = in_array(substr($text, $articleend,1),$whitespacechar);
						}
						//RCT end ---------------------------------------------------------------------
						$text = substr($text, $articlestart, $charcount);
						$ellipsis=" [[".$aTitlecomp."|".$wgEllipsis."]]"; ## RCT Added 
                }
    // --------------------------------------------------------------------------------
    }
    else
    {
        $linestart=$articlestart;
        $lineend=$articleend;
        $artoutput="";
        for ($i=0;$i<=$lineend;$i++)
        {
                $endpos = stripos($text,"\n");
                $artlen = strlen($text);
                $artoutput2 = substr($text,0,$endpos+1);
                $artoutput = $artoutput.$artoutput2;
                $text = substr($text, $endpos+1, $artlen);
        }
        for ($i=1;$i<$linestart;$i++)
        {
                $endpos = stripos($artoutput,"\n");
                $artlen = strlen($artoutput);
                $artoutput = substr($artoutput, $endpos+1, $artlen);
        }
        $text = $artoutput;
 		$ellipsis=" [[".$aTitlecomp."|".$wgEllipsis."]]"; ## RCT Added  
    }
    $newvariables["title"]=$aTitlecomp;
    $newvariables["titleblank"]=$aTitleblank;
    $newvariables["content"]=$text.$ellipsis; ## RCT added $ellipsis
	
    $variables = $parser->replaceVariables( $input, $newvariables );
    $output = $parser->parse( $variables, $parser->mTitle, $parser->mOptions, true, false );
    $inhalt = $output->getText();
    $html=$inhalt;
    return $html;
}

 
function getrandompage( $varns) {
        global $wgOut, $wgExtraRandompageSQL, $wgContLang;
        $namespaces = $varns;
        $namespaces = preg_split('!\s*(\|\s*)+!', trim( $namespaces ) );
        $fname = 'wfSpecialRandompage';
        $i = array_rand($namespaces);
        # Determine namespace
        $t = Title::newFromText ( $namespaces[$i] . ":Dummy" ) ;
        $namespace = $t->getNamespace () ;
 
        # NOTE! We use a literal constant in the SQL instead of the RAND()
        # function because RAND() will return a different value for every row
        # in the table. That's both very slow and returns results heavily
        # biased towards low values, as rows later in the table will likely
        # never be reached for comparison.
        #
        # Using a literal constant means the whole thing gets optimized on
        # the index, and the comparison is both fast and fair.
 
        # interpolation and sprintf() can muck up with locale-specific decimal separator
        $randstr = wfRandom();
 
        $db =& wfGetDB( DB_SLAVE );
        $use_index = $db->useIndexClause( 'page_random' );
        $page = $db->tableName( 'page' );
 
        $extra = $wgExtraRandompageSQL ? "AND ($wgExtraRandompageSQL)" : '';
        $sql = "SELECT page_id,page_title
                FROM $page $use_index
                WHERE page_namespace=$namespace AND page_is_redirect=0 $extra
                AND page_random>$randstr
                ORDER BY page_random";
        $sql = $db->limitResult($sql, 1, 0);
        $res = $db->query( $sql, $fname );
 
        $title = null;
        if( $s = $db->fetchObject( $res ) ) {
                $title =& Title::makeTitle( $namespace, $s->page_title );
        }
        if( is_null( $title ) ) {
                # That's not supposed to happen :)
                $title = Title::newMainPage();
        }
        $title = $title->getPrefixedText();
        return $title;
}