OwlCyberSecurity - MANAGER

Edit File: qc-clr-main.php

<?php
/**
 * Plugin Name: Comment Link Remove
 * Plugin URI: https://wordpress.org/plugins/comment-link-remove
 * Description: Remove author link and any other posted links from the comment fields. 
 * Version: 2.2.9
 * Author: QuantumCloud
 * Author URI: https://www.quantumcloud.com/
 * Requires at least: 4.6
 * Tested up to: 6.2
 * Text Domain: qc-clr
 * Domain Path: /lang/
 * License: GPL2
 */

defined('ABSPATH') or die("No direct script access!");

//Custom Constants
if ( ! defined( 'QCCLR_URL' ) ) {
    define('QCCLR_URL', plugin_dir_url(__FILE__));
}
if ( ! defined( 'QCCLR_ASSETS_URL' ) ) {
	define('QCCLR_ASSETS_URL', QCCLR_URL . "/assets");
}
if ( ! defined( 'QCCLR_DIR' ) ) {
	define('QCCLR_DIR', dirname(__FILE__));
}

//Include required files
require_once( 'qc-clr-settings.php' );
require_once( 'qc-clr-assets.php' );

require_once( 'qc-clr-settings-pro.php' );
require_once( 'qc-clr-cookies-for-comments.php' );
require_once( 'qc-clr-mention-comments.php' );
require_once( 'qc-clr-comments-auto-reply.php' );

//Perform Action
$remove_author_uri = 0;
$remove_author_txtlink = 0;
$remove_comment_link = 0;
$disable_turning_link = 0;

$clr_options = get_option( 'comment_link_remove_option_name' );
$remove_author_uri = isset($clr_options['remove_author_uri_field_0']) ? $clr_options['remove_author_uri_field_0'] : 0;
$remove_author_txtlink = isset($clr_options['remove_any_link_from_author_field_1']) ? $clr_options['remove_any_link_from_author_field_1'] : 0;
$remove_comment_link = isset($clr_options['remove_links_from_comments_field_2']) ? $clr_options['remove_links_from_comments_field_2'] : 0;
$disable_turning_link = isset($clr_options['remove_links_from_comments_field_3']) ? $clr_options['remove_links_from_comments_field_3'] : 0;

$disable_comments = isset($clr_options['disable_comments_totally']) ? $clr_options['disable_comments_totally'] : 0;
$hide_existing_cmts = isset($clr_options['hide_existing_cmts']) ? $clr_options['hide_existing_cmts'] : 0;
$open_link_innewtab = isset($clr_options['open_link_innewtab']) ? $clr_options['open_link_innewtab'] : 0;

//1. Remove Author URI or Link

function qcclr_disable_comment_url($fields) { 
    unset($fields['url']);
    return $fields;
}

if( $remove_author_uri === '1' )
{
	add_filter('comment_form_default_fields','qcclr_disable_comment_url', 60);

add_filter('comment_form_field_url', '__return_false');
}

//2. Remove  hyperlink of comment author field

function qcclr_remove_html_link_tag_from_comment_author_link ( $link ) {

if( !in_the_loop() ) {
      $link = preg_replace('/<a href=[\",\'](.*?)[\",\']>(.*?)<\/a>/', "\\2", $link);
  }

return $link;

}

if( $remove_author_txtlink === '1' )
{

if( !function_exists("qcclr_disable_comment_author_links")){
		function qcclr_disable_comment_author_links( $author_link ){
			return strip_tags( $author_link );
		}
		add_filter( 'get_comment_author_link', 'qcclr_disable_comment_author_links' );
	}

function filter_get_comment_author_url( $url, $id, $comment ) {
	    return "";
	}
	add_filter( 'get_comment_author_url', 'filter_get_comment_author_url', 10, 3);
	
	add_filter( 'get_comment_author_link', 'qcclr_remove_html_link_tag_from_comment_author_link' );
	
}

//3. Disable turning URLs from comments into actual links

if( $disable_turning_link === '1' )
{
	remove_filter('comment_text', 'make_clickable', 9);
}

//4. Filter comment texts to remove link

if( $remove_comment_link === '1' )
{
	add_filter('comment_text', 'qcclr_filter_inserted_comment');
}

function qcclr_filter_inserted_comment( $text )
{
  $text = preg_replace('/<a href=[\",\'](.*?)[\",\']>(.*?)<\/a>/', "\\2", $text);

return $text;
}

//5. Disable Comments Globally

// Close comments on the front-end
function qcclr_disable_comments_status() {
	return false;
}

if( $disable_comments === '1' )
{
	add_filter('comments_open', 'qcclr_disable_comments_status', 20, 2);
	add_filter('pings_open', 'qcclr_disable_comments_status', 20, 2);
}

//6. Hide Existing Comments

//Hide existing comments
function df_disable_comments_hide_existing_comments($comments) {
	$comments = array();
	return $comments;
}

if( $hide_existing_cmts === '1' )
{
	add_filter('comments_array', 'df_disable_comments_hide_existing_comments', 10, 2);
}

//7. Open Link in New Tab

function qcclr_filter_link_target( $text )
{
	if( preg_match('/<a.*?target=[^>]*?>/', $text) )
	{
		$text = str_replace('target="_blank"', '', $text);
		$text = str_replace('target="_top"', '', $text);
		$text = str_replace('target="_self"', '', $text);
		$text = str_replace('target="_parent"', '', $text);
	}
	
	$return = str_replace('<a', '<a target="_blank"', $text);
	
    return $return;
}

if( $open_link_innewtab === '1' ){

add_filter('comment_text', 'qcclr_filter_link_target', 10, 2);

}

// Add  submenu 
function qc_clr_add_sublavel_menuss(){

global $clr_options;

add_submenu_page(
            'comment-link-remove',
            __('Email Subscription'),
            __('Email Subscription'),
            'manage_options',
            'email-subscriptions',
            'qcld_clr_email_subscription_page'
        );

add_submenu_page(
		    'comment-link-remove',
		    __('Comment Spam Protection'),
		    __('Comment Spam Protection'),
		    'manage_options',
		    'qcld_clr_config',
		    'qcld_clr_conf'
		);

add_submenu_page(
	        'comment-link-remove',
	        __('Comment Mention Settings'),
	        __('Comment Mention'),
	        'manage_options',
	        'qcclr_comment_mention',
	        'qcclr_comment_mention_admin_settings'
	    );

add_submenu_page(
	        'comment-link-remove',
	        __('AI Auto Reply Comments'),
	        __('AI Auto Reply Comments'),
	        'manage_options',
	        'qcclr_comment_autoreply',
	        'qcclr_comment_autoreply_admin_settings'
	    );

}
add_action('admin_menu', 'qc_clr_add_sublavel_menuss', 100);

function qcld_clr_email_subscription_page(){
    
    require_once( 'qc-clr-email-subscription.php' );
}

add_action( 'admin_init' , 'qcld_clr_plugin_submenus' );

function qcld_clr_plugin_submenus( $menu_ord ){
    global $submenu;

$arr = array();

//var_dump( $submenu['comment-link-remove'] );
    //wp_die();

$arr[] = isset($submenu['comment-link-remove'][0]) ? $submenu['comment-link-remove'][0] : '';
    $arr[] = isset($submenu['comment-link-remove'][1]) ? $submenu['comment-link-remove'][1] : '';
    $arr[] = isset($submenu['comment-link-remove'][301]) ? $submenu['comment-link-remove'][301] : '';
    $arr[] = isset($submenu['comment-link-remove'][302]) ? $submenu['comment-link-remove'][302] : '';
    $arr[] = isset($submenu['comment-link-remove'][2]) ? $submenu['comment-link-remove'][2] : '';
    $arr[] = isset($submenu['comment-link-remove'][303]) ? $submenu['comment-link-remove'][303] : '';
    $arr[] = isset($submenu['comment-link-remove'][304]) ? $submenu['comment-link-remove'][304] : '';
    $arr[] = isset($submenu['comment-link-remove'][300]) ? $submenu['comment-link-remove'][300] : '';

$submenu['comment-link-remove'] = $arr;
    
    return $menu_ord;
}

// add_action( 'admin_notices', 'qcld_clr_pro_notice',100 );

function qcld_clr_pro_notice(){

global $pagenow, $typenow;

$screen = get_current_screen();

if( isset($screen->base) && ( $screen->base == 'toplevel_page_comment-link-remove' || $screen->base == 'qc-clr-settings_page_commenter-emails' || $screen->base == 'qc-clr-settings_page_email-subscriptions'  || $screen->base == 'qc-clr-settings_page_qcld_clr_config'  || $screen->base == 'qc-clr-settings_page_clr-comment-attachment' ) ){

<div id="message-clr" class="notice notice-info is-dismissible" style="padding:4px 0px 0px 4px;background:#000;">
        <?php
            printf(
                __('%s  %s  %s','qc-clr'),
                '<a href="'.esc_url('https://www.quantumcloud.com/products/comment-tools/').'" target="_blank">',
                '<img src="'.esc_url(QCCLR_ASSETS_URL).'/img/comment-tools.jpg" >',
                '</a>'
            );

?>
    </div>

<?php

}