<?php
/**
 * Advertise World
 *
 * @package   WordPress
 * @subpackage Advertise_World
 * @author    Devisd Pty Ltd <support@advertiseworld.com>
 * @license   GPL-2.0+
 * @link      https://advertiseworld.com
 * @copyright 2016 Devisd Pty Ltd
 *
 * @wordpress-plugin
 * Plugin Name: Advertise World
 * Plugin URI: http://www.advertiseworld.com/
 * Description: This plugin simplifies adding Advertise World advertisements to your Wordpress site
 * Version: 1.0.3
 * Author: Devisd Pty Ltd
 * Author URI: http://www.devisd.com/
 * License: GPL2
 */


/*
 * Initializes plugin widget
 */
require( 'widget.php' );


/*
 * Initializes plugin admin section
 */
require( 'admin/main.php' );


/**
 * Relative Image location URL.
 *
 * @since 1.0.0
 * @access public
 * @var string Relative image location url
 */
define( 'ADWORLD_IMAGE_PATH', 'wp-content/uploads/' );


/**
 * Advert URL prefix.
 *
 * @since 1.0.0
 * @access public
 * @var String Advert URL prefix
 */
define( 'ADVERTISE_WORLD_ADVERT_URL_PREFIX', 'adspace://' );


/**
 * Returns connection protocol and domain
 *
 * @since 1.0.0
 *
 * @return String Current connection protocol and domain
 */
function siteURL() {
	$protocol   = ( ! empty( $_SERVER['HTTPS'] ) && $_SERVER['HTTPS'] !== "off" || $_SERVER['SERVER_PORT'] == 443 ) ? "https://" : "http://";
	$domainName = $_SERVER['HTTP_HOST'] . '/';

	return $protocol . $domainName;
}

define( 'SITE_URL', siteURL() );


// Initialize ad list option ( If this is not done the first time saving data to the table will be called twice )
add_option( 'advertise-world-wp-options-new-ad' );


/**
 * Determines if url request is an advert request
 *
 * @since 1.0.0
 */
function scan_generated_url() {
	$querys               = explode( '&', $_SERVER['QUERY_STRING'] );
	$advert_url           = base64_decode( $querys[0] );
	$advert_width         = base64_decode( $querys[1] );
	$advert_height_choice = "shortest";
	if ( isset( $querys[2] ) ) {
		$advert_height_choice = base64_decode( $querys[2] );
	}

	if ( substr( $advert_url, 0, strlen( ADVERTISE_WORLD_ADVERT_URL_PREFIX ) ) == ADVERTISE_WORLD_ADVERT_URL_PREFIX ) {

		$advert_id = substr( $advert_url, strlen( ADVERTISE_WORLD_ADVERT_URL_PREFIX ) );
		generate_ad( $advert_id, $advert_width, $advert_height_choice );

	}
}

add_action( 'plugins_loaded', 'scan_generated_url' );

/**
 * Gets the client ip address and returns
 *
 * @since 1.0.1
 *
 * @return string
 */
function Advertise_World_Get_Client_IP() {
	// Get user IP address
	$ip = false;
	if ( isset( $_SERVER['HTTP_CLIENT_IP'] ) && ! empty( $_SERVER['HTTP_CLIENT_IP'] ) ) {
		$ip = $_SERVER['HTTP_CLIENT_IP'];
	} elseif ( isset( $_SERVER['HTTP_X_FORWARDED_FOR'] ) && ! empty( $_SERVER['HTTP_X_FORWARDED_FOR'] ) ) {
		$ip = $_SERVER['HTTP_X_FORWARDED_FOR'];
	} else {
		$ip = ( isset( $_SERVER['REMOTE_ADDR'] ) ) ? $_SERVER['REMOTE_ADDR'] : "66.249.64.1";
	}
	$ip = filter_var( $ip, FILTER_VALIDATE_IP );
	$ip = ( $ip === false ) ? "66.249.64.1" : $ip;

	return $ip;
}

/**
 * Makes a HTTP request to a given URL and returns the response.
 * Note: If PHP-CURL is available, if will be used. If not, then fopen() will be used to download the URL.
 *
 * @since 1.0.1
 *
 * @param string $url - The URL you would like to request.
 * @param bool $binaryResult - If true, the function will return the binary response. Used for downloading images.
 * @param bool $headers - An associative array of key value pairs to send in the HTTP request header.
 *
 * @return bool|mixed|string - Returns FALSE if there is an error or a timeout. Otherwise the response data is returned.
 */
function Advertise_World_Get_URL( $url, $binaryResult = false, $headers = false ) {
	$result = false;

	if ( function_exists( 'curl_init' ) ) {

		$ch = curl_init();
		curl_setopt( $ch, CURLOPT_URL, $url );
		if ( $binaryResult ) {
			curl_setopt( $ch, CURLOPT_BINARYTRANSFER, true );
		}
		if ( $headers ) {
			$curl_header = array();
			foreach ( $headers as $key => $value ) {
				$curl_header[] = $key . ": " . $value;
			}
			curl_setopt( $ch, CURLOPT_HEADER, $curl_header );
		}
		curl_setopt( $ch, CURLOPT_FOLLOWLOCATION, true );
		curl_setopt( $ch, CURLOPT_RETURNTRANSFER, true );
		$result = curl_exec( $ch );
		curl_close( $ch );

	} elseif ( function_exists( 'fopen' ) && function_exists( 'stream_get_contents' ) ) {

		if ( $headers ) {
			$header = '';
			foreach ( $headers as $key => $value ) {
				$header .= $key . ": " . $value . "\r\n";
			}
			$opts    = array(
				'http' => array(
					'method' => "GET",
					'header' => $header
				)
			);
			$context = stream_context_create( $opts );
			$handle  = fopen( $url, "r", false, $context );
		} else {
			$handle = fopen( $url, "r" );
		}
		$result = stream_get_contents( $handle );
		fclose( $handle );

	}

	return $result;
}

/**
 * Generates ad HTML with advert id and desired width
 *
 * @since 1.0.0
 * @snice 1.0.3 Added $advert_height_choice arguement
 *
 * @param string $advert_id - Adspace id
 * @param Int $advert_width - Width of client adspace
 * @param string $advert_height_choice - The ad height to choose. Must be one of "shortest", "medium", "tallest"
 *
 */
function generate_ad( $advert_id, $advert_width, $advert_height_choice ) {

	if ( $advert_width == 0 ) {
		exit;
	}

	// Get all posible ad-sizes for the ads
	$api_url = 'https://www.advertiseworld.com/portal/CommonNonAuthenticatedAjax?req=getCreativeSizes';
	$json    = Advertise_World_Get_URL( $api_url );
	$result  = false;
	if ( $json ) {
		$result = json_decode( $json, true );
	}

	/*
	 * return nothing not even normal page on incorrect request
	 * this is so that fake adspaces dont download unnesaccary stuff
	 */
	if ( ! $result ) {
		exit;
	};

	$best_width  = null;
	$best_height = null;

	foreach ( $result as $width => $advert_size ) {
		if ( ( ( $width <= $advert_width ) && ( $advert_width - $width < $advert_width - $best_width || is_null( $best_width ) ) ) ) {
			$best_width  = $width;
			$best_height = null;
			if ( $advert_height_choice === "medium") {
				sort ($advert_size);
				$best_height = $advert_size[count($advert_size) / 2];
			} else {
				foreach ( $advert_size as $height ) {
					if ( is_null( $best_height ) ) {
						$best_height = $height;
					} else if ( $advert_height_choice === "shortest" && $height < $best_height ) {
						$best_height = $height;
					} else if ( $advert_height_choice === "tallest" && $height > $best_height ) {
						$best_height = $height;
					}
				}
			}
		}
	}

	$api_url = 'http://ads.advertiseworld.com/ads/'
	           . "?site-id=" . $advert_id
	           . "&ua=" . urlencode( $_SERVER['HTTP_USER_AGENT'] )
	           . "&ip=" . Advertise_World_Get_Client_IP()
	           . "&w=" . $advert_width
	           . "&h=" . $best_height
	           . "&fmt=json"
	           . "&ver=s2s_1";
	$result  = false;
	$json    = Advertise_World_Get_URL( $api_url );
	if ( $json ) {
		$result = json_decode( $json, true )[0];
	}

	/**
	 * if we dont have a small enough ad show nothing!
	 * this should only happen if the space is not big enough for us to deem worthy
	 */
	if ( ! $result ) {
		exit;
	}

	$name      = basename( $result['img'] );
	$local_url = WP_CONTENT_DIR . '/aw-images/' . $name;
	$fp        = @fopen( $local_url, 'r' );

	if ( $fp === false ) {

		$fetch_url = transform_internal_url( SITE_URL . ADWORLD_IMAGE_PATH . $name );
		$raw       = Advertise_World_Get_URL( $fetch_url );

		if ( file_exists( $local_url ) ) {

			error_log( 'Failed to create file for image: File already exists!' );

		} else {

		    if (!is_dir(dirname($local_url))) {
                mkdir(dirname($local_url), 0755, true);
            }

			$new_fp = @fopen( $local_url, 'x+' );

			if ( $new_fp !== false ) {

				fwrite( $new_fp, $raw );
				rewind( $new_fp );
				Advertise_World_Server_And_Impress( $name, $result['curl'], $result['csc'] );

			} else {
				error_log( 'Failed to create file for image: ' . $fetch_url );
			}
		}
	} else {
		Advertise_World_Server_And_Impress( $name, $result['curl'], $result['csc'] );
	}

	exit;
}


/**
 * Converts an external image url to internal
 *
 * @since 1.0.0
 *
 * @param string $url External image url
 *
 * @return string Local image url
 */
function transform_external_url( $url ) {
	$filename = basename( $url );
	$base_url = SITE_URL . ADWORLD_IMAGE_PATH . $filename;

	return $base_url;
}


/**
 * Converts an local image url to external
 *
 * @since 1.0.0
 *
 * @param string $url Local image url
 *
 * @return string External image url
 */
function transform_internal_url( $url ) {
	$filename = basename( $url );
	$base_url = ( ( ! empty( $_SERVER['HTTPS'] ) && $_SERVER['HTTPS'] !== 'off' || $_SERVER['SERVER_PORT'] == 443 ) ? "https://" : "http://" ) . 'wac.33233.alphacdn.net/8033233/adworld/' . $filename;

	return $base_url;
}


/**
 * Fires before each widget is displayed
 *
 * Creates a random amount of fake widgets before and after a real advert
 * widget
 *
 * @since 1.0.0
 *
 * @param $instance Widget instance
 * @param $widget Widget object
 * @param $args Widget placement
 *
 * @return array Widget instance
 */
function Advertise_World_Widget_Injection( $instance, $widget, $args ) {
	// reset widget count for a new sidebar
	if ( $_SESSION['ADVERTISE_WORLD_LAST_SIDEBAR'] != $args['id'] ) {
		$_SESSION['ADVERTISE_WORLD_LAST_SIDEBAR']    = $args['id'];
		$_SESSION['ADVERTISE_WORLD_INJECTION_COUNT'] = 0;
	}

	$sidebars_widgets   = get_option( 'sidebars_widgets' );
	$widget_prefix      = "advertise_world_widget";
	$sidebar_has_widget = false;

	foreach ( $sidebars_widgets[ $_SESSION['ADVERTISE_WORLD_LAST_SIDEBAR'] ] as $active_widget ) {
		if ( substr( $active_widget, 0, strlen( $widget_prefix ) ) == $widget_prefix ) {
			$sidebar_has_widget = true;
		}
	}

	if ( ! $sidebar_has_widget ) {
		return $instance;
	}

	$_SESSION['ADVERTISE_WORLD_INJECTION_COUNT'] ++;

	$spoof_args     = $args;
	$spoof_instance = Array( 'title' => '' );

	$last_element = 0;
	$element_end  = 1;
	$style        = 'style="border: 0 !important; height: 0 !important; padding: 0 !important; margin: 0 !important;"';
	$count        = mt_rand( 0, 4 );

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

		while ( $element_end ) {

			$element_end = strpos( $spoof_args['before_widget'], '>', $last_element );

			if ( $element_end !== false ) {

				$spoof_args['before_widget'] = substr_replace( $spoof_args['before_widget'], $style, $element_end, 0 );
				$last_element                = $element_end + strlen( $style ) + 1;

			}
		}

		$advertise_world_spoof_widget = new Advertise_World_Widget();
		$advertise_world_spoof_widget->widget( $spoof_args, $spoof_instance );

	}

	return $instance;
}

add_action( 'widget_display_callback', 'Advertise_World_Widget_Injection', 10, 3 );


/**
 * Fires after wordpress plugins are loaded
 *
 * @since 1.0.0
 */
function Advertise_World_Widget_Init() {

	if ( ! session_id() ) {
		session_start();
	}

	$_SESSION['ADVERTISE_WORLD_INJECTION_COUNT'] = 0;
	$_SESSION['ADVERTISE_WORLD_LAST_SIDEBAR']    = '';
}

add_action( 'plugins_loaded', 'Advertise_World_Widget_Init' );


/**
 * Registers an impression then serve advert image and click url
 *
 * @since 1.0.0
 *
 * @param string $image_file Relative image file location
 * @param string $click_url Advert click url
 * @param string $impression_url Advert impression url
 */
function Advertise_World_Server_And_Impress( $image_file, $click_url, $impression_url ) {
	// Request headers to doing an impression
	$headers = array(
		"User-Agent"      => $_SERVER['HTTP_USER_AGENT'],
		"X-Forwarded-For" => Advertise_World_Get_Client_IP()
	);
	Advertise_World_Get_URL( $impression_url, true, $headers );

	// Echo the image data to the response
	header( 'Content-Type: text/plain' );
	echo base64_encode( file_get_contents( WP_CONTENT_DIR . '/aw-images/' . $image_file ) ) . '&&&&' . $click_url;
	exit;
}


/**
 * Fires before the page header is loaded
 *
 * Captures header output and attatch any assigned adverts
 *
 * @since 1.0.0
 *
 * @param string $name Theme header name
 */
function Advertise_World_Header_Injection( $name ) {

	ob_start();

	$templates = array();
	$name      = (string) $name;
	if ( '' !== $name ) {
		$templates[] = "header-{$name}.php";
	}

	$templates[] = 'header.php';

	locate_template( $templates, true );

	$theme_header = ob_get_contents();
	ob_end_clean();

	$advertise_world_ad_list = get_option( 'advertise-world-wp-options-new-ad' );
	$header_ads_above        = Array();
	$header_ads_below        = Array();
	$content_ads_above       = Array();

	foreach ( $advertise_world_ad_list as $ad_id => $advert ) {
		if ( ! isset($advert['height-choice']) ) {
			// Add backward compatibility for ad height selection
			$advert['height-choice'] = "shortest";
		}
		if ( 'header' == $advert['type'] ) {
			if ( 'top' == $advert['placement'] ) {
				$header_ads_above[ $ad_id ] = $advert;
			} elseif ( 'bottom' == $advert['placement'] ) {
				$header_ads_below[ $ad_id ] = $advert;
			}
		} elseif ( 'content' == $advert['type'] ) {
			if ( 'top' == $advert['placement'] ) {
				$content_ads_above[ $ad_id ] = $advert;
			}
		}
	}

	$advertise_world_spoof_widget = new Advertise_World_Widget();

	// Insert Inside Header Above Adverts
	$header_start_pos = strpos( $theme_header, '<header', 0 );
	$header_begin     = strpos( $theme_header, '>', $header_start_pos ) + 1;

	foreach ( $header_ads_above as $advert ) {
		$theme_header = substr_replace( $theme_header, $advertise_world_spoof_widget->output( $advert['title'], null, $advert['height-choice'] ), $header_begin, 0 );
	}

	if ( count( $header_ads_above ) > 0 ) {
		$theme_header = substr_replace( $theme_header, Advertise_World_Create_Fake_Adverts(), $header_begin, 0 );
	}

	// Insert Inside Header Below Adverts
	$header_end = strpos( $theme_header, '</header', 0 );
	foreach ( $header_ads_below as $advert ) {
		$theme_header = substr_replace( $theme_header, $advertise_world_spoof_widget->output( $advert['title'], null, $advert['height-choice'] ), $header_end, 0 );
	}

	if ( count( $header_ads_below ) > 0 ) {
		$theme_header = substr_replace( $theme_header, Advertise_World_Create_Fake_Adverts(), $header_end, 0 );
	}

	// Insert Under Header Adverts
	$header_end   = strpos( $theme_header, '</header', 0 );
	$under_header = strpos( $theme_header, '>', $header_end ) + 1;
	foreach ( $content_ads_above as $advert ) {
		$theme_header = substr_replace( $theme_header, $advertise_world_spoof_widget->output( $advert['title'], null, $advert['height-choice'] ), $under_header, 0 );
	}

	if ( count( $content_ads_above ) > 0 ) {
		$theme_header = substr_replace( $theme_header, Advertise_World_Create_Fake_Adverts(), $under_header, 0 );
	}

	echo $theme_header;
}

add_action( 'get_header', 'Advertise_World_Header_Injection', 10, 1 );


/**
 * Fires before loading the footer of the page
 *
 * Captures footer output and attatch any assigned adverts
 *
 * @since 1.0.0
 *
 * @param string $name Theme footer name
 */
function Advertise_World_Footer_Injection( $name ) {

	ob_start();

	$templates = array();
	$name      = (string) $name;
	if ( '' !== $name ) {
		$templates[] = "footer-{$name}.php";
	}

	$templates[] = 'footer.php';

	locate_template( $templates, true );

	$theme_footer = ob_get_contents();
	ob_end_clean();

	$advertise_world_ad_list = get_option( 'advertise-world-wp-options-new-ad' );
	$content_ads_below       = Array();
	$footer_ads_above        = Array();
	$footer_ads_below        = Array();

	foreach ( $advertise_world_ad_list as $ad_id => $advert ) {
		if ( ! isset($advert['height-choice']) ) {
			// Add backward compatibility for ad height selection
			$advert['height-choice'] = "shortest";
		}
		if ( 'content' == $advert['type'] ) {
			if ( 'bottom' == $advert['placement'] ) {
				$content_ads_below[ $ad_id ] = $advert;
			}
		} elseif ( 'footer' == $advert['type'] ) {
			if ( 'top' == $advert['placement'] ) {
				$footer_ads_above[ $ad_id ] = $advert;
			} elseif ( 'bottom' == $advert['placement'] ) {
				$footer_ads_below[ $ad_id ] = $advert;
			}
		}
	}

	$advertise_world_spoof_widget = new Advertise_World_Widget();

	// Insert Above Footer Adverts
	$footer_before = strpos( $theme_footer, '<footer', 0 );
	foreach ( $content_ads_below as $advert ) {
		$theme_footer = substr_replace( $theme_footer, $advertise_world_spoof_widget->output( $advert['title'], null, $advert['height-choice'] ), $footer_before, 0 );
	}

	if ( count( $content_ads_below ) > 0 ) {
		$theme_footer = substr_replace( $theme_footer, Advertise_World_Create_Fake_Adverts(), $footer_before, 0 );
	}

	// Insert inside Footer above Adverts
	$footer_before = strpos( $theme_footer, '<footer', 0 );
	$footer_begin  = strpos( $theme_footer, '>', $footer_before ) + 1;
	foreach ( $footer_ads_above as $advert ) {
		$theme_footer = substr_replace( $theme_footer, $advertise_world_spoof_widget->output( $advert['title'], null, $advert['height-choice'] ), $footer_begin, 0 );
	}

	if ( count( $footer_ads_above ) > 0 ) {
		$theme_footer = substr_replace( $theme_footer, Advertise_World_Create_Fake_Adverts(), $footer_begin, 0 );
	}

	// Insert inside Footer bellow Adverts
	$footer_end = strpos( $theme_footer, '</footer', 0 );
	foreach ( $footer_ads_below as $advert ) {
		$theme_footer = substr_replace( $theme_footer, $advertise_world_spoof_widget->output( $advert['title'], 'order: 1 !important;', $advert['height-choice'] ), $footer_end, 0 );
	}

	if ( count( $footer_ads_below ) > 0 ) {
		$theme_footer = substr_replace( $theme_footer, Advertise_World_Create_Fake_Adverts(), $footer_end, 0 );
	}

	echo $theme_footer;
}

add_action( 'get_footer', 'Advertise_World_Footer_Injection', 10, 1 );


/**
 * Generates a random amount of fake adverts
 *
 * @since 1.0.0
 *
 * @return string Fake advert(s) HTML
 */
function Advertise_World_Create_Fake_Adverts() {

	$fake_ads_html                = "";
	$advertise_world_spoof_widget = new Advertise_World_Widget();
	$count                        = mt_rand( 0, 4 );

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

		$fake_ads_html .= $advertise_world_spoof_widget->output();

	}

	return $fake_ads_html;

}


/**
 * Filters the post content
 *
 * Attatches assigned ads to the post content
 *
 * @since 1.0.0
 *
 * @param $content Post content
 *
 * @return string Post content
 */
function Advertise_World_Post_Injection( $content ) {

	$new_content = "";

	$advertise_world_spoof_widget = new Advertise_World_Widget();

	$advertise_world_ad_list = get_option( 'advertise-world-wp-options-new-ad' );
	$post_ads_above          = Array();
	$post_ads_below          = Array();

	foreach ( $advertise_world_ad_list as $ad_id => $advert ) {
		if ( ! isset($advert['height-choice']) ) {
			// Add backward compatibility for ad height selection
			$advert['height-choice'] = "shortest";
		}
		if ( 'post' == $advert['type'] ) {
			if ( 'top' == $advert['placement'] ) {
				$post_ads_above[ $ad_id ] = $advert;
			} elseif ( 'bottom' == $advert['placement'] ) {
				$post_ads_below[ $ad_id ] = $advert;
			}
		}
	}

	foreach ( $post_ads_above as $advert ) {
		$new_content .= $advertise_world_spoof_widget->output( $advert['title'], null, $advert['height-choice'] );
	}

	if ( count( $post_ads_above ) > 0 ) {
		$new_content .= Advertise_World_Create_Fake_Adverts();
	}

	$new_content .= $content;

	foreach ( $post_ads_below as $advert ) {
		$new_content .= $advertise_world_spoof_widget->output( $advert['title'], null, $advert['height-choice'] );
	}

	if ( count( $post_ads_below ) > 0 ) {
		$new_content .= Advertise_World_Create_Fake_Adverts();
	}

	return $new_content;

}

add_filter( 'the_content', 'Advertise_World_Post_Injection' );