lib/Theme.php

   1 <?php rcs_id('$Id: Theme.php,v 1.107 2004-06-21 16:22:29 rurban Exp $');
   2 /* Copyright (C) 2002,2004 $ThePhpWikiProgrammingTeam
   3  *
   4  * This file is part of PhpWiki.
   5  *
   6  * PhpWiki is free software; you can redistribute it and/or modify
   7  * it under the terms of the GNU General Public License as published by
   8  * the Free Software Foundation; either version 2 of the License, or
   9  * (at your option) any later version.
  10  *
  11  * PhpWiki is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14  * GNU General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU General Public License
  17  * along with PhpWiki; if not, write to the Free Software
  18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  19  */
  20
  21 /**
  22  * Customize output by themes: templates, css, special links functions,
  23  * and more formatting.
  24  */
  25
  26 require_once(dirname(__FILE__).'/HtmlElement.php');
  27
  28 /**
  29  * Make a link to a wiki page (in this wiki).
  30  *
  31  * This is a convenience function.
  32  *
  33  * @param mixed $page_or_rev
  34  * Can be:<dl>
  35  * <dt>A string</dt><dd>The page to link to.</dd>
  36  * <dt>A WikiDB_Page object</dt><dd>The page to link to.</dd>
  37  * <dt>A WikiDB_PageRevision object</dt><dd>A specific version of the page to link to.</dd>
  38  * </dl>
  39  *
  40  * @param string $type
  41  * One of:<dl>
  42  * <dt>'unknown'</dt><dd>Make link appropriate for a non-existant page.</dd>
  43  * <dt>'known'</dt><dd>Make link appropriate for an existing page.</dd>
  44  * <dt>'auto'</dt><dd>Either 'unknown' or 'known' as appropriate.</dd>
  45  * <dt>'button'</dt><dd>Make a button-style link.</dd>
  46  * <dt>'if_known'</dt><dd>Only linkify if page exists.</dd>
  47  * </dl>
  48  * Unless $type of of the latter form, the link will be of class 'wiki', 'wikiunknown',
  49  * 'named-wiki', or 'named-wikiunknown', as appropriate.
  50  *
  51  * @param mixed $label (string or XmlContent object)
  52  * Label for the link.  If not given, defaults to the page name.
  53  *
  54  * @return XmlContent The link
  55  */
  56 function WikiLink ($page_or_rev, $type = 'known', $label = false) {
  57     global $WikiTheme, $request;
  58
  59     if ($type == 'button') {
  60         return $WikiTheme->makeLinkButton($page_or_rev, $label);
  61     }
  62
  63     $version = false;
  64
  65     if (isa($page_or_rev, 'WikiDB_PageRevision')) {
  66         $version = $page_or_rev->getVersion();
  67         if ($page_or_rev->isCurrent())
  68             $version = false;
  69         $page = $page_or_rev->getPage();
  70         $pagename = $page->getName();
  71         $wikipage = $pagename;
  72         $exists = true;
  73     }
  74     elseif (isa($page_or_rev, 'WikiDB_Page')) {
  75         $page = $page_or_rev;
  76         $pagename = $page->getName();
  77         $wikipage = $pagename;
  78     }
  79     elseif (isa($page_or_rev, 'WikiPageName')) {
  80         $wikipage = $page_or_rev;
  81         $pagename = $wikipage->name;
  82     }
  83     else {
  84         $wikipage = new WikiPageName($page_or_rev, $request->getPage());
  85         $pagename = $wikipage->name;
  86     }
  87
  88     if (!is_string($wikipage) and !$wikipage->isValid('strict'))
  89         return $WikiTheme->linkBadWikiWord($wikipage, $label);
  90
  91     if ($type == 'auto' or $type == 'if_known') {
  92         if (isset($page)) {
  93             $current = $page->getCurrentRevision();
  94             $exists = ! $current->hasDefaultContents();
  95         }
  96         else {
  97             $dbi = $request->getDbh();
  98             $exists = $dbi->isWikiPage($wikipage->name);
  99         }
 100     }
 101     elseif ($type == 'unknown') {
 102         $exists = false;
 103     }
 104     else {
 105         $exists = true;
 106     }
 107
 108     // FIXME: this should be somewhere else, if really needed.
 109     // WikiLink makes A link, not a string of fancy ones.
 110     // (I think that the fancy split links are just confusing.)
 111     // Todo: test external ImageLinks http://some/images/next.gif
 112     if (isa($wikipage, 'WikiPageName') and
 113         ! $label and
 114         strchr(substr($wikipage->shortName,1), SUBPAGE_SEPARATOR))
 115     {
 116         $parts = explode(SUBPAGE_SEPARATOR, $wikipage->shortName);
 117         $last_part = array_pop($parts);
 118         $sep = '';
 119         $link = HTML::span();
 120         foreach ($parts as $part) {
 121             $path[] = $part;
 122             $parent = join(SUBPAGE_SEPARATOR, $path);
 123             if ($WikiTheme->_autosplitWikiWords)
 124                 $part = " " . $part;
 125             if ($part)
 126                 $link->pushContent($WikiTheme->linkExistingWikiWord($parent, $sep . $part));
 127             $sep = $WikiTheme->_autosplitWikiWords ? ' ' . SUBPAGE_SEPARATOR : SUBPAGE_SEPARATOR;
 128         }
 129         if ($exists)
 130             $link->pushContent($WikiTheme->linkExistingWikiWord($wikipage, $sep . $last_part, $version));
 131         else
 132             $link->pushContent($WikiTheme->linkUnknownWikiWord($wikipage, $sep . $last_part));
 133         return $link;
 134     }
 135
 136     if ($exists) {
 137         return $WikiTheme->linkExistingWikiWord($wikipage, $label, $version);
 138     }
 139     elseif ($type == 'if_known') {
 140         if (!$label && isa($wikipage, 'WikiPageName'))
 141             $label = $wikipage->shortName;
 142         return HTML($label ? $label : $pagename);
 143     }
 144     else {
 145         return $WikiTheme->linkUnknownWikiWord($wikipage, $label);
 146     }
 147 }
 148
 149
 150
 151 /**
 152  * Make a button.
 153  *
 154  * This is a convenience function.
 155  *
 156  * @param $action string
 157  * One of <dl>
 158  * <dt>[action]</dt><dd>Perform action (e.g. 'edit') on the selected page.</dd>
 159  * <dt>[ActionPage]</dt><dd>Run the actionpage (e.g. 'BackLinks') on the selected page.</dd>
 160  * <dt>'submit:'[name]</dt><dd>Make a form submission button with the given name.
 161  *      ([name] can be blank for a nameless submit button.)</dd>
 162  * <dt>a hash</dt><dd>Query args for the action. E.g.<pre>
 163  *      array('action' => 'diff', 'previous' => 'author')
 164  * </pre></dd>
 165  * </dl>
 166  *
 167  * @param $label string
 168  * A label for the button.  If ommited, a suitable default (based on the valued of $action)
 169  * will be picked.
 170  *
 171  * @param $page_or_rev mixed
 172  * Which page (& version) to perform the action on.
 173  * Can be one of:<dl>
 174  * <dt>A string</dt><dd>The pagename.</dd>
 175  * <dt>A WikiDB_Page object</dt><dd>The page.</dd>
 176  * <dt>A WikiDB_PageRevision object</dt><dd>A specific version of the page.</dd>
 177  * </dl>
 178  * ($Page_or_rev is ignored for submit buttons.)
 179  */
 180 function Button ($action, $label = false, $page_or_rev = false) {
 181     global $WikiTheme;
 182
 183     if (!is_array($action) && preg_match('/submit:(.*)/A', $action, $m))
 184         return $WikiTheme->makeSubmitButton($label, $m[1], $class = $page_or_rev);
 185     else
 186         return $WikiTheme->makeActionButton($action, $label, $page_or_rev);
 187 }
 188
 189
 190 class Theme {
 191     var $HTML_DUMP_SUFFIX = '';
 192     var $DUMP_MODE = false, $dumped_images, $dumped_css;
 193
 194     function Theme ($theme_name = 'default') {
 195         $this->_name = $theme_name;
 196         $this->_themes_dir = NormalizeLocalFileName("themes");
 197         $this->_path  = defined('PHPWIKI_DIR') ? NormalizeLocalFileName("") : "";
 198         $this->_theme = "themes/$theme_name";
 199
 200         if ($theme_name != 'default')
 201             $this->_default_theme = new Theme;
 202
 203         $this->_css = array();
 204     }
 205
 206     function file ($file) {
 207         return $this->_path . "$this->_theme/$file";
 208    }
 209
 210     function _findFile ($file, $missing_okay = false) {
 211         if (file_exists($this->file($file)))
 212             return "$this->_theme/$file";
 213
 214         // FIXME: this is a short-term hack.  Delete this after all files
 215         // get moved into themes/...
 216         if (file_exists($this->_path . $file))
 217             return $file;
 218
 219         if (isset($this->_default_theme)) {
 220             return $this->_default_theme->_findFile($file, $missing_okay);
 221         }
 222         else if (!$missing_okay) {
 223             trigger_error("$file: not found", E_USER_NOTICE);
 224         }
 225         return false;
 226     }
 227
 228     function _findData ($file, $missing_okay = false) {
 229         $path = $this->_findFile($file, $missing_okay);
 230         if (!$path)
 231             return false;
 232
 233         if (defined('DATA_PATH'))
 234             return DATA_PATH . "/$path";
 235         return $path;
 236     }
 237
 238     ////////////////////////////////////////////////////////////////
 239     //
 240     // Date and Time formatting
 241     //
 242     ////////////////////////////////////////////////////////////////
 243
 244     // Note:  Windows' implemetation of strftime does not include certain
 245         // format specifiers, such as %e (for date without leading zeros).  In
 246         // general, see:
 247         // http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vclib/html/_crt_strftime.2c_.wcsftime.asp
 248         // As a result, we have to use %d, and strip out leading zeros ourselves.
 249
 250     var $_dateFormat = "%B %d, %Y";
 251     var $_timeFormat = "%I:%M %p";
 252
 253     var $_showModTime = true;
 254
 255     /**
 256      * Set format string used for dates.
 257      *
 258      * @param $fs string Format string for dates.
 259      *
 260      * @param $show_mod_time bool If true (default) then times
 261      * are included in the messages generated by getLastModifiedMessage(),
 262      * otherwise, only the date of last modification will be shown.
 263      */
 264     function setDateFormat ($fs, $show_mod_time = true) {
 265         $this->_dateFormat = $fs;
 266         $this->_showModTime = $show_mod_time;
 267     }
 268
 269     /**
 270      * Set format string used for times.
 271      *
 272      * @param $fs string Format string for times.
 273      */
 274     function setTimeFormat ($fs) {
 275         $this->_timeFormat = $fs;
 276     }
 277
 278     /**
 279      * Format a date.
 280      *
 281      * Any time zone offset specified in the users preferences is
 282      * taken into account by this method.
 283      *
 284      * @param $time_t integer Unix-style time.
 285      *
 286      * @return string The date.
 287      */
 288     function formatDate ($time_t) {
 289         global $request;
 290
 291         $offset_time = $time_t + 3600 * $request->getPref('timeOffset');
 292         // strip leading zeros from date elements (ie space followed by zero)
 293         return preg_replace('/ 0/', ' ',
 294                             strftime($this->_dateFormat, $offset_time));
 295     }
 296
 297     /**
 298      * Format a date.
 299      *
 300      * Any time zone offset specified in the users preferences is
 301      * taken into account by this method.
 302      *
 303      * @param $time_t integer Unix-style time.
 304      *
 305      * @return string The time.
 306      */
 307     function formatTime ($time_t) {
 308         //FIXME: make 24-hour mode configurable?
 309         global $request;
 310         $offset_time = $time_t + 3600 * $request->getPref('timeOffset');
 311         return preg_replace('/^0/', ' ',
 312                             strtolower(strftime($this->_timeFormat, $offset_time)));
 313     }
 314
 315     /**
 316      * Format a date and time.
 317      *
 318      * Any time zone offset specified in the users preferences is
 319      * taken into account by this method.
 320      *
 321      * @param $time_t integer Unix-style time.
 322      *
 323      * @return string The date and time.
 324      */
 325     function formatDateTime ($time_t) {
 326         return $this->formatDate($time_t) . ' ' . $this->formatTime($time_t);
 327     }
 328
 329     /**
 330      * Format a (possibly relative) date.
 331      *
 332      * If enabled in the users preferences, this method might
 333      * return a relative day (e.g. 'Today', 'Yesterday').
 334      *
 335      * Any time zone offset specified in the users preferences is
 336      * taken into account by this method.
 337      *
 338      * @param $time_t integer Unix-style time.
 339      *
 340      * @return string The day.
 341      */
 342     function getDay ($time_t) {
 343         global $request;
 344
 345         if ($request->getPref('relativeDates') && ($date = $this->_relativeDay($time_t))) {
 346             return ucfirst($date);
 347         }
 348         return $this->formatDate($time_t);
 349     }
 350
 351     /**
 352      * Format the "last modified" message for a page revision.
 353      *
 354      * @param $revision object A WikiDB_PageRevision object.
 355      *
 356      * @param $show_version bool Should the page version number
 357      * be included in the message.  (If this argument is omitted,
 358      * then the version number will be shown only iff the revision
 359      * is not the current one.
 360      *
 361      * @return string The "last modified" message.
 362      */
 363     function getLastModifiedMessage ($revision, $show_version = 'auto') {
 364         global $request;
 365
 366         // dates >= this are considered invalid.
 367         if (! defined('EPOCH'))
 368             define('EPOCH', 0); // seconds since ~ January 1 1970
 369
 370         $mtime = $revision->get('mtime');
 371         if ($mtime <= EPOCH)
 372             return fmt("Never edited");
 373
 374         if ($show_version == 'auto')
 375             $show_version = !$revision->isCurrent();
 376
 377         if ($request->getPref('relativeDates') && ($date = $this->_relativeDay($mtime))) {
 378             if ($this->_showModTime)
 379                 $date =  sprintf(_("%s at %s"),
 380                                  $date, $this->formatTime($mtime));
 381
 382             if ($show_version)
 383                 return fmt("Version %s, saved %s", $revision->getVersion(), $date);
 384             else
 385                 return fmt("Last edited %s", $date);
 386         }
 387
 388         if ($this->_showModTime)
 389             $date = $this->formatDateTime($mtime);
 390         else
 391             $date = $this->formatDate($mtime);
 392
 393         if ($show_version)
 394             return fmt("Version %s, saved on %s", $revision->getVersion(), $date);
 395         else
 396             return fmt("Last edited on %s", $date);
 397     }
 398
 399     function _relativeDay ($time_t) {
 400         global $request;
 401
 402         if (is_numeric($request->getPref('timeOffset')))
 403           $offset = 3600 * $request->getPref('timeOffset');
 404         else
 405           $offset = 0;
 406
 407         $now = time() + $offset;
 408         $today = localtime($now, true);
 409         $time = localtime($time_t + $offset, true);
 410
 411         if ($time['tm_yday'] == $today['tm_yday'] && $time['tm_year'] == $today['tm_year'])
 412             return _("today");
 413
 414         // Note that due to daylight savings chages (and leap seconds), $now minus
 415         // 24 hours is not guaranteed to be yesterday.
 416         $yesterday = localtime($now - (12 + $today['tm_hour']) * 3600, true);
 417         if ($time['tm_yday'] == $yesterday['tm_yday'] && $time['tm_year'] == $yesterday['tm_year'])
 418             return _("yesterday");
 419
 420         return false;
 421     }
 422
 423     /**
 424      * Format the "Author" and "Owner" messages for a page revision.
 425      */
 426     function getOwnerMessage ($page) {
 427         if (!ENABLE_PAGEPERM or !class_exists("PagePermission"))
 428             return '';
 429         $dbi =& $GLOBALS['request']->_dbi;
 430         $owner = $page->getOwner();
 431         if ($owner) {
 432             /*
 433             if ( mayAccessPage('change',$page->getName()) )
 434                 return fmt("Owner: %s", $this->makeActionButton(array('action'=>_("chown"),
 435                                                                       's' => $page->getName()),
 436                                                                 $owner, $page));
 437             */
 438             if ( $dbi->isWikiPage($owner) )
 439                 return fmt("Owner: %s", WikiLink($owner));
 440             else
 441                 return fmt("Owner: %s", '"'.$owner.'"');
 442         }
 443     }
 444
 445     function getAuthorMessage ($revision, $only_authenticated = true) {
 446         $dbi =& $GLOBALS['request']->_dbi;
 447         $author = $revision->get('author_id');
 448         if ( $author or $only_authenticated ) {
 449             if (!$author) $author = $revision->get('author');
 450             if (!$author) return '';
 451             if ( $dbi->isWikiPage($author) )
 452                 return fmt("by %s", WikiLink($author));
 453             else
 454                 return fmt("by %s", '"'.$author.'"');
 455         }
 456     }
 457
 458     ////////////////////////////////////////////////////////////////
 459     //
 460     // Hooks for other formatting
 461     //
 462     ////////////////////////////////////////////////////////////////
 463
 464     //FIXME: PHP 4.1 Warnings
 465     //lib/Theme.php:84: Notice[8]: The call_user_method() function is deprecated,
 466     //use the call_user_func variety with the array(&$obj, "method") syntax instead
 467
 468     function getFormatter ($type, $format) {
 469         $method = strtolower("get${type}Formatter");
 470         if (method_exists($this, $method))
 471             return $this->{$method}($format);
 472         return false;
 473     }
 474
 475     ////////////////////////////////////////////////////////////////
 476     //
 477     // Links
 478     //
 479     ////////////////////////////////////////////////////////////////
 480
 481     var $_autosplitWikiWords = false;
 482
 483     function setAutosplitWikiWords($autosplit=false) {
 484         $this->_autosplitWikiWords = $autosplit ? true : false;
 485     }
 486
 487     function maybeSplitWikiWord ($wikiword) {
 488         if ($this->_autosplitWikiWords)
 489             return SplitPagename($wikiword);
 490         else
 491             return $wikiword;
 492     }
 493
 494     var $_anonEditUnknownLinks = true;
 495     function setAnonEditUnknownLinks($anonedit=true) {
 496         $this->_anonEditUnknownLinks = $anonedit ? true : false;
 497     }
 498
 499     function linkExistingWikiWord($wikiword, $linktext = '', $version = false) {
 500         global $request;
 501
 502         if ($version !== false)
 503             $url = WikiURL($wikiword, array('version' => $version));
 504         else
 505             $url = WikiURL($wikiword);
 506
 507         // Extra steps for dumping page to an html file.
 508         // FIXME: shouldn't this be in WikiURL?
 509         if ($this->HTML_DUMP_SUFFIX) {
 510             // no action or sortby links
 511             $url = preg_replace("/\?.*$/","",$url);
 512             // urlencode for pagenames with accented letters
 513             $url = rawurlencode($url);
 514             $url = preg_replace('/^\./', '%2e', $url);
 515             // fix url#anchor links (looks awful)
 516             if (strstr($url,'%23'))
 517                 $url = preg_replace("/%23/",$this->HTML_DUMP_SUFFIX."#",$url);
 518             else
 519                 $url .= $this->HTML_DUMP_SUFFIX;
 520         }
 521
 522         $link = HTML::a(array('href' => $url));
 523
 524         if (isa($wikiword, 'WikiPageName'))
 525             $default_text = $wikiword->shortName;
 526         else
 527             $default_text = $wikiword;
 528
 529         if (!empty($linktext)) {
 530             $link->pushContent($linktext);
 531             $link->setAttr('class', 'named-wiki');
 532             $link->setAttr('title', $this->maybeSplitWikiWord($default_text));
 533         }
 534         else {
 535             $link->pushContent($this->maybeSplitWikiWord($default_text));
 536             $link->setAttr('class', 'wiki');
 537         }
 538         if ($request->getArg('frame'))
 539             $link->setAttr('target', '_top');
 540         return $link;
 541     }
 542
 543     function linkUnknownWikiWord($wikiword, $linktext = '') {
 544         global $request;
 545
 546         // Get rid of anchors on unknown wikiwords
 547         if (isa($wikiword, 'WikiPageName')) {
 548             $default_text = $wikiword->shortName;
 549             $wikiword = $wikiword->name;
 550         }
 551         else {
 552             $default_text = $wikiword;
 553         }
 554
 555         if ($this->DUMP_MODE) { // HTML, PDF or XML
 556             $link = HTML::u( empty($linktext) ? $wikiword : $linktext);
 557             $link->addTooltip(sprintf(_("Empty link to: %s"), $wikiword));
 558             $link->setAttr('class', empty($linktext) ? 'wikiunknown' : 'named-wikiunknown');
 559             return $link;
 560         } else {
 561             // if AnonEditUnknownLinks show "?" only users which are allowed to edit this page
 562             if (! $this->_anonEditUnknownLinks and ! mayAccessPage('edit', $request->getArg('pagename'))) {
 563                 $text = HTML::span( empty($linktext) ? $wikiword : $linktext);
 564                 $text->setAttr('class', empty($linktext) ? 'wikiunknown' : 'named-wikiunknown');
 565                 return $text;
 566             } else {
 567                 $url = WikiURL($wikiword, array('action' => 'create'));
 568                 $button = $this->makeButton('?', $url);
 569                 $button->addTooltip(sprintf(_("Create: %s"), $wikiword));
 570             }
 571         }
 572
 573         $link = HTML::span();
 574         if (!empty($linktext)) {
 575             $link->pushContent(HTML::u($linktext));
 576             $link->setAttr('class', 'named-wikiunknown');
 577         }
 578         else {
 579             $link->pushContent(HTML::u($this->maybeSplitWikiWord($default_text)));
 580             $link->setAttr('class', 'wikiunknown');
 581         }
 582         $link->pushContent($button);
 583         if ($request->getPref('googleLink')) {
 584             $gbutton = $this->makeButton('G', "http://www.google.com/search?q=$wikiword");
 585             $gbutton->addTooltip(sprintf(_("Google:%s"), $wikiword));
 586             $link->pushContent($gbutton);
 587         }
 588         if ($request->getArg('frame'))
 589             $link->setAttr('target', '_top');
 590         return $link;
 591     }
 592
 593     function linkBadWikiWord($wikiword, $linktext = '') {
 594         global $ErrorManager;
 595
 596         if ($linktext) {
 597             $text = $linktext;
 598         }
 599         elseif (isa($wikiword, 'WikiPageName')) {
 600             $text = $wikiword->shortName;
 601         }
 602         else {
 603             $text = $wikiword;
 604         }
 605
 606         if (isa($wikiword, 'WikiPageName'))
 607             $message = $wikiword->getWarnings();
 608         else
 609             $message = sprintf(_("'%s': Bad page name"), $wikiword);
 610         $ErrorManager->warning($message);
 611
 612         return HTML::span(array('class' => 'badwikiword'), $text);
 613     }
 614
 615     ////////////////////////////////////////////////////////////////
 616     //
 617     // Images and Icons
 618     //
 619     ////////////////////////////////////////////////////////////////
 620     var $_imageAliases = array();
 621     var $_imageAlt = array();
 622
 623     /**
 624      *
 625      * (To disable an image, alias the image to <code>false</code>.
 626      */
 627     function addImageAlias ($alias, $image_name) {
 628         // fall back to the PhpWiki-supplied image if not found
 629         if ($this->_findFile("images/$image_name", true))
 630             $this->_imageAliases[$alias] = $image_name;
 631     }
 632
 633     function addImageAlt ($alias, $alt_text) {
 634         $this->_imageAlt[$alias] = $alt_text;
 635     }
 636     function getImageAlt ($alias) {
 637         return $this->_imageAlt[$alias];
 638     }
 639
 640     function getImageURL ($image) {
 641         $aliases = &$this->_imageAliases;
 642
 643         if (isset($aliases[$image])) {
 644             $image = $aliases[$image];
 645             if (!$image)
 646                 return false;
 647         }
 648
 649         // If not extension, default to .png.
 650         if (!preg_match('/\.\w+$/', $image))
 651             $image .= '.png';
 652
 653         // FIXME: this should probably be made to fall back
 654         //        automatically to .gif, .jpg.
 655         //        Also try .gif before .png if browser doesn't like png.
 656
 657         $path = $this->_findData("images/$image", 'missing okay');
 658         if (!$path) // search explicit images/ or button/ links also
 659             $path = $this->_findData("$image", 'missing okay');
 660
 661         if ($this->DUMP_MODE) {
 662             if (empty($this->dumped_images)) $this->dumped_images = array();
 663             $path = "images/". basename($path);
 664             if (!in_array($path,$this->dumped_images)) $this->dumped_images[] = $path;
 665         }
 666         return $path;
 667     }
 668
 669     function setLinkIcon($proto, $image = false) {
 670         if (!$image)
 671             $image = $proto;
 672
 673         $this->_linkIcons[$proto] = $image;
 674     }
 675
 676     function getLinkIconURL ($proto) {
 677         $icons = &$this->_linkIcons;
 678         if (!empty($icons[$proto]))
 679             return $this->getImageURL($icons[$proto]);
 680         elseif (!empty($icons['*']))
 681             return $this->getImageURL($icons['*']);
 682         return false;
 683     }
 684
 685     var $_linkIcon = 'front'; // or 'after' or 'no'.
 686     // maybe also 'spanall': there is a scheme currently in effect with front, which
 687     // spans the icon only to the first, to let the next words wrap on line breaks
 688     // see stdlib.php:PossiblyGlueIconToText()
 689     function getLinkIconAttr () {
 690         return $this->_linkIcon;
 691     }
 692     function setLinkIconAttr ($where) {
 693         $this->_linkIcon = $where;
 694     }
 695
 696     function addButtonAlias ($text, $alias = false) {
 697         $aliases = &$this->_buttonAliases;
 698
 699         if (is_array($text))
 700             $aliases = array_merge($aliases, $text);
 701         elseif ($alias === false)
 702             unset($aliases[$text]);
 703         else
 704             $aliases[$text] = $alias;
 705     }
 706
 707     function getButtonURL ($text) {
 708         $aliases = &$this->_buttonAliases;
 709         if (isset($aliases[$text]))
 710             $text = $aliases[$text];
 711
 712         $qtext = urlencode($text);
 713         $url = $this->_findButton("$qtext.png");
 714         if ($url && strstr($url, '%')) {
 715             $url = preg_replace('|([^/]+)$|e', 'urlencode("\\1")', $url);
 716         }
 717         if (!$url) {// Jeff complained about png not supported everywhere. This is not PC
 718             $url = $this->_findButton("$qtext.gif");
 719             if ($url && strstr($url, '%')) {
 720                 $url = preg_replace('|([^/]+)$|e', 'urlencode("\\1")', $url);
 721             }
 722         }
 723         if ($url and $this->DUMP_MODE) {
 724             if (empty($this->dumped_buttons)) $this->dumped_buttons = array();
 725             $file = $url;
 726             if (defined('DATA_PATH'))
 727                 $file = substr($url,strlen(DATA_PATH)+1);
 728             $url = "images/buttons/".basename($file);
 729             if (!array_key_exists($text, $this->dumped_buttons))
 730                 $this->dumped_buttons[$text] = $file;
 731         }
 732         return $url;
 733     }
 734
 735     function _findButton ($button_file) {
 736         if (empty($this->_button_path))
 737             $this->_button_path = $this->_getButtonPath();
 738
 739         foreach ($this->_button_path as $dir) {
 740             if ($path = $this->_findData("$dir/$button_file", 1))
 741                 return $path;
 742         }
 743         return false;
 744     }
 745
 746     function _getButtonPath () {
 747         $button_dir = $this->_findFile("buttons");
 748         $path_dir = $this->_path . $button_dir;
 749         if (!file_exists($path_dir) || !is_dir($path_dir))
 750             return array();
 751         $path = array($button_dir);
 752
 753         $dir = dir($path_dir);
 754         while (($subdir = $dir->read()) !== false) {
 755             if ($subdir[0] == '.')
 756                 continue;
 757             if ($subdir == 'CVS')
 758                 continue;
 759             if (is_dir("$path_dir/$subdir"))
 760                 $path[] = "$button_dir/$subdir";
 761         }
 762         $dir->close();
 763         // add default buttons
 764         $path[] = "themes/default/buttons";
 765         $path_dir = $this->_path . "themes/default/buttons";
 766         $dir = dir($path_dir);
 767         while (($subdir = $dir->read()) !== false) {
 768             if ($subdir[0] == '.')
 769                 continue;
 770             if ($subdir == 'CVS')
 771                 continue;
 772             if (is_dir("$path_dir/$subdir"))
 773                 $path[] = "themes/default/buttons/$subdir";
 774         }
 775         $dir->close();
 776
 777         return $path;
 778     }
 779
 780     ////////////////////////////////////////////////////////////////
 781     //
 782     // Button style
 783     //
 784     ////////////////////////////////////////////////////////////////
 785
 786     function makeButton ($text, $url, $class = false) {
 787         // FIXME: don't always try for image button?
 788
 789         // Special case: URLs like 'submit:preview' generate form
 790         // submission buttons.
 791         if (preg_match('/^submit:(.*)$/', $url, $m))
 792             return $this->makeSubmitButton($text, $m[1], $class);
 793
 794         $imgurl = $this->getButtonURL($text);
 795         if ($imgurl)
 796             return new ImageButton($text, $url, $class, $imgurl);
 797         else
 798             return new Button($this->maybeSplitWikiWord($text), $url, $class);
 799     }
 800
 801     function makeSubmitButton ($text, $name, $class = false) {
 802         $imgurl = $this->getButtonURL($text);
 803
 804         if ($imgurl)
 805             return new SubmitImageButton($text, $name, $class, $imgurl);
 806         else
 807             return new SubmitButton($text, $name, $class);
 808     }
 809
 810     /**
 811      * Make button to perform action.
 812      *
 813      * This constructs a button which performs an action on the
 814      * currently selected version of the current page.
 815      * (Or anotherpage or version, if you want...)
 816      *
 817      * @param $action string The action to perform (e.g. 'edit', 'lock').
 818      * This can also be the name of an "action page" like 'LikePages'.
 819      * Alternatively you can give a hash of query args to be applied
 820      * to the page.
 821      *
 822      * @param $label string Textual label for the button.  If left empty,
 823      * a suitable name will be guessed.
 824      *
 825      * @param $page_or_rev mixed  The page to link to.  This can be
 826      * given as a string (the page name), a WikiDB_Page object, or as
 827      * WikiDB_PageRevision object.  If given as a WikiDB_PageRevision
 828      * object, the button will link to a specific version of the
 829      * designated page, otherwise the button links to the most recent
 830      * version of the page.
 831      *
 832      * @return object A Button object.
 833      */
 834     function makeActionButton ($action, $label = false, $page_or_rev = false) {
 835         extract($this->_get_name_and_rev($page_or_rev));
 836
 837         if (is_array($action)) {
 838             $attr = $action;
 839             $action = isset($attr['action']) ? $attr['action'] : 'browse';
 840         }
 841         else
 842             $attr['action'] = $action;
 843
 844         $class = is_safe_action($action) ? 'wikiaction' : 'wikiadmin';
 845         if (!$label)
 846             $label = $this->_labelForAction($action);
 847
 848         if ($version)
 849             $attr['version'] = $version;
 850
 851         if ($action == 'browse')
 852             unset($attr['action']);
 853
 854         return $this->makeButton($label, WikiURL($pagename, $attr), $class);
 855     }
 856
 857     /**
 858      * Make a "button" which links to a wiki-page.
 859      *
 860      * These are really just regular WikiLinks, possibly
 861      * disguised (e.g. behind an image button) by the theme.
 862      *
 863      * This method should probably only be used for links
 864      * which appear in page navigation bars, or similar places.
 865      *
 866      * Use linkExistingWikiWord, or LinkWikiWord for normal links.
 867      *
 868      * @param $page_or_rev mixed The page to link to.  This can be
 869      * given as a string (the page name), a WikiDB_Page object, or as
 870      * WikiDB_PageRevision object.  If given as a WikiDB_PageRevision
 871      * object, the button will link to a specific version of the
 872      * designated page, otherwise the button links to the most recent
 873      * version of the page.
 874      *
 875      * @return object A Button object.
 876      */
 877     function makeLinkButton ($page_or_rev, $label = false, $action = false) {
 878         extract($this->_get_name_and_rev($page_or_rev));
 879
 880         $args = $version ? array('version' => $version) : false;
 881         if ($action) $args['action'] = $action;
 882
 883         return $this->makeButton($label ? $label : $pagename,
 884                                  WikiURL($pagename, $args), 'wiki');
 885     }
 886
 887     function _get_name_and_rev ($page_or_rev) {
 888         $version = false;
 889
 890         if (empty($page_or_rev)) {
 891             global $request;
 892             $pagename = $request->getArg("pagename");
 893             $version = $request->getArg("version");
 894         }
 895         elseif (is_object($page_or_rev)) {
 896             if (isa($page_or_rev, 'WikiDB_PageRevision')) {
 897                 $rev = $page_or_rev;
 898                 $page = $rev->getPage();
 899                 if (!$rev->isCurrent()) $version = $rev->getVersion();
 900             }
 901             else {
 902                 $page = $page_or_rev;
 903             }
 904             $pagename = $page->getName();
 905         }
 906         else {
 907             $pagename = (string) $page_or_rev;
 908         }
 909         return compact('pagename', 'version');
 910     }
 911
 912     function _labelForAction ($action) {
 913         switch ($action) {
 914             case 'edit':   return _("Edit");
 915             case 'diff':   return _("Diff");
 916             case 'logout': return _("Sign Out");
 917             case 'login':  return _("Sign In");
 918             case 'lock':   return _("Lock Page");
 919             case 'unlock': return _("Unlock Page");
 920             case 'remove': return _("Remove Page");
 921             default:
 922                 // I don't think the rest of these actually get used.
 923                 // 'setprefs'
 924                 // 'upload' 'dumpserial' 'loadfile' 'zip'
 925                 // 'save' 'browse'
 926                 return gettext(ucfirst($action));
 927         }
 928     }
 929
 930     //----------------------------------------------------------------
 931     var $_buttonSeparator = "\n | ";
 932
 933     function setButtonSeparator($separator) {
 934         $this->_buttonSeparator = $separator;
 935     }
 936
 937     function getButtonSeparator() {
 938         return $this->_buttonSeparator;
 939     }
 940
 941
 942     ////////////////////////////////////////////////////////////////
 943     //
 944     // CSS
 945     //
 946     // Notes:
 947     //
 948     // Based on testing with Galeon 1.2.7 (Mozilla 1.2):
 949     // Automatic media-based style selection (via <link> tags) only
 950     // seems to work for the default style, not for alternate styles.
 951     //
 952     // Doing
 953     //
 954     //  <link rel="stylesheet" type="text/css" href="phpwiki.css" />
 955     //  <link rel="stylesheet" type="text/css" href="phpwiki-printer.css" media="print" />
 956     //
 957     // works to make it so that the printer style sheet get used
 958     // automatically when printing (or print-previewing) a page
 959     // (but when only when the default style is selected.)
 960     //
 961     // Attempts like:
 962     //
 963     //  <link rel="alternate stylesheet" title="Modern"
 964     //        type="text/css" href="phpwiki-modern.css" />
 965     //  <link rel="alternate stylesheet" title="Modern"
 966     //        type="text/css" href="phpwiki-printer.css" media="print" />
 967     //
 968     // Result in two "Modern" choices when trying to select alternate style.
 969     // If one selects the first of those choices, one gets phpwiki-modern
 970     // both when browsing and printing.  If one selects the second "Modern",
 971     // one gets no CSS when browsing, and phpwiki-printer when printing.
 972     //
 973     // The Real Fix?
 974     // =============
 975     //
 976     // We should probably move to doing the media based style
 977     // switching in the CSS files themselves using, e.g.:
 978     //
 979     //  @import url(print.css) print;
 980     //
 981     ////////////////////////////////////////////////////////////////
 982
 983     function _CSSlink($title, $css_file, $media, $is_alt = false) {
 984         // Don't set title on default style.  This makes it clear to
 985         // the user which is the default (i.e. most supported) style.
 986         if ($is_alt and isBrowserKonqueror())
 987             return HTML();
 988         $link = HTML::link(array('rel'     => $is_alt ? 'alternate stylesheet' : 'stylesheet',
 989                                  'type'    => 'text/css',
 990                                  'charset' => $GLOBALS['charset'],
 991                                  'href'    => $this->_findData($css_file)));
 992         if ($is_alt)
 993             $link->setAttr('title', $title);
 994
 995         if ($media)
 996             $link->setAttr('media', $media);
 997         if ($this->DUMP_MODE) {
 998             if (empty($this->dumped_css)) $this->dumped_css = array();
 999             if (!in_array($css_file,$this->dumped_css)) $this->dumped_css[] = $css_file;
1000             $link->setAttr('href', basename($link->getAttr('href')));
1001         }
1002
1003         return $link;
1004     }
1005
1006     /** Set default CSS source for this theme.
1007      *
1008      * To set styles to be used for different media, pass a
1009      * hash for the second argument, e.g.
1010      *
1011      * $theme->setDefaultCSS('default', array('' => 'normal.css',
1012      *                                        'print' => 'printer.css'));
1013      *
1014      * If you call this more than once, the last one called takes
1015      * precedence as the default style.
1016      *
1017      * @param string $title Name of style (currently ignored, unless
1018      * you call this more than once, in which case, some of the style
1019      * will become alternate (rather than default) styles, and then their
1020      * titles will be used.
1021      *
1022      * @param mixed $css_files Name of CSS file, or hash containing a mapping
1023      * between media types and CSS file names.  Use a key of '' (the empty string)
1024      * to set the default CSS for non-specified media.  (See above for an example.)
1025      */
1026     function setDefaultCSS ($title, $css_files) {
1027         if (!is_array($css_files))
1028             $css_files = array('' => $css_files);
1029         // Add to the front of $this->_css
1030         unset($this->_css[$title]);
1031         $this->_css = array_merge(array($title => $css_files), $this->_css);
1032     }
1033
1034     /** Set alternate CSS source for this theme.
1035      *
1036      * @param string $title Name of style.
1037      * @param string $css_files Name of CSS file.
1038      */
1039     function addAlternateCSS ($title, $css_files) {
1040         if (!is_array($css_files))
1041             $css_files = array('' => $css_files);
1042         $this->_css[$title] = $css_files;
1043     }
1044
1045     /**
1046      * @return string HTML for CSS.
1047      */
1048     function getCSS () {
1049         $css = array();
1050         $is_alt = false;
1051         foreach ($this->_css as $title => $css_files) {
1052             ksort($css_files); // move $css_files[''] to front.
1053             foreach ($css_files as $media => $css_file) {
1054                 $css[] = $this->_CSSlink($title, $css_file, $media, $is_alt);
1055                 if ($is_alt) break;
1056
1057             }
1058             $is_alt = true;
1059         }
1060         return HTML($css);
1061     }
1062
1063
1064     function findTemplate ($name) {
1065         return $this->_path . $this->_findFile("templates/$name.tmpl");
1066     }
1067
1068     var $_MoreHeaders = array();
1069     function addMoreHeaders ($element) {
1070         array_push($this->_MoreHeaders,$element);
1071     }
1072     function getMoreHeaders () {
1073         if (empty($this->_MoreHeaders))
1074             return '';
1075         $out = '';
1076         //$out = "<!-- More Headers -->\n";
1077         foreach ($this->_MoreHeaders as $h) {
1078             if (is_object($h))
1079                 $out .= printXML($h);
1080             else
1081                 $out .= "$h\n";
1082         }
1083         return $out;
1084     }
1085
1086     var $_MoreAttr = array();
1087     function addMoreAttr ($id,$element) {
1088         if (empty($this->_MoreAttr) or !is_array($this->_MoreAttr[$id]))
1089             $this->_MoreAttr[$id] = array($element);
1090         else
1091             array_push($this->_MoreAttr[$id],$element);
1092     }
1093     function getMoreAttr ($id) {
1094         if (empty($this->_MoreAttr[$id]))
1095             return '';
1096         $out = '';
1097         foreach ($this->_MoreAttr[$id] as $h) {
1098             if (is_object($h))
1099                 $out .= printXML($h);
1100             else
1101                 $out .= "$h";
1102         }
1103         return $out;
1104     }
1105
1106     /**
1107      * Custom UserPreferences:
1108      * A list of name => _UserPreference class pairs.
1109      * Rationale: Certain themes should be able to extend the predefined list
1110      * of preferences. Display/editing is done in the theme specific userprefs.tmpl
1111      * but storage/sanification/update/... must be extended to the Get/SetPreferences methods.
1112      * These values are just ignored if another theme is used.
1113      */
1114     function customUserPreferences($array) {
1115         global $customUserPreferenceColumns; // FIXME: really a global?
1116         if (empty($customUserPreferenceColumns)) $customUserPreferenceColumns = array();
1117         //array('wikilens' => new _UserPreference_wikilens());
1118         foreach ($array as $field => $prefobj) {
1119             $customUserPreferenceColumns[$field] = $prefobj;
1120         }
1121     }
1122
1123     /** addPageListColumn(array('rating' => new _PageList_Column_rating('rating', _("Rate"))))
1124      *  Register custom PageList types for special themes, like
1125      *  'rating' for wikilens
1126      */
1127     function addPageListColumn ($array) {
1128         global $customPageListColumns;
1129         if (empty($customPageListColumns)) $customPageListColumns = array();
1130         foreach ($array as $column => $obj) {
1131             $customPageListColumns[$column] = $obj;
1132         }
1133     }
1134
1135 };
1136
1137
1138 /**
1139  * A class representing a clickable "button".
1140  *
1141  * In it's simplest (default) form, a "button" is just a link associated
1142  * with some sort of wiki-action.
1143  */
1144 class Button extends HtmlElement {
1145     /** Constructor
1146      *
1147      * @param $text string The text for the button.
1148      * @param $url string The url (href) for the button.
1149      * @param $class string The CSS class for the button.
1150      */
1151     function Button ($text, $url, $class = false) {
1152         global $request;
1153         //php5 workaround
1154         if (check_php_version(5)) {
1155             $this->_init('a', array('href' => $url));
1156         } else {
1157             $this->__construct('a', array('href' => $url));
1158         }
1159         if ($class)
1160             $this->setAttr('class', $class);
1161         if ($request->getArg('frame'))
1162             $this->setAttr('target', '_top');
1163         $this->pushContent($GLOBALS['WikiTheme']->maybeSplitWikiWord($text));
1164     }
1165
1166 };
1167
1168
1169 /**
1170  * A clickable image button.
1171  */
1172 class ImageButton extends Button {
1173     /** Constructor
1174      *
1175      * @param $text string The text for the button.
1176      * @param $url string The url (href) for the button.
1177      * @param $class string The CSS class for the button.
1178      * @param $img_url string URL for button's image.
1179      * @param $img_attr array Additional attributes for the &lt;img&gt; tag.
1180      */
1181     function ImageButton ($text, $url, $class, $img_url, $img_attr = false) {
1182         $this->__construct('a', array('href' => $url));
1183         if ($class)
1184             $this->setAttr('class', $class);
1185
1186         if (!is_array($img_attr))
1187             $img_attr = array();
1188         $img_attr['src'] = $img_url;
1189         $img_attr['alt'] = $text;
1190         $img_attr['class'] = 'wiki-button';
1191         $img_attr['border'] = 0;
1192         $this->pushContent(HTML::img($img_attr));
1193     }
1194 };
1195
1196 /**
1197  * A class representing a form <samp>submit</samp> button.
1198  */
1199 class SubmitButton extends HtmlElement {
1200     /** Constructor
1201      *
1202      * @param $text string The text for the button.
1203      * @param $name string The name of the form field.
1204      * @param $class string The CSS class for the button.
1205      */
1206     function SubmitButton ($text, $name = false, $class = false) {
1207         $this->__construct('input', array('type' => 'submit',
1208                                           'value' => $text));
1209         if ($name)
1210             $this->setAttr('name', $name);
1211         if ($class)
1212             $this->setAttr('class', $class);
1213     }
1214
1215 };
1216
1217
1218 /**
1219  * A class representing an image form <samp>submit</samp> button.
1220  */
1221 class SubmitImageButton extends SubmitButton {
1222     /** Constructor
1223      *
1224      * @param $text string The text for the button.
1225      * @param $name string The name of the form field.
1226      * @param $class string The CSS class for the button.
1227      * @param $img_url string URL for button's image.
1228      * @param $img_attr array Additional attributes for the &lt;img&gt; tag.
1229      */
1230     function SubmitImageButton ($text, $name = false, $class = false, $img_url) {
1231         $this->__construct('input', array('type'  => 'image',
1232                                           'src'   => $img_url,
1233                                           'value' => $text,
1234                                           'alt'   => $text));
1235         if ($name)
1236             $this->setAttr('name', $name);
1237         if ($class)
1238             $this->setAttr('class', $class);
1239     }
1240
1241 };
1242
1243 /**
1244  * A sidebar box with title and body, narrow fixed-width.
1245  * To represent abbrevated content of plugins, links or forms,
1246  * like "Getting Started", "Search", "Sarch Pagename",
1247  * "Login", "Menu", "Recent Changes", "Last comments", "Last Blogs"
1248  * "Calendar"
1249  * ... See http://tikiwiki.org/
1250  *
1251  * Usage:
1252  * sidebar.tmpl:
1253  *   $menu = SidebarBox("Menu",HTML::dl(HTML::dt(...))); $menu->format();
1254  *   $menu = PluginSidebarBox("RecentChanges",array('limit'=>10)); $menu->format();
1255  */
1256 class SidebarBox {
1257
1258     function SidebarBox($title, $body) {
1259         $this->title = $title;
1260         $this->body = $body;
1261     }
1262     function format() {
1263         return WikiPlugin::makeBox($this->title, $this->body);
1264     }
1265 }
1266
1267 /**
1268  * A sidebar box for plugins.
1269  * Any plugin may provide a box($args=false, $request=false, $basepage=false)
1270  * method, with the help of WikiPlugin::makeBox()
1271  */
1272 class PluginSidebarBox extends SidebarBox {
1273
1274     var $_plugin, $_args = false, $_basepage = false;
1275
1276     function PluginSidebarBox($name, $args = false, $basepage = false) {
1277         $loader = new WikiPluginLoader();
1278         $plugin = $loader->getPlugin($name);
1279         if (!method_exists($plugin,'box')) {
1280             return $loader->error(sprintf(_("%s: has no box method"),
1281                                           get_class($plugin)));
1282         }
1283         $this->_plugin   =& $plugin;
1284         $this->_args     = $args ? $args : array();
1285         $this->_basepage = $basepage;
1286     }
1287
1288     function format($args = false) {
1289         return $this->_plugin->box($args ? array_merge($this->_args,$args) : $this->_args,
1290                                    $GLOBALS['request'],
1291                                    $this->_basepage);
1292     }
1293 }
1294
1295 // Various boxes which are no plugins
1296 class RelatedLinksBox extends SidebarBox {
1297     function RelatedLinksBox($title = false, $body = '', $limit = 20) {
1298         global $request;
1299         $this->title = $title ? $title : _("Related Links");
1300         $this->body = HTML($body);
1301         $page = $request->getPage($request->getArg('pagename'));
1302         $revision = $page->getCurrentRevision();
1303         $page_content = $revision->getTransformedContent();
1304         //$cache = &$page->_wikidb->_cache;
1305         $counter = 0;
1306         $sp = HTML::Raw('&middot; ');
1307         foreach ($page_content->getWikiPageLinks() as $link) {
1308             if (!$request->_dbi->isWikiPage($link)) continue;
1309             $this->body->pushContent($sp, WikiLink($link), HTML::br());
1310             $counter++;
1311             if ($limit and $counter > $limit) continue;
1312         }
1313     }
1314 }
1315
1316 class RelatedExternalLinksBox extends SidebarBox {
1317     function RelatedExternalLinksBox($title = false, $body = '', $limit = 20) {
1318         global $request;
1319         $this->title = $title ? $title : _("External Links");
1320         $this->body = HTML($body);
1321         $page = $request->getPage($request->getArg('pagename'));
1322         $cache = &$page->_wikidb->_cache;
1323         $counter = 0;
1324         $sp = HTML::Raw('&middot; ');
1325         foreach ($cache->getWikiPageLinks() as $link) {
1326             if ($link) {
1327                 $this->body->pushContent($sp, WikiLink($link), HTML::br());
1328                 $counter++;
1329                 if ($limit and $counter > $limit) continue;
1330             }
1331         }
1332     }
1333 }
1334
1335 function listAvailableThemes() {
1336     $available_themes = array();
1337     $dir_root = 'themes';
1338     if (defined('PHPWIKI_DIR'))
1339         $dir_root = PHPWIKI_DIR . "/$dir_root";
1340     $dir = dir($dir_root);
1341     if ($dir) {
1342         while($entry = $dir->read()) {
1343             if (is_dir($dir_root.'/'.$entry)
1344                 && (substr($entry,0,1) != '.')
1345                 && $entry != 'CVS') {
1346                 array_push($available_themes, $entry);
1347             }
1348         }
1349         $dir->close();
1350     }
1351     return $available_themes;
1352 }
1353
1354 function listAvailableLanguages() {
1355     $available_languages = array('en');
1356     $dir_root = 'locale';
1357     if (defined('PHPWIKI_DIR'))
1358         $dir_root = PHPWIKI_DIR . "/$dir_root";
1359     if ($dir = dir($dir_root)) {
1360         while($entry = $dir->read()) {
1361             if (is_dir($dir_root."/".$entry)
1362                 && (substr($entry,0,1) != '.')
1363                 && $entry != 'po'
1364                 && $entry != 'CVS')
1365             {
1366                 array_push($available_languages, $entry);
1367             }
1368         }
1369         $dir->close();
1370     }
1371     return $available_languages;
1372 }
1373
1374 // $Log: not supported by cvs2svn $
1375 // Revision 1.106  2004/06/20 14:42:54  rurban
1376 // various php5 fixes (still broken at blockparser)
1377 //
1378 // Revision 1.105  2004/06/14 11:31:36  rurban
1379 // renamed global $Theme to $WikiTheme (gforge nameclash)
1380 // inherit PageList default options from PageList
1381 //   default sortby=pagename
1382 // use options in PageList_Selectable (limit, sortby, ...)
1383 // added action revert, with button at action=diff
1384 // added option regex to WikiAdminSearchReplace
1385 //
1386 // Revision 1.104  2004/06/11 09:07:30  rurban
1387 // support theme-specific LinkIconAttr: front or after or none
1388 //
1389 // Revision 1.103  2004/06/07 22:44:14  rurban
1390 // added simplified chown, setacl actions
1391 //
1392 // Revision 1.102  2004/06/07 18:59:28  rurban
1393 // added Chown link to Owner in statusbar
1394 //
1395 // Revision 1.101  2004/06/03 12:59:40  rurban
1396 // simplify translation
1397 // NS4 wrap=virtual only
1398 //
1399 // Revision 1.100  2004/06/03 10:18:19  rurban
1400 // fix FileUser locking issues, new config ENABLE_PAGEPERM
1401 //
1402 // Revision 1.99  2004/06/01 15:27:59  rurban
1403 // AdminUser only ADMIN_USER not member of Administrators
1404 // some RateIt improvements by dfrankow
1405 // edit_toolbar buttons
1406 //
1407 // Revision 1.98  2004/05/27 17:49:05  rurban
1408 // renamed DB_Session to DbSession (in CVS also)
1409 // added WikiDB->getParam and WikiDB->getAuthParam method to get rid of globals
1410 // remove leading slash in error message
1411 // added force_unlock parameter to File_Passwd (no return on stale locks)
1412 // fixed adodb session AffectedRows
1413 // added FileFinder helpers to unify local filenames and DATA_PATH names
1414 // editpage.php: new edit toolbar javascript on ENABLE_EDIT_TOOLBAR
1415 //
1416 // Revision 1.97  2004/05/18 16:23:39  rurban
1417 // rename split_pagename to SplitPagename
1418 //
1419 // Revision 1.96  2004/05/13 13:48:34  rurban
1420 // doc update for the new 1.3.10 release
1421 //
1422 // Revision 1.94  2004/05/13 11:52:34  rurban
1423 // search also default buttons
1424 //
1425 // Revision 1.93  2004/05/12 10:49:55  rurban
1426 // require_once fix for those libs which are loaded before FileFinder and
1427 //   its automatic include_path fix, and where require_once doesn't grok
1428 //   dirname(__FILE__) != './lib'
1429 // upgrade fix with PearDB
1430 // navbar.tmpl: remove spaces for IE &nbsp; button alignment
1431 //
1432 // Revision 1.92  2004/05/03 21:57:47  rurban
1433 // locale updates: we previously lost some words because of wrong strings in
1434 //   PhotoAlbum, german rewording.
1435 // fixed $_SESSION registering (lost session vars, esp. prefs)
1436 // fixed ending slash in listAvailableLanguages/Themes
1437 //
1438 // Revision 1.91  2004/05/03 11:40:42  rurban
1439 // put listAvailableLanguages() and listAvailableThemes() from SystemInfo and
1440 // UserPreferences into Themes.php
1441 //
1442 // Revision 1.90  2004/05/02 19:12:14  rurban
1443 // fix sf.net bug #945154 Konqueror alt css
1444 //
1445 // Revision 1.89  2004/04/29 21:25:45  rurban
1446 // default theme navbar consistency: linkButtons instead of action buttons
1447 //   3rd makeLinkButtin arg for action support
1448 //
1449 // Revision 1.88  2004/04/19 18:27:45  rurban
1450 // Prevent from some PHP5 warnings (ref args, no :: object init)
1451 //   php5 runs now through, just one wrong XmlElement object init missing
1452 // Removed unneccesary UpgradeUser lines
1453 // Changed WikiLink to omit version if current (RecentChanges)
1454 //
1455 // Revision 1.87  2004/04/19 09:13:23  rurban
1456 // new pref: googleLink
1457 //
1458 // Revision 1.86  2004/04/18 01:11:51  rurban
1459 // more numeric pagename fixes.
1460 // fixed action=upload with merge conflict warnings.
1461 // charset changed from constant to global (dynamic utf-8 switching)
1462 //
1463 // Revision 1.85  2004/04/12 13:04:50  rurban
1464 // added auth_create: self-registering Db users
1465 // fixed IMAP auth
1466 // removed rating recommendations
1467 // ziplib reformatting
1468 //
1469 // Revision 1.84  2004/04/10 02:30:49  rurban
1470 // Fixed gettext problem with VIRTUAL_PATH scripts (Windows only probably)
1471 // Fixed "cannot setlocale..." (sf.net problem)
1472 //
1473 // Revision 1.83  2004/04/09 17:49:03  rurban
1474 // Added PhpWiki RssFeed to Sidebar
1475 // sidebar formatting
1476 // some browser dependant fixes (old-browser support)
1477 //
1478 // Revision 1.82  2004/04/06 20:00:10  rurban
1479 // Cleanup of special PageList column types
1480 // Added support of plugin and theme specific Pagelist Types
1481 // Added support for theme specific UserPreferences
1482 // Added session support for ip-based throttling
1483 //   sql table schema change: ALTER TABLE session ADD sess_ip CHAR(15);
1484 // Enhanced postgres schema
1485 // Added DB_Session_dba support
1486 //
1487 // Revision 1.81  2004/04/01 15:57:10  rurban
1488 // simplified Sidebar theme: table, not absolute css positioning
1489 // added the new box methods.
1490 // remaining problems: large left margin, how to override _autosplitWikiWords in Template only
1491 //
1492 // Revision 1.80  2004/03/30 02:14:03  rurban
1493 // fixed yet another Prefs bug
1494 // added generic PearDb_iter
1495 // $request->appendValidators no so strict as before
1496 // added some box plugin methods
1497 // PageList commalist for condensed output
1498 //
1499 // Revision 1.79  2004/03/24 19:39:02  rurban
1500 // php5 workaround code (plus some interim debugging code in XmlElement)
1501 //   php5 doesn't work yet with the current XmlElement class constructors,
1502 //   WikiUserNew does work better than php4.
1503 // rewrote WikiUserNew user upgrading to ease php5 update
1504 // fixed pref handling in WikiUserNew
1505 // added Email Notification
1506 // added simple Email verification
1507 // removed emailVerify userpref subclass: just a email property
1508 // changed pref binary storage layout: numarray => hash of non default values
1509 // print optimize message only if really done.
1510 // forced new cookie policy: delete pref cookies, use only WIKI_ID as plain string.
1511 //   prefs should be stored in db or homepage, besides the current session.
1512 //
1513 // Revision 1.78  2004/03/18 22:32:33  rurban
1514 // work to make it php5 compatible
1515 //
1516 // Revision 1.77  2004/03/08 19:30:01  rurban
1517 // fixed Theme->getButtonURL
1518 // AllUsers uses now WikiGroup (also DB User and DB Pref users)
1519 // PageList fix for empty pagenames
1520 //
1521 // Revision 1.76  2004/03/08 18:17:09  rurban
1522 // added more WikiGroup::getMembersOf methods, esp. for special groups
1523 // fixed $LDAP_SET_OPTIONS
1524 // fixed _AuthInfo group methods
1525 //
1526 // Revision 1.75  2004/03/01 09:34:37  rurban
1527 // fixed button path logic: now fallback to default also
1528 //
1529 // Revision 1.74  2004/02/28 21:14:08  rurban
1530 // generally more PHPDOC docs
1531 //   see http://xarch.tu-graz.ac.at/home/rurban/phpwiki/xref/
1532 // fxied WikiUserNew pref handling: empty theme not stored, save only
1533 //   changed prefs, sql prefs improved, fixed password update,
1534 //   removed REPLACE sql (dangerous)
1535 // moved gettext init after the locale was guessed
1536 // + some minor changes
1537 //
1538 // Revision 1.73  2004/02/26 03:22:05  rurban
1539 // also copy css and images with XHTML Dump
1540 //
1541 // Revision 1.72  2004/02/26 02:25:53  rurban
1542 // fix empty and #-anchored links in XHTML Dumps
1543 //
1544 // Revision 1.71  2004/02/15 21:34:37  rurban
1545 // PageList enhanced and improved.
1546 // fixed new WikiAdmin... plugins
1547 // editpage, Theme with exp. htmlarea framework
1548 //   (htmlarea yet committed, this is really questionable)
1549 // WikiUser... code with better session handling for prefs
1550 // enhanced UserPreferences (again)
1551 // RecentChanges for show_deleted: how should pages be deleted then?
1552 //
1553 // Revision 1.70  2004/01/26 09:17:48  rurban
1554 // * changed stored pref representation as before.
1555 //   the array of objects is 1) bigger and 2)
1556 //   less portable. If we would import packed pref
1557 //   objects and the object definition was changed, PHP would fail.
1558 //   This doesn't happen with an simple array of non-default values.
1559 // * use $prefs->retrieve and $prefs->store methods, where retrieve
1560 //   understands the interim format of array of objects also.
1561 // * simplified $prefs->get() and fixed $prefs->set()
1562 // * added $user->_userid and class '_WikiUser' portability functions
1563 // * fixed $user object ->_level upgrading, mostly using sessions.
1564 //   this fixes yesterdays problems with loosing authorization level.
1565 // * fixed WikiUserNew::checkPass to return the _level
1566 // * fixed WikiUserNew::isSignedIn
1567 // * added explodePageList to class PageList, support sortby arg
1568 // * fixed UserPreferences for WikiUserNew
1569 // * fixed WikiPlugin for empty defaults array
1570 // * UnfoldSubpages: added pagename arg, renamed pages arg,
1571 //   removed sort arg, support sortby arg
1572 //
1573 // Revision 1.69  2003/12/05 01:32:28  carstenklapp
1574 // New feature: Easier to run multiple wiks off of one set of code. Name
1575 // your logo and signature image files "YourWikiNameLogo.png" and
1576 // "YourWikiNameSignature.png" and put them all into
1577 // themes/default/images. YourWikiName should match what is defined as
1578 // WIKI_NAME in index.php. In case the image is not found, the default
1579 // shipped with PhpWiki will be used.
1580 //
1581 // Revision 1.68  2003/03/04 01:53:30  dairiki
1582 // Inconsequential decrufting.
1583 //
1584 // Revision 1.67  2003/02/26 03:40:22  dairiki
1585 // New action=create.  Essentially the same as action=edit, except that if the
1586 // page already exists, it falls back to action=browse.
1587 //
1588 // This is for use in the "question mark" links for unknown wiki words
1589 // to avoid problems and confusion when following links from stale pages.
1590 // (If the "unknown page" has been created in the interim, the user probably
1591 // wants to view the page before editing it.)
1592 //
1593 // Revision 1.66  2003/02/26 00:10:26  dairiki
1594 // More/better/different checks for bad page names.
1595 //
1596 // Revision 1.65  2003/02/24 22:41:57  dairiki
1597 // Fix stupid typo.
1598 //
1599 // Revision 1.64  2003/02/24 22:06:14  dairiki
1600 // Attempts to fix auto-selection of printer CSS when printing.
1601 // See new comments lib/Theme.php for more details.
1602 // Also see SF patch #669563.
1603 //
1604 // Revision 1.63  2003/02/23 03:37:05  dairiki
1605 // Stupid typo/bug fix.
1606 //
1607 // Revision 1.62  2003/02/21 04:14:52  dairiki
1608 // New WikiLink type 'if_known'.  This gives linkified name if page
1609 // exists, otherwise, just plain text.
1610 //
1611 // Revision 1.61  2003/02/18 21:52:05  dairiki
1612 // Fix so that one can still link to wiki pages with # in their names.
1613 // (This was made difficult by the introduction of named tags, since
1614 // '[Page #1]' is now a link to anchor '1' in page 'Page'.
1615 //
1616 // Now the ~ escape for page names should work: [Page ~#1].
1617 //
1618 // Revision 1.60  2003/02/15 01:59:47  dairiki
1619 // Theme::getCSS():  Add Default-Style HTTP(-eqiv) header in attempt
1620 // to fix default stylesheet selection on some browsers.
1621 // For details on the Default-Style header, see:
1622 //  http://home.dairiki.org/docs/html4/present/styles.html#h-14.3.2
1623 //
1624 // Revision 1.59  2003/01/04 22:30:16  carstenklapp
1625 // New: display a "Never edited." message instead of an invalid epoch date.
1626 //
1627
1628 // (c-file-style: "gnu")
1629 // Local Variables:
1630 // mode: php
1631 // tab-width: 8
1632 // c-basic-offset: 4
1633 // c-hanging-comment-ender-p: nil
1634 // indent-tabs-mode: nil
1635 // End:
1636 ?>