|
|
| Line 1: |
Line 1: |
| − | <?php
| + | {{svn|extensions|MediaWiki/SimpleCalendar/SimpleCalendar.php}} |
| − | /**
| |
| − | * MediaWiki SimpleCalendar Extension
| |
| − | * {{php}}{{Category:Extensions|SimpleCalendar}}
| |
| − | * @package MediaWiki
| |
| − | * @subpackage Extensions
| |
| − | * @author Aran Dunkley [http://www.organicdesign.co.nz/nad User:Nad]
| |
| − | * @licence GNU General Public Licence 2.0 or later
| |
| − | */
| |
| | | | |
| − | define('SIMPLECALENDAR_VERSION','1.2.4, 2007-10-18');
| + | See [[MW:Extension:Simple Calendar]] for installation and usage instructions. |
| − | | |
| − | $wgExtensionFunctions[] = 'wfSetupSimpleCalendar';
| |
| − | $wgHooks['LanguageGetMagic'][] = 'wfCalendarLanguageGetMagic';
| |
| − | | |
| − | $wgExtensionCredits['parserhook'][] = array(
| |
| − | 'name' => 'Simple Calendar',
| |
| − | 'author' => '[http://www.organicdesign.co.nz/nad User:Nad]',
| |
| − | 'description' => 'A simple calendar extension',
| |
| − | 'url' => 'http://www.mediawiki.org/wiki/Extension:Simple_Calendar',
| |
| − | 'version' => SIMPLECALENDAR_VERSION
| |
| − | );
| |
| − | | |
| − | function wfCalendarLanguageGetMagic(&$magicWords,$langCode = 0) {
| |
| − | $magicWords['calendar'] = array(0,'calendar');
| |
| − | return true;
| |
| − | }
| |
| − | | |
| − | function wfSetupSimpleCalendar() {
| |
| − | global $wgParser;
| |
| − | $wgParser->setFunctionHook('calendar','wfRenderCalendar');
| |
| − | return true;
| |
| − | }
| |
| − | | |
| − | # Renders a table of all the individual month tables
| |
| − | function wfRenderCalendar(&$parser) {
| |
| − | $parser->mOutput->mCacheTime = -1;
| |
| − | $argv = array();
| |
| − | foreach (func_get_args() as $arg) if (!is_object($arg)) {
| |
| − | if (preg_match('/^(.+?)\\s*=\\s*(.+)$/',$arg,$match)) $argv[$match[1]]=$match[2];
| |
| − | }
| |
| − | if (isset($argv['format'])) $f = $argv['format']; else $f = '%e %B %Y';
| |
| − | if (isset($argv['dayformat'])) $df = $argv['dayformat']; else $df = false;
| |
| − | if (isset($argv['title'])) $p = $argv['title'].'/'; else $p = '';
| |
| − | if (isset($argv['query'])) $q = $argv['query'].'&action=edit'; else $q = 'action=edit';
| |
| − | if (isset($argv['year'])) $y = $argv['year']; else $y = date('Y');
| |
| − | if (isset($argv['month'])) {
| |
| − | $m = $argv['month'];
| |
| − | return wfRenderMonth(strftime('%m',strtotime("$y-$m-01")),$y,$p,$q,$f,$df);
| |
| − | } else $m = 1;
| |
| − | $table = "{| class=\"calendar\"\n";
| |
| − | for ($rows = 3; $rows--; $table .= "|-\n")
| |
| − | for ($cols = 0; $cols < 4; $cols++)
| |
| − | $table .= '|'.wfRenderMonth($m++,$y,$p,$q,$f,$df)."\n";
| |
| − | return "$table\n|}\n";
| |
| − | }
| |
| − | | |
| − | # Return a calendar table of the passed month and year
| |
| − | function wfRenderMonth($m,$y,$prefix = '',$query = '',$format = '%e %B %Y',$dayformat = false) {
| |
| − | $thisDay = date('d');
| |
| − | $thisMonth = date('n');
| |
| − | $thisYear = date('Y');
| |
| − | if (!$d = date('w',$ts = mktime(0,0,0,$m,1,$y))) $d = 7;
| |
| − | $month = wfMsg(strtolower(strftime('%B',$ts)));
| |
| − | $days = array();
| |
| − | foreach (array('M','T','W','T','F','S','S') as $i => $day)
| |
| − | $days[] = $dayformat ? wfMsg(strftime($dayformat,mktime(0,0,0,2,$i,2000))) : $day;
| |
| − | $table = "\n{| class=\"month\"\n|- class=\"heading\"\n|colspan=\"7\"|$month\n|- class=\"dow\"\n";
| |
| − | $table .= '|'.join('||',$days)."\n";
| |
| − | if ($d > 1) $table .= "|-".str_repeat("\n| \n",$d-1);
| |
| − | for ($i = $day = $d; $day < 32; $i++) {
| |
| − | $day = $i - $d + 1;
| |
| − | if ($day < 29 or checkdate($m,$day,$y)) {
| |
| − | if ($i%7 == 1) $table .= "\n|-\n";
| |
| − | $t = ($day == $thisDay and $m == $thisMonth and $y == $thisYear) ? ' class="today"' : '';
| |
| − | $ttext = $prefix.trim(strftime($format,mktime(0,0,0,$m,$day,$y)));
| |
| − | $title = Title::newFromText($ttext);
| |
| − | if (is_object($title)) {
| |
| − | $class = $title->exists() ? 'day-active' : 'day-empty';
| |
| − | $url = $title->getFullURL($title->exists() ? '' : $query);
| |
| − | } else $url = $ttext;
| |
| − | $table .= "|$t|[$url <span class='$class'>$day</span>]\n";
| |
| − | }
| |
| − | }
| |
| − | return "$table\n|}";
| |
| − | }
| |
