gnu-social/lib/htmloutputter.php
Evan Prodromou 14adb7cc41 Give users more control over URL shortening
Users and administrators can set how long an URL can be before it's
shortened, and how long a notice can be before all its URLs are
shortened. They can also turn off shortening altogether.

Squashed commit of the following:

commit d136b39011
Author: Evan Prodromou <evan@status.net>
Date:   Mon Apr 26 02:39:00 2010 -0400

    use site and user settings to determine when to shorten URLs

commit 1e1c851ff3
Author: Evan Prodromou <evan@status.net>
Date:   Mon Apr 26 02:38:40 2010 -0400

    add a method to force shortening URLs

commit 4d29ca0b91
Author: Evan Prodromou <evan@status.net>
Date:   Mon Apr 26 02:37:41 2010 -0400

    static method for getting best URL shortening service

commit a9c6a3bace
Author: Evan Prodromou <evan@status.net>
Date:   Mon Apr 26 02:37:11 2010 -0400

    allow 0 in numeric entries in othersettings

commit 767ff2f7ec
Author: Evan Prodromou <evan@status.net>
Date:   Mon Apr 26 02:36:46 2010 -0400

    allow 0 or blank string in inputs

commit 1e21af42a6
Author: Evan Prodromou <evan@status.net>
Date:   Mon Apr 26 02:01:11 2010 -0400

    add more URL-shortening options to othersettings

commit 869a6be0f5
Author: Evan Prodromou <evan@status.net>
Date:   Sat Apr 24 14:22:51 2010 -0400

    move url shortener superclass to lib from plugin

commit 9c0c9863d5
Author: Evan Prodromou <evan@status.net>
Date:   Sat Apr 24 14:20:28 2010 -0400

    documentation and whitespace on UrlShortenerPlugin

commit 7a1dd5798f
Author: Evan Prodromou <evan@status.net>
Date:   Sat Apr 24 14:05:46 2010 -0400

    add defaults for URL shortening

commit d259c37ad2
Author: Evan Prodromou <evan@status.net>
Date:   Sat Apr 24 13:40:10 2010 -0400

    Add User_urlshortener_prefs

    Add a table for URL shortener prefs, a corresponding class, and the
    correct mumbo-jumbo in statusnet.ini to make everything work.
2010-04-26 02:40:36 -04:00

532 lines
17 KiB
PHP

<?php
/**
* StatusNet, the distributed open-source microblogging tool
*
* Low-level generator for HTML
*
* PHP version 5
*
* LICENCE: This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU Affero General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU Affero General Public License for more details.
*
* You should have received a copy of the GNU Affero General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*
* @category Output
* @package StatusNet
* @author Evan Prodromou <evan@status.net>
* @author Sarven Capadisli <csarven@status.net>
* @copyright 2008 StatusNet, Inc.
* @license http://www.fsf.org/licensing/licenses/agpl-3.0.html GNU Affero General Public License version 3.0
* @link http://status.net/
*/
if (!defined('STATUSNET') && !defined('LACONICA')) {
exit(1);
}
require_once INSTALLDIR.'/lib/xmloutputter.php';
// Can include XHTML options but these are too fragile in practice.
define('PAGE_TYPE_PREFS', 'text/html');
/**
* Low-level generator for HTML
*
* Abstracts some of the code necessary for HTML generation. Especially
* has methods for generating HTML form elements. Note that these have
* been created kind of haphazardly, not with an eye to making a general
* HTML-creation class.
*
* @category Output
* @package StatusNet
* @author Evan Prodromou <evan@status.net>
* @author Sarven Capadisli <csarven@status.net>
* @license http://www.fsf.org/licensing/licenses/agpl-3.0.html GNU Affero General Public License version 3.0
* @link http://status.net/
*
* @see Action
* @see XMLOutputter
*/
class HTMLOutputter extends XMLOutputter
{
/**
* Constructor
*
* Just wraps the XMLOutputter constructor.
*
* @param string $output URI to output to, default = stdout
* @param boolean $indent Whether to indent output, default true
*/
function __construct($output='php://output', $indent=null)
{
parent::__construct($output, $indent);
}
/**
* Start an HTML document
*
* If $type isn't specified, will attempt to do content negotiation.
*
* Attempts to do content negotiation for language, also.
*
* @param string $type MIME type to use; default is to do negotation.
*
* @todo extract content negotiation code to an HTTP module or class.
*
* @return void
*/
function startHTML($type=null)
{
if (!$type) {
$httpaccept = isset($_SERVER['HTTP_ACCEPT']) ?
$_SERVER['HTTP_ACCEPT'] : null;
// XXX: allow content negotiation for RDF, RSS, or XRDS
$cp = common_accept_to_prefs($httpaccept);
$sp = common_accept_to_prefs(PAGE_TYPE_PREFS);
$type = common_negotiate_type($cp, $sp);
if (!$type) {
throw new ClientException(_('This page is not available in a '.
'media type you accept'), 406);
}
}
header('Content-Type: '.$type);
$this->extraHeaders();
if (preg_match("/.*\/.*xml/", $type)) {
// Required for XML documents
$this->xw->startDocument('1.0', 'UTF-8');
}
$this->xw->writeDTD('html',
'-//W3C//DTD XHTML 1.0 Strict//EN',
'http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd');
$language = $this->getLanguage();
$this->elementStart('html', array('xmlns' => 'http://www.w3.org/1999/xhtml',
'xml:lang' => $language,
'lang' => $language));
}
function getLanguage()
{
// FIXME: correct language for interface
return common_language();
}
/**
* Ends an HTML document
*
* @return void
*/
function endHTML()
{
$this->elementEnd('html');
$this->endXML();
}
/**
* To specify additional HTTP headers for the action
*
* @return void
*/
function extraHeaders()
{
// Needs to be overloaded
}
/**
* Output an HTML text input element
*
* Despite the name, it is specifically for outputting a
* text input element, not other <input> elements. It outputs
* a cluster of elements, including a <label> and an associated
* instructions span.
*
* @param string $id element ID, must be unique on page
* @param string $label text of label for the element
* @param string $value value of the element, default null
* @param string $instructions instructions for valid input
*
* @todo add a $name parameter
* @todo add a $maxLength parameter
* @todo add a $size parameter
*
* @return void
*/
function input($id, $label, $value=null, $instructions=null)
{
$this->element('label', array('for' => $id), $label);
$attrs = array('name' => $id,
'type' => 'text',
'id' => $id);
if (!is_null($value)) { // value can be 0 or ''
$attrs['value'] = $value;
}
$this->element('input', $attrs);
if ($instructions) {
$this->element('p', 'form_guide', $instructions);
}
}
/**
* output an HTML checkbox and associated elements
*
* Note that the value is default 'true' (the string), which can
* be used by Action::boolean()
*
* @param string $id element ID, must be unique on page
* @param string $label text of label for the element
* @param string $checked if the box is checked, default false
* @param string $instructions instructions for valid input
* @param string $value value of the checkbox, default 'true'
* @param string $disabled show the checkbox disabled, default false
*
* @return void
*
* @todo add a $name parameter
*/
function checkbox($id, $label, $checked=false, $instructions=null,
$value='true', $disabled=false)
{
$attrs = array('name' => $id,
'type' => 'checkbox',
'class' => 'checkbox',
'id' => $id);
if ($value) {
$attrs['value'] = $value;
}
if ($checked) {
$attrs['checked'] = 'checked';
}
if ($disabled) {
$attrs['disabled'] = 'true';
}
$this->element('input', $attrs);
$this->text(' ');
$this->element('label', array('class' => 'checkbox',
'for' => $id),
$label);
$this->text(' ');
if ($instructions) {
$this->element('p', 'form_guide', $instructions);
}
}
/**
* output an HTML combobox/select and associated elements
*
* $content is an array of key-value pairs for the dropdown, where
* the key is the option value attribute and the value is the option
* text. (Careful on the overuse of 'value' here.)
*
* @param string $id element ID, must be unique on page
* @param string $label text of label for the element
* @param array $content options array, value => text
* @param string $instructions instructions for valid input
* @param string $blank_select whether to have a blank entry, default false
* @param string $selected selected value, default null
*
* @return void
*
* @todo add a $name parameter
*/
function dropdown($id, $label, $content, $instructions=null,
$blank_select=false, $selected=null)
{
$this->element('label', array('for' => $id), $label);
$this->elementStart('select', array('id' => $id, 'name' => $id));
if ($blank_select) {
$this->element('option', array('value' => ''));
}
foreach ($content as $value => $option) {
if ($value == $selected) {
$this->element('option', array('value' => $value,
'selected' => 'selected'),
$option);
} else {
$this->element('option', array('value' => $value), $option);
}
}
$this->elementEnd('select');
if ($instructions) {
$this->element('p', 'form_guide', $instructions);
}
}
/**
* output an HTML hidden element
*
* $id is re-used as name
*
* @param string $id element ID, must be unique on page
* @param string $value hidden element value, default null
* @param string $name name, if different than ID
*
* @return void
*/
function hidden($id, $value, $name=null)
{
$this->element('input', array('name' => ($name) ? $name : $id,
'type' => 'hidden',
'id' => $id,
'value' => $value));
}
/**
* output an HTML password input and associated elements
*
* @param string $id element ID, must be unique on page
* @param string $label text of label for the element
* @param string $instructions instructions for valid input
*
* @return void
*
* @todo add a $name parameter
*/
function password($id, $label, $instructions=null)
{
$this->element('label', array('for' => $id), $label);
$attrs = array('name' => $id,
'type' => 'password',
'class' => 'password',
'id' => $id);
$this->element('input', $attrs);
if ($instructions) {
$this->element('p', 'form_guide', $instructions);
}
}
/**
* output an HTML submit input and associated elements
*
* @param string $id element ID, must be unique on page
* @param string $label text of the button
* @param string $cls class of the button, default 'submit'
* @param string $name name, if different than ID
*
* @return void
*
* @todo add a $name parameter
*/
function submit($id, $label, $cls='submit', $name=null, $title=null)
{
$this->element('input', array('type' => 'submit',
'id' => $id,
'name' => ($name) ? $name : $id,
'class' => $cls,
'value' => $label,
'title' => $title));
}
/**
* output a script (almost always javascript) tag
*
* @param string $src relative or absolute script path
* @param string $type 'type' attribute value of the tag
*
* @return void
*/
function script($src, $type='text/javascript')
{
if(Event::handle('StartScriptElement', array($this,&$src,&$type))) {
$url = parse_url($src);
if( empty($url['scheme']) && empty($url['host']) && empty($url['query']) && empty($url['fragment']))
{
if (strpos($src, 'plugins/') === 0 || strpos($src, 'local/') === 0) {
$src = common_path($src) . '?version=' . STATUSNET_VERSION;
}else{
$path = common_config('javascript', 'path');
if (empty($path)) {
$path = common_config('site', 'path') . '/js/';
}
if ($path[strlen($path)-1] != '/') {
$path .= '/';
}
if ($path[0] != '/') {
$path = '/'.$path;
}
$server = common_config('javascript', 'server');
if (empty($server)) {
$server = common_config('site', 'server');
}
$ssl = common_config('javascript', 'ssl');
if (is_null($ssl)) { // null -> guess
if (common_config('site', 'ssl') == 'always' &&
!common_config('javascript', 'server')) {
$ssl = true;
} else {
$ssl = false;
}
}
$protocol = ($ssl) ? 'https' : 'http';
$src = $protocol.'://'.$server.$path.$src . '?version=' . STATUSNET_VERSION;
}
}
$this->element('script', array('type' => $type,
'src' => $src),
' ');
Event::handle('EndScriptElement', array($this,$src,$type));
}
}
/**
* output a script (almost always javascript) tag with inline
* code.
*
* @param string $code code to put in the script tag
* @param string $type 'type' attribute value of the tag
*
* @return void
*/
function inlineScript($code, $type='text/javascript')
{
if(Event::handle('StartInlineScriptElement', array($this,&$code,&$type))) {
$this->elementStart('script', array('type' => $type));
if($type == 'text/javascript') {
$this->raw('/*<![CDATA[*/ '); // XHTML compat
}
$this->raw($code);
if($type == 'text/javascript') {
$this->raw(' /*]]>*/'); // XHTML compat
}
$this->elementEnd('script');
Event::handle('EndInlineScriptElement', array($this,$code,$type));
}
}
/**
* output a css link
*
* @param string $src relative path within the theme directory, or an absolute path
* @param string $theme 'theme' that contains the stylesheet
* @param string media 'media' attribute of the tag
*
* @return void
*/
function cssLink($src,$theme=null,$media=null)
{
if(Event::handle('StartCssLinkElement', array($this,&$src,&$theme,&$media))) {
$url = parse_url($src);
if( empty($url['scheme']) && empty($url['host']) && empty($url['query']) && empty($url['fragment']))
{
if(file_exists(Theme::file($src,$theme))){
$src = Theme::path($src, $theme);
}else{
$src = common_path($src);
}
$src.= '?version=' . STATUSNET_VERSION;
}
$this->element('link', array('rel' => 'stylesheet',
'type' => 'text/css',
'href' => $src,
'media' => $media));
Event::handle('EndCssLinkElement', array($this,$src,$theme,$media));
}
}
/**
* output a style (almost always css) tag with inline
* code.
*
* @param string $code code to put in the style tag
* @param string $type 'type' attribute value of the tag
* @param string $media 'media' attribute value of the tag
*
* @return void
*/
function style($code, $type = 'text/css', $media = null)
{
if(Event::handle('StartStyleElement', array($this,&$code,&$type,&$media))) {
$this->elementStart('style', array('type' => $type, 'media' => $media));
$this->raw($code);
$this->elementEnd('style');
Event::handle('EndStyleElement', array($this,$code,$type,$media));
}
}
/**
* output an HTML textarea and associated elements
*
* @param string $id element ID, must be unique on page
* @param string $label text of label for the element
* @param string $content content of the textarea, default none
* @param string $instructions instructions for valid input
*
* @return void
*
* @todo add a $name parameter
* @todo add a $cols parameter
* @todo add a $rows parameter
*/
function textarea($id, $label, $content=null, $instructions=null)
{
$this->element('label', array('for' => $id), $label);
$this->element('textarea', array('rows' => 3,
'cols' => 40,
'name' => $id,
'id' => $id),
($content) ? $content : '');
if ($instructions) {
$this->element('p', 'form_guide', $instructions);
}
}
/**
* Internal script to autofocus the given element on page onload.
*
* @param string $id element ID, must refer to an existing element
*
* @return void
*
*/
function autofocus($id)
{
$this->inlineScript(
' $(document).ready(function() {'.
' var el = $("#' . $id . '");'.
' if (el.length) { el.focus(); }'.
' });');
}
}