Re: Calendar script input

From: "Ross Kowalski" <educoop@xxxxxxxxxxxx>

> I thought it might be nice to have a calendar markup of some kind
which
> I started a rough sketch of last night here
>
> http://www.edu-coop.org/pmwiki/pmwiki.php/Calendar/WelcomePage

Ross,

I've included a similar script below, probably based on the same
script from hotscripts. I've got it set up so that it will generate
the current or specified month or the current or specified year. My
script is a complete and total ugly hack because a) I don't really
know php all that well, b) I haven't taken the time to sit down and go
through the guts of pmwiki to figure out how it works, and c) I had to
throw this together very quickly to meet some user demands. Despite
all of that the thing actually works. Unfortunately, I don't have a
publically-viewable instance of pmwiki available, so I have to include
the script. I'm very interested in seeing any sort of calendar script
evolve into something that integrates nicely with pmwiki and possibly
even be included as part of the standard distribution.

-b

<?
$CalendarGMTOffset = "-0400";
$CalendarDefaultPrefix = "Calendar";

$InlineReplacements["/\[\*calendar([A-Za-z0-9\s=]*)\*\]/e"] =
'wiki_cal("$1")';

function wiki_cal($args) {

  global $CalendarGMTOffset,$CalendarDefaultPrefix;

  $timeoffset = 0;
  if(preg_match("/^[-+][0-2][0-9][0-6][0-9]$/", $CalendarGMTOffset)){
    $timeoffset = (substr($CalendarGMTOffset,1,2) * 3600) +
(substr($CalendarGMTOffset,3,2) * 60);
    if(substr($CalendarGMTOffset,0,1) == "-") {$timeoffset *=  -1;}
  }

  preg_match("/\bm=([1-9]|1[0-2])\b/i",  $args, $matches);
  (empty($matches)) ? $month = gmdate ("n", time() + $timeoffset ) :
$month = $matches[1];

  preg_match("/\by=([0-9]{4})\b/i",  $args, $matches);
  (empty($matches)) ? $year = gmdate ("Y", time() + $timeoffset ) :
$year = $matches[1];

  preg_match("/\bprefix=([0-9a-z]+)\b/i",  $args, $matches);
  (empty($matches)) ? $prefix = $CalendarDefaultPrefix : $prefix =
$matches[1];

  preg_match("/\bview=([my])\b/i",  $args, $matches);
  (empty($matches)) ? $view = "m" : $view = $matches[1];

  $cal = new Calendar;
  if (strtoupper($view) == 'Y') {
    return $cal->getYearView($year, $timeoffset, $prefix);
  }
  else {
    return $cal->getMonthView($month, $year, $timeoffset, $prefix);
  }
}

// PHP Calendar Class Version 1.4 (5th March 2001)
//
// Copyright David Wilkinson 2000 - 2001. All Rights reserved.
//
// This software may be used, modified and distributed freely
// providing this copyright notice remains intact at the head
// of the file.
//
// This software is freeware. The author accepts no liability for
// any loss or damages whatsoever incurred directly or indirectly
// from the use of this script. The author of this software makes
// no claims as to its fitness for any purpose whatsoever. If you
// wish to use this software you should first satisfy yourself that
// it meets your requirements.
//
// URL:   http://www.cascade.org.uk/software/php/calendar/
// Email: davidw@xxxxxxxxxxxxxx


class Calendar
{
    /*
        Constructor for the Calendar class
    */
    function Calendar()
    {
    }


    /*
        Get the array of strings used to label the days of the week.
This array contains seven
        elements, one for each day of the week. The first entry in
this array represents Sunday.
    */
    function getDayNames()
    {
        return $this->dayNames;
    }


    /*
        Set the array of strings used to label the days of the week.
This array must contain seven
        elements, one for each day of the week. The first entry in
this array represents Sunday.
    */
    function setDayNames($names)
    {
        $this->dayNames = $names;
    }

    /*
        Get the array of strings used to label the months of the year.
This array contains twelve
        elements, one for each month of the year. The first entry in
this array represents January.
    */
    function getMonthNames()
    {
        return $this->monthNames;
    }

    /*
        Set the array of strings used to label the months of the year.
This array must contain twelve
        elements, one for each month of the year. The first entry in
this array represents January.
    */
    function setMonthNames($names)
    {
        $this->monthNames = $names;
    }



    /*
        Gets the start day of the week. This is the day that appears
in the first column
        of the calendar. Sunday = 0.
    */
      function getStartDay()
    {
        return $this->startDay;
    }

    /*
        Sets the start day of the week. This is the day that appears
in the first column
        of the calendar. Sunday = 0.
    */
    function setStartDay($day)
    {
        $this->startDay = $day;
    }


    /*
        Gets the start month of the year. This is the month that
appears first in the year
        view. January = 1.
    */
    function getStartMonth()
    {
        return $this->startMonth;
    }

    /*
        Sets the start month of the year. This is the month that
appears first in the year
        view. January = 1.
    */
    function setStartMonth($month)
    {
        $this->startMonth = $month;
    }


    /*
        Return the URL to link to in order to display a calendar for a
given month/year.
        You must override this method if you want to activate the
"forward" and "back"
        feature of the calendar.

        Note: If you return an empty string from this function, no
navigation link will
        be displayed. This is the default behaviour.

        If the calendar is being displayed in "year" view, $month will
be set to zero.
    */
    function getCalendarLink($month, $year)
    {
        return "";
    }

    /*
        Return the URL to link to  for a given date.
        You must override this method if you want to activate the date
linking
        feature of the calendar.

        Note: If you return an empty string from this function, no
navigation link will
        be displayed. This is the default behaviour.


        (($link == "") ? $d : "<a href=\"$link\">$d</a>");
    */
    function getDateLink($day, $month, $year, $prefix)
    {
        return  $prefix . $year . (($month < 10) ? "0$month" : $month)
. (($day < 10) ? "0$day" : $day);
    }


    /*
        Return the HTML for a specified month
    */
    function getMonthView($month, $year, $timeoffset, $prefix)
    {
        return $this->getMonthHTML($month, $year, $timeoffset,
$prefix);
    }


    /*
        Return the HTML for a specified year
    */
    function getYearView($year, $timeoffset, $prefix)
    {
        return $this->getYearHTML($year, $timeoffset, $prefix);
    }




/*********************************************************************
***********

        The rest are private methods. No user-servicable parts inside.

        You shouldn't need to call any of these functions directly.


**********************************************************************
***********/


    /*
        Calculate the number of days in a month, taking into account
leap years.
    */
    function getDaysInMonth($month, $year)
    {
        if ($month < 1 || $month > 12)
        {
            return 0;
        }

        $d = $this->daysInMonth[$month - 1];

        if ($month == 2)
        {
            // Check for leap year
            // Forget the 4000 rule, I doubt I'll be around then...

            if ($year%4 == 0)
            {
                if ($year%100 == 0)
                {
                    if ($year%400 == 0)
                    {
                        $d = 29;
                    }
                }
                else
                {
                    $d = 29;
                }
            }
        }

        return $d;
    }


    /*
        Generate the HTML for a given month
    */
    function getMonthHTML($m, $y, $timeoffset, $prefix, $showYear = 1)
    {
      $s = "";

      $a = $this->adjustDate($m, $y);
      $month = $a[0];
      $year = $a[1];

     $daysInMonth = $this->getDaysInMonth($month, $year);
     $date = getdate(mktime(12, 0, 0, $month, 1, $year));

     $first = $date["wday"];
     $monthName = $this->monthNames[$month - 1];

     $prev = $this->adjustDate($month - 1, $year);
     $next = $this->adjustDate($month + 1, $year);

     if ($showYear == 1)
     {
         $prevMonth = $this->getCalendarLink($prev[0], $prev[1]);
         $nextMonth = $this->getCalendarLink($next[0], $next[1]);
     }
     else
     {
         $prevMonth = "";
         $nextMonth = "";
     }

     $header = $monthName . (($showYear > 0) ? " " . $year : "");

     $s .= "<table class=\"calendar\">\n";
     $s .= "<tr>\n";
     $s .= "<td align=\"center\" valign=\"top\">" . (($prevMonth ==
"") ? "&nbsp;" : "<a href=\"$prevMonth\">&lt;&lt;</a>")  . "</td>\n";
     $s .= "<td align=\"center\" valign=\"top\"
class=\"calendarHeader\" colspan=\"5\">$header</td>\n";
     $s .= "<td align=\"center\" valign=\"top\">" . (($nextMonth ==
"") ? "&nbsp;" : "<a href=\"$nextMonth\">&gt;&gt;</a>")  . "</td>\n";
     $s .= "</tr>\n";

     $s .= "<tr>\n";
     $s .= "<td align=\"center\" valign=\"top\"
class=\"calendarHeader\">" . $this->dayNames[($this->startDay)%7] .
"</td>\n";
     $s .= "<td align=\"center\" valign=\"top\"
class=\"calendarHeader\">" . $this->dayNames[($this->startDay+1)%7] .
"</td>\n";
     $s .= "<td align=\"center\" valign=\"top\"
class=\"calendarHeader\">" . $this->dayNames[($this->startDay+2)%7] .
"</td>\n";
     $s .= "<td align=\"center\" valign=\"top\"
class=\"calendarHeader\">" . $this->dayNames[($this->startDay+3)%7] .
"</td>\n";
     $s .= "<td align=\"center\" valign=\"top\"
class=\"calendarHeader\">" . $this->dayNames[($this->startDay+4)%7] .
"</td>\n";
     $s .= "<td align=\"center\" valign=\"top\"
class=\"calendarHeader\">" . $this->dayNames[($this->startDay+5)%7] .
"</td>\n";
     $s .= "<td align=\"center\" valign=\"top\"
class=\"calendarHeader\">" . $this->dayNames[($this->startDay+6)%7] .
"</td>\n";
     $s .= "</tr>\n";

     // We need to work out what date to start at so that the first
appears in the correct column
     $d = $this->startDay + 1 - $first;
     while ($d > 1)
     {
         $d -= 7;
     }

        // Make sure we know when today is, so that we can use a
different CSS style
        $date_time_array =  getdate( time() + $timeoffset );
        $today = getdate(mktime($date_time_array ["hours"]-12,
$date_time_array["minutes" ],$date_time_array[
"seconds"],$date_time_array ["mon"],
$date_time_array["mday" ],$date_time_array[ "year"]));

     while ($d <= $daysInMonth)
     {
         $s .= "<tr>\n";

         for ($i = 0; $i < 7; $i++)
         {
             $class = ($year == $today["year"] && $month ==
$today["mon"] && $d == $today["mday"]) ? "calendarToday" : "calendar";
             $s .= "<td class=\"$class\" align=\"right\"
valign=\"top\">";
             if ($d > 0 && $d <= $daysInMonth)
             {
                 $link = $this->getDateLink($d, $month, $year,
$prefix);
                 $s .= (($link == "") ? $d : "<a
href=\"$link\">$d</a>");
             }
             else
             {
                 $s .= "&nbsp;";
             }
               $s .= "</td>\n";
             $d++;
         }
         $s .= "</tr>\n";
     }

     $s .= "</table>\n";

     return $s;
    }


    /*
        Generate the HTML for a given year
    */
    function getYearHTML($year, $timeoffset, $prefix)
    {
      $s = "";
     $prev = $this->getCalendarLink(0, $year - 1);
     $next = $this->getCalendarLink(0, $year + 1);

        $s .= "<table class=\"calendar\" border=\"0\">\n";
        $s .= "<tr>";
     $s .= "<td align=\"center\" valign=\"top\" align=\"left\">" .
(($prev == "") ? "&nbsp;" : "<a href=\"$prev\">&lt;&lt;</a>")  .
"</td>\n";
        $s .= "<td class=\"calendarHeader\" valign=\"top\"
align=\"center\">" . (($this->startMonth > 1) ? $year . " - " . ($year
+ 1) : $year) ."</td>\n";
     $s .= "<td align=\"center\" valign=\"top\" align=\"right\">" .
(($next == "") ? "&nbsp;" : "<a href=\"$next\">&gt;&gt;</a>")  .
"</td>\n";
        $s .= "</tr>\n";
        $s .= "<tr>";
        $s .= "<td class=\"calendar\" valign=\"top\">" .
$this->getMonthHTML(0 + $this->startMonth, $year, $timeoffset,
$prefix, 0) ."</td>\n";
        $s .= "<td class=\"calendar\" valign=\"top\">" .
$this->getMonthHTML(1 + $this->startMonth, $year, $timeoffset,
$prefix, 0) ."</td>\n";
        $s .= "<td class=\"calendar\" valign=\"top\">" .
$this->getMonthHTML(2 + $this->startMonth, $year, $timeoffset,
$prefix, 0) ."</td>\n";
        $s .= "</tr>\n";
        $s .= "<tr>\n";
        $s .= "<td class=\"calendar\" valign=\"top\">" .
$this->getMonthHTML(3 + $this->startMonth, $year, $timeoffset,
$prefix, 0) ."</td>\n";
        $s .= "<td class=\"calendar\" valign=\"top\">" .
$this->getMonthHTML(4 + $this->startMonth, $year, $timeoffset,
$prefix, 0) ."</td>\n";
        $s .= "<td class=\"calendar\" valign=\"top\">" .
$this->getMonthHTML(5 + $this->startMonth, $year, $timeoffset,
$prefix, 0) ."</td>\n";
        $s .= "</tr>\n";
        $s .= "<tr>\n";
        $s .= "<td class=\"calendar\" valign=\"top\">" .
$this->getMonthHTML(6 + $this->startMonth, $year, $timeoffset,
$prefix, 0) ."</td>\n";
        $s .= "<td class=\"calendar\" valign=\"top\">" .
$this->getMonthHTML(7 + $this->startMonth, $year, $timeoffset,
$prefix, 0) ."</td>\n";
        $s .= "<td class=\"calendar\" valign=\"top\">" .
$this->getMonthHTML(8 + $this->startMonth, $year, $timeoffset,
$prefix, 0) ."</td>\n";
        $s .= "</tr>\n";
        $s .= "<tr>\n";
        $s .= "<td class=\"calendar\" valign=\"top\">" .
$this->getMonthHTML(9 + $this->startMonth, $year, $timeoffset,
$prefix, 0) ."</td>\n";
        $s .= "<td class=\"calendar\" valign=\"top\">" .
$this->getMonthHTML(10 + $this->startMonth, $year, $timeoffset,
$prefix, 0) ."</td>\n";
        $s .= "<td class=\"calendar\" valign=\"top\">" .
$this->getMonthHTML(11 + $this->startMonth, $year, $timeoffset,
$prefix, 0) ."</td>\n";
        $s .= "</tr>\n";
        $s .= "</table>\n";

        return $s;
    }

    /*
        Adjust dates to allow months > 12 and < 0. Just adjust the
years appropriately.
        e.g. Month 14 of the year 2001 is actually month 2 of year
2002.
    */
    function adjustDate($month, $year)
    {
        $a = array();
        $a[0] = $month;
        $a[1] = $year;

        while ($a[0] > 12)
        {
            $a[0] -= 12;
            $a[1]++;
        }

        while ($a[0] <= 0)
        {
            $a[0] += 12;
            $a[1]--;
        }

        return $a;
    }

    /*
        The start day of the week. This is the day that appears in the
first column
        of the calendar. Sunday = 0.
    */
    var $startDay = 0;

    /*
        The start month of the year. This is the month that appears in
the first slot
        of the calendar in the year view. January = 1.
    */
    var $startMonth = 1;

    /*
        The labels to display for the days of the week. The first
entry in this array
        represents Sunday.
    */
    var $dayNames = array("S", "M", "T", "W", "T", "F", "S");

    /*
        The labels to display for the months of the year. The first
entry in this array
        represents January.
    */
    var $monthNames = array("January", "February", "March", "April",
"May", "June",
                            "July", "August", "September", "October",
"November", "December");


    /*
        The number of days in each month. You're unlikely to want to
change this...
        The first entry in this array represents January.
    */
    var $daysInMonth = array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31,
30, 31);

}

?>