<?php

/**

 * Comment template functions

 *

 * These functions are meant to live inside of the WordPress loop.

 *

 * @package WordPress

 * @subpackage Template

 */

/**

 * Retrieve the author of the current comment.

 *

 * If the comment has an empty comment_author field, then 'Anonymous' person is

 * assumed.

 *

 * @since 1.5.0

 * @uses apply_filters() Calls 'get_comment_author' hook on the comment author

 *

 * @return string The comment author

 */

function get_comment_author() {

	global $comment;

	if ( empty($comment->comment_author) ) {

		if (!empty($comment->user_id)){

			$user=get_userdata($comment->user_id);

			$author=$user->user_login;

		} else {

			$author = __('Anonymous');

		}

	} else {

		$author = $comment->comment_author;

	}

	return apply_filters('get_comment_author', $author);

}

/**

 * Displays the author of the current comment.

 *

 * @since 0.71

 * @uses apply_filters() Calls 'comment_author' on comment author before displaying

 */

function comment_author() {

	$author = apply_filters('comment_author', get_comment_author() );

	echo $author;

}

/**

 * Retrieve the email of the author of the current comment.

 *

 * @since 1.5.0

 * @uses apply_filters() Calls the 'get_comment_author_email' hook on the comment author email

 * @uses $comment

 *

 * @return string The current comment author's email

 */

function get_comment_author_email() {

	global $comment;

	return apply_filters('get_comment_author_email', $comment->comment_author_email);

}

/**

 * Display the email of the author of the current global $comment.

 *

 * Care should be taken to protect the email address and assure that email

 * harvesters do not capture your commentors' email address. Most assume that

 * their email address will not appear in raw form on the blog. Doing so will

 * enable anyone, including those that people don't want to get the email

 * address and use it for their own means good and bad.

 *

 * @since 0.71

 * @uses apply_filters() Calls 'author_email' hook on the author email

 */

function comment_author_email() {

	echo apply_filters('author_email', get_comment_author_email() );

}

/**

 * Display the html email link to the author of the current comment.

 *

 * Care should be taken to protect the email address and assure that email

 * harvesters do not capture your commentors' email address. Most assume that

 * their email address will not appear in raw form on the blog. Doing so will

 * enable anyone, including those that people don't want to get the email

 * address and use it for their own means good and bad.

 *

 * @since 0.71

 * @uses apply_filters() Calls 'comment_email' hook for the display of the comment author's email

 * @uses get_comment_author_email_link() For generating the link

 * @global object $comment The current Comment row object

 *

 * @param string $linktext The text to display instead of the comment author's email address

 * @param string $before The text or HTML to display before the email link.

 * @param string $after The text or HTML to display after the email link.

 */

function comment_author_email_link($linktext='', $before='', $after='') {

	if ( $link = get_comment_author_email_link( $linktext, $before, $after ) )

		echo $link;

}

/**

 * Return the html email link to the author of the current comment.

 *

 * Care should be taken to protect the email address and assure that email

 * harvesters do not capture your commentors' email address. Most assume that

 * their email address will not appear in raw form on the blog. Doing so will

 * enable anyone, including those that people don't want to get the email

 * address and use it for their own means good and bad.

 *

 * @since 2.7

 * @uses apply_filters() Calls 'comment_email' hook for the display of the comment author's email

 * @global object $comment The current Comment row object

 *

 * @param string $linktext The text to display instead of the comment author's email address

 * @param string $before The text or HTML to display before the email link.

 * @param string $after The text or HTML to display after the email link.

 */

function get_comment_author_email_link($linktext='', $before='', $after='') {

	global $comment;

	$email = apply_filters('comment_email', $comment->comment_author_email);

	if ((!empty($email)) && ($email != '@')) {

	$display = ($linktext != '') ? $linktext : $email;

		$return  = $before;

		$return .= "<a href='mailto:$email'>$display</a>";

	 	$return .= $after;

		return $return;

	} else {

		return '';

	}

}

/**

 * Retrieve the html link to the url of the author of the current comment.

 *

 * @since 1.5.0

 * @uses apply_filters() Calls 'get_comment_author_link' hook on the complete link HTML or author

 *

 * @return string Comment Author name or HTML link for author's URL

 */

function get_comment_author_link() {

	/** @todo Only call these functions when they are needed. Include in if... else blocks */

	$url    = get_comment_author_url();

	$author = get_comment_author();

	if ( empty( $url ) || 'http://' == $url )

		$return = $author;

	else

		$return = "<a href='$url' rel='external nofollow' class='url'>$author</a>";

	return apply_filters('get_comment_author_link', $return);

}

/**

 * Display the html link to the url of the author of the current comment.

 *

 * @since 0.71

 * @see get_comment_author_link() Echos result

 */

function comment_author_link() {

	echo get_comment_author_link();

}

/**

 * Retrieve the IP address of the author of the current comment.

 *

 * @since 1.5.0

 * @uses $comment

 * @uses apply_filters()

 *

 * @return unknown

 */

function get_comment_author_IP() {

	global $comment;

	return apply_filters('get_comment_author_IP', $comment->comment_author_IP);

}

/**

 * Display the IP address of the author of the current comment.

 *

 * @since 0.71

 * @see get_comment_author_IP() Echos Result

 */

function comment_author_IP() {

	echo get_comment_author_IP();

}

/**

 * Retrieve the url of the author of the current comment.

 *

 * @since 1.5.0

 * @uses apply_filters() Calls 'get_comment_author_url' hook on the comment author's URL

 *

 * @return string

 */

function get_comment_author_url() {

	global $comment;

	$url = ('http://' == $comment->comment_author_url) ? '' : $comment->comment_author_url;

	$url = esc_url( $url, array('http', 'https') );

	return apply_filters('get_comment_author_url', $url);

}

/**

 * Display the url of the author of the current comment.

 *

 * @since 0.71

 * @uses apply_filters()

 * @uses get_comment_author_url() Retrieves the comment author's URL

 */

function comment_author_url() {

	echo apply_filters('comment_url', get_comment_author_url());

}

/**

 * Retrieves the HTML link of the url of the author of the current comment.

 *

 * $linktext parameter is only used if the URL does not exist for the comment

 * author. If the URL does exist then the URL will be used and the $linktext

 * will be ignored.

 *

 * Encapsulate the HTML link between the $before and $after. So it will appear

 * in the order of $before, link, and finally $after.

 *

 * @since 1.5.0

 * @uses apply_filters() Calls the 'get_comment_author_url_link' on the complete HTML before returning.

 *

 * @param string $linktext The text to display instead of the comment author's email address

 * @param string $before The text or HTML to display before the email link.

 * @param string $after The text or HTML to display after the email link.

 * @return string The HTML link between the $before and $after parameters

 */

function get_comment_author_url_link( $linktext = '', $before = '', $after = '' ) {

	$url = get_comment_author_url();

	$display = ($linktext != '') ? $linktext : $url;

	$display = str_replace( 'http://www.', '', $display );

	$display = str_replace( 'http://', '', $display );

	if ( '/' == substr($display, -1) )

		$display = substr($display, 0, -1);

	$return = "$before<a href='$url' rel='external'>$display</a>$after";

	return apply_filters('get_comment_author_url_link', $return);

}

/**

 * Displays the HTML link of the url of the author of the current comment.

 *

 * @since 0.71

 * @see get_comment_author_url_link() Echos result

 *

 * @param string $linktext The text to display instead of the comment author's email address

 * @param string $before The text or HTML to display before the email link.

 * @param string $after The text or HTML to display after the email link.

 */

function comment_author_url_link( $linktext = '', $before = '', $after = '' ) {

	echo get_comment_author_url_link( $linktext, $before, $after );

}

/**

 * Generates semantic classes for each comment element

 *

 * @since 2.7.0

 *

 * @param string|array $class One or more classes to add to the class list

 * @param int $comment_id An optional comment ID

 * @param int $post_id An optional post ID

 * @param bool $echo Whether comment_class should echo or return

 */

function comment_class( $class = '', $comment_id = null, $post_id = null, $echo = true ) {

	// Separates classes with a single space, collates classes for comment DIV

	$class = 'class="' . join( ' ', get_comment_class( $class, $comment_id, $post_id ) ) . '"';

	if ( $echo)

		echo $class;

	else

		return $class;

}

/**

 * Returns the classes for the comment div as an array

 *

 * @since 2.7.0

 *

 * @param string|array $class One or more classes to add to the class list

 * @param int $comment_id An optional comment ID

 * @param int $post_id An optional post ID

 * @return array Array of classes

 */

function get_comment_class( $class = '', $comment_id = null, $post_id = null ) {

	global $comment_alt, $comment_depth, $comment_thread_alt;

	$comment = get_comment($comment_id);

	$classes = array();

	// Get the comment type (comment, trackback),

	$classes[] = ( empty( $comment->comment_type ) ) ? 'comment' : $comment->comment_type;

	// If the comment author has an id (registered), then print the log in name

	if ( $comment->user_id > 0 && $user = get_userdata($comment->user_id) ) {

		// For all registered users, 'byuser'

		$classes[] = 'byuser';

		$classes[] = 'comment-author-' . sanitize_html_class($user->user_nicename, $comment->user_id);

		// For comment authors who are the author of the post

		if ( $post = get_post($post_id) ) {

			if ( $comment->user_id === $post->post_author )

				$classes[] = 'bypostauthor';

		}

	}

	if ( empty($comment_alt) )

		$comment_alt = 0;

	if ( empty($comment_depth) )

		$comment_depth = 1;

	if ( empty($comment_thread_alt) )

		$comment_thread_alt = 0;

	if ( $comment_alt % 2 ) {

		$classes[] = 'odd';

		$classes[] = 'alt';

	} else {

		$classes[] = 'even';

	}

	$comment_alt++;

	// Alt for top-level comments

	if ( 1 == $comment_depth ) {

		if ( $comment_thread_alt % 2 ) {

			$classes[] = 'thread-odd';

			$classes[] = 'thread-alt';

		} else {

			$classes[] = 'thread-even';

		}

		$comment_thread_alt++;

	}

	$classes[] = "depth-$comment_depth";

	if ( !empty($class) ) {

		if ( !is_array( $class ) )

			$class = preg_split('#\s+#', $class);

		$classes = array_merge($classes, $class);

	}

	$classes = array_map('esc_attr', $classes);

	return apply_filters('comment_class', $classes, $class, $comment_id, $post_id);

}

/**

 * Retrieve the comment date of the current comment.

 *

 * @since 1.5.0

 * @uses apply_filters() Calls 'get_comment_date' hook with the formated date and the $d parameter respectively

 * @uses $comment

 *

 * @param string $d The format of the date (defaults to user's config)

 * @return string The comment's date

 */

function get_comment_date( $d = '' ) {

	global $comment;

	if ( '' == $d )

		$date = mysql2date(get_option('date_format'), $comment->comment_date);

	else

		$date = mysql2date($d, $comment->comment_date);

	return apply_filters('get_comment_date', $date, $d);

}

/**

 * Display the comment date of the current comment.

 *

 * @since 0.71

 *

 * @param string $d The format of the date (defaults to user's config)

 */

function comment_date( $d = '' ) {

	echo get_comment_date( $d );

}

/**

 * Retrieve the excerpt of the current comment.

 *

 * Will cut each word and only output the first 20 words with '...' at the end.

 * If the word count is less than 20, then no truncating is done and no '...'

 * will appear.

 *

 * @since 1.5.0

 * @uses $comment

 * @uses apply_filters() Calls 'get_comment_excerpt' on truncated comment

 *

 * @return string The maybe truncated comment with 20 words or less

 */

function get_comment_excerpt() {

	global $comment;

	$comment_text = strip_tags($comment->comment_content);

	$blah = explode(' ', $comment_text);

	if (count($blah) > 20) {

		$k = 20;

		$use_dotdotdot = 1;

	} else {

		$k = count($blah);

		$use_dotdotdot = 0;

	}

	$excerpt = '';

	for ($i=0; $i<$k; $i++) {

		$excerpt .= $blah[$i] . ' ';

	}

	$excerpt .= ($use_dotdotdot) ? '...' : '';

	return apply_filters('get_comment_excerpt', $excerpt);

}

/**

 * Display the excerpt of the current comment.

 *

 * @since 1.2.0

 * @uses apply_filters() Calls 'comment_excerpt' hook before displaying excerpt

 */

function comment_excerpt() {

	echo apply_filters('comment_excerpt', get_comment_excerpt() );

}

/**

 * Retrieve the comment id of the current comment.

 *

 * @since 1.5.0

 * @uses $comment

 * @uses apply_filters() Calls the 'get_comment_ID' hook for the comment ID

 *

 * @return int The comment ID

 */

function get_comment_ID() {

	global $comment;

	return apply_filters('get_comment_ID', $comment->comment_ID);

}

/**

 * Displays the comment id of the current comment.

 *

 * @since 0.71

 * @see get_comment_ID() Echos Result

 */

function comment_ID() {

	echo get_comment_ID();

}

/**

 * Retrieve the link to a given comment.

 *

 * @since 1.5.0