<?php
	/*
		Plugin Name: 100Cities
		Plugin URI: http://www.knok.com/100-cities/
		Text Domain: onehundredcities
		Description: a plugin to show the one of the 100 cities to home swap before you die
		Version: 1.0
		Author: Jonay Pelluz
		Author URI: http://www.jonaypelluz.com
		License: GPL2
	
			Copyright 2013  Jonay Pelluz  (email : jonaypelluz@gmail.com)

			This program is free software; you can redistribute it and/or modify
			it under the terms of the GNU General Public License, version 2, as 
			published by the Free Software Foundation.

			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
	*/
	
	if (!function_exists('is_admin')) {
		header('Status: 403 Forbidden');
		header('HTTP/1.1 403 Forbidden');
		exit();
	}
	
	//Textdomain for the translation
	$textdomain = 'onehundredcities';
	
	//Load translation
	load_plugin_textdomain($textdomain, false, dirname( plugin_basename(__FILE__) ) . '/lang');

	//Pre Wordpress - 2.6 compatibility
	if (!defined('WP_CONTENT_URL')){
		define('WP_CONTENT_URL', get_option('siteurl') . '/wp-content' );
	}
	if (!defined('WP_CONTENT_DIR')){
		define('WP_CONTENT_DIR', ABSPATH . 'wp-content');
	}
	
	if(!class_exists("OneHundredCities")){

		class OneHundredCities {
			protected $options_page,$plugin_path,$plugin_url;
			protected $feed_url = "http://www.knok.com/100-cities/tag/"; //You can change this for your own feed base by location
			protected $data; //We get options store data, we control this data from the admin page;
			protected $default_lang = "eng"; //You default language, if it isn't set by the widget or include the plugin uses this one
			protected $default_panoramio_photos = 3; //Default quantity of panoramio photos to get
			protected $active_tag = null;
			protected $active_category = null;
			
			//Change template here if you want to use your own
			protected $basic_template = '100Cities_basic.php';
			
			//Change the size of the map depending on the size of the container, and zoom
			protected $map_width = '350';
			protected $map_zoom = 8;
			
			//TODO: Allow all default variables to be passed as array.
			
			function __construct(){	
				
				$this->plugin_path = dirname(__FILE__);
				$this->plugin_url = WP_PLUGIN_URL . '/100-cities';
				
				if(is_admin()){
					if(!class_exists("OneHundredCities_Options")) {
						require($this->plugin_path . '/100Cities-options.php');
					}
					$this->options_page = new OneHundredCities_Options();
				}
				
				//Get save plugin options data
				$this->data = json_decode(get_option('one-hundred-cities-data'));
				
				//Check if tag page or category page options are active, and insert plugin
				if($this->data->tags == 1 || $this->data->categories == 1){
					add_action( 'pre_get_posts', array($this, 'check_page_type'));
				}
				
				//Add plugin template if shortcode is found in post
				add_shortcode( 'onehundredcities', array($this, 'insert_cities_template') );
				
				//Loading custom CSS
				wp_register_style('google_font', 'http://fonts.googleapis.com/css?family=Archivo+Narrow');
				wp_enqueue_style('google_font');
				wp_enqueue_style('widgets_init', $this->plugin_url . '/assets/100Cities.css');
				
			}
			
			function check_page_type( $query ){
				//Check page type
				if($this->data->tags == 1 && $query->is_tag()){
					$this->active_tag = $query->query_vars['tag'];
					add_action('wp_meta', array($this, 'insert_plugin_if_tag'));
				}
				if($this->data->categories == 1 && $query->is_category()){
					$this->active_category = $query->query_vars['category'];
				}
			}
			
			function insert_plugin_if_tag(){
				echo $this->insert_cities_template( array( 'location' => $this->active_tag ) );
			}
			
			function check_rss_exists( $url ){ 
				$file_headers = @get_headers($url);
				if($file_headers[0] == 'HTTP/1.1 404 Not Found') {
					return false;
				} else {
					return true;
				}
			}
			
			//removes equal array values
			function custom_array_unique($array, $keep_key_assoc = false) {
				$duplicate_keys = array();
				$tmp = array();

				foreach ($array as $key=>$val) {
					//Convert objects to arrays, in_array() does not support objects
					if (is_object($val))
						$val = (array)$val;

					if (!in_array($val, $tmp))
						$tmp[] = $val;
					else
						$duplicate_keys[] = $key;
				}

				foreach ($duplicate_keys as $key)
					unset($array[$key]);

				return $keep_key_assoc ? $array : array_values($array);
			}
			
			function get_photos_panoramio( $location, $count ){
				if($count == false){
					$count = $this->default_panoramio_photos;
				}
				$file_name = "panoramio_" . $count . "_" . strtolower(str_replace(" ","-",$location)) . ".log";
				$data = $this->get_cache_data($file_name);
				if(!$data){
					$gmap_url = "http://maps.googleapis.com/maps/api/geocode/json?address=" . urlencode($location) . "&sensor=false";
					$json = json_decode(file_get_contents($gmap_url), true);
					if( isset($json['results'][0]['geometry']['location']['lat'])){
						$radius = 0.045;	
						$geoLat = $json['results'][0]['geometry']['location']['lat'];	
						$geoLng = $json['results'][0]['geometry']['location']['lng'];	
						$panoramio_url = "http://www.panoramio.com/map/get_panoramas.php?set=public&from=0&to=" . $count . "&minx=" . ( $geoLng - $radius ) . "&miny=" . ( $geoLat - $radius ) . "&maxx=" . ( $geoLng + $radius ) . "&maxy=" . ( $geoLat + $radius ) . "&size=small&mapfilter=true";
						$panoramio = json_decode(file_get_contents($panoramio_url), true);
						$data = $panoramio['photos'];
					}
					if(!empty($data)){
						$this->write_cache($data, $file_name);
					}
				}
				return $data;
			}
			
			//Get related posts for a given location
			function get_data_by_location( $location, $lng, $custom_feed ){
				$file_name = "articles_" . strtolower(str_replace(" ","-",$location)) . "_" . $lng . ".log";
				$data = $this->get_cache_data($file_name);
				if(!$data){
					if(isset($custom_feed) && $custom_feed != false){
						$url = $custom_feed;
					} else {
						$url = $this->feed_url . str_replace(" ", "-", strtolower($location)) . "/feed/";
					}
					if($this->check_rss_exists($url)){
						$doc = new DOMDocument();
						$doc->load($url);
						if($doc->getElementsByTagName('item')){
							$i = 0;
							foreach ($doc->getElementsByTagName('item') as $node) {
								$data['title'] =  $node->getElementsByTagName('title')->item(0)->nodeValue;
								$data['link'] =  strtok($node->getElementsByTagName('link')->item(0)->nodeValue, "?");
								$data['pubDate'] =  date("M, d Y", strtotime($node->getElementsByTagName('pubDate')->item(0)->nodeValue));
								$data['description'] =  utf8_decode(htmlentities(strip_tags($node->getElementsByTagName('description')->item(0)->nodeValue)));
								$data['description'] =  preg_replace('/&a?m?p?;?#8217;/', "'", $data['description']);
								break;
							}
							if(!empty($data)){
								$this->write_cache($data, $file_name);
							}
						}
					}
				}
				return $data;
			}
			
			function get_cache_data($file_name) {
				$file_url = $this->plugin_path . "/cache/" . $file_name;
				if (file_exists($file_url) && ((time()-filemtime($file_url)) < (60*60*24*2))){
					$str = file_get_contents($file_url);
					return unserialize($str);
				}
			}
			
			function write_cache($data, $file_name) {
				$file_url = $this->plugin_path . "/cache/" . $file_name;
				$fp = fopen($file_url, 'w');
				fwrite($fp, serialize($data));
				fclose($fp);
			}
			
			function insert_cities_template( $atts ) {
				if(!isset($atts['div'])){
					$atts['div'] = $this->data->div;
				}
				if($atts['div'] == 'block'){
					$atts['map_width'] = '900';
				}
				if(isset($atts['wiki']) && $atts['wiki'] == 'off'){ 
					$atts['wiki'] = 0; //Zero means, It won't get printed
				} else {
					$atts['wiki'] = $this->data->wikipedia;
				}
				if(isset($atts['gmaps']) && $atts['gmaps'] == 'off'){ 
					$atts['gmaps'] = 0;
				} else {
					$atts['gmaps'] = $this->data->gmaps;
				}
				if(isset($atts['panoramio']) && $atts['panoramio'] == 'off'){ 
					$atts['panoramio'] = 0;
				} else {
					$atts['panoramio'] = $this->data->panoramio;
				}
				if(isset($atts['articles']) && $atts['articles'] == 'off'){ 
					$atts['articles'] = 0;
				} else {
					$atts['articles'] = $this->data->articles;
				}
				if(isset($atts['logo']) && $atts['logo'] == 'off'){ 
					$atts['logo'] = 0;
				} else {
					$atts['logo'] = $this->data->logo;
				}
				if(!isset($atts['panoramio_count']) || $atts['panoramio_count'] == 0 || $atts['panoramio_count'] == ""){
					$atts['panoramio_count'] = false;
				}
				if(!isset($atts['lng'])){
					$atts['lng'] = $this->default_lang; //Default lang is English
				}
				$atts['articles_feed'] =  $this->data->articles_feed;
				if(isset($atts['location'])){
					return $this->get_city_info( $atts );
				} else {
					return "";
				}
			}
			
			function get_city_info( $params ){
				$data['location'] = $params['location'];
				$data['div'] = $params['div'];
				if($params['wiki'] == 1){
					$data['wiki'] = $this->get_wikipedia_info( $params['lng'], $params['location'] );
				}
				if($params['gmaps'] == 1){
					if(isset($params['map_width'])){
						$data['map_width'] = $params['map_width'];
					} else {
						$data['map_width'] = $this->map_width;
					}
					$data['zoom'] = $this->map_zoom;
				}
				if($params['articles'] == 1){
					if($params['articles_feed'] != ""){
						$data['location_url'] = "";
						$data['location_post'] = $this->get_data_by_location( $params['location'], $params['lng'], $params['articles_feed'] );
					} else {
						$data['location_url'] = $this->feed_url . str_replace(" ", "-", strtolower($params['location'])) . "/";
						$data['location_post'] = $this->get_data_by_location( $params['location'], $params['lng'], false );
						$data['location_name'] = __("more posts about","onehundredcities") . " " . $params['location'] . " &raquo;";
					}
					$data['location_title'] = __("Related posts","onehundredcities");
				}
				if($params['panoramio'] == 1){
					$data['panoramio_photos'] = $this->get_photos_panoramio( $params['location'], $params['panoramio_count']);
				}
				if($params['logo'] == 1){
					$data['logo'] = $this->get_own_info();
				}
				if(!empty($data)){
					$template = $this->load_template( $this->plugin_path . '/templates/' . $this->basic_template, $data );
					return $template;
				}
				return false;
			}
			
			function get_own_info(){
				//Default for all
				$data['title'] = __("Home exchange","onehundredcities") . " | Knok";
				$data['link'] = __("Home-link","onehundredcities");
				$data['img'] = $this->plugin_url . "/assets/logo-knok.png";
				return $data;
			}
			
			function install(){
				$data['gmaps'] = 1;
				$data['wikipedia'] = 1;
				$data['panoramio'] = 1;
				$data['articles'] = 1;
				$data['articles_feed'] = '';
				$data['tags'] = 0;
				$data['categories'] = 0;
				$data['logo'] = 1;
				$data['div'] = 'float';
				update_option('one-hundred-cities-data', json_encode($data));
			}
			
			function load_template( $file, $params ) {
				if (is_file($file)) {
					ob_start();
					extract($params);
					include $file;
					return ob_get_clean();
				}
				return false;
			}
			
			function curl_url($url){
				$data = false;
				if(function_exists('curl_init')){
					$ch = curl_init($url);
					curl_setopt($ch, CURLOPT_HTTPGET, true);
					curl_setopt($ch, CURLOPT_POST, false);
					curl_setopt($ch, CURLOPT_HEADER, false);
					curl_setopt($ch, CURLOPT_NOBODY, false);
					curl_setopt($ch, CURLOPT_VERBOSE, false);
					curl_setopt($ch, CURLOPT_REFERER, "");
					curl_setopt($ch, CURLOPT_FOLLOWLOCATION, true);
					curl_setopt($ch, CURLOPT_MAXREDIRS, 4);
					curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
					curl_setopt($ch, CURLOPT_USERAGENT, "Mozilla/5.0 (Windows; U; Windows NT 6.1; he; rv:1.9.2.8) Gecko/20100722 Firefox/3.6.8");
					$data = curl_exec($ch);
				} else {
					$data = file_get_contents($url);
				}
				return $data;
			}
			
			function get_wikipedia_info( $lng, $location ) {
				$file_name = "wiki_" . strtolower(str_replace(" ","-",$location)) . "_" . $lng . ".log";
				$data = $this->get_cache_data($file_name);
				if(!$data){
					$lng_array = array( 
						"eng" => "en", 
						"esp" => "es" 
					);
					$page = json_decode($this->curl_url("http://" . $lng_array[$lng] . ".wikipedia.org/w/api.php?action=query&indexpageids=&prop=revisions&titles=" . urlencode($location) ."&rvprop=content&format=json"));
					foreach($page->query->pageids as $result){
						$pageid = $result;
						break;
					}
					$object_name = '*';
					$wiki_content = $page->query->pages->$pageid->revisions[0]->$object_name; //We call it unestable, but it it is beyond that :-)
					
					//Cleaning wiki content
					$results = array();
					$searches = array(
						'/<ref(.*)?>(.*)?<\/ref>/'
						,'/<small(.*)?>(.*)?<\/small>/'
						,'/<\/?ref\s?(.*)?\s?\/?>/'
						,'/\((.*)\)/'
						,'/{(.*)}/'
						,'/\[(.*)\]/'
						,'/<!--(.*)-->/'
					);
					$wiki_content = preg_replace($searches, ' ' ,$wiki_content);
					preg_match_all('/\|(.*)=(.*)/', $wiki_content, $results, PREG_SET_ORDER);
					
					//Filtering cleaner results
					$results_filtered = array();
					foreach($results as $result){
						if(substr_count($result[0],'|') > 1){
							$rs = explode('|',$result[0]);
							foreach($rs as $rs_s){
								array_push($results_filtered, $rs_s);
							}
						} else {
							array_push($results_filtered, $result[0]);							
						}
					}
					
					//Final string cleaning, it is when we get the data from wikipedia
					$searches = array('/=/','/\|/','/\n/','/\s\s+/');
					$replacements = array(' = ',' ',' ',' ');
					$array_names = array(
						 'area_total_sq_mi ='
						,'area_total_km2 = '
						,'population_est ='
						,'population_total ='
						,'established_date ='
						,'TotalAreaUS ='
						,'2000Pop ='
						,'area_km2 ='
						,'population_estimate ='
						,'area km2 ='
						,'population ='
						,'2010Pop ='
					);
					$data = array();
					foreach($results_filtered as $param){
						if(strlen($param) < 200 &&  strpos($param, "=") && $param != ""){
							$param = trim(preg_replace($searches, $replacements, $param));	
							$i = 0;
							foreach($array_names as $nm){
								$pos = strpos($param, $nm);
								if($pos !== false){
									$param = trim(str_replace($array_names[$i], "", substr($param, $pos, strlen($param))));
									if(strlen($param) > 2){
										switch($i){
											case 0:
											case 1:
											case 5:
											case 7:
											case 9:
												if(!isset($area_done)){
													$param = '<b>' . __("Area","onehundredcities") . ':</b> ' . $param;
													if($i == 0 || $i == 5){
														$param .= ' sq mi';
													} else {
														$param .= ' km2';
													}
													array_push($data, $param);
													$area_done = true;
												}
												break;
											case 2:
											case 3:
											case 6:
											case 8:
											case 10:
											case 11:
												if(!isset($population_done)){
													$param = '<b>' . __("Population","onehundredcities") . ':</b> ' . $param;
													array_push($data, $param);
													$population_done = true;
												}
												break;
											case 4:
												if(!isset($settled_done)){
													$param = '<b>' . __("Settled","onehundredcities") . ':</b> ' . $param;
													array_push($data, $param);
													$settled_done = true;
												}
												break;
										}
									}
								}
								$i++;
							}
						}
					}
					die();
					$new_page = $this->curl_url("http://" . $lng_array[$lng] . ".wikipedia.org/w/api.php?action=opensearch&search=" . urlencode($location) ."&format=xml&limit=1");
					$xml = simplexml_load_string($new_page);
					$description = (string) preg_replace('/\([^)]*\)/s', '', $xml->Section->Item->Description);
					$description = preg_replace('/\s\s+/s', ' ', $description);
					$new_data = array(
						'title' => (string) $xml->Section->Item->Text, 
						'description' => $description, 
						'url' => (string) $xml->Section->Item->Url,
						'extra' => $data
					);
					if((string)$xml->Section->Item->Description) {
						$this->write_cache($new_data, $file_name);
						return $new_data;
					} else {
						return "";
					}
				} else {
					return $data;
				}
			}

		} // End of Class
	
	}
	
	function wp_cityinfo($location, $lng = 'eng'){
		if(class_exists("OneHundredCities") && !$OneHundredCities){
			$OneHundredCities = new OneHundredCities();	
		}
		$data['location'] = $location;
		$data['lng'] = $lng;
		echo $OneHundredCities->insert_cities_template( $data );
	}
	
	add_action( 'init', 'init_one_hundred_cities');
	function init_one_hundred_cities(){
		if(class_exists("OneHundredCities") && !$OneHundredCities){
			$OneHundredCities = new OneHundredCities();	
		}
	}
	
	//Include Widget Class
	include('100Cities-widget.php');
	
	add_action('widgets_init', 'register_cities_widget');
	function register_cities_widget() {
		register_widget('OneHundredCitiesWidget');
	}

	register_activation_hook( __FILE__, array('OneHundredCities', 'install'));
   
//End of file