=====Linkcount Action=====

Count (and display) the number of Wikka-formatted links (##""[[http:...]]""##) in a page. Needs some optimization work.

**actions/linkcount.php**
%%(php)
<?php
/**
 * Link count action
 *
 * Maintain a count of links on a page (could be extended to track
 * other entities)
 * 
 * Usage:
 * {{linkcount preformatted="0"}}
 * ...
 * {{linkcount start="1"}}
 * link1
 * link2
 * ...
 * linkn
 * {{linkcount stop="1"}}
 *
 * Optionally: {{linkcount preformatted="1"
 *						  pretext="Some pretext"
 *						  posttext="Some posttext"}}
 *
 * where preformatted = "1" produces "+++Link count: 9999 link(s)+++"
 *	   pretext is the text to precede the word count (overrides
 *	   preformatted)
 *	   posttest is the text to follow the word count (overrides
 *	   preformatted)
 *
 * TODO: Performance is miserable beyond a couple hundred links, so
 * the next step would be to optimize it.
 *
 * 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 2 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 Licence for more details:
 *
 *				http://www.gnu.org/copyleft/gpl.html 
 *
 * @author		{@link http://wikkawiki.org/BrianKoontz Brian Koontz} <brian@pongonova.net>
 * @copyright	Copyright (c) 2006, Brian Koontz <brian@pongonova.net>
 * @name		LinkcountAction 
 * @package		Actions
 * @license		http://www.gnu.org/copyleft/gpl.html
 * @since		Wikka 1.1.7
 * @uses		/actions/linkcount.php
 * @version		$Id: linkcount.php,v 1.1.1.1 2006/10/07 16:30:42 brian Exp brian $
 *
 */

// Necessary to prevent "already defined" errors when the Wikka parser
// comes across a "start" or "stop" action tag
include_once("actions/linkcount.inc.php");

if(!isset($vars['preformatted'])) {
	return;
}

$preformatted = $this->htmlspecialchars_ent($vars['preformatted']);
$pretext = $this->htmlspecialchars_ent($vars['pretext']);
$posttext = $this->htmlspecialchars_ent($vars['posttext']);

if( isset($pretext) || isset($posttext)) {
	$pretext ? 1 : $pretext = '';
	$posttext ? 1 : $posttext = '';
} else if(isset($preformatted)) {
	$pretext = "+++Link count: ";
	$posttext = " link(s)+++";
}

$body = explode("\n", $this->page['body']);
parse($body, $pretext, $posttext);

?>
%%

**actions/linkcount.inc.php**
%%(php)
<?php
/**
 * Link count action
 *
 * Maintain a count of links on a page (could be extended to track
 * other entities)
 * 
 * @see LinkcountAction
 * @see actions/linkcount.php
 *
 * 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 2 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 Licence for more details:
 *
 *				http://www.gnu.org/copyleft/gpl.html 
 *
 * @author		{@link http://wikkawiki.org/BrianKoontz Brian Koontz} <brian@pongonova.net>
 * @copyright	Copyright (c) 2006, Brian Koontz <brian@pongonova.net>
 * @name		LinkcountAction 
 * @package		Actions
 * @license		http://www.gnu.org/copyleft/gpl.html
 * @since		Wikka 1.1.7
 * @uses		/actions/linkcount.inc.php
 * @version		$Id: linkcount.inc.php,v 1.1.1.1 2006/10/07 16:32:17 brian Exp brian $
 *
 */
function parse(&$body, $pretext, $posttext) {
	$linkcount = 0;
	if(!$body) {
		return;
	}
	$state = null; #null, start
	foreach($body as $line) {
		switch($state) {
			case null:
				if(preg_match('/\{\{linkcount[\s]+start.*\}\}/', $line)) {
					$state = 'start';
				}
				break;
			case 'start':
				if (preg_match('/\{\{linkcount[\s]+stop.*\}\}/', $line)) {
					$state = null; 
				} elseif (preg_match('/\[\[http:.*\]\]/', $line)) {
					$linkcount++;
				}
				break;
		}
	}
	echo $pretext.$linkcount.$posttext;
}
?>
%%

----
CategoryUserContributions