//default settings
SDV($BlogCal['weekstart'], 0); //start on Sunday; set to 1 for start on Monday
SDV($BlogCal['basename'], ''); //prefix to ISO-date pagenames of blog group
SDV($BlogCal['isobasic'], 0); //use blog pagename format YYYY-MM-DD or basenameYYYY-MM-DD; set 1 for no hyphen
SDV($BlogCal['defaultgroup'], 0); //0 => defaults to current group; set specific default blog group name, i.e. 'BlogPages'
SDV($BlogCal['pastonly'], 0); //show link to future months; set to 1 for showing only link to past month.
//daynames are set automatically according to locale, but could be set manually with this array
#SDVA($BlogCal['daynames'], array("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat")); //daynames array


//search path for blogcal.css file, if any
if (!isset($FarmPubDirUrl)) $FarmPubDirUrl = $PubDirUrl;
SDV($BlogCalendarPubListFmt, array (
"pub/blogcal/blogcal.css" => "$PubDirUrl/blogcal/blogcal.css",
"$FarmD/pub/blogcal/blogcal.css" => "$FarmPubDirUrl/blogcal/blogcal.css" ));
// load table styles for blog calendar
foreach((array)$BlogCalendarPubListFmt as $k=>$v) {
if (file_exists(FmtPageName($k,$pagename))) {
$HTMLHeaderFmt['blogcal'][] =
"<link rel='stylesheet' type='text/css' href='$v' media='screen' />\n";
break;
}
else
//in HTML head css styling of blogcal table, used if no stylesheet is found
SDV($HTMLStylesFmt['blogcal'], "
table.bcal { margin:0 0.5em; padding:0; font-size:90%; }
table.bcal caption { text-align:center; font-weight:bold; padding:5px 0 2px 0; }
table.bcal caption a { text-decoration:none; }
table.bcal th { width:2em; border-top:1px dotted #999; border-bottom:1px dotted #999;
font-weight:normal; font-size:.75em; }
table.bcal td { margin:0; padding:1px 1px 1px 0; text-align:center;
font-size:0.85em; line-height:1.2em; }
td.bcal-daynames { text-align:center; color:#333; font-size:.75em; }
td.bcal-blank {}
td.bcal-today { background-color:#ffff00; color: #000000; }
td.bcal-day { color: #333; }
a.bcal-link { text-decoration:none; font-weight:bold; }
td.bcal-link {background-color:#bbddff; color: #000000; }
td.bcal-linktoday { background-color: #ffcc00; color: #000000; }
");
}

//set abbreviated day names
if (!is_array($BlogCal['daynames']))
for ($i=1; $i<=7; $i++)
$BlogCal['daynames'][$i-1] = strftime("%a",mktime(0,0,0,6,$i,2008)); //2008-06-01 was a Sunday

//markup and function
Markup('bcal','directives','/\\(:blogcal\\s*(.*?):\\)/e', "BlogCalendarFmt(\$pagename, PSS('$1'))");
function BlogCalendarFmt($pagename, $args) {
global $ScriptUrl, $EnablePathInfo, $BlogCal;
$req = RequestArgs();
$args = ParseArgs($args);
$args = array_merge($req, $args);
#echo "<pre>\$args "; print_r($args); echo "</pre>";

// Determine this Group
$group = PageVar($pagename, '$Group');
$name = PageVar($pagename, '$Name');
$PageUrl = ($EnablePathInfo)
? $ScriptUrl.'/'.$group.'/'.$name
: $ScriptUrl.'?n='.$group.'.'.$name;

if (isset($args['group'])) $defaultgroup = $args['group'];
elseif ($BlogCal['defaultgroup']!='0') $defaultgroup = $BlogCal['defaultgroup'];
else $defaultgroup = $group;

// What is today?
$tyear = date("Y");
$tmonth = date("m");
$tday = date("d");

$year = isset($args['year']) ? $args['year'] : $tyear;
$month = isset($args['month']) ? $args['month'] : $tmonth;
$day = isset($args['day']) ? $args['day'] : $tday;
$month = isset($args['shift']) ? $month + $args['shift'] : $month;
$prev_month = ($month>1) ? sprintf("%02.0f",$month-1) : 12;
$prev_year = ($month>1) ? $year : $year - '01';
$next_month = ($month<12) ? sprintf("%02.0f",$month+1) : '01';
$next_year = ($month<12) ? $year : $year + 1;

$itime = mktime(0,0,0,$month,16,$year); // day 16, i.e. in the middle;
$iyear = strftime("%Y",$itime);
$imonth = strftime("%m",$itime);

$monthname = strftime("%B&nbsp;%Y",$itime); // Monthname YYYY

static $cnt=0; $cnt++;

//output blogcal table
$out = "\n<table id='bcal$cnt' class='bcal'>";

$prev = "<a href='$PageUrl?year=$prev_year&amp;month=$prev_month' title='previous month'>&laquo;</a>";
$next = "<a href='$PageUrl?year=$next_year&amp;month=$next_month' title='next month'>&raquo;</a>";

$pastonly = (isset($args['pastonly'])) ? 1 : $BlogCal['pastonly'];
if ($pastonly==1 && $next_month>$tmonth)
$next = '';
if(isset($args['shift']))
$out.= "<caption><p>$monthname</p></caption>";
else
$out.= "<caption>$prev&nbsp;$monthname&nbsp;$next</caption>";

$maxdays = date("t",mktime(0,0,0,$month,1,$year));
$weekdaystart = date('w',mktime(0,0,0,$month,1,$year));

// weekstart should be from 0 to 6. // also from PmCal
$BlogCal['weekstart'] = abs($BlogCal['weekstart']) % 7;
if ($BlogCal['weekstart']>=1 && $weekdaystart==0)
$weekdaystart = 7;

//make table header cells (weekday names)
$out.="\n <tr>";
for ($i=0; $i<7; $i++) {
$d = ($i + $BlogCal['weekstart']) % 7;
$out.= "<th class='bcal-daynames'>{$BlogCal['daynames'][$d]}</th>";
}
$out .= " </tr>";

$base = (isset($args['base'])) ? $args['base'] : $BlogCal['basename'];
$sep = '-';
if (isset($args['isobasic']) || $BlogCal['isobasic']==1) $sep = '';

for ($index =($BlogCal['weekstart'] - $weekdaystart); $index < $maxdays; ) {
$out.="\n <tr>";
//make table cells (day numbers)
for ($i=0; $i<7; $i++, $index++) {
$daynum = $index+1;
//empty cells
if ($index<0 || $index >= $maxdays)
$out.="<td class='bcal-blank'>&nbsp;</td>";
//normal cal cell
else {
$paddeddaynum = ($daynum<10) ? "0".$daynum : $daynum;
$daynumtext = $daynum;

$pname = $base.$iyear.$sep.$imonth.$sep.$paddeddaynum;
$pname = MakePageName($pagename, $defaultgroup.".".$pname);
if (isset($args['tooltip'])) {
if ($args['tooltip']=='description' || $args['tooltip']=='Description')
$tooltip = PageVar($pname,'$Description');
else $tooltip = PageTextVar($pname,$args['tooltip']);
}
else $tooltip = PageVar($pname,'$Title');
//log page link cell + today
if ($tyear==$year && $tmonth==$month && $tday==$daynum && PageExists($pname))
$out .= "<td class='bcal-linktoday'><a class='bcal-link' href='$ScriptUrl?n=$pname' title='$tooltip'>$daynum</a></td>";
//log page link cell
elseif (PageExists($pname))
$out .= "<td class='bcal-link'><a class='bcal-link' href='$ScriptUrl?n=$pname' title='$tooltip'>$daynum</a></td>";
//today cell
elseif ($tyear==$year && $tmonth==$month && $tday==$daynum)
$out.="<td class='bcal-today'>$daynumtext</td>";
//day cell
else
$out.="<td class='bcal-day'>$daynumtext</td>";
}
}
$out .= " </tr>";
}
$out.= "\n</table>\n";
return Keep($out);
} // }}}