Extension talk:SpecialCalendar
From MediaWiki.org
Contents |
[edit] Name of this extension
It should either be SpecialCalender or SpecialICalendar. If SpecialICalender, the files should be named so as well. --GunterS 21:17, 18 March 2007 (UTC)
[edit] whats this
maybe a little explanation of what is the extension, where it works, how you use it, and a screen shot?? --217.64.242.138 09:32, 30 March 2007 (UTC)
- It working here: http://www.kk-fj.ch/fj/mw/Special:Calendar/CDP2006
- All will be explain in the Install and How to use section !
- If you have other question d'on't hesitate.
- CU Stéphane
-
- I don't know how to see the calendar on that link Does it look anything like the google calendar extension would? Bouncingmolar 20:43, 12 April 2007 (UTC)
-
-
- No only the events will be visible !
- CU Stéphane 07:07, 13 April 2007 (UTC)
-
[edit] problem
http://www.kk-fj.ch/fj/mw/Special:Calendar/CDP2006
the example site requires identification to see the calendar!
- I'm sorry but I don't use anymore this extension, I use micoformat and a php script to convert it in iCal format.
Use script:
<?php //ini_set('display_errors', '0'); //header('Content-type: application/ical'); // // configuration $h2axsl = '.../toICal.xsl'; // path to toICal.xsl $domain = 'www.kk-fj.ch'; // domain with the hatom content $permalink_stub = '/convert/hcalendar2ical.php5';// public path to this file // // parse request $requested = $_SERVER['REQUEST_URI']; $requested = substr_replace($requested,'',0,strlen($permalink_stub)+2); $requested = urldecode($requested); // deal with encoded $docurl = 'http://'.$domain.'/'.$requested; //$docurl = 'http://microformats.org/';//'http://'.$domain.'/'.$requested; // // grab file contents if (function_exists('curl_init')){ $ch = curl_init(); curl_setopt ($ch, CURLOPT_URL, $docurl); curl_setopt ($ch, CURLOPT_RETURNTRANSFER, 1); curl_setopt ($ch, CURLOPT_CONNECTTIMEOUT, 5); $file_contents = curl_exec($ch); curl_close($ch); } else { $file_contents= file_get_contents($docurl); } // // pass the file through the transform and send it out $xsl = new DomDocument(); $xsl->load($h2axsl); $inputdom = new DomDocument(); if ($inputdom->loadXML(_translateLiteral2NumericEntities($file_contents))) { $proc = new XsltProcessor(); $proc->importStylesheet($xsl); $proc->setParameter('', 'source-uri', $docurl); //$newdom = $proc->transformToDoc($inputdom); //print $newdom->saveXML(); $result = $proc->transformToXML($inputdom); print $result; } /** * get from http://bugs.php.net/bug.php?id=15092 * * Translate literal entities to their numeric equivalents and vice versa. * * PHP's XML parser (in V 4.1.0) has problems with entities! The only one's that are recognized * are &, < > and ". *ALL* others (like © a.s.o.) cause an * XML_ERROR_UNDEFINED_ENTITY error. I reported this as bug at http://bugs.php.net/bug.php?id=15092 * The work around is to translate the entities found in the XML source to their numeric equivalent * E.g. to   / © to © a.s.o. * * NOTE: Entities &, < > and " are left 'as is' * * @author Sam Blum bs_php@users.sourceforge.net * @param string $xmlSource The XML string * @param bool $reverse (default=FALSE) Translate numeric entities to literal entities. * @return The XML string with translatet entities. */ function _translateLiteral2NumericEntities($xmlSource, $reverse = FALSE) { static $literal2NumericEntity; if (empty($literal2NumericEntity)) { $transTbl = get_html_translation_table(HTML_ENTITIES); foreach ($transTbl as $char => $entity) { if (strpos('&"<>', $char) !== FALSE) continue; $literal2NumericEntity[$entity] = '&#'.ord($char).';'; } } if ($reverse) { return strtr($xmlSource, array_flip($literal2NumericEntity)); } else { return strtr($xmlSource, $literal2NumericEntity); } } ?>
And the xls file:
<?xml version="1.0"?> <xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0"> <xsl:output encoding="UTF-8" indent="no" media-type="text/x-vcard" method="text"/> <xsl:param name="prodid" select=""-//connolly.w3.org//palmagent 0.6 (BETA)//EN""/> <!-- by Dan Connolly; based on... --> <!-- brian suda brian@suda.co.uk http://suda.co.uk/ XHTML-2-vCard Version 0.5.1 2005-07-08 Copyright 2005 Brian Suda This work is licensed under the Creative Commons Attribution-ShareAlike License. To view a copy of this license, visit http://creativecommons.org/licenses/by-sa/1.0/ --> <!--Best Practices states this should be the URL the calendar was transformed from --> <xsl:param name="Source"/> <xsl:param name="Anchor"/> <xsl:template match="/"> <xsl:text>BEGIN:VCALENDAR</xsl:text> <xsl:text> PRODID:</xsl:text> <xsl:value-of select="$prodid"/> <xsl:text> VERSION:2.0</xsl:text> <xsl:apply-templates/> <xsl:text> END:VCALENDAR </xsl:text> </xsl:template> <!-- Each event is listed in succession --> <xsl:template match="*[contains(concat(' ',normalize-space(@class),' '),' vevent ')]"> <xsl:if test="not($Anchor) or @id = $Anchor"> <xsl:text> BEGIN:VEVENT</xsl:text> <xsl:call-template name="cal-props"/> <xsl:text> END:VEVENT</xsl:text> </xsl:if> </xsl:template> <!-- ... and todos. --> <xsl:template match="*[contains(concat(' ', normalize-space(@class), ' '),' vtodo ')]"> <xsl:if test="not($Anchor) or @id = $Anchor"> <xsl:text> BEGIN:VTODO</xsl:text> <xsl:call-template name="cal-props"/> <xsl:text> END:VTODO</xsl:text> </xsl:if> </xsl:template> <xsl:template name="cal-props"> <!-- make a UID out of the Source URI and the ID --> <xsl:if test="@id and $Source"> <xsl:text> UID:</xsl:text> <xsl:call-template name="escapeText"> <xsl:with-param name="text-string" select="concat($Source, "#", @id)"/> </xsl:call-template> </xsl:if> <xsl:call-template name="textProp"> <xsl:with-param name="label">DESCRIPTION</xsl:with-param> <xsl:with-param name="class">description</xsl:with-param> </xsl:call-template> <xsl:call-template name="textProp"> <xsl:with-param name="label">SUMMARY</xsl:with-param> <xsl:with-param name="class">summary</xsl:with-param> </xsl:call-template> <xsl:call-template name="dateProp"> <xsl:with-param name="label">DTSTART</xsl:with-param> <xsl:with-param name="class">dtstart</xsl:with-param> </xsl:call-template> <xsl:call-template name="dateProp"> <xsl:with-param name="label">DTEND</xsl:with-param> <xsl:with-param name="class">dtend</xsl:with-param> </xsl:call-template> <xsl:call-template name="durProp"> <xsl:with-param name="label">DURATION</xsl:with-param> <xsl:with-param name="class">duration</xsl:with-param> </xsl:call-template> <xsl:call-template name="refProp"> <xsl:with-param name="label">URL</xsl:with-param> <xsl:with-param name="class">url</xsl:with-param> <xsl:with-param name="default"> <xsl:choose> <xsl:when test="@id"> <xsl:value-of select="concat($Source, "#", @id)"/> </xsl:when> <xsl:otherwise> <xsl:value-of select="$Source"/> </xsl:otherwise> </xsl:choose> </xsl:with-param> </xsl:call-template> <xsl:call-template name="textProp"> <xsl:with-param name="label">LOCATION</xsl:with-param> <xsl:with-param name="class">location</xsl:with-param> </xsl:call-template> </xsl:template> <xsl:template name="textProp"> <xsl:param name="label"/> <xsl:param name="class"/> <!-- hmm... spec (http://microformats.org/wiki/hcard#XMDP_Profile ) "If names in the source schema are case-insensitive, then use an all lowercase equivalent." but X2V and the rfc2629 tools seem to assume case insensitivity --> <xsl:for-each select=".//*[ contains(concat(' ', translate(normalize-space(@class), 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', 'abcdefghijklmnopqrstuvwxyz'), ' '), concat(' ', $class, ' '))]"> <!-- @@ "the first descendant element with that class should take effect, any others being ignored." --> <xsl:text> </xsl:text> <xsl:value-of select="$label"/> <xsl:call-template name="lang"/> <xsl:text>:</xsl:text> <xsl:choose> <!-- @@this multiple values stuff doesn't seem to be in the spec --> <xsl:when test="local-name(.) = "ol" or local-name(.) = "ul""> <xsl:for-each select="*"> <xsl:if test="not(position()=1)"> <xsl:text>,</xsl:text> </xsl:if> <xsl:call-template name="escapeText"> <xsl:with-param name="text-string" select="."/> </xsl:call-template> </xsl:for-each> </xsl:when> <xsl:when test="local-name(.) = "abbr" and @title"> <xsl:variable name="v" select="normalize-space(@title)"/> <xsl:call-template name="escapeText"> <xsl:with-param name="text-string" select="$v"/> </xsl:call-template> </xsl:when> <xsl:otherwise> <xsl:variable name="v" select="normalize-space(.)"/> <xsl:call-template name="escapeText"> <xsl:with-param name="text-string" select="$v"/> </xsl:call-template> </xsl:otherwise> </xsl:choose> </xsl:for-each> </xsl:template> <xsl:template name="lang"> <xsl:variable name="langElt" select="ancestor-or-self::*[@xml:lang or @lang]"/> <xsl:if test="$langElt"> <xsl:variable name="lang"> <xsl:choose> <xsl:when test="$langElt/@xml:lang"> <xsl:value-of select="normalize-space($langElt/@xml:lang)"/> </xsl:when> <xsl:when test="$langElt/@lang"> <xsl:value-of select="normalize-space($langElt/@lang)"/> </xsl:when> <xsl:otherwise> <xsl:message>where id lang and xml:lang go?!?!? </xsl:message> </xsl:otherwise> </xsl:choose> </xsl:variable> <xsl:text>;LANGUAGE=</xsl:text> <xsl:value-of select="$lang"/> </xsl:if> </xsl:template> <xsl:template name="refProp"> <xsl:param name="label"/> <xsl:param name="class"/> <xsl:param name="default"/> <xsl:choose> <xsl:when test=".//*[ contains(concat(' ', @class, ' '), concat(' ', $class, ' '))]"> <xsl:for-each select=".//*[ contains(concat(' ', @class, ' '), concat(' ', $class, ' '))]"> <xsl:text> </xsl:text> <xsl:value-of select="$label"/> <xsl:variable name="ref"> <xsl:choose> <!-- @@make absolute? --> <xsl:when test="@href"> <xsl:value-of select="@href"/> </xsl:when> <xsl:otherwise> <xsl:value-of select="normalize-space(.)"/> </xsl:otherwise> </xsl:choose> </xsl:variable> <xsl:text>:</xsl:text> <xsl:call-template name="escapeText"> <xsl:with-param name="text-string" select="$ref"/> </xsl:call-template> </xsl:for-each> </xsl:when> <xsl:when test="$default"> <xsl:text> </xsl:text> <xsl:value-of select="$label"/> <xsl:text>:</xsl:text> <xsl:call-template name="escapeText"> <xsl:with-param name="text-string" select="$default"/> </xsl:call-template> </xsl:when> </xsl:choose> </xsl:template> <xsl:template name="dateProp"> <xsl:param name="label"/> <xsl:param name="class"/> <!-- @@ case sensitive class matching? --> <xsl:for-each select=".//*[ contains(concat(' ', translate(normalize-space(@class), 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', 'abcdefghijklmnopqrstuvwxyz'), ' '), concat(' ', $class, ' '))]"> <xsl:text> </xsl:text> <xsl:value-of select="$label"/> <xsl:variable name="when"> <xsl:choose> <xsl:when test="@title"> <xsl:value-of select="@title"> </xsl:value-of> </xsl:when> <xsl:otherwise> <xsl:value-of select="normalize-space(.)"/> </xsl:otherwise> </xsl:choose> </xsl:variable> <xsl:choose> <xsl:when test="contains($when, "Z")"> <xsl:text>;VALUE=DATE-TIME:</xsl:text> <xsl:value-of select="translate($when, "-:", "")"/> </xsl:when> <xsl:when test="string-length($when) = string-length("yyyy-mm-ddThh:mm:ss+hhmm")"> <xsl:text>;VALUE=DATE-TIME:</xsl:text> <xsl:call-template name="timeDelta"> <xsl:with-param name="year" select="number(substring($when, 1, 4))"/> <xsl:with-param name="month" select="number(substring($when, 6, 2))"/> <xsl:with-param name="day" select="number(substring($when, 9, 2))"/> <xsl:with-param name="hour" select="number(substring($when, 12, 2))"/> <xsl:with-param name="minute" select="number(substring($when, 15, 2))"/> <xsl:with-param name="hourDelta" select="number(substring($when, 21, 2))"/> </xsl:call-template> </xsl:when> <xsl:when test="contains($when, "T")"> <xsl:text>;VALUE=DATE-TIME:</xsl:text> <xsl:value-of select="translate($when, "-:", "")"/> </xsl:when> <xsl:otherwise> <xsl:text>;VALUE=DATE:</xsl:text> <xsl:value-of select="translate($when, "-:", "")"/> </xsl:otherwise> </xsl:choose> </xsl:for-each> </xsl:template> <xsl:template name="timeDelta"> <!-- see http://www.microformats.org/wiki/datetime-design-pattern --> <!-- returns YYYYMMDDThhmmssZ --> <xsl:param name="year"/> <!-- integers --> <xsl:param name="month"/> <xsl:param name="day"/> <xsl:param name="hour"/> <xsl:param name="minute"/> <xsl:param name="hourDelta"/> <xsl:variable name="hour2"> <xsl:choose> <xsl:when test="$hour + $hourDelta > 23"> <xsl:value-of select="$hour + $hourDelta - 24"/> </xsl:when> <xsl:when test="$hour + $hourDelta < 0"> <xsl:value-of select="$hour + $hourDelta + 24"/> </xsl:when> <xsl:otherwise> <xsl:value-of select="$hour + $hourDelta"/> </xsl:otherwise> </xsl:choose> </xsl:variable> <xsl:variable name="dayDelta"> <xsl:choose> <xsl:when test="$hour + $hourDelta > 23"> <xsl:value-of select="1"/> </xsl:when> <xsl:when test="$hour + $hourDelta < 0"> <xsl:value-of select="-1"/> </xsl:when> <xsl:otherwise> <xsl:value-of select="0"/> </xsl:otherwise> </xsl:choose> </xsl:variable> <xsl:variable name="maxd"> <xsl:call-template name="max-days"> <xsl:with-param name="y" select="$year"/> <xsl:with-param name="m" select="$month"/> </xsl:call-template> </xsl:variable> <xsl:variable name="day2"> <xsl:choose> <xsl:when test="$day + $dayDelta > $maxd"> <xsl:value-of select="1"/> </xsl:when> <xsl:when test="$day + $dayDelta < 0"> <xsl:call-template name="max-days"> <xsl:with-param name="y" select="$y"/> <!-- @@TODO: handle year crossings --> <xsl:with-param name="m" select="$m - 1"/> </xsl:call-template> </xsl:when> <xsl:otherwise> <xsl:value-of select="$day + $dayDelta"/> </xsl:otherwise> </xsl:choose> </xsl:variable> <xsl:variable name="monthDelta"> <xsl:choose> <xsl:when test="$day + $dayDelta > $maxd"> <xsl:value-of select="1"/> </xsl:when> <xsl:when test="$day + $dayDelta < 0"> <xsl:value-of select="-1"/> </xsl:when> <xsl:otherwise> <xsl:value-of select="0"/> </xsl:otherwise> </xsl:choose> </xsl:variable> <xsl:variable name="month2"> <xsl:choose> <xsl:when test="$month + $monthDelta > 12"> <xsl:value-of select="1"/> </xsl:when> <xsl:when test="$month + $monthDelta < 0"> <xsl:value-of select="12"/> </xsl:when> <xsl:otherwise> <xsl:value-of select="$month + $monthDelta"/> </xsl:otherwise> </xsl:choose> </xsl:variable> <xsl:variable name="yearDelta"> <xsl:choose> <xsl:when test="$month + $monthDelta > 12"> <xsl:value-of select="1"/> </xsl:when> <xsl:when test="$month + $monthDelta < 0"> <xsl:value-of select="-1"/> </xsl:when> <xsl:otherwise> <xsl:value-of select="0"/> </xsl:otherwise> </xsl:choose> </xsl:variable> <xsl:variable name="year2"> <xsl:value-of select="$year + $yearDelta"/> </xsl:variable> <xsl:value-of select="concat(format-number($year2, "0000"), format-number($month2, "00"), format-number($day2, "00"), "T", format-number($hour2, "00"), format-number($minute, "00"), "00Z")"/> </xsl:template> <xsl:template name="max-days"> <!-- maximum number of days in the given month of the given year --> <!-- @@ skip leap year for now --> <xsl:param name="y" select="$y"/> <xsl:param name="m" select="$m"/> <xsl:choose> <xsl:when test="$m = 1 or $m = 3 or $m = 5 or $m = 7 or $m = 8 or $m = 10 or $m = 12"> <xsl:value-of select="31"/> </xsl:when> <xsl:when test="$m = 2"> <xsl:value-of select="28"/> </xsl:when> <xsl:otherwise> <xsl:value-of select="30"/> </xsl:otherwise> </xsl:choose> </xsl:template> <xsl:template name="durProp"> <xsl:param name="label"/> <xsl:param name="class"/> <!-- @@ case sensitive class matching? --> <xsl:for-each select=".//*[ contains(concat(' ', translate(normalize-space(@class), 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', 'abcdefghijklmnopqrstuvwxyz'), ' '), concat(' ', $class, ' '))]"> <xsl:text> </xsl:text> <xsl:value-of select="$label"/> <xsl:text>:</xsl:text> <!-- commas aren't possible, are they? --> <xsl:choose> <xsl:when test="local-name(.) = "abbr" and @title"> <xsl:value-of select="@title"/> </xsl:when> <xsl:otherwise> <xsl:value-of select="normalize-space(.)"/> </xsl:otherwise> </xsl:choose> </xsl:for-each> </xsl:template> <xsl:template name="blobProp"> <xsl:param name="label"/> <xsl:param name="class"/> <!-- @@ case sensitive class matching? --> <xsl:for-each select=".//*[ contains(concat(' ', translate(normalize-space(@class), 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', 'abcdefghijklmnopqrstuvwxyz'), ' '), concat(' ', $class, ' '))]"> <xsl:text> </xsl:text> <xsl:value-of select="$label"/> <xsl:choose> <xsl:when test="@src"> <xsl:text>;VALUE=uri:</xsl:text> <xsl:call-template name="escapeText"> <xsl:with-param name="text-string" select="@src"/> </xsl:call-template> </xsl:when> <!-- hmm... href? --> <xsl:otherwise> <xsl:text>:</xsl:text> <xsl:call-template name="escapeText"> <xsl:with-param name="text-string" select="."/> </xsl:call-template> </xsl:otherwise> </xsl:choose> </xsl:for-each> </xsl:template> <xsl:template name="emailProp"> <xsl:param name="label"/> <xsl:param name="class"/> <!-- @@ case sensitive class matching? --> <xsl:for-each select=".//*[ contains(concat(' ', translate(normalize-space(@class), 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', 'abcdefghijklmnopqrstuvwxyz'), ' '), concat(' ', $class, ' '))]"> <xsl:text> </xsl:text> <xsl:value-of select="$label"/> <!-- @@TYPE=x.400 not supported --> <xsl:choose> <xsl:when test="@href and starts-with(@href, "mailto:")"> <xsl:text>:</xsl:text> <xsl:call-template name="escapeText"> <xsl:with-param name="text-string" select="substring-after(@href, ":")"/> </xsl:call-template> </xsl:when> <xsl:otherwise> <xsl:text>:</xsl:text> <xsl:call-template name="escapeText"> <xsl:with-param name="text-string" select="."/> </xsl:call-template> </xsl:otherwise> </xsl:choose> </xsl:for-each> </xsl:template> <xsl:template name="escapeText"> <xsl:param name="text-string"/> <xsl:choose> <xsl:when test="substring-before($text-string,',') = true()"> <xsl:value-of select="substring-before($text-string,',')"/> <xsl:text>\,</xsl:text> <xsl:call-template name="escapeText"> <xsl:with-param name="text-string"> <xsl:value-of select="substring-after($text-string,',')"/> </xsl:with-param> </xsl:call-template> </xsl:when> <xsl:otherwise> <xsl:value-of select="$text-string"/> </xsl:otherwise> </xsl:choose> </xsl:template> <!-- don't pass text thru --> <xsl:template match="text()"/> </xsl:stylesheet>
Stéphane 18:50, 10 December 2007 (UTC)
[edit] example
i would like to see an example... a screenshot or a link would be great.
