<?php
/**
- * imap.php
- *
- * Copyright (c) 1999-2002 The SquirrelMail Project Team
- * Licensed under the GNU GPL. For full terms see the file COPYING.
+ * html.php
*
* The idea is to inlcude here some functions to make easier
* the right to left implementation by "functionize" some
* html outputs.
*
- * $Id$
+ * @copyright © 1999-2006 The SquirrelMail Project Team
+ * @license http://opensource.org/licenses/gpl-license.php GNU Public License
+ * @version $Id$
+ * @package squirrelmail
+ * @since 1.3.0
*/
- function html_tag( $tag,
- $align = '',
- $bgcolor = '',
- $xtra = '' ) {
-
- GLOBAL $languages, $language;
-
- $align = strtolower( $align );
- $dir = strtolower( $dir );
-
- if ( isset( $languages[$language]['DIR']) ) {
- $dir = $languages[$language]['DIR'];
- } else {
- $dir = 'ltr';
- }
-
- if ( $dir == 'ltr' ) {
- $rgt = 'right';
- $lft = 'left';
- } else {
- $rgt = 'left';
- $lft = 'right';
- }
-
- if ( $bgcolor <> '' ) {
- $bgc = " BGCOLOR=\"$bgcolor\"";
- }
-
- switch ( $align ) {
- case '':
- $alg = '';
- break;
- case 'right':
- $alg = " ALIGN=\"$rgt\"";
- break;
- default:
- $alg = " ALIGN=\"$lft\"";
- }
-
- return( "<$tag DIR=\"$dir\"$bgc$alg $xtra>" );
- }
-
-/*
- * Zookeeper
- * Copyright (c) 2001 Partridge
- * Licensed under the GNU GPL. For full terms see the file COPYING.
- *
- * $Id$
- */
/**
- * ZkSvc_html
+ * Generates a hyperlink
+ *
+ * @param string $uri The target link location
+ * @param string $text The link text
+ * @param string $target The location where the link should
+ * be opened (OPTIONAL; default not used)
+ * @param string $onclick The onClick JavaScript handler (OPTIONAL;
+ * default not used)
+ * @param string $class The CSS class name (OPTIONAL; default
+ * not used)
+ * @param string $id The ID name (OPTIONAL; default not used)
+ * @param string $name The anchor name (OPTIONAL; default not used)
+ *
+ * @return string The desired hyperlink tag.
+ *
+ * @since 1.5.2
*
- * The ZkSvc_html class manages html output.
*/
-class ZkSvc_html {
-
- /* Constants */
- var $name = 'html'; // Module name
- var $ver = '$Id$';
-
- /* Properties */
- var $buffer; // Buffered output
- var $htmlmod; // Module handler
- var $title; // Page title
- var $head_extras; // Extra header tags
- var $bgcolor; // Background color
- var $text; // Text color
- var $link; // Link color
- var $vlink; // Visited link color
- var $alink; // Active link color
- var $onload; // Onload event
- var $onunload; // OnUnload event
- var $dir; // Text direction
-
- var $tag_options; // Array of tag options array
-
- /** CONSTRUCTOR
- */
-
- function ZkSvc_html() {
-
- GLOBAL $languages, $language;
-
- $this->spool = FALSE;
- $this->buffer = '';
- $this->title = 'Default zkHTML Title';
- $this->head_extras = '';
- $this->bgcolor = '#FFFFFF';
- $this->text = '#000000';
- $this->link = '#3300CC';
- $this->vlink = '#993333';
- $this->alink = '#993333';
- $this->onload = '';
- $this->onunload = '';
-
- /* To know if a tag exists we check that it has got a place in the following array */
- $this->tag_options = array( 'table' => array( 'tag_name' => 'table',
- 'tag_closed' => TRUE ),
- 'tr' => array( 'tag_name' => 'tr',
- 'tag_closed' => TRUE ),
- 'th' => array( 'tag_name' => 'th',
- 'tag_closed' => TRUE ),
- 'td' => array( 'tag_name' => 'td',
- 'tag_closed' => TRUE ),
- 'li' => array( 'tag_name' => 'li',
- 'tag_closed' => TRUE ),
- 'ol' => array( 'tag_name' => 'ol',
- 'tag_closed' => TRUE ),
- 'form' => array( 'tag_name' => 'form',
- 'tag_closed' => TRUE ),
- 'input' => array( 'tag_name' => 'input',
- 'tag_closed' => FALSE ),
- 'br' => array( 'tag_name' => 'br',
- 'tag_closed' => FALSE ),
- 'textarea' => array( 'tag_name' => 'textarea',
- 'tag_closed' => TRUE ),
- 'p' => array( 'tag_name' => 'p',
- 'tag_closed' => TRUE ),
- 'a' => array( 'tag_name' => 'a',
- 'tag_closed' => TRUE ),
- 'center' => array( 'name' => 'center',
- 'tag_closed' => TRUE ),
- 'img' => array( 'name' => 'img',
- 'tag_closed' => FALSE ),
- 'font' => array( 'tag_closed' => TRUE ),
- 'blockquote' => array( 'tag_name' => 'blockquote',
- 'tag_closed' => TRUE )
- );
-
- if ( isset( $languages[$language]['DIR']) ) {
- $this->dir = strtolower( $languages[$language]['DIR'] );
- } else {
- $this->dir = 'ltr';
- }
-
- }
+function create_hyperlink($uri, $text, $target='', $onclick='',
+ $class='', $id='', $name='') {
- /**
- * Return the name of this service.
- *
- * @return string the name of this service
- */
- function getServiceName() {
- return( $this->name );
- }
+ global $oTemplate;
- /**
- * Replace the Zookeeper html module loaded for this service. (no modules yet)
- *
- */
- function loadModule(&$module) {
- $this->htmlmod = &$module;
- }
+ $oTemplate->assign('uri', $uri);
+ $oTemplate->assign('text', $text);
+ $oTemplate->assign('target', $target);
+ $oTemplate->assign('onclick', $onclick);
+ $oTemplate->assign('class', $class);
+ $oTemplate->assign('id', $id);
+ $oTemplate->assign('name', $name);
- /**
- * Outputs the buffer and re-initialize it.
- *
- */
- function flush( $string = '' ) {
- echo $this->buffer . $string;
- flush();
- $this->buffer = '';
- }
+ return $oTemplate->fetch('hyperlink.tpl');
- /**
- * Builds a header string
- *
- */
- function header( $string = '' ) {
+}
- // It initializes the buffer.
- $this->buffer = '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">' .
- "\n<HTML>\n";
- if( $this->head_extras <> '' || $this->title <> '' ) {
+/**
+ * Generates an image tag
+ *
+ * @param string $src The image source path
+ * @param string $alt Alternate link text (OPTIONAL; default
+ * not used)
+ * @param string $width The width the image should be shown in
+ * (OPTIONAL; default not used)
+ * @param string $height The height the image should be shown in
+ * (OPTIONAL; default not used)
+ * @param string $border The image's border attribute value
+ * (OPTIONAL; default not used)
+ * @param string $class The CSS class name (OPTIONAL; default
+ * not used)
+ * @param string $id The ID name (OPTIONAL; default not used)
+ * @param string $onclick The onClick JavaScript handler (OPTIONAL;
+ * default not used)
+ * @param string $title The image's title attribute value
+ * (OPTIONAL; default not used)
+ * @param string $align The image's alignment attribute value
+ * (OPTIONAL; default not used)
+ * @param string $hspace The image's hspace attribute value
+ * (OPTIONAL; default not used)
+ * @param string $vspace The image's vspace attribute value
+ * (OPTIONAL; default not used)
+ * @param string $text_alternative A text replacement for the entire
+ * image tag, to be used at the
+ * discretion of the template set,
+ * if for some reason the image tag
+ * cannot or should not be produced
+ * (OPTIONAL; default not used)
+ *
+ * @return string The desired hyperlink tag.
+ *
+ * @since 1.5.2
+ *
+ */
+function create_image($src, $alt='', $width='', $height='',
+ $border='', $class='', $id='', $onclick='',
+ $title='', $align='', $hspace='', $vspace='',
+ $text_alternative='') {
+
+ global $oTemplate;
+
+ $oTemplate->assign('src', $src);
+ $oTemplate->assign('alt', $alt);
+ $oTemplate->assign('width', $width);
+ $oTemplate->assign('height', $height);
+ $oTemplate->assign('border', $border);
+ $oTemplate->assign('class', $class);
+ $oTemplate->assign('id', $id);
+ $oTemplate->assign('onclick', $onclick);
+ $oTemplate->assign('title', $title);
+ $oTemplate->assign('align', $align);
+ $oTemplate->assign('hspace', $hspace);
+ $oTemplate->assign('vspace', $vspace);
+ $oTemplate->assign('text_alternative', $text_alternative);
+
+ return $oTemplate->fetch('image.tpl');
- $this->buffer .= "<HEAD>\n";
+}
- if( $this->title <> '' )
- $this->buffer .= "<TITLE>$this->title</TITLE>\n";
- $this->buffer .= "$this->head_extras</HEAD>\n";
- }
- $xtra = '';
- if ( $this->onload <> '' ) {
- $xtra .= ' onload="' . $this->onload . '" ';
- }
- if ( $this->onunload <> '' ) {
- $xtra .= ' onunload="' . $this->onunload . '" ';
- }
- $this->buffer .= "<BODY TEXT=\"$this->text\" BGCOLOR=\"$this->bgcolor\" LINK=\"$this->link\" VLINK=\"$this->vlink\" ALINK=\"$this->alink\" $xtra>\n";
-
- /* See if we're asking for a closed strcuture */
- if( $string == '' ) {
- $this->flush();
- } else {
- $this->buffer .= $string . '</BODY></HTML>';
- }
+/**
+ * Generates a span tag
+ *
+ * @param string $value The contents that belong inside the span
+ * @param string $class The CSS class name (OPTIONAL; default
+ * not used)
+ * @param string $id The ID name (OPTIONAL; default not used)
+ *
+ * @return string The desired span tag.
+ *
+ * @since 1.5.2
+ *
+ */
+function create_span($value, $class='', $id='') {
- }
+ global $oTemplate;
+
+ $oTemplate->assign('value', $value);
+ $oTemplate->assign('class', $class);
+ $oTemplate->assign('id', $id);
- /**
- * Builds a footer string
- *
- */
- function footer() {
+ return $oTemplate->fetch('span.tpl');
+
+}
- $this->buffer .= "\n</body>\n</html>\n";
- $this->flush();
+/**
+ * Generates html tags
+//FIXME: this should not be used anywhere in the core, or we should
+// convert this to use templates. We sould not be assuming HTML output.
+ *
+ * @param string $tag Tag to output
+ * @param string $val Value between tags
+ * @param string $align Alignment (left, center, etc)
+ * @param string $bgcolor Back color in hexadecimal
+ * @param string $xtra Extra options
+ * @return string HTML ready for output
+ * @since 1.3.0
+ */
+function html_tag( $tag, // Tag to output
+ $val = '', // Value between tags
+ $align = '', // Alignment
+ $bgcolor = '', // Back color
+ $xtra = '' ) { // Extra options
+
+ GLOBAL $languages, $squirrelmail_language;
+
+ $align = strtolower( $align );
+ $bgc = '';
+ $tag = strtolower( $tag );
+
+ if ( isset( $languages[$squirrelmail_language]['DIR']) ) {
+ $dir = $languages[$squirrelmail_language]['DIR'];
+ } else {
+ $dir = 'ltr';
}
- /**
- * Builds a tag string
- *
- */
- function tag( $tag, $string = '', $options = '' ) {
+ if ( $dir == 'ltr' ) {
+ $rgt = 'right';
+ $lft = 'left';
+ } else {
+ $rgt = 'left';
+ $lft = 'right';
+ }
- $ret = '';
- if( $this->tag_options[$tag] <> NULL ) {
- if( $options == '' ) {
- $options = $this->tag_options[$tag];
- }
- switch( strtolower( $tag ) ) {
- case 'td':
- case 'th':
- if ( $this->dir == 'rtl' && isset( $options['align'] ) ) {
-
- }
- case 'table':
- if ( $this->dir <> '' ) {
- $options['DIR'] = $this->dir;
- }
- break;
- }
- $ret = zkTag_html( $tag, $string, $options, $this->tag_options[$tag]['tag_closed'] );
- }
- return( $ret );
+ if ( $bgcolor <> '' ) {
+ $bgc = " bgcolor=\"$bgcolor\"";
+ }
+ switch ( $align ) {
+ case '':
+ $alg = '';
+ break;
+ case 'right':
+ $alg = " align=\"$rgt\"";
+ break;
+ case 'left':
+ $alg = " align=\"$lft\"";
+ break;
+ default:
+ $alg = " align=\"$align\"";
+ break;
}
- /**
- * Builds a header string
- *
- */
- function h( $string, $level = '1' ) {
+ $ret = "<$tag";
- $buffer = "<h$level>";
+ if ( $dir <> 'ltr' ) {
+ $ret .= " dir=\"$dir\"";
+ }
+ $ret .= $bgc . $alg;
- /* See if we're asking for a closed strcuture */
- if( $string == '' ) {
- $this->$buffer .= $buffer;
- } else {
- $buffer .= $string . "</h$level>";
- }
- return( $buffer );
+ if ( $xtra <> '' ) {
+ $ret .= " $xtra";
+ }
+ if ( $val <> '' ) {
+ $ret .= ">$val</$tag>\n";
+ } else {
+ $ret .= '>'. "\n";
}
+ return( $ret );
}
+
/**
- * Converts an array into a parameters tag list.
+ * handy function to set url vars
*
+ * especially useful when $url = $PHP_SELF
+ * @param string $url url that must be modified
+ * @param string $var variable name
+ * @param string $val variable value
+ * @param boolean $link controls sanitizing of ampersand in urls (since 1.3.2)
+ * @return string $url modified url
+ * @since 1.3.0
*/
-function zkGetParms_html( $parms ) {
-
- $buffer = '';
- foreach( $parms as $key => $opt ) {
- if( substr( $key, 0, 3 ) <> 'tag' ) {
- $buffer .= " $key";
- if ($opt <> '' ) {
- $buffer .= "=\"$opt\"";
+function set_url_var($url, $var, $val=0, $link=true) {
+ $k = '';
+ $pat_a = array (
+ '/.+(\\&'.$var.')=(.*)\\&/AU', /* in the middle */
+ '/.+\\?('.$var.')=(.*\\&).+/AU', /* at front, more follow */
+ '/.+(\\?'.$var.')=(.*)$/AU', /* at front and only var */
+ '/.+(\\&'.$var.')=(.*)$/AU' /* at the end */
+ );
+ $url = str_replace('&','&',$url);
+
+ // FIXME: why switch is used instead of if () or one preg_match()
+ switch (true) {
+ case (preg_match($pat_a[0],$url,$regs)):
+ $k = $regs[1];
+ $v = $regs[2];
+ break;
+ case (preg_match($pat_a[1],$url,$regs)):
+ $k = $regs[1];
+ $v = $regs[2];
+ break;
+ case (preg_match($pat_a[2],$url,$regs)):
+ $k = $regs[1];
+ $v = $regs[2];
+ break;
+ case (preg_match($pat_a[3],$url,$regs)):
+ $k = $regs[1];
+ $v = $regs[2];
+ break;
+ default:
+ if ($val) {
+ if (strpos($url,'?')) {
+ $url .= "&$var=$val";
+ } else {
+ $url .= "?$var=$val";
}
}
+ break;
}
- return( $buffer );
-}
-/**
- * Composes a tag string with all its parameters.
- *
- */
-function zkTag_html( $tag, $string, $options, $closed ) {
-
- /*
- We must check direction tag in case we have table, td or th
- */
-
- $ret = "<$tag" .
- zkGetParms_html( $options ) .
- '>' .
- $string;
-
- if ( $closed ) {
- $ret .= "</$tag>";
- }
-
- return( $ret );
-}
-
-function optionize( $name, $opts, $default, $xtra = '' ) {
-
- $ret = "<select name=\"$name\" $xtra>\n";
-
- foreach( $opts as $key => $opt ) {
- if( $opt == $default ) {
- $chk = ' SELECTED';
+ if ($k) {
+ if ($val) {
+ $rpl = "$k=$val";
} else {
- $chk = '';
- }
- $ret .= "<option value=\"$opt\"$chk>$opt</option>\n";
+ $rpl = '';
+ }
+ if( substr($v,-1)=='&' ) {
+ $rpl .= '&';
+ }
+ $pat = "/$k=$v/";
+ $url = preg_replace($pat,$rpl,$url);
}
-
- $ret .= "</select>\n";
- return( $ret );
+ if ($link) {
+ $url = str_replace('&','&',$url);
+ }
+ return $url;
}
-?>
\ No newline at end of file
+