<?php
##
## Phases of the Moon: UT to KST
## http://sunearth.gsfc.nasa.gov/eclipse/phase/phases2001.html

function ut2local($str, $year, $offset=9)
{
  static $_months = array('January','February','March','April','May','June','July','August',
	'September','Octorber','November','December');

  if(!$t = trim($str)) return $str;

  foreach($_months AS $k=>$v) $months[substr($_months[$k],0,3)] = $k+1;

  list($m,$d,$hm,$e) = preg_split('/\s+/',$t);
  list($hh,$mm) = explode(':',$hm);

  $JD = calendar::mkjd($hh+$offset,$mm,0,$months[$m],$d,$year);
  $str = calendar::date('M d  H:i ',$JD).sprintf('%-4s',$e);

  return $str;
}

function dt2minutes($dT)
{
  list($h,$m,$s) = preg_split('/[^\d.]+/',trim($dT));

  return sprintf('%.2f',$h*60+$m+$s/60);
}


require_once 'class.calendar.php';

$file = $_SERVER['argv'][1];

if(!file_exists($file)) exit(1);

$f = file($file);

foreach($f AS $v)
{
  if(!trim($v))
  {
	echo "\n";
	continue;
  }

  ## find head
  ##
  if(preg_match('/Year\s+New Moon\s+First Quarter\s+Full Moon\s+/i',$v))
  {
	$yearsub = FALSE; // reset
	$headline = $v;
	continue;
  }
  else if(preg_match('/\s[\d]+:[\d]+/',$v))
  {
	$year = substr($v,0,8);
	$newmoon = substr($v,8,18);
	$fq = substr($v,26,18);
	$fullmoon = substr($v,44,18);
	$lq = substr($v,62,18);
	$dT = rtrim(substr($v,80,7));

	if(!$dT) $lq = rtrim($lq);

	if(trim($year) != '')
	{
		$realyear = trim($year);
		if(preg_match('/^\s/',$year))
		{
			$headline = trim($headline);
			$yearsub = TRUE;
		}
		echo $headline."\n";
	}

	if($yearsub) $year = substr($year,1);

	$newmoon = ut2local($newmoon,$realyear);
	$fq = ut2local($fq,$realyear);
	$fullmoon = ut2local($fullmoon,$realyear);
	$lq = ut2local($lq,$realyear);
	if($dT) $dT .= '='.dt2minutes($dT).'m';

	//echo "[$year][$newmoon][$fq][$fullmoon][$lq][$dT]\n";
	//echo "$year|$newmoon|$fq|$fullmoon|$lq|$dT\n";
	//echo "$year|$newmoon|$fq$fullmoon$lq$dT\n";
	echo "$year$newmoon$fq$fullmoon$lq$dT\n";
  }
  else
  {
	echo preg_replace('/UT/','UT->KST',trim($v))."\n";
	continue;
  }

  //echo date('Y m d H:i:s',strtotime("06:15 1 Jan 2012"));
}

exit;

?>