/home/arranoyd/public_html/wp-content/plugins/litespeed-cache/src/cdn/cloudflare.cls.php
<?php
/**
 * The cloudflare CDN class.
 *
 * @since      	2.1
 * @package    	LiteSpeed
 * @subpackage 	LiteSpeed/src/cdn
 * @author     	LiteSpeed Technologies <info@litespeedtech.com>
 */
namespace LiteSpeed\CDN ;

use LiteSpeed\Core ;
use LiteSpeed\Base ;
use LiteSpeed\Conf ;
use LiteSpeed\Debug2;
use LiteSpeed\Router ;
use LiteSpeed\Admin ;
use LiteSpeed\Admin_Display ;

defined( 'WPINC' ) || exit ;

class Cloudflare extends Base
{
	protected static $_instance ;

	const TYPE_PURGE_ALL = 'purge_all' ;
	const TYPE_GET_DEVMODE = 'get_devmode' ;
	const TYPE_SET_DEVMODE_ON = 'set_devmode_on' ;
	const TYPE_SET_DEVMODE_OFF = 'set_devmode_off' ;

	const ITEM_STATUS = 'status' ;

	/**
	 * Update zone&name based on latest settings
	 *
	 * @since  3.0
	 * @access public
	 */
	public static function try_refresh_zone()
	{
		$__cfg = Conf::get_instance() ;

		if ( ! Conf::val( Base::O_CDN_CLOUDFLARE ) ) {
			return ;
		}

		$zone = self::get_instance()->_fetch_zone() ;
		if ( $zone ) {
			$__cfg->update( Base::O_CDN_CLOUDFLARE_NAME, $zone[ 'name' ] ) ;

			$__cfg->update( Base::O_CDN_CLOUDFLARE_ZONE, $zone[ 'id' ] ) ;

			Debug2::debug( "[Cloudflare] Get zone successfully \t\t[ID] $zone[id]" ) ;
		}
		else {
			$__cfg->update( Base::O_CDN_CLOUDFLARE_ZONE, '' ) ;
			Debug2::debug( '[Cloudflare] ❌ Get zone failed, clean zone' ) ;
		}

	}

	/**
	 * Get Cloudflare development mode
	 *
	 * @since  1.7.2
	 * @access private
	 */
	private function _get_devmode( $show_msg = true )
	{
		Debug2::debug( '[Cloudflare] _get_devmode' ) ;

		$zone = $this->_zone() ;
		if ( ! $zone ) {
			return ;
		}

		$url = 'https://api.cloudflare.com/client/v4/zones/' . $zone . '/settings/development_mode' ;
		$res = $this->_cloudflare_call( $url, 'GET', false, $show_msg ) ;

		if ( ! $res ) {
			return ;
		}
		Debug2::debug( '[Cloudflare] _get_devmode result ', $res ) ;

		$curr_status = self::get_option( self::ITEM_STATUS, array() ) ;
		$curr_status[ 'devmode' ] = $res[ 'value' ] ;
		$curr_status[ 'devmode_expired' ] = $res[ 'time_remaining' ] + time() ;

		// update status
		self::update_option( self::ITEM_STATUS, $curr_status ) ;

	}

	/**
	 * Set Cloudflare development mode
	 *
	 * @since  1.7.2
	 * @access private
	 */
	private function _set_devmode( $type )
	{
		Debug2::debug( '[Cloudflare] _set_devmode' ) ;

		$zone = $this->_zone() ;
		if ( ! $zone ) {
			return ;
		}

		$url = 'https://api.cloudflare.com/client/v4/zones/' . $zone . '/settings/development_mode' ;
		$new_val = $type == self::TYPE_SET_DEVMODE_ON ? 'on' : 'off' ;
		$data = array( 'value' => $new_val ) ;
		$res = $this->_cloudflare_call( $url, 'PATCH', $data ) ;

		if ( ! $res ) {
			return ;
		}

		$res = $this->_get_devmode( false ) ;

		if ( $res ) {
			$msg = sprintf( __( 'Notified Cloudflare to set development mode to %s successfully.', 'litespeed-cache' ), strtoupper( $new_val ) ) ;
			Admin_Display::succeed( $msg ) ;
		}

	}

	/**
	 * Purge Cloudflare cache
	 *
	 * @since  1.7.2
	 * @access private
	 */
	private function _purge_all()
	{
		Debug2::debug( '[Cloudflare] _purge_all' ) ;

		$cf_on = Conf::val( Base::O_CDN_CLOUDFLARE ) ;
		if ( ! $cf_on ) {
			$msg = __( 'Cloudflare API is set to off.', 'litespeed-cache' ) ;
			Admin_Display::error( $msg ) ;
			return ;
		}

		$zone = $this->_zone() ;
		if ( ! $zone ) {
			return ;
		}

		$url = 'https://api.cloudflare.com/client/v4/zones/' . $zone . '/purge_cache' ;
		$data = array( 'purge_everything' => true ) ;

		$res = $this->_cloudflare_call( $url, 'DELETE', $data ) ;

		if ( $res ) {
			$msg = __( 'Notified Cloudflare to purge all successfully.', 'litespeed-cache' ) ;
			Admin_Display::succeed( $msg ) ;
		}
	}

	/**
	 * Get current Cloudflare zone from cfg
	 *
	 * @since  1.7.2
	 * @access private
	 */
	private function _zone()
	{
		$zone = Conf::val( Base::O_CDN_CLOUDFLARE_ZONE ) ;
		if ( ! $zone ) {
			$msg = __( 'No available Cloudflare zone', 'litespeed-cache' ) ;
			Admin_Display::error( $msg ) ;
			return false ;
		}

		return $zone ;
	}

	/**
	 * Get Cloudflare zone settings
	 *
	 * @since  1.7.2
	 * @access private
	 */
	private function _fetch_zone()
	{
		$kw = Conf::val( Base::O_CDN_CLOUDFLARE_NAME ) ;

		$url = 'https://api.cloudflare.com/client/v4/zones?status=active&match=all' ;

		// Try exact match first
		if ( $kw && strpos( $kw, '.' ) ) {
			$zones = $this->_cloudflare_call( $url . '&name=' . $kw, 'GET', false, false ) ;
			if ( $zones ) {
				Debug2::debug( '[Cloudflare] fetch_zone exact matched' ) ;
				return $zones[ 0 ] ;
			}
		}

		// Can't find, try to get default one
		$zones = $this->_cloudflare_call( $url, 'GET', false, false ) ;

		if ( ! $zones ) {
			Debug2::debug( '[Cloudflare] fetch_zone no zone' ) ;
			return false ;
		}

		if ( ! $kw ) {
			Debug2::debug( '[Cloudflare] fetch_zone no set name, use first one by default' ) ;
			return $zones[ 0 ] ;
		}

		foreach ( $zones as $v ) {
			if ( strpos( $v[ 'name' ], $kw ) !== false ) {
				Debug2::debug( '[Cloudflare] fetch_zone matched ' . $kw . ' [name] ' . $v[ 'name' ] ) ;
				return $v ;
			}
		}

		// Can't match current name, return default one
		Debug2::debug( '[Cloudflare] fetch_zone failed match name, use first one by default' ) ;
		return $zones[ 0 ] ;
	}

	/**
	 * Cloudflare API
	 *
	 * @since  1.7.2
	 * @access private
	 */
	private function _cloudflare_call( $url, $method = 'GET', $data = false, $show_msg = true )
	{
		Debug2::debug( "[Cloudflare] _cloudflare_call \t\t[URL] $url" ) ;

		$header = array(
			'Content-Type: application/json',
			'X-Auth-Email: ' . Conf::val( Base::O_CDN_CLOUDFLARE_EMAIL ),
			'X-Auth-Key: ' . Conf::val( Base::O_CDN_CLOUDFLARE_KEY ),
		) ;

		$ch = curl_init() ;
		curl_setopt( $ch, CURLOPT_URL, $url ) ;
		curl_setopt( $ch, CURLOPT_CUSTOMREQUEST, $method ) ;
		curl_setopt( $ch, CURLOPT_HTTPHEADER, $header ) ;
		curl_setopt( $ch, CURLOPT_RETURNTRANSFER, true ) ;
		if ( $data ) {
			if ( is_array( $data ) ) {
				$data = json_encode( $data ) ;
			}
			curl_setopt( $ch, CURLOPT_POSTFIELDS, $data ) ;
		}
		$result = curl_exec( $ch ) ;

		$json = json_decode( $result, true ) ;

		if ( $json && $json[ 'success' ] && $json[ 'result' ] ) {
			Debug2::debug( "[Cloudflare] _cloudflare_call called successfully" ) ;
			if ( $show_msg ) {
				$msg = __( 'Communicated with Cloudflare successfully.', 'litespeed-cache' ) ;
				Admin_Display::succeed( $msg ) ;
			}

			return $json[ 'result' ] ;
		}

		Debug2::debug( "[Cloudflare] _cloudflare_call called failed: $result" ) ;
		if ( $show_msg ) {
			$msg = __( 'Failed to communicate with Cloudflare', 'litespeed-cache' ) ;
			Admin_Display::error( $msg ) ;
		}

		return false ;
	}

	/**
	 * Handle all request actions from main cls
	 *
	 * @since  1.7.2
	 * @access public
	 */
	public static function handler()
	{
		$instance = self::get_instance() ;

		$type = Router::verify_type() ;

		switch ( $type ) {
			case self::TYPE_PURGE_ALL :
				$instance->_purge_all() ;
				break ;

			case self::TYPE_GET_DEVMODE :
				$instance->_get_devmode() ;
				break ;

			case self::TYPE_SET_DEVMODE_ON :
			case self::TYPE_SET_DEVMODE_OFF :
				$instance->_set_devmode( $type ) ;
				break ;

			default:
				break ;
		}

		Admin::redirect() ;
	}

}