wp-useragent-detect-trackback.php

<?php
/* Copyright 2008-2016  Kyle Baker  (email: kyleabaker@gmail.com)

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
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, write to the Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
*/

// Security measure
defined( 'ABSPATH' ) or die( 'Cannot access pages directly.' );

// Detect Trackbacks...
function wpua_detect_trackback()
{
	global $useragent, $wpua_show_version;

	$version = null;

	if (preg_match('/Drupal/i', $useragent))
	{
		$link = 'http://www.drupal.org/';
		$title = 'Drupal';
		$code = 'drupal';
	}
	elseif (preg_match('/Feedburner/i', $useragent))
	{
		$link = 'http://www.feedburner.com/';
		$title = 'FeedBurner';
		$code = 'feedburner';
	}
	elseif (preg_match('/laconica|statusnet/i', $useragent))
	{
		$link = 'http://status.net/';
		$title = 'StatusNet';
		$code = 'laconica';
	}
	elseif (preg_match('/libwww-perl\/([.0-9a-zA-Z]+)/i', $useragent, $regmatch))
	{
		$link = 'http://search.cpan.org/dist/libwww-perl/';
		$title = 'libwww-perl';
		$code = 'null';
		$version = $regmatch[1];
	}
	elseif (preg_match('/meneame/i', $useragent))
	{
		$link = 'http://www.meneame.net/';
		$title = 'Meneame';
		$code = 'meneame';
	}
	elseif (preg_match('/MovableType\/([.0-9a-zA-Z]+)/i', $useragent, $regmatch))
	{
		$link = 'http://www.movabletype.org/';
		$title = 'MovableType';
		$code = 'movabletype';
		$version = $regmatch[1];
	}
	elseif (preg_match('/Peach\/([.0-9a-zA-Z]+)/i', $useragent, $regmatch))
	{
		$link = 'http://www.psych.neu.edu/faculty/y.petrov/Software/PEACH/';
		$title = 'Peach';
		$code = 'null';
		$version = $regmatch[1];
	}
	elseif (preg_match('/pligg/i', $useragent))
	{
		$link = 'http://www.pligg.com/';
		$title = 'Pligg';
		$code = 'pligg';
	}
	elseif (preg_match('/Python-urllib\/([.0-9a-zA-Z]+)/i', $useragent, $regmatch))
	{
		$link = 'http://docs.python.org/library/urllib.html';
		$title = 'Python-urllib';
		$code = 'null';
		$version = $regmatch[1];
	}
	elseif (preg_match('/Snoopy\ v([.0-9a-zA-Z]+)/i', $useragent, $regmatch))
	{
		$link = 'http://sourceforge.net/projects/snoopy/';
		$title = 'Snoopy';
		$code = 'null';
		$version = $regmatch[1];
	}
	elseif (preg_match('/SOAP::/i', $useragent))
	{
		$link = 'http://en.wikipedia.org/wiki/SOAP';
		$title = 'SOAP (Simple Object Access Protocol)';
		$code = 'null';
	}
	elseif (preg_match('/Typepad/i', $useragent))
	{
		$link = 'http://www.typepad.com/';
		$title = 'Typepad';
		$code = 'typepad';
	}
	elseif (preg_match('/vBSEO/i', $useragent))
	{
		$link = 'http://www.vbseo.com/';
		$title = 'vBSEO (VBulletin)';
		$code = 'vbseo';
	}
	elseif (preg_match('/WordPress\/([.0-9a-zA-Z]+)/i', $useragent, $regmatch))
	{
		$link = 'http://www.wordpress.org/';
		$title = 'WordPress';
		$code = 'wordpress';
		$version = $regmatch[1];
	}
	elseif (preg_match('/XML-RPC/i', $useragent))
	{
		$link = 'http://www.xmlrpc.com/';
		$title = 'XML-RPC';
		$code = 'null';
	}
	else
	{
		$link = '#';
		$title = 'Unknown';
		$code = 'null';
	}

	// Append version to title (as long as show version isn't 'off')
	if (isset($version) && $wpua_show_version === 'full')
	{
		$title .= " $version";
	}

	return wpua_get_icon_text($link, $title, $code, '/trackback/');
}

?>