<?php if (!defined('PmWiki')) exit();

/***************************************************************************
 * wikilog.php, version 1.1.3 requires PmWiki 2.2.56 or above              *
 * This is a calendar display and wikilog macro for the PmWiki engine      *
 * Copyright (c) 2003-20014 John Rankin john.rankin@affinity.co.nz         *
 *                                                                         *
 * To use it, create a GroupHeader page that says (:wikilog:)              *
 * Make sure you press 'Return' at the end of the line, then Save.         *
 * To override the default home page name, write (:wikilog MagicWord:)     *
 * {$WikilogTitle} returns the long form of a date-style page title        *
 *                                                                         *
 * From some other group, you can list the latest entries using the        *
 * (:wikilognews Group/HomePage:) markup, where 'Group is the name of      *
 * the wikilog group and HomePage is the name of the home page. If         *
 * omitted, HomePage defaults to Group.                                    *
 *                                                                         *
 * The calendar display is copied from a free software program             *
 * written by Stephan Uhlmann <su@su2.info>                                *
 ***************************************************************************/
/***************************************************************************
 *                                                                         *
 *   This program is free software; you can redistribute it and/or modify  *
 *   it under the terms of the GNU General Public License as published by  *
 *   the Free Software Foundation; either version 2 of the License, or     *
 *   (at your option) any later version.                                   *
 *                                                                         *
 ***************************************************************************/

// =========================================================================
// Configuration
// =========================================================================

// This configures how weekdays are presented.
// 0 - american style, Sun to Sat
// 1 - european style, Mon to Sun
SDV($calendar_weekstyle,1);

// This configures how dates are presented.
// 0 - american style, 11/17/2002
// 1 - european style, 17.11.2002
// 2 - international style, 2002-11-17
SDV($calendar_datestyle,1);
SDV($space_date_titles,1);
SDV($SpaceDateString,'-');
SDV($day_separator, (($calendar_datestyle==0) ? ',' : ''));

// How many months relative to the current one to start the calendar.
// Can be a negative (going back) or a positive (going ahead) number.
// The value zero (0) starts the calendar with the current month.
SDV($calendar_months_start,0);

// How many months altogether to show on the calendar.
SDV($calendar_months_number,2);

// How many months after we should wrap and start a new row.
SDV($calendar_month_wrap,3);

// Whether or not to display current entries at the bottom of the calendar.
// Enter 'false' to omit the current period's entries.
SDV($display_log_entries,true);

// Whether to display current entries in ascending or descending order.
// Enter 'false' to show the oldest first.
SDV($newest_first,true);

// Whether to display a summary or full calendar on individual entry pages.
// Enter 'false' to include the calendar on every page.
SDV($summary_only,true);

// This is the default home of each collection (Group) of date pages.
SDV($wikilog_home_page,FmtPageName('$Group',$pagename));

// Whether to display warm and friendly week day names for (:thisweek:).
// Enter 'false' to use normal day names.
SDV($yesterday_today_tomorrow,true);

// Whether to display fully-defined week day names for (:thisweek:).
// 0 - day number only
// 1 - long date (day name, day number, month name, year)
// 2 - day and month number only (dd.mm or mm/dd or mm-dd)
SDV($long_weekday,0);

// Whether to make an edit link on week day names.
// Enter 'false' to suppress edit link.
SDV($edit_weekday, (($action=='print' || $action=='publish') ? false : true));

// Allow page names to be all numerics.
$CalendarPattern = "[0-9]{8}";
$WikiDateCreateFmt = "<a class='nonexistent-date' rel='nofollow' ".
    "href='\$PageUrl?action=edit'>\$LinkText</a>";

## process date links
Markup('datelink','>inline',
    "/\[\[($GroupPattern(?:[\/.])$CalendarPattern)\|(.*?)\]\]/", "datelink_e");

function datelink_e($m) {
    extract($GLOBALS['MarkupToHTML']);
    return Keep(MakeDateLink($pagename,$m[1],$m[2]),'L');
}

Markup('daylink','>inline',
    "/\[\[((?:$GroupPattern\/)?($CalendarPattern))\]\]/", "daylink_e");

function daylink_e($m) {
    return Keep(MakeDateLink($pagename,$m[1],(IsDate($m[2]) ? longdate($m[2]) : $m[2])),'L');
}

## process date markup
SDV($DateSeparatorPattern,'[-.\/]');
Markup('wdate','inline',
    "/([^_\/\)=]|^)(\d\d\d\d)($DateSeparatorPattern)(\d\d)\\3(\d\d)/",
    "wdateHelper");
function wdateHelper($m) {
  return IsDate($m[2].$m[4].$m[5]) ? $m[1].longdate($m[2].$m[4].$m[5]) : $m[0];
}

// Whether to display non-existent date entries in the calendar as day or day?
// Enter 'true' to use the wiki '?' convention for non-existent entries
SDV($day_as_wiki,false);

// Whether to display a list or list and Publish button on wikilog news pages
// Enter 'true' to include a Publish button after the news list
SDV($enable_publish,false);

// Set depending on whether you need [[Page?logdate= or [[Page&logdate=
SDV($url_connector,"?");

// Month and day names in chosen language
SDV($language,'en');
SDV($scriptlocation,'scripts');
if (file_exists("$FarmD/cookbook/wikilog-i18n-$language.php"))
    include_once("$FarmD/cookbook/wikilog-i18n-$language.php");
elseif (file_exists("$FarmD/cookbook/$scriptlocation/wikilog-i18n-$language.php"))
    include_once("$FarmD/cookbook/$scriptlocation/wikilog-i18n-$language.php");
elseif (file_exists("$FarmD/local/wikilog-i18n-$language.php"))
    include_once("$FarmD/local/wikilog-i18n-$language.php");
elseif (file_exists("$FarmD/local/$scriptlocation/wikilog-i18n-$language.php"))
    include_once("$FarmD/local/$scriptlocation/wikilog-i18n-$language.php");
elseif (file_exists("$FarmD/local/$scriptlocation/wikilog-i18n-en.php"))
    include_once("$FarmD/local/$scriptlocation/wikilog-i18n-en.php");
else include_once("$FarmD/cookbook/$scriptlocation/wikilog-i18n-en.php");

// Publish button format
if ($EnablePDF) SDV($PublishCalendarOptionsFmt, 
  " (<a class='wikilink' href='\$PageUrl?action=texwikilog&logdate=\$Year\$Month'>\$[PDF options]</a>)");
SDV($PublishCalendarFmt,
  "<form class='calendarpub' action='\$ScriptUrl' method='get'>
    <input type='hidden' name='n' value='\$FullName' />
    <input type='hidden' name='action' value='publish' />
    <input type='hidden' name='ptype' value='wikilog' />
    <input type='hidden' name='logdate' value='\$Year\$Month' />
    <input type='radio' name='order' value='d' checked='checked' />$sequence[0]
    <input type='radio' name='order' value='a' />$sequence[1]
    $PDFCheckboxFmt$PDFTypesetFmt$PDFOptionsFmt</form>");

// (:wikilognav:) to jump to a particular month
// How many months altogether to show in the navigation list.
SDV($calendar_months_listed,15);
// How many months into the future to show in the list.
SDV($calendar_months_future,3);
Markup('wnav','<links',
    "/^\(:wikilognav(?:\s+($GroupPattern)(?:[.\/]($NamePattern))?)?:\)/",
    "wnav_e");

function wnav_e($m) {
    extract($GLOBALS['MarkupToHTML']);
    return "<:block><ul>".list_calendar_months($pagename,$m[1],$m[2])."</ul>";
}

// (:wikilogbox:) to post short stories to today's page
SDV($calendar_box_access_code,true);
SDV($calendar_subpages,false);
SDV($CalendarBoxFmt,"<div id='story'><h5>\$CalendarTitle</h5>
    <form action='\$PageUrl' method='post'>
	<input type='hidden' name='n' value='\$FullName' />
	<input type='hidden' name='action' value='wikilog' />
	<input type='hidden' name='order' value='\$Chrono' />
        <input type='hidden' name='accesscode' value='\$AccessCode' />
	<table width='95%'><tr>
	<td class='prompt'>\$DateText</td>
	<td><select name='storydate'>\$StoryDate</select></td></tr>

	<tr><td class='prompt'>\$SubpageText</td>
	<td><input type='checkbox' name='subpage' checked /></td></tr>
	<tr><td class='prompt'>\$HeadlineText</td>
	<td><input type='text' name='csum' value='' size='40' /></td></tr>

	<tr><td class='prompt'>\$StoryText</td>
	<td><textarea name='text' rows='7' cols='50'></textarea></td></tr>
	<tr><td class='prompt'>\$AuthorText</td>
	<td><input type='text' name='author' value='\$Author' size='28' />".
	($calendar_box_access_code ? "</td></tr>
	<tr><td class='prompt'>\$AccessCodeText <em>\$AccessCode</em></td>
	<td><input type='text' size='4' maxlength='3' name='access' value='' />" 
        : "<input type='hidden' name='access' value='\$AccessCode' />").
	" <input type='submit' name='post' value='\$PostText' />
	<input type='reset' value='\$ResetText' /></td></tr></table></form></div>");
if ($action == 'wikilog') {
    if (auditWikilog()) SDV($HandleActions['wikilog'],'HandleWikilogPost');
    else Redirect($pagename);
} else if ($action=='print' || $action=='publish') {
    Markup('wbox','>links','/\(:wikilogbox(chrono)?\s*(.*?):\)/','');
    Markup('pubcal','>title','/\(:publishcalendar:\)/','');
} else
    Markup('wbox','>links','/\(:wikilogbox(chrono)?\s*(.*?):\)/', "wbox_e");

    function wbox_e($m) {
        extract($GLOBALS['MarkupToHTML']);
        return "<:block>".Keep(str_replace(
  array("$CalendarTitle","$StoryDate","$Chrono","$AccessCode"),
  array(SetCalendarTitle($m[2]),select_calendar_date($pagename),$m[1],
        rand(100,999)), FmtPageName($GLOBALS['CalendarBoxFmt'],$pagename)));
    }

# load the wikilog stylesheet
$HTMLHeaderFmt[] = 
 "<link rel='stylesheet' href='\$FarmPubDirUrl/css/wikilog.css' type='text/css' />";
/*
You can define different colours for the dates with or without an entry in the
wikilog stylesheet. The class attributes for the TD tag are:
calendar-today-entry	: current date and there is an entry
calendar-today-noentry	: current date but there is no entry
calendar-entry		: any other date with an entry
calendar-noentry	: any other date without an entry
calendar-blank      : empty cells at the start and end of month

The class attribute for date links is:
nonexistent-date	: wikilink without an entry

*/
// ======================================================================

if (isset($_GET['logdate'])) {
    $logdate =  $_GET['logdate'];
    $FmtV['$Logdate'] = $logdate;
} else $logdate = '';
Markup('wikilog','<title',"/^\(:wikilog:\)\s*$/", "wikilog_e");

function wikilog_e($m) {
    extract($GLOBALS['MarkupToHTML']);
    return view_calendar($pagename,'');
}

Markup('wikilogn','<title',"/^\(:wikilog(?:news)?\s+($NamePattern):\)\s*$/",
    "wikilogn_e");

function wikilogn_e($m) {
    extract($GLOBALS['MarkupToHTML']);
    return view_calendar_choice($pagename,$m[1]);
}

Markup('wikinews','directives',
    "/^\(:wikilog(?:news)?\s+($GroupPattern)[.\/]($NamePattern):\)\s*$/",
    "wikinews_e");

function wikinews_e($m) {
    extract($GLOBALS['MarkupToHTML']);
    return '<:block>'.view_calendar_list($pagename,$m[1],$m[2]);
}

Markup('wikidate','>wikilogn','/\(:\wikilogtitle:\)/', "wikidate_e");

function wikidate_e($m) {
    extract($GLOBALS['MarkupToHTML']);
    return show_date($pagename);
}

Markup('pubcal','>title','/\(:publishcalendar:\)/', "pubcal_e");

function pubcal_e($m) {
    extract($GLOBALS['MarkupToHTML']);
    return Keep(FmtPageName($GLOBALS['PublishCalendarFmt'],$pagename));
}

Markup('week','>nl1',"/^\(:thisweek(?:\s+([-+]?\d+))?:\)\s*$/", "week_e");

function week_e($m) {
    extract($GLOBALS['MarkupToHTML']);
    return calendar_week($pagename,$m[1]);
}

$Name = FmtPageName('$Name',$pagename);
if (IsDate($Name)) $SpacedName = preg_replace('/(..)(..)$/',
        "$SpaceDateString$1$SpaceDateString$2",$Name);

function view_calendar_choice($pagename,$name) {
    global $DefaultName;
    if (PageExists(FmtPageName("\$Group.$name",$pagename)))
        return view_calendar($pagename,$name);
    foreach(array($name,$DefaultName) as $pg) {
        if (PageExists("$name.$pg")) 
            return view_calendar_list($pagename,$name,$pg);
    }
    return view_calendar($pagename,$name);
}

function view_calendar($pagename,$homepage) {
	global $calendar_months_start, $calendar_months_number,$calendar_month_wrap;
	global $wikilog_home_page, $summary_only, $logdate, $PublishCalendarFmt;
	global $newest_first, $display_log_entries, $enable_publish,$AsSpacedFunction;

    $group = FmtPageName('$Group',$pagename);
	$title = FmtPageName('$Name',$pagename);
	if ($homepage != '') $wikilog_home_page = $homepage;
	if (preg_match('/^(\\d{8})-(.*)/',$title,$event)) {
	    $title = $event[1]; $subtitle = $event[2];
	}

	// check to see whether to display a summary only
	if (@$subtitle) 
		return '(:title '.$AsSpacedFunction($subtitle).':)'.
			(IsDate($title) ? "<h3>[[$title |".longdate($title)."]]</h3>" : '');
	elseif (IsDate($title) && ($summary_only==true)) {
		$r = "<p class='datetrail'>".adjacent_entries($group,$title)."</p>\n";
		return $r.set_page_title($title)."<h3>".longdate($title)."</h3>";
	}    

	// start configured number of months before/ahead
	$startingdate = $logdate."16";
	if (IsDate($startingdate)) {
		$year = substr($startingdate,0,4);
		$month= substr($startingdate,4,2);
	} else {
		if (IsDate($title)) {
			$year = substr($title,0,4);
			$month= substr($title,4,2);
		} else {
			$year = date("Y");
			$month= date("m");
		}
	}
	$startingtime = mktime(0,0,0,$month,16,$year);

	// generate the calendar navigation bar
	$r = calendar_nav_bar($pagename,$startingtime);

	// generate the calendar
	$r.="<div id='wikilog'><table class='calendar-outer'><tr>\n";
	$itime=$startingtime+$calendar_months_start*2592000;
	$i=0;
	$d="";

	while ($i<$calendar_months_number) {
		$r.="<td class='calendar-outer'>";
		$r.=calendar_month(strftime("%m",$itime),strftime("%Y",$itime),
							$group);
		$r.="</td>";
		if ($display_log_entries==true) { 
			$l=list_entries(strftime("%m",$itime),
				strftime("%Y",$itime),$group);
			if ($newest_first) $d = $l.$d; else $d .= $l;
		}
    // +1 month
    // It's actually 30 days which could break if displaying a lot of months
    // but it should be ok when displaying only one or two years at a time
		$itime=$itime+2592000;
		$i++;
		if (($i%$calendar_month_wrap==0) && ($i!=12)) $r.="</tr><tr>";
	}

	$r.="</tr></table></div>";

	// generate the chrono list
	if ($display_log_entries==true) {
    	$r.= home_link($wikilog_home_page) . "<ul class='loglist'>$d</ul>";
    	if ($enable_publish) {
	       	$r.= '(:publishcalendar:)<p />'."\n";
    		$PublishCalendarFmt = str_replace(array('$Month','$Year'),
    		    array($month,$year), $PublishCalendarFmt);
        }
	}

	// translate the page title
	if (IsDate($title)) {
		$r.= set_page_title($title) . "<h3>" . longdate($title) . "</h3>";
	}
	return "$r";
}

function set_page_title($title) {
    global $SpaceDateString;
	return '(:title '. 
preg_replace('/(..)(..)$/',"$SpaceDateString$1$SpaceDateString$2",$title).':)';
}

function view_calendar_list($pagename,$homegroup,$hometitle) {
	global $calendar_months_start, $calendar_months_number, $enable_publish;
	global $wikilog_home_page, $logdate, $PublishCalendarFmt, $newest_first;
	if ($hometitle=='') $hometitle = $homegroup;
	$hometitle = "$homegroup/$hometitle";

	// start configured number of months before/ahead
	$startingdate = $logdate."16";
	if (IsDate($startingdate)) {
		$year = substr($startingdate,0,4);
		$month= substr($startingdate,4,2);
	} else {
		$year = date("Y");
		$month= date("m");
		}
	$startingtime = mktime(0,0,0,$month,16,$year);

	// generate the calendar navigation bar
	$r = calendar_nav_bar($pagename,$startingtime);

	// generate the calendar
	$itime=$startingtime+$calendar_months_start*2592000;
	$i=0;
	$d="";

	while ($i<$calendar_months_number) {
		$l=list_entries(strftime("%m",$itime),strftime("%Y",$itime),
							$homegroup);
		if ($newest_first) $d = $l.$d; else $d .= $l;
	// +1 month
	// It's actually 30 days which could break if displaying a lot of months
	// but it should be ok when displaying only one or two years at a time
		$itime=$itime+2592000;
		$i++;
	}

	// generate the chrono list
	$r.= home_link($hometitle) . "<ul class='loglist'>$d</ul>";
	if ($enable_publish) {
    	$PublishCalendarFmt = str_replace(array('$Month','$Year'),
    	   array($month,"$homegroup.$year"),$PublishCalendarFmt);
        $r .= '(:publishcalendar:)<p />';
    }
	return "$r";
}

function home_link($wikiloghome) {
    global $WikilogHomeText, $HTMLVSpace;
	$WikilogHomeLink= ($WikilogHomeText=='') ? "[[$wikiloghome]]" :
			"[[$wikiloghome | $WikilogHomeText]]";
    return "$HTMLVSpace<p class='wikiloghome'>$WikilogHomeLink:</p>";
}

function calendar_month($month,$year,$group) {
	global $pagename, $monthnames, $shortdaynames, $calendar_weekstyle;

	$prefix = $group . "/" . $year . $month;
	$todays_time=mktime(0,0,0,date("m"),date("d"),date("Y"));
	$last_day_of_month=strftime("%d",mktime(0,0,0,$month+1,0,$year));
	$r="<table class='calendar-inner'>";

	// header with month and year
	$r.="<caption>". $monthnames[$month-1] . " ". $year . "</caption>";

	// weekday names
	$r.="<tr>";
	for ($i=$calendar_weekstyle;$i<7+$calendar_weekstyle;$i++)
	{
		$r.="<th>" . $shortdaynames[$i] . "</th>";
	}
	$r.="</tr>";

	$count=0;
	// pre-padding
	$r.="<tr>";
	for ($i=0;$i<(strftime("%w",mktime(0,0,0,$month,1,$year))-$calendar_weekstyle+7)%7;$i++)
	{
		$r.="<td class='calendar-blank'>&nbsp;</td>";
		$count++;
	}

	// days
	for ($i=1;$i<=$last_day_of_month;$i++) {

		if ($count%7==0 && $count>0) $r.="</tr><tr>";
		if ($i<10) { $day="0".$i; } else { $day=$i; }
		$entryname= $prefix . $day;
		$r.="<td class='calendar-";
		if (abs($todays_time - mktime(0,0,0,$month,$i,$year)) < 86400) {
			$r.="today-";
		}
		if (PageExists($entryname)) {
			$r.="entry'><b>[[". $entryname . "|" . $day . "]]</b>";
		} else {
			$r.="noentry'>[[". $entryname . "|" . $day . "]]";
		}
		$r.="</td>";
		$count++;
	}

	// post-padding
	while ($count%7!=0) {
		$r.="<td class='calendar-blank'>&nbsp;</td>";
		$count++;
	}
	return $r."</tr></table>\n";
}

function list_entries($month, $year, $group) {
	global $pagename,$monthnames,$today,$noentries,$below,$newest_first,
	  $calendar_subpages, $Charset;

	$r="";
	$title = FmtPageName('$Name',$pagename);
	$prefix = $group . "/" . $year . $month;
	$todays_time=mktime(0,0,0,date("m"),date("d"),date("Y"));
	$last_day_of_month=strftime("%d",mktime(0,0,0,$month+1,0,$year));

	for ($i=1;$i<=$last_day_of_month;$i++) {

		if ($i<10) { $day="0".$i; } else { $day=$i; }
		$entrydate = $year . $month . $day;
		$entryname= $prefix . $day;
		if (PageExists($entryname)) {
			$line="<li>[[". $entryname . " | ";
		if (abs($todays_time - mktime(0,0,0,$month,$i,$year)) < 86400) {
				$line.=$today;
			} else {
				$line.=shortdate($year,$month,$day);
			}
			$line.="]]: ";
			if ($entrydate == $title) {
				$firstpara = "<b>$below</b>";
			} else {
				$snippet = ReadPage($entryname);
				$snippet['text'] .= "\n";
				$firstpara = substr($snippet['text'], 0, 
				  strpos($snippet['text'], "\n"));
 				$firstpara = preg_replace("/^[#*!]+\s*/","", 
				  htmlspecialchars($firstpara,ENT_NOQUOTES,$Charset));
        $firstpara = preg_replace("/^:?.*?:/","",$firstpara);
		$firstpara = preg_replace("/`\\..*?$/","...",$firstpara);
		$firstpara = preg_replace("/\\(:(redirect)\s+(.*):\\)/",
			"''$1s to page [[$2]]''", $firstpara);
		$firstpara = preg_replace_callback("/\\[\\=(.*?)\\=\\]/s",
		    function ($m) { return Keep($m[1]); },
                    $firstpara);
		if ($calendar_subpages) 
		    $firstpara = str_replace('[[,',"[[($entryname,)",$firstpara);
			}
			$line.=FmtPageName($firstpara,$entryname) . "</li>";
			if ($newest_first) $r=$line.$r; else $r.=$line;
		}

	}
	if ($r == "") {
		$r = "<li>$noentries ".$monthnames[$month-1]." $year.</li>";
	}
	return $r;
}

function calendar_week($pagename, $offset=0) {
    global $week_days,$days_start,$longdaynames,$thisweek,$noentries,
        $calendar_weekstyle,$yesterday_today_tomorrow,$long_weekday,
        $edit_weekday,$edit_text,$format;
    if ($format=='pdf') {
        $para  = '<:block><tbook:p skip="big">';
        $pend  = '</tbook:p>';
        $block = '<:block><tbook:blockquote>';
        $blend = '<:block></tbook:blockquote>';
    } else {
        $para  = '%block class=today%';
        $pend  = '%%';
        $block = '&gt;&gt;dayentry&lt;&lt;';
        $blend = '&gt;&gt;&lt;&lt;';
    }
    SDV($week_days, 7);
	$todays_time=mktime(1,0,0,date("m"),date("d"),date("Y"));
    $begin = 7 * $offset - (strftime("%w",$todays_time) - $calendar_weekstyle +7 )%7;
	for ($i=$begin;$i<$week_days+$begin;$i++) {
	   $itime = $todays_time + 86400 * $i;
	   $date  = 
             strftime("%Y",$itime).strftime("%m",$itime).strftime("%d",$itime);
           SDV($week_of, longdate($date));
	   $k = 1 + ($itime - $todays_time) / 86400;
           $day   = ($long_weekday) ? '' :
               '%class=daynumber%'.strftime("%d",$itime).'%% ';
           $goday = $longdaynames[strftime("%w",$itime)];
           $dayname = ($long_weekday==1) ? longdate($date) : 
               $goday . (($long_weekday==0) ? '' : ', '.month_day($date));
	   $dayname = ($k < 0 || $k > 2) ? $dayname :
	       (($yesterday_today_tomorrow) ? $thisweek[$k] : $dayname);
	   $goday = ($k < 0 || $k > 2) ? $goday :
	       (($yesterday_today_tomorrow) ? $thisweek[$k] : $goday);
	   $go[] = "[[#thisweek.$date | $goday]]";
	   $pg  = FmtPageName("\$Group.$date",$pagename);
	   $ed  = ($edit_weekday && PageExists($pg)) ? 
	       "%class=editday%'-([[$date?action=edit | $edit_text]])-'" : '';
	   $r[] = $para."[[#thisweek.$date]]$day'+[[$date | $dayname]]+' $ed$pend\n".
	       "$block\n".
	       (PageExists($pg) ? "(:include $pg:)" : "$noentries [[$date | ".longdate($date)."]]").
	       "\n$blend";
	}
	return '!![['.FmtPageName('$Group',$pagename)."]]: $week_of\n\n".
          implode(' &middot; ',$go)."\n<:vspace>\n".implode("\n\n",$r);
}

function IsDate($title) {
	if (is_numeric($title) && strlen($title) == 8) {
		$year = substr($title,0,4);
		$month= substr($title,4,2);
		$day  = substr($title,6,2);
		return checkdate($month, $day, $year);
	} else {
		return false;
	}
}

function longdate($title) {
	global $calendar_datestyle, $monthnames, $longdaynames, $day_separator;
	$year = substr($title,0,4);
	$month= substr($title,4,2);
	$day  = substr($title,6,2);
	if ($day[0] == "0") { $day = $day[1]; }
        $day .= $day_separator;
	$longmonth = $monthnames[$month-1];
	$r = ($calendar_datestyle == 0) ? "$longmonth $day" : 
	           "$day $longmonth";	$dayname=$longdaynames[strftime("%w",mktime(0,0,0,$month,$day,$year))];
	return "$dayname, $r $year";
}

function calendar_nav_bar($pagename,$startingtime) {
    global $calendar_months_number;
	$currentmonth= date("Y") . date("m");
	$lasttime =$startingtime-$calendar_months_number*2592000;
	$lastmonth= strftime("%Y",$lasttime) . strftime("%m",$lasttime);
	$nexttime =$startingtime+$calendar_months_number*2592000;
	$nextmonth=strftime("%Y",$nexttime) . strftime("%m",$nexttime);
	$r = "<p class='datetrail'>&laquo; ";
	if ($currentmonth < $lastmonth)
		$r.=calendar_nav($pagename,$currentmonth,true) . " &middot; ";
	$r.=calendar_nav($pagename,$lastmonth,false) . " &middot; " . 
	    calendar_nav($pagename,$nextmonth,false);
	if ($currentmonth > $nextmonth)
		$r.=" &middot; " . calendar_nav($pagename,$currentmonth,true);
	return $r . " &raquo;</p>\n";
}

function calendar_nav($pagename,$yearmo,$highlight) {
	global $calendar_months_number, $monthnames, $period, $url_connector;
	$year = substr($yearmo,0,4);
	$r = "[[$pagename$url_connector"."logdate=$yearmo | ";
	$mname = $monthnames[substr($yearmo,4,2)-1] . " " . $year;
	if ($calendar_months_number == 1) $mname .= " " . $period;
    if ($highlight) $mname = highlight($mname);
	return "$r$mname]]";
}

function highlight($text) {
    return "<span class='currentmonth'>$text</span>";
}

function adjacent_entries($group, $title) {
	global $wikilog_home_page, $WikilogHomeText, $url_connector;
	$year =substr($title,0,4);
	$month=substr($title,4,2);
	$day  =substr($title,6,2);
	$prefix = $group . "/" . $year . $month;
	$last_day_of_month=strftime("%d",mktime(0,0,0,$month+1,0,$year));
	$prev="";
	for ($i=1;$i<$day;$i++) {
		if ($i<10) { $prevday="0".$i; } else { $prevday=$i; }
		$entryname = $prefix . $prevday;
		if (PageExists($entryname)) {
			$prev = "&laquo; [[$entryname | " .
                            shortdate($year,$month,$prevday) . "]] | ";
		}
	}
	$next="";
	for ($i=$last_day_of_month;$i>$day;$i--) {
		if ($i<10) { $nextday="0".$i; } else { $nextday=$i; }
		$entryname = $prefix . $nextday;
		if (PageExists($entryname)) {
			$next = " | [[" . $entryname . " | ";
			$next.= shortdate($year,$month,$nextday) . "]] &raquo;";
		}
	}
	$home_text = ($WikilogHomeText=='') ? $wikilog_home_page :
			$WikilogHomeText;
	$home  = "[[$wikilog_home_page$url_connector"."logdate=$year$month | $home_text]]";
	return $prev . $home . $next;
}

function shortdate($year, $month, $day) {
	global $calendar_datestyle;
    switch ($calendar_datestyle) {
        case 0:
            return "$month/$day/$year";
        case 1:
            return "$day.$month.$year";
        case 2:
            return "$year&ndash;$month&ndash;$day";
    }
}

function month_day($date) {
    global $calendar_datestyle;
    $m = substr($date,4,2); $d = substr($date,6,2);
    switch ($calendar_datestyle) {
        case 0:
            return "$m/$d";
        case 1:
            return "$d.$m.";
        case 2:
            return "$m&ndash;$d";
    }
}

function show_date($page) {
	global $default_date_text;
	$title = FmtPageName('$Name',$page);
	return (IsDate($title)) ? "$default_date_text: ".longdate($title) : $default_date_text;
}

function MakeDateLink($pagename,$ref,$btext) {
	global $LinkPageCreateFmt,$WikiDateCreateFmt,$day_as_wiki;
	if ($day_as_wiki==true) 
		return MakeLink($pagename,$ref,$btext);
	$hold = $LinkPageCreateFmt;
	$LinkPageCreateFmt = $WikiDateCreateFmt;
	$r = MakeLink($pagename,$ref,$btext);
	$LinkPageCreateFmt = $hold;
	return $r;
}

function HandleCalendarPublish($pagename) {
	global $HandlePublishFmt,$logdate,$order,$noentries,$format;
	global $calendar_months_start,$calendar_months_number,$monthnames;
	if (preg_match('/(.+)\\.([0-9]+)/',$logdate,$match)) {
		$group = $match[1];
		$logdate = $match[2];
	} else
        $group = FmtPageName('$Group',$pagename);
	$year = substr($logdate,0,4);
	$month= substr($logdate,4,2);
	$startingtime = mktime(0,0,0,$month,16,$year);
	$itime=$startingtime+$calendar_months_start*2592000;
	$i=0;
	while ($i<$calendar_months_number) {
		$imonth = strftime("%m",$itime);
		$iyear  = strftime("%Y",$itime);
		$haystack[] = $monthnames[$imonth-1]." $iyear";
		$prefix = $group . "/" . $iyear . $imonth;
		$last_day_of_month=
			strftime("%d",mktime(0,0,0,$imonth+1,0,$iyear));
		$entries = 0;
		for ($j=1;$j<=$last_day_of_month;$j++) {
			if ($j<10) { $day="0".$j; } else { $day=$j; }
			$entryname = $prefix . $day;
			if (PageExists($entryname)) {
				$pagearray[] = $iyear . $imonth . $day;
				$entries++;
			}
		}
		if ($entries == 0) $pagearray[] = $iyear . $imonth . "00";
		$itime=$itime+2592000;
		$i++;
	}
	if ($order=='d') rsort($pagearray);
  	$Heading = ($format=='pdf') ? 'H:' : '!%block class="pagehead2"%';
	for($i=0;$i<count($pagearray);$i++) {
    		if ($format=='pdf') $PublishList[] = "<section>";
		if (substr($pagearray[$i],6,2)=='00') 
			$PublishList[] = "markup:$Heading$noentries ".
				$monthnames[substr($pagearray[$i],4,2)-1]." ". 
				substr($pagearray[$i],0,4);
		else {
			$entrylong = longdate($pagearray[$i]);
			$PublishList[] = "markup:$Heading" .
				"[[$group.$pagearray[$i] | $entrylong]]";
			$PublishList[] = 
				"function:PrintThisPage $group.$pagearray[$i]";
		}
    		if ($format=='pdf') $PublishList[] = "</section>";
	}
	$GLOBALS['PublishList'] = $PublishList;
	$GLOBALS['Haystack']    = implode(', ',$haystack);
	PrintFmt($pagename,$HandlePublishFmt);
}

function SetCalendarTitle($text) {
  global $DefaultCalendarTitle;
  return ($text=='') ? $DefaultCalendarTitle : $text;
}

function list_calendar_months($pagename, $gp=NULL, $pg=NULL) {
    global $wikilog_home_page,$monthnames,$calendar_months_listed,$DefaultName;
    global $calendar_months_future;
    $group= ($gp) ? $gp : FmtPageName('$Group',$pagename);
    $home = ($pg) ? "$gp.$pg" : ((PageExists("$group.$DefaultName")) ? 
            "$group.$DefaultName" : "$group.$wikilog_home_page");
    $year = date("Y");
    $month= date("m");
    $r = '';
	$itime = mktime(0,0,0,$month,16,$year) - 
	   ($calendar_months_listed - $calendar_months_future - 1) * 2592000;
	for ($j=0;$j<$calendar_months_listed;$j++) {
	    $y = strftime("%Y",$itime);
	    $m = strftime("%m",$itime);
	    $mname = $monthnames[$m-1] . " $y";
	    if ($m==$month) $mname = highlight($mname);
	    
	    $days = array();
	    $prefix = "$group.$y$m";
    	$last_day_of_month=strftime("%d",mktime(0,0,0,$m+1,0,$y));
    	for ($i=1;$i<=$last_day_of_month;$i++) {
    		if ($i<10) { $day="0".$i; } else { $day=$i; }
		    $entryname = $prefix . $day;
		    if (PageExists($entryname)) $days[] = "[[$entryname | $day]]";
        }
        $c = count($days);
        $d = '';
        if ($c) {
            if ($c==2) $d = $days[0] . ' | ';
            elseif ($c>=3) $d = $days[0] . ' &hellip; ';
            $d .= $days[$c-1] . ' &middot; ';
        }
		
	    $r.= "<li>$d"."[[$home?logdate=$y$m | $mname]]</li>";
        $itime=$itime+2592000;
    }
    return $r;
}

function select_calendar_date($pagename) {
	global $calendar_months_start, $calendar_months_number,$calendar_month_wrap;
	global $logdate;

	// start configured number of months before/ahead
	$startingdate = $logdate."16";
	if (IsDate($startingdate)) {
		$year = substr($startingdate,0,4);
		$month= substr($startingdate,4,2);
	} else {
        $year = date("Y");
        $month= date("m");
	}
	$startingtime = mktime(0,0,0,$month,16,$year);

	// generate the calendar
	$r="";
	$itime=$startingtime+$calendar_months_start*2592000;
	$i=0;
	while ($i<$calendar_months_number) {
		$r.=calendar_days(strftime("%m",$itime),strftime("%Y",$itime));
    // +1 month
    // It's actually 30 days which could break if displaying a lot of months
    // but it should be ok when displaying only one or two years at a time
		$itime=$itime+2592000;
		$i++;
	}

	return $r;
}

function calendar_days($month,$year) {
    global $SpaceDateString;
	$todays_time=mktime(0,0,0,date("m"),date("d"),date("Y"));
	$last_day_of_month=strftime("%d",mktime(0,0,0,$month+1,0,$year));
	$r='';
	// days
	for ($i=1;$i<=$last_day_of_month;$i++) {
		if ($i<10) { $day="0".$i; } else { $day=$i; }
		$entry= "$year$SpaceDateString$month$SpaceDateString$day";
		$s = (abs($todays_time - mktime(0,0,0,$month,$i,$year)) < 86400) ?
			" selected='selected'" : '';
		$r.="<option value='$entry'$s>$entry</option>";
	}
	return $r;
}

function auditWikilog() {
  global $MaxWikilogLinks;
  if (!(@$_POST['access'] && ($_POST['access']==$_POST['accesscode']) && 
        @$_POST['post'])) return false;
  SDV($MaxWikilogLinks, 3);
  preg_match_all('/https?:/',$_POST['text'],$match);
  return ((count($match[0])>$MaxWikilogLinks) ? false : true);
}

function HandleWikilogPost($pagename) {
   global $_POST,$TimeFmt,$SpaceDateString,$posted_by,$EditRedirectFmt, $FmtV,
     $ParentDateFmt, $RecentChangesFmt, $calendar_subpages;
   $date = str_replace($SpaceDateString,'',$_POST['storydate']);
   if (@$_POST['subpage']) {
       SDV($RecentChangesFmt['$Group.$EventDate'], 
          '* [['.($calendar_subpages ? ',' : "($date-)").
          '$ChangeSummary]]   `.. . . $[submitted] $CurrentTime $[by] $AuthorLink');
       SDV($ParentDateFmt, '($[subpage of] [[$Group/'.$date.']])');
       $RecentChangesFmt['$Group.RecentChanges'] = str_replace('. . .', 
           '. . . '.$ParentDateFmt,$RecentChangesFmt['$Group.RecentChanges']);
       $_POST['csum'] = FmtPageName('$Namespaced',
          MakePageName($pagename, $_POST['csum']));
       $FmtV['$EventDate'] = $date;
       $date .= ($calendar_subpages ? ',' : '-').$_POST['csum'];
   } else {
       $name = @$_POST['author'];
       $name = ($name=='') ? 'anonymous' : '[[~' . $name . ']]';
       $now = time();
       $posted = str_replace('$Date',strftime($TimeFmt,$now),
          str_replace('$Author',$name,$posted_by));
       $_POST['text']= "!!!!".$_POST['csum']."\n".
                   $_POST['text']."\n\n=>'-$posted-'";
   }
   $todayspage = MakePageName($pagename, $date);
   if (PageExists($todayspage)) {
      $page = RetrieveAuthPage($todayspage, "edit");
      $_POST['text'] = (@$_POST['order']=='x') ? 
                        $_POST['text'] . "\n\n" . $page['text'] : 
                        $page['text'] . "\n\n" . $_POST['text'];
   }
   SDV($EditRedirectFmt, $pagename);
   HandleEdit($todayspage);
   exit;
}

?>