function FmtPageList($fmt, $pagename, $opt)
{
global $GroupPattern, $FmtV, $FPLFunctions;
# if (isset($_REQUEST['q']) && $_REQUEST['q']=='') $_REQUEST['q']="''";
$rq = htmlspecialchars(stripmagic(@$_REQUEST['q']), ENT_NOQUOTES);
$FmtV['$Needle'] = $opt['o'] . ' ' . $rq;
if (preg_match("!^({$GroupPattern}(\\|{$GroupPattern})*)?/!i", $rq, $match)) {
$opt['group'] = @$match[1];
$rq = substr($rq, strlen(@$match[1]) + 1);
}
$opt = array_merge($opt, ParseArgs($opt['o'] . ' ' . $rq), @$_REQUEST);
if (@($opt['req'] && !$opt['-'] && !$opt[''] && !$opt['+'] && !$opt['q'])) {
return;
}
$matches = array();
$fmtfn = @$FPLFunctions[$opt['fmt']];
if (!function_exists($fmtfn)) {
$fmtfn = 'FPLByGroup';
}
$out = $fmtfn($pagename, $matches, $opt);
$FmtV['$MatchCount'] = count($matches);
$GLOBALS['SearchIncl'] = array_merge((array) @$opt[''], (array) @$opt['+']);
$GLOBALS['SearchExcl'] = array_merge((array) $opt['-']);
$GLOBALS['SearchGroup'] = @$opt['group'];
if ($fmt != '$MatchList') {
$FmtV['$MatchList'] = $out;
$out = FmtPageName($fmt, $pagename);
}
if ($out[0] == '<') {
return '<div>' . Keep($out) . '</div>';
}
PRR();
return $out;
}
function FmtPageList($outfmt, $pagename, $opt) {
global $GroupPattern, $FmtV, $PageListArgPattern,
$FPLFormatOpt, $FPLFunctions;
# get any form or url-submitted request
$rq = htmlspecialchars(stripmagic(@$_REQUEST['q']), ENT_NOQUOTES);
# build the search string
$FmtV['$Needle'] = $opt['o'] . ' ' . $rq;
# Handle "group/" at the beginning of the form-submitted request
if (preg_match("!^($GroupPattern(\\|$GroupPattern)*)?/!i", $rq, $match)) {
$opt['group'] = @$match[1];
$rq = substr($rq, strlen(@$match[1])+1);
}
$opt = array_merge($opt, ParseArgs($opt['o'], $PageListArgPattern));
# merge markup options with form and url
if (@$opt['request'])
$opt = array_merge($opt, ParseArgs($rq, $PageListArgPattern), @$_REQUEST);
# non-posted blank search requests return nothing
if (@($opt['req'] && !$opt['-'] && !$opt[''] && !$opt['+'] && !$opt['q']))
return '';
# terms and group to be included and excluded
$GLOBALS['SearchIncl'] = array_merge((array)@$opt[''], (array)@$opt['+']);
$GLOBALS['SearchExcl'] = (array)@$opt['-'];
$GLOBALS['SearchGroup'] = @$opt['group'];
$fmt = @$opt['fmt']; if (!$fmt) $fmt = 'default';
$fmtopt = @$FPLFormatOpt[$fmt];
if (!is_array($fmtopt)) {
if ($fmtopt) $fmtopt = array('fn' => $fmtopt);
elseif (@$FPLFunctions[$fmt])
$fmtopt = array('fn' => $FPLFunctions[$fmt]);
else $fmtopt = $FPLFormatOpt['default'];
}
$fmtfn = @$fmtopt['fn'];
if (!is_callable($fmtfn)) $fmtfn = $FPLFormatOpt['default']['fn'];
$matches = array();
$opt = array_merge($fmtopt, $opt);
$out = $fmtfn($pagename, $matches, $opt);
$FmtV['$MatchCount'] = count($matches);
if ($outfmt != '$MatchList')
{ $FmtV['$MatchList'] = $out; $out = FmtPageName($outfmt, $pagename); }
if ($out[0] == '<') $out = Keep($out);
return PRR($out);
}
function PmFormMarkup($pagename, $target, $args)
{
global $PmFormTemplatesFmt;
$target_opt = PmFormConfig($pagename, $target);
$markup_opt = ParseArgs($args);
$markup_opt['target'] = $target;
$opt = array_merge($target_opt, $markup_opt);
if (@$opt['form']) {
$form = RetrieveAuthSection($pagename, $opt['form'], $PmFormTemplatesFmt);
}
$form_opt = PmFormTemplateDefaults($pagename, $form);
$opt = array_merge($form_opt, $target_opt, $markup_opt);
$form = PVSE(FmtTemplateVars($form, $opt));
return PRR($form);
}
function pmcal($opts)
{
global $pagename, $MaxIncludes, $HTMLHeaderFmt, $PmCalTextLinkMark, $PmCalIncludeTextLinkMark, $PmCalACALTextLinkMark, $PmCalSubIncludeTextLinkMark, $PmCalSubACALTextLinkMark, $PmCaltyear, $PmCaltmonth, $PmCaltday;
//Initial PmWiki markup for textlinks
SDV($PmCalTextLinkMark, '!!');
SDV($PmCalIncludeTextLinkMark, '!!');
SDV($PmCalACALTextLinkMark, '!!');
SDV($PmCalSubIncludeTextLinkMark, $PmCalIncludeTextLinkMark);
SDV($PmCalSubACALTextLinkMark, $PmCalACALTextLinkMark);
// Determine this Group
//
$group = FmtPageName('$Group', $pagename);
$name = FmtPageName('$Name', $pagename);
// What is today?
//
// $tmonth = date("m");
// $tyear = date("Y");
// $tday = date("d");
// Process markup arguments first
//
$defaults = array('year' => $PmCaltyear, 'month' => $PmCaltmonth, 'day' => $PmCaltday, 'alwaystoday' => 'false', 'acalfmt' => NULL, 'calfmt' => '%s', 'callinks' => 'true', 'caltype' => 'normal', 'cssprefix' => 'pmcal', 'dayofweektitlefmt' => '%a', 'expire' => 'false', 'overrides' => 'true', 'includes' => 'true', 'isodate' => 'false', 'lines' => NULL, 'locale' => NULL, 'monthsahead' => 0, 'monthsback' => 0, 'monthtitlefmt' => '%B %Y', 'navnext' => '»', 'navprev' => '«', 'onedate' => 'false', 'paras' => NULL, 'reverse' => 'false', 'stopafter' => 'false', 'textacalfmt' => NULL, 'textcalfmt' => '(%s)', 'textdatefmt' => '%x', 'textlinks' => 'true', 'weekstart' => 0, 'zebra' => 'true', 'acals' => NULL, 'cals' => NULL, 'dayofweektitle' => NULL, 'monthtitle' => NULL, 'styles' => NULL);
// If name is of the format YYYYMMDD, then we'll
// override the year, month, day defaults
//
// Hack for ACAL isn't perfect here... but ok.
//
if (preg_match("/([A0-9][C0-9][A0-9][L0-9])([01][0-9])([0-3][0-9])/", $name, $matches)) {
$defaults['year'] = $matches[1];
$defaults['month'] = $matches[2];
$defaults['day'] = $matches[3];
}
$args = array_merge($defaults, ParseArgs($opts));
$urladd = '';
// Default to today if nothing supplied on the URL
// line... ?month=12&day=25&year=2005 would be
// Christmas 2005
// URL GET vars override markup arguments
//
// With that said, might be useful to have a command line
// augment the markup arguments in the case of foreign
// calendar overlays... hmmm... possible new feature.
// calsplus=Calendar maybe...
//
// Build a url tack on of get vars when get vars are used.
//
$year = isset($_GET['year']) ? $_GET['year'] : $args['year'];
$month = isset($_GET['month']) ? $_GET['month'] : $args['month'];
$day = isset($_GET['day']) ? $_GET['day'] : $args['day'];
// Sneaky fix for default monthtitlefmt for ACAL
if ($year == 'ACAL') {
$ayear = 'ACAL';
$args['monthtitlefmt'] = '%B ACAL';
}
// Allows overrides=false in the :pmcal: markup to disallow
// settings on the URL line.
//
$overrides = $args['overrides'];
if ($overrides == 'false') {
$_GET = NULL;
}
$acals = isset($_GET['acals']) ? explode(',', $_GET['acals']) : explode(',', $args['acals']);
if (isset($_GET['acals'])) {
$urladd .= "&acals=" . urlencode($_GET['acals']);
}
$alwaystoday = isset($_GET['alwaystoday']) ? $_GET['alwaystoday'] : $args['alwaystoday'];
if (isset($_GET['alwaystoday'])) {
$urladd .= "&alwaystoday=" . urlencode($_GET['alwaystoday']);
}
$acalfmt = isset($_GET['acalfmt']) ? $_GET['acalfmt'] : $args['acalfmt'];
if (isset($_GET['acalfmt'])) {
$urladd .= "&acalfmt=" . urlencode($_GET['acalfmt']);
}
$calfmt = isset($_GET['calfmt']) ? $_GET['calfmt'] : $args['calfmt'];
if (isset($_GET['calfmt'])) {
$urladd .= "&calfmt=" . urlencode($_GET['calfmt']);
}
$callinks = isset($_GET['callinks']) ? $_GET['callinks'] : $args['callinks'];
if (isset($_GET['callinks'])) {
$urladd .= "&callinks=" . urlencode($_GET['callinks']);
}
$cals = isset($_GET['cals']) ? explode(',', $_GET['cals']) : explode(',', $args['cals']);
if (isset($_GET['cals'])) {
$urladd .= "&cals=" . urlencode($_GET['cals']);
}
$caltype = isset($_GET['caltype']) ? $_GET['caltype'] : $args['caltype'];
if (isset($_GET['caltype'])) {
$urladd .= "&caltype=" . urlencode($_GET['caltype']);
}
$cssprefix = isset($_GET['cssprefix']) ? $_GET['cssprefix'] : $args['cssprefix'];
if (isset($_GET['cssprefix'])) {
$urladd .= "&cssprefix=" . urlencode($_GET['cssprefix']);
}
$dayofweektitle = isset($_GET['dayofweektitle']) ? explode(',', $_GET['dayofweektitle']) : explode(',', $args['dayofweektitle']);
if (isset($_GET['dayofweektitle'])) {
$urladd .= "&dayofweektitle=" . urlencode($_GET['dayofweektitle']);
}
$dayofweektitlefmt = isset($_GET['dayofweektitlefmt']) ? $_GET['dayofweektitlefmt'] : $args['dayofweektitlefmt'];
if (isset($_GET['dayofweektitlefmt'])) {
$urladd .= "&dayofweektitlefmt=" . urlencode($_GET['dayofweektitlefmt']);
}
$expire = isset($_GET['expire']) ? $_GET['expire'] : $args['expire'];
if (isset($_GET['expire'])) {
$urladd .= "&expire=" . urlencode($_GET['expire']);
}
$includes = isset($_GET['includes']) ? $_GET['includes'] : $args['includes'];
if (isset($_GET['includes'])) {
$urladd .= "&includes=" . urlencode($_GET['includes']);
}
$isodate = isset($_GET['isodate']) ? $_GET['isodate'] : $args['isodate'];
if (isset($_GET['isodate'])) {
$urladd .= "&isodate=" . urlencode($_GET['isodate']);
}
$lines = isset($_GET['lines']) ? $_GET['lines'] : $args['lines'];
if (isset($_GET['lines'])) {
$urladd .= "&lines=" . urlencode($_GET['lines']);
}
$locale = isset($_GET['locale']) ? $_GET['locale'] : $args['locale'];
if (isset($_GET['locale'])) {
$urladd .= "&locale=" . urlencode($_GET['locale']);
}
$monthsahead = isset($_GET['monthsahead']) ? $_GET['monthsahead'] : $args['monthsahead'];
if (isset($_GET['monthsahead'])) {
$urladd .= "&monthsahead=" . urlencode($_GET['monthsahead']);
}
$monthsback = isset($_GET['monthsback']) ? $_GET['monthsback'] : $args['monthsback'];
if (isset($_GET['monthsback'])) {
$urladd .= "&monthsback=" . urlencode($_GET['monthsback']);
}
$monthtitle = isset($_GET['monthtitle']) ? explode(',', $_GET['monthtitle']) : explode(',', $args['monthtitle']);
if (isset($_GET['monthtitle'])) {
$urladd .= "&monthtitle=" . urlencode($_GET['monthtitle']);
}
$monthtitlefmt = isset($_GET['monthtitlefmt']) ? $_GET['monthtitlefmt'] : $args['monthtitlefmt'];
if (isset($_GET['monthtitlefmt'])) {
$urladd .= "&monthtitlefmt=" . urlencode($_GET['monthtitlefmt']);
}
$navnext = isset($_GET['navnext']) ? $_GET['navnext'] : $args['navnext'];
if (isset($_GET['navnext'])) {
$urladd .= "&navnext=" . urlencode($_GET['navnext']);
}
$navprev = isset($_GET['navprev']) ? $_GET['navprev'] : $args['navprev'];
if (isset($_GET['navprev'])) {
$urladd .= "&navprev=" . urlencode($_GET['navprev']);
}
$onedate = isset($_GET['onedate']) ? $_GET['onedate'] : $args['onedate'];
if (isset($_GET['onedate'])) {
$urladd .= "&paras=" . urlencode($_GET['onedate']);
}
$paras = isset($_GET['paras']) ? $_GET['paras'] : $args['paras'];
if (isset($_GET['paras'])) {
$urladd .= "&paras=" . urlencode($_GET['paras']);
}
$reverse = isset($_GET['reverse']) ? $_GET['reverse'] : $args['reverse'];
if (isset($_GET['reverse'])) {
$urladd .= "&reverse=" . urlencode($_GET['reverse']);
}
$stopafter = isset($_GET['stopafter']) ? $_GET['stopafter'] : $args['stopafter'];
if (isset($_GET['stopafter'])) {
$urladd .= "&stopafter=" . urlencode($_GET['stopafter']);
}
$styles = isset($_GET['styles']) ? explode(',', $_GET['styles']) : explode(',', $args['styles']);
if (isset($_GET['styles'])) {
$urladd .= "&styles=" . urlencode($_GET['styles']);
}
$textacalfmt = isset($_GET['textacalfmt']) ? $_GET['textacalfmt'] : $args['textacalfmt'];
if (isset($_GET['textacalfmt'])) {
$urladd .= "&textacalfmt=" . urlencode($_GET['textacalfmt']);
}
$textcalfmt = isset($_GET['textcalfmt']) ? $_GET['textcalfmt'] : $args['textcalfmt'];
if (isset($_GET['textcalfmt'])) {
$urladd .= "&textcalfmt=" . urlencode($_GET['textcalfmt']);
}
$textdatefmt = isset($_GET['textdatefmt']) ? $_GET['textdatefmt'] : $args['textdatefmt'];
if (isset($_GET['textdatefmt'])) {
$urladd .= "&textdatefmt=" . urlencode($_GET['textdatefmt']);
}
$textlinks = isset($_GET['textlinks']) ? $_GET['textlinks'] : $args['textlinks'];
if (isset($_GET['textlinks'])) {
$urladd .= "&textlinks=" . urlencode($_GET['textlinks']);
}
$weekstart = isset($_GET['weekstart']) ? $_GET['weekstart'] : $args['weekstart'];
if (isset($_GET['weekstart'])) {
$urladd .= "&weekstart=" . urlencode($_GET['weekstart']);
}
if (isset($_GET['zebra'])) {
$urladd .= "&zebra=" . urlencode($_GET['zebra']);
}
$zebra = isset($_GET['zebra']) ? $_GET['zebra'] : $args['zebra'];
// Experimenting with CSS
// Styles can come out of the upload area for the group!
//
$first = 1;
//Set first style to the preferred.
if ($styles[0] != NULL) {
foreach ((array) $styles as $stylename) {
$filepath = FmtPageName("pub/css/{$stylename}.css", $pagename);
if ($first) {
$rel = "rel='stylesheet'";
$first = 0;
} else {
$rel = "rel='alternate stylesheet'";
}
if (file_exists($filepath)) {
$HTMLHeaderFmt[] = "<link {$rel} type='text/css' href='\$PubDirUrl/css/{$stylename}.css' title='{$stylename}'/>\n";
} else {
$filepath = FmtPageName("\$UploadFileFmt/{$stylename}.css", "{$pagename}");
if (file_exists($filepath)) {
$HTMLHeaderFmt[] = "<link {$rel} type='text/css' href='\$UploadUrlFmt/{$group}/{$stylename}.css' title='{$stylename}'/>\n";
}
}
}
}
// Set the locale
//
if ($isodate == 'true') {
$textdatefmt = '%Y-%m-%d';
}
if ($locale != NULL) {
setlocale(LC_TIME, $locale);
}
// Number of paragraphs to include
$parasorlines = 'paras';
if ($lines != NULL) {
$parasorlines = 'lines';
$normallinesparas = $lines;
$otherlinesparas = $lines;
} else {
if ($paras == NULL) {
$normallinesparas = '1';
$otherlinesparas = '-1';
} else {
$normallinesparas = $paras;
$otherlinesparas = $paras;
}
}
// Fallback to today/default information if something doesn't look right.
//
if ($month < 1 || $month > 12) {
$month = $PmCaltmonth;
}
if ($year < 1 || $year > 2038) {
if ($year != 'ACAL') {
$year = $PmCaltyear;
}
}
if ($alwaystoday == 'true') {
$year = $PmCaltyear;
$month = $PmCaltmonth;
$day = $PmCaltday;
}
switch ($caltype) {
case 'text':
break;
case 'normal':
break;
default:
$caltype = 'normal';
}
// Set acalfmt to calfmt if not set.
if ($acalfmt == NULL) {
$acalfmt = $calfmt;
}
// Set textacalfmt to textcalfmt if not set.
if ($textacalfmt == NULL) {
$textacalfmt = $textcalfmt;
}
// Set PmCalPrefix to cssprefix.
$PmCalPrefix = $cssprefix;
// Try to limit look backs and lookaheads (5 years)
//
if ($monthsback < 0 || $monthsback > 60) {
$monthsback = 0;
}
if ($monthsahead < 0 || $monthsahead > 60) {
$monthsahead = 0;
}
// Handle expiration.
//
$eyear = $PmCaltyear;
$emonth = $PmCaltmonth;
$eday = $PmCaltday;
if ($expire != 'true' && $expire != 'false') {
// expire could be a day delta off from today
//
if ($expire <= 1780 && $expire >= -1780) {
$expire_time = time() + $expire * 86400;
$emonth = date("m", $expire_time);
$eyear = date("Y", $expire_time);
$eday = date("d", $expire_time);
}
}
// Handle stop after days.
//
$syear = 0;
$smonth = 0;
$sday = 0;
if ($stopafter != 'false') {
// expire could be a day delta off from today
//
if ($stopafter <= 1780 && $stopafter >= -1780) {
$stopafter_time = time() + $stopafter * 86400;
$smonth = date("m", $stopafter_time);
$syear = date("Y", $stopafter_time);
$sday = date("d", $stopafter_time);
}
}
// weekstart should be from 0 to 6.
// weekstart should be from 0 to 6.
$weekstart = abs($weekstart) % 7;
if ($reverse == 'true') {
$weekstart = (abs($weekstart - 6) + 1) % 7;
}
// Begin a new month.
// If monthsahead is zero, then monthsahead is not used. Don't go beyond this month.
// If monthsback is zero, then monthsback is not used, starts with this month (or specified month).
// If not zero, it is relative to whatever month is set to.
// We're reindexing to consider months going from 0..11
// Thus we subtract 1 from month.
//
$yearadjust = 0;
if ($reverse == 'true') {
$startmonth = $month - 1 + $monthsahead;
if ($startmonth > 11) {
$yearadjust = floor($startmonth / 12);
$year = $year + $yearadjust;
}
} else {
$startmonth = $month - 1 - $monthsback;
if ($startmonth <= 0) {
$yearadjust = floor($startmonth / 12);
$year = $year + $yearadjust;
}
}
$out = "";
$zebraflag = 0;
// Adjust month from 0..11 back to 1..12
//
$month = (abs($yearadjust * 12) + $startmonth) % 12 + 1;
// Computer total number of months to display
//
$totalmonths = $monthsback + $monthsahead;
for ($mcount = 0; $mcount <= $totalmonths; $mcount++) {
// Calculate next month and prev month
// Used for navigation forward and backward
//
if ($month == 12) {
$nextmonth = 1;
if ($ayear == "ACAL") {
$nextyear = "ACAL";
} else {
$nextyear = $year + 1;
}
} else {
$nextmonth = $month + 1;
if ($ayear == "ACAL") {
$nextyear = "ACAL";
} else {
$nextyear = $year;
}
}
if ($month == 1) {
$prevmonth = 12;
if ($ayear == "ACAL") {
$prevyear = "ACAL";
} else {
$prevyear = $year - 1;
}
} else {
$prevmonth = $month - 1;
if ($ayear == "ACAL") {
$prevyear = "ACAL";
} else {
$prevyear = $year;
}
}
// Get number of days in the month, day of week the first day starts on
// and get month name
//
$totaldays = date("t", mktime(0, 0, 0, $month, 1, pmcal_year($year)));
if ($day > $totaldays) {
$day = $PmCaltday;
}
if ($reverse == 'true') {
$startdayofweek = date('w', mktime(0, 0, 0, $nextmonth, 1, pmcal_year($nextyear))) - 1;
if ($startdayofweek < 0) {
$startdayofweek = 6;
}
$startdayofweek = abs($startdayofweek - 6);
} else {
$startdayofweek = date('w', mktime(0, 0, 0, $month, 1, pmcal_year($year)));
}
// Format monthtitle.
//
$m = $month - 1;
if ($monthtitle[$m] == NULL) {
// Do not use $day... use 1
$mt = strftime($monthtitlefmt, mktime(0, 0, 0, $month, 1, pmcal_year($year)));
} else {
// This isn't perfect. Difficulties with apostrophes.
$mt = strftime(urldecode($monthtitle[$m]), mktime(0, 0, 0, $month, 1, pmcal_year($year)));
}
// Fill in array of textual day titles
// I did this like this so the locale could be changed someday.
//
$d = $PmCaltday;
for ($i = 0; $i < 7; $i++) {
$titleindex = date("w", mktime(0, 0, 0, $month, $d, pmcal_year($year)));
if ($dayofweektitle[$titleindex] != NULL) {
$dayofweektitlefmt = urldecode($dayofweektitle[$titleindex]);
}
$title = strftime($dayofweektitlefmt, mktime(0, 0, 0, $month, $d, pmcal_year($year)));
$dayofweektitle[$titleindex] = $title;
$d++;
}
// It's necessary to force a line break before the (:pmcal:) output.
//
if ($callinks != 'false' && $caltype == 'normal') {
$out .= "\\\\\n";
// Output Today link
//
$cl = "{$PmCalPrefix}todaylink";
$out .= "%class='{$cl}'%";
$out .= "[[{$group}?year={$PmCaltyear}&month={$PmCaltmonth}&day={$PmCaltday}{$urladd}|";
$out .= "Today]]%%\n";
// Output Extra Included Calendars links
//
$cl = sprintf("{$PmCalPrefix}include%slink pmcalincludelink", $cal);
foreach ($cals as $cal) {
if ($cal != '') {
$out .= "%class='{$cl}'%";
$out .= sprintf("[[%s|%s]]\n", $cal, $cal);
}
}
}
if ($caltype == 'normal') {
// Note: had to insert some forced returns... still some problems
// with PmWiki and table begins I guess.
//
$out .= "\\\\\n\\\\\n\n";
// Output monthtitle, the banner with prev and next month links
//
$navprevout = strftime($navprev, mktime(0, 0, 0, $prevmonth, $day, pmcal_year($prevyear)));
$navnextout = strftime($navnext, mktime(0, 0, 0, $nextmonth, $day, pmcal_year($nextyear)));
$cl = 'pmcal';
$out .= "(:table ";
$out .= "class='{$cl}' ";
$out .= "border=1 cellspacing=0 cellpadding=3 width=100%:)\n";
$out .= "(:cellnr class='{$PmCalPrefix}monthtitle' colspan=7:)\n";
// Large one liner broken up into multiple appends
$out .= "%class='{$PmCalPrefix}navlinks {$PmCalPrefix}navlinksprev'%";
$out .= "[[{$group}?month={$prevmonth}&day=1&year={$prevyear}{$urladd}|{$navprevout}]] %%";
$out .= "[[{$group}?month={$month}&day={$day}&year={$year}{$urladd}|{$mt}]]";
$out .= "%class='{$PmCalPrefix}navlinks {$PmCalPrefix}navlinksnext'%";
$out .= " [[{$group}?month={$nextmonth}&day=1&year={$nextyear}{$urladd}|{$navnextout}]]%%\n";
// Output days of week headings
//
$ctype = "cellnr";
for ($i = 0; $i < 7; $i++) {
$out .= "(:{$ctype} ";
$out .= "class='{$PmCalPrefix}dayofweektitle' ";
$out .= "width=10% ";
$out .= ":)\n";
$d = ($i + $weekstart) % 7;
if ($reverse == 'true') {
$d = abs($d - 6);
}
$out .= "{$dayofweektitle[$d]}\n";
$ctype = "cell";
}
// Output null cells, the empty cells before the first day
// of the month.
$ctype = "cellnr";
for ($i = 0; $i < 7; $i++) {
$d = ($i + $weekstart) % 7;
if ($d == $startdayofweek) {
break;
}
$out .= "(:{$ctype} class='{$PmCalPrefix}null':)\n";
$ctype = "cell";
}
}
// Output the calendar cells
// Use a special class for today
//
$d = $startdayofweek;
if ($reverse == 'true') {
$iday = $totaldays;
} else {
$iday = 1;
}
// Default flag for monitoring repeated days (included text calendar entries)
$onedatedone = 0;
$lyear = 0;
$lmonth = 0;
$lday = 0;
// $i isn't the day now... it's just a counter.
// $iday is the day now.
//
for ($i = 1; $i <= $totaldays; $i++) {
$dayindex = $d % 7;
if ($ayear == 'ACAL') {
$year = 'ACAL';
} else {
$year = sprintf("%04d", $year);
}
$pmcalpagename = sprintf("%s.%s%02d%02d", $group, $year, $month, $iday);
// Keep skip here in case we want to use it in caltype=normal??
//
$skip = 0;
if ($expire != 'false') {
if ($year < $eyear) {
$skip = 1;
} else {
if ($year == $eyear && $month < $emonth) {
$skip = 1;
} else {
if ($year == $eyear && $month == $emonth && $iday < $eday) {
$skip = 1;
}
}
}
}
if ($stopafter != 'false') {
if ($year > $syear) {
$skip = 1;
} else {
if ($year == $syear && $month > $smonth) {
$skip = 1;
} else {
if ($year == $syear && $month == $smonth && $iday > $sday) {
$skip = 1;
}
}
}
}
if ($zebra == "resetdaily") {
$zebraflag = 0;
}
$istoday = 0;
if ($year == $PmCaltyear && $month == $PmCaltmonth && $iday == $PmCaltday) {
$istoday = 1;
}
if ($caltype == 'normal') {
if ($dayindex == $weekstart) {
$ctype = "cellnr";
} else {
$ctype = "cell";
}
$cl = "{$PmCalPrefix}day";
$dn = "{$PmCalPrefix}daynumber";
if ($istoday) {
$cl = "{$PmCalPrefix}today";
$dn = "{$dn} {$PmCalPrefix}todaynumber";
}
if (!PageExists($pmcalpagename)) {
// Bizarre hack added due to PmWiki change.
$dn = $dn . " {$PmCalPrefix}createtextlink";
}
$out .= sprintf("(:{$ctype} class='%s' height=80px :)\n", $cl);
$out .= "%class='{$dn}'%";
$out .= sprintf("[[{$group}.%s%02d%02d?year=%s&month=%s&day=%s%s|%s]]\n", $year, $month, $iday, $year, $month, $iday, $urladd, $iday);
if ($includes != 'false' && PageExists($pmcalpagename)) {
$MaxIncludes++;
$out .= sprintf("\\\\\n\n(:include %s %s=%s:)\n", $pmcalpagename, $parasorlines, $normallinesparas);
}
} else {
if ($caltype == "text") {
if (!$skip && PageExists($pmcalpagename)) {
if ($zebra != 'false' && $zebraflag) {
$out .= "(:div id={$PmCalPrefix}zebra:)\n";
}
if ($textlinks != 'false') {
$cl = "{$PmCalPrefix}daytextlink";
if ($istoday) {
$cl = "{$PmCalPrefix}todaytextlink";
}
if ($onedate != 'false' && ($lyear != $year || $lmonth != $month || $lday != $iday)) {
$onedatedone = 0;
$lyear = $year;
$lmonth = $month;
$lday = $iday;
}
if (!$onedatedone) {
$formatteddate = strftime($textdatefmt, mktime(0, 0, 0, $month, $iday, pmcal_year($year)));
if ($textlinks == 'nolinks') {
$out .= sprintf("{$PmCalTextLinkMark}%%class='%s'%%[=%s=]\n", $cl, $formatteddate);
} else {
$out .= sprintf("{$PmCalTextLinkMark}%%class='%s'%%[[%s|[=%s=]]]\n", $cl, $pmcalpagename, $formatteddate);
}
if ($onedate != 'false') {
$onedatedone = 1;
}
}
}
if ($includes != 'false') {
$MaxIncludes++;
$out .= sprintf("(:include %s %s=%s:)\n", $pmcalpagename, $parasorlines, $otherlinesparas);
}
if ($zebra != 'false' && $zebraflag) {
$out .= "(:divend:)\n";
}
if ($zebraflag) {
$zebraflag = 0;
} else {
$zebraflag = 1;
}
}
}
}
// Include day pages from other calendars if present.
// NOTE: The pmcalinclude class will only hold true if no new block construct is begun as a part of
// the included page.
//
foreach ($cals as $cal) {
if ($cal != '') {
$pmcalincpagename = sprintf("%s.%s%02d%02d", $cal, $year, $month, $iday);
if (!$skip && PageExists($pmcalincpagename)) {
if ($caltype == "text") {
if ($zebra != 'false' && $zebraflag) {
$out .= "(:div id={$PmCalPrefix}zebra:)\n";
}
if ($onedate != 'false' && ($lyear != $year || $lmonth != $month || $lday != $iday)) {
$onedatedone = 0;
$lyear = $year;
$lmonth = $month;
$lday = $iday;
}
if (!$onedatedone) {
$formatteddate = strftime($textdatefmt, mktime(0, 0, 0, $month, $iday, pmcal_year($year)));
$formattedtextcal = sprintf($textcalfmt, $cal);
if ($textlinks != 'false') {
$todaycl = "";
if ($istoday) {
$todaycl = sprintf(" {$PmCalPrefix}include%stodaytextlink {$PmCalPrefix}includetodaytextlink", $cal);
}
if ($textlinks == 'nolinks') {
$out .= sprintf("{$PmCalIncludeTextLinkMark}%%class='{$PmCalPrefix}include%stextlink {$PmCalPrefix}includetextlink{$todaycl}'%%[=%s %s=]\n", $cal, $formatteddate, $formattedtextcal);
} else {
$out .= sprintf("{$PmCalIncludeTextLinkMark}%%class='{$PmCalPrefix}include%stextlink {$PmCalPrefix}includetextlink{$todaycl}'%%[[%s|[=%s %s=]]]\n", $cal, $pmcalincpagename, $formatteddate, $formattedtextcal);
}
}
if ($onedate != 'false') {
$onedatedone = 1;
}
} elseif ($onedate == "showcals") {
$formattedtextcal = sprintf($textcalfmt, $cal);
if ($textlinks != 'false') {
$todaycl = "";
if ($istoday) {
$todaycl = sprintf(" {$PmCalPrefix}subinclude%stodaytextlink {$PmCalPrefix}includetodaytextlink", $cal);
}
if ($textlinks == 'nolinks') {
$out .= sprintf("{$PmCalSubIncludeTextLinkMark}%%class='{$PmCalPrefix}subinclude%stextlink {$PmCalPrefix}subincludetextlink{$todaycl}'%%[=%s=]\n", $cal, $formattedtextcal);
} else {
$out .= sprintf("{$PmCalSubIncludeTextLinkMark}%%class='{$PmCalPrefix}subinclude%stextlink {$PmCalPrefix}subincludetextlink{$todaycl}'%%[[%s|[=%s=]]]\n", $cal, $pmcalincpagename, $formattedtextcal);
}
}
}
if ($includes != 'false') {
$MaxIncludes++;
$out .= sprintf("(:include %s %s=%s:)\n", $pmcalincpagename, $parasorlines, $otherlinesparas);
}
if ($zebra != 'false' && $zebraflag) {
$out .= "(:divend:)\n";
}
if ($zebraflag) {
$zebraflag = 0;
} else {
$zebraflag = 1;
}
} else {
if ($caltype == "normal") {
if ($includes != 'false') {
$formattedcal = sprintf($calfmt, $cal);
$todaycl = "";
if ($istoday) {
$todaycl = sprintf(" {$PmCalPrefix}include%stoday {$PmCalPrefix}includetoday", $cal);
}
$out .= sprintf("%%class='{$PmCalPrefix}include%s {$PmCalPrefix}include{$todaycl}'%%[[%s|%s]]\n", $cal, $pmcalincpagename, $formattedcal);
$MaxIncludes++;
$out .= sprintf("(:include %s %s=%s:)\n", $pmcalincpagename, $parasorlines, $normallinesparas);
}
}
}
}
}
}
foreach ($acals as $acal) {
if ($acal != '') {
$pmcalincpagename = sprintf("%s.ACAL%02d%02d", $acal, $month, $iday);
if (!$skip && PageExists($pmcalincpagename)) {
if ($caltype == "text") {
if ($zebra != 'false' && $zebraflag) {
$out .= "(:div id={$PmCalPrefix}zebra:)\n";
}
if ($onedate != 'false' && ($lyear != $year || $lmonth != $month || $lday != $iday)) {
$onedatedone = 0;
$lyear = $year;
$lmonth = $month;
$lday = $iday;
}
if (!$onedatedone) {
$formatteddate = strftime($textdatefmt, mktime(0, 0, 0, $month, $iday, pmcal_year($year)));
$formattedtextcal = sprintf($textacalfmt, $acal);
if ($textlinks != 'false') {
$todaycl = "";
if ($istoday) {
$todaycl = sprintf(" {$PmCalPrefix}include%stodaytextlink {$PmCalPrefix}includetodaytextlink", $cal);
}
if ($textlinks == 'nolinks') {
$out .= sprintf("{$PmCalACALTextLinkMark}%%class='{$PmCalPrefix}include%stextlink {$PmCalPrefix}includetextlink{$todaycl}'%%[=%s %s=]\n", $acal, $formatteddate, $formattedtextcal);
} else {
$out .= sprintf("{$PmCalACALTextLinkMark}%%class='{$PmCalPrefix}include%stextlink {$PmCalPrefix}includetextlink{$todaycl}'%%[[%s|[=%s %s=]]]\n", $acal, $pmcalincpagename, $formatteddate, $formattedtextcal);
}
}
if ($onedate != 'false') {
$onedatedone = 1;
}
} elseif ($onedate == "showcals") {
$formattedtextcal = sprintf($textacalfmt, $acal);
if ($textlinks != 'false') {
$todaycl = "";
if ($istoday) {
$todaycl = sprintf(" {$PmCalPrefix}sbuinclude%stodaytextlink {$PmCalPrefix}subincludetodaytextlink", $cal);
}
if ($textlinks == 'nolinks') {
$out .= sprintf("{$PmCalSubACALTextLinkMark}%%class='{$PmCalPrefix}subinclude%stextlink {$PmCalPrefix}subincludetextlink{$todaycl}'%%[=%s=]\n", $cal, $formattedtextcal);
} else {
$out .= sprintf("{$PmCalSubACALTextLinkMark}%%class='{$PmCalPrefix}subinclude%stextlink {$PmCalPrefix}subincludetextlink{$todaycl}'%%[[%s|[=%s=]]]\n", $cal, $pmcalincpagename, $formattedtextcal);
}
}
}
if ($includes != 'false') {
$MaxIncludes++;
$out .= sprintf("(:include %s %s=%s:)\n", $pmcalincpagename, $parasorlines, $otherlinesparas);
}
if ($zebra != 'false' && $zebraflag) {
$out .= "(:divend:)\n";
}
if ($zebraflag) {
$zebraflag = 0;
} else {
$zebraflag = 1;
}
} else {
if ($caltype == "normal") {
if ($includes != 'false') {
$formattedcal = sprintf($acalfmt, $acal);
$todaycl = "";
if ($istoday) {
$todaycl = sprintf(" {$PmCalPrefix}include%stoday {$PmCalPrefix}includetoday", $cal);
}
$out .= sprintf("%%class='{$PmCalPrefix}include%s {$PmCalPrefix}include{$todaycl}'%%[[%s|%s]]\n", $acal, $pmcalincpagename, $formattedcal);
$MaxIncludes++;
$out .= sprintf("(:include %s %s=%s:)\n", $pmcalincpagename, $parasorlines, $normallinesparas);
}
}
}
}
}
}
if ($reverse == 'true') {
$iday--;
} else {
$iday++;
}
$d++;
}
// Output null cells, the empty cells after the last day
// of the month.
//
if ($caltype == 'normal') {
$dayindex = ($d + 7 - $weekstart) % 7;
if ($dayindex != 0) {
for ($i = $dayindex; $i < 7; $i++) {
$ctype = "cell";
$out .= "(:{$ctype} class='{$PmCalPrefix}null':)\n";
}
}
// End the calendar table
//
$out .= "(:tableend:)\n";
}
if ($reverse == 'true') {
$year = $prevyear;
$month = $prevmonth;
} else {
$year = $nextyear;
$month = $nextmonth;
}
}
//end of month loop
PRR();
return $out;
}
function FmtPageList($outfmt, $pagename, $opt)
{
global $GroupPattern, $FmtV, $PageListArgPattern, $FPLFormatOpt, $FPLFunctions;
# get any form or url-submitted request
$rq = PHSC(stripmagic(@$_REQUEST['q']), ENT_NOQUOTES);
# build the search string
$FmtV['$Needle'] = $opt['o'] . ' ' . $rq;
# Handle "group/" at the beginning of the form-submitted request
if (preg_match("!^({$GroupPattern}(\\|{$GroupPattern})*)?/!i", $rq, $match)) {
$opt['group'] = @$match[1];
$rq = substr($rq, strlen(@$match[1]) + 1);
}
$opt = array_merge($opt, ParseArgs($opt['o'], $PageListArgPattern));
# merge markup options with form and url
if (@$opt['request'] && @$_REQUEST) {
$rkeys = preg_grep('/^=/', array_keys($_REQUEST), PREG_GREP_INVERT);
if ($opt['request'] != '1') {
list($incl, $excl) = GlobToPCRE($opt['request']);
if ($excl) {
$rkeys = array_diff($rkeys, preg_grep("/{$excl}/", $rkeys));
}
if ($incl) {
$rkeys = preg_grep("/{$incl}/", $rkeys);
}
}
$cleanrequest = array();
foreach ($rkeys as $k) {
$cleanrequest[$k] = stripmagic($_REQUEST[$k]);
}
$opt = array_merge($opt, ParseArgs($rq, $PageListArgPattern), $cleanrequest);
}
# non-posted blank search requests return nothing
if (@($opt['req'] && !$opt['-'] && !$opt[''] && !$opt['+'] && !$opt['q'])) {
return '';
}
# terms and group to be included and excluded
$GLOBALS['SearchIncl'] = array_merge((array) @$opt[''], (array) @$opt['+']);
$GLOBALS['SearchExcl'] = (array) @$opt['-'];
$GLOBALS['SearchGroup'] = @$opt['group'];
$fmt = @$opt['fmt'];
if (!$fmt) {
$fmt = 'default';
}
$fmtopt = @$FPLFormatOpt[$fmt];
if (!is_array($fmtopt)) {
if ($fmtopt) {
$fmtopt = array('fn' => $fmtopt);
} elseif (@$FPLFunctions[$fmt]) {
$fmtopt = array('fn' => $FPLFunctions[$fmt]);
} else {
$fmtopt = $FPLFormatOpt['default'];
}
}
$fmtfn = @$fmtopt['fn'];
if (!is_callable($fmtfn)) {
$fmtfn = $FPLFormatOpt['default']['fn'];
}
$matches = array();
$opt = array_merge($fmtopt, $opt);
$out = $fmtfn($pagename, $matches, $opt);
$FmtV['$MatchCount'] = count($matches);
if ($outfmt != '$MatchList') {
$FmtV['$MatchList'] = $out;
$out = FmtPageName($outfmt, $pagename);
}
if ($out[0] == '<') {
$out = Keep($out);
}
return PRR($out);
}
