0byt3m1n1

Path: /data/applications/aps/tikiwiki/14.1-0/standard/htdocs/lib/wiki-plugins/ [ Home ]
File: wikiplugin_mcalendar.php
<?php
// (c) Copyright 2002-2015 by authors of the Tiki Wiki CMS Groupware Project
// 
// All Rights Reserved. See copyright.txt for details and a complete list of authors.
// Licensed under the GNU LESSER GENERAL PUBLIC LICENSE. See license.txt for details.
// $Id: wikiplugin_mcalendar.php 56278 2015-09-21 01:42:54Z lindonb $

class MCalendar
{

   // GMT correlation initiated on August 11, 3114 BC (Gregorian).
   // For another popular GMT correlation initiated on August 13, 3114 BC 
   // set MCalendar->StartLongCount = 584285 before calling function MCalendar->Maya()
   var $StartLongCount = 584283;
   var $LongCount = Array (
						   "Baktun" => 13,
						   "Katun" => 0,
						   "Tun" => 0,
						   "Winal" => 0,
						   "Kin" => 0
						   );
   var $LongKin;
   var $Tzolkin = Array (
						"Kin13" => 0,
						"Kin20" => 0
						 );
   var $TzolkinNames = Array (
					  "AHAU", "IMIX", "IK", "AKBAL", "KAN",
					  "CHICCHAN", "CIMI", "MANIK", "LAMAT",
					  "MULUC", "OC", "CHUEN", "EB", "BEN",
					  "IX", "MEN", "CIB", "CABAN", "ETZNAB",
					  "CAUAC"
					 );
   var $Haab = Array (
					  "Winal" => 0,
					  "Kin" => 0
					  );
   var $HaabNames = Array (
					 "POP", "WO", "SIP", "SOTZ",
					 "SEK", "XUL", "YAXKIN", "MOL",
					 "CHEN", "YAX", "SAC", "KEH", "MAK",
					 "KANKIN", "MUWAN", "PAX", "KAYAB",
					 "KUMKU", "WAYEB"
					 );
   var $Gregorian = Array (
						   "Year" => 2008,
						   "Month" => 11,
						   "Day" => 25
						   );
   var $Julian = 0;


	function setLongKin()
	{
	 $this->LongKin = $this->LongCount["Baktun"] * 144000
					+ $this->LongCount["Katun"] * 7200
					+ $this->LongCount["Tun"] * 360
					+ $this->LongCount["Winal"] * 20
					+ $this->LongCount["Kin"];
	 return $this->LongKin;
	}


	function setJulian()
	{

	$Year = $this->Gregorian["Year"];
	$Month = $this->Gregorian["Month"];
	$Day = $this->Gregorian["Day"];

	if ($Month < 3) {
	 $Month += 12;
	 $Year -= 1;
	};

	$a = floor($Year/100);
	$b = 2 - $a + floor($a/4);
	$j = floor(365.25*($Year+4716))+ floor(30.6001*($Month+1))+ $Day + $b - 1524;

	$this->Julian = $j;
	return $this->Julian;

	}


	function Maya()
	{

	$this->setJulian();

	$days = $this->Julian - $this->StartLongCount;
	$xdays = $days;

	$baktun = floor($xdays/144000);
	$this->LongCount["Baktun"] = $baktun;

	$xdays -= $baktun*144000;

	$katun = floor($xdays/7200);
	$this->LongCount["Katun"] = $katun;

	$xdays -= $katun*7200;

	$tun = floor($xdays/360);
	$this->LongCount["Tun"] = $tun;

	$xdays -= $tun*360;

	$winal = floor($xdays/20);
	$this->LongCount["Winal"] = $winal;

	$kin = $xdays - ($winal*20);
	$this->LongCount["Kin"] = $kin;

	$xdays = $days - (260*(floor($days/260)));
	$tzolradical = 4 + $xdays - (13*(floor(($xdays+3)/13)));
	$this->Tzolkin["Kin13"] = $tzolradical;

	$tzolkin = $xdays - (20*(floor(($xdays)/20)));
	$this->Tzolkin["Kin20"] = $tzolkin;

	$xdays = $days + 348 - (365*(floor(($days+348)/365)));
	$haabkin = $xdays - (20*(floor($xdays/20)));
	$this->Haab["Kin"] = $haabkin;


	if ($xdays > 360) $this->Haab["Winal"] = 18;

	$haabwinal = floor($xdays/20);
	$this->Haab["Winal"] = $haabwinal;

	$this->setLongKin();
	}

};

function wikiplugin_mcalendar_info()
{
	return array(
		'name' => tra('Mayan Calendars'),
		'documentation' => 'PluginMCalendarInfo',
		'description' => tra('Convert a Gregorian date to a Mayan calendar date'),
		'prefs' => array('wikiplugin_mcalendar'),
		'iconname' => 'calendar',
		'introduced' => 4,
		'params' => array(
			'template' => array(
				'required' => false,
				'name' => tra('Template'),
				'since' => '4.0',
				'description' => tra('You must use the variable substitution.')
					. '<br />'
					. tra('LongCount: ')
					. '~np~<code>%baktun%</code>, <code>%katun%</code>, <code>%tun%</code>, <code>%winal%</code>, <code>%kin%</code>~/np~'
					. '<br />'
					. tra('Tzolkin: ')
					. '~np~<code>%tzolkin13%</code>, <code>%tzolkin20%</code>, <code>%tzolkin20name%</code>~/np~'
					. '<br />'
					. tra('Haab: ')
					. '~np~<code>%haabkin%</code>, <code>%haabwinal%</code>, <code>%haabwinalname%</code>~/np~'
					. '<br />'
					. tra('Misc: ')
					. '~np~<code>%longkin%</code>, <code>%julianday%</code>~/np~'
					. '<br /><br />'
					. tra('Example: template ')
					. '~np~<code>"%baktun%.%katun%.%tun%.%winal%.%kin%, %tzolkin13% %tzolkin20name%, %haabkin% %haabwinalname%"</code>~/np~'
					. tr('for %022.05.2009%1 will return 12.19.16.6.11, 8 CHUEN, 9 SIP.', '<code>', '</code>')
					. '<br /><br />'
					. tra('Default template: ')
					. '~np~<code>%baktun%.%katun%.%tun%.%winal%.%kin% %tzolkin13% %tzolkin20name% %haabkin% %haabwinalname%</code>~/np~',
			),
			'grdate' => array(
				'required' => false,
				'name' => tra('Gregorian date'),
				'description' => tr('Gregorian date for convert. Format: %0DD.MM.YYYY%1. Default: Today\'s date',
					'<code>', '</code>'),
				'since' => '4.0',
			),
		),
	);
}

function wikiplugin_mcalendar($data, $params)
{
	global $tikilib;
	
	extract($params, EXTR_SKIP);

	$out = '';

	if (!isset($template)) {
		$template = '%baktun%.%katun%.%tun%.%winal%.%kin% %tzolkin13% %tzolkin20name% %haabkin% %haabwinalname%';
	}
	
	$template = strtolower($template);
  
	$today = $grdate;
	// Set default date to Today.
	if (!isset($grdate)) {
	 $today = date('d.m.Y');
	}

	// If date is not in DD.MM.YYYY format display error message
	if (!preg_match('/\d{1,2}\.\d{1,2}\.\d{4}/', $today)) {
		$error = "<span class='attention'>".$today.tra(" is not a valid date format. should be dd.mm.yyyy") ."</span>";
		return $error;
	}
  
	$MCal = new MCalendar();
	list($MCal->Gregorian["Day"], $MCal->Gregorian["Month"], $MCal->Gregorian["Year"]) = explode(".", $today);

	$MCal->Maya();

	$vars = array('%baktun%', '%katun%', '%tun%', '%winal%', '%kin%',
				  '%tzolkin13%', '%tzolkin20%', '%tzolkin20name%',
				  '%haabkin%', '%haabwinal%', '%haabwinalname%',
				  '%longkin%', '%julianday%');

	$values = array($MCal->LongCount["Baktun"], $MCal->LongCount["Katun"],
					$MCal->LongCount["Tun"], $MCal->LongCount["Winal"], $MCal->LongCount["Kin"],
					$MCal->Tzolkin["Kin13"], $MCal->Tzolkin["Kin20"], $MCal->TzolkinNames[$MCal->Tzolkin["Kin20"]],
					$MCal->Haab["Kin"], $MCal->Haab["Winal"], $MCal->HaabNames[$MCal->Haab["Winal"]],
					$MCal->LongKin, $MCal->Julian);

	$out = str_replace($vars, $values, $template);

	return $out;
}