Source for file html.php

Documentation is available at html.php

  1. <?php
  2.  
  3. /**
  4.  * html.php
  5.  *
  6.  * The idea is to inlcude here some functions to make easier
  7.  * the right to left implementation by "functionize" some
  8.  * html outputs.
  9.  *
  10.  * @copyright &copy; 1999-2006 The SquirrelMail Project Team
  11.  * @license http://opensource.org/licenses/gpl-license.php GNU Public License
  12.  * @version $Id: html.php,v 1.30 2006/10/05 15:24:20 stevetruckstuff Exp $
  13.  * @package squirrelmail
  14.  * @since 1.3.0
  15.  */
  16.  
  17. /**
  18.  * Generates html tags
  19.  *
  20.  * @param string $tag Tag to output
  21.  * @param string $val Value between tags
  22.  * @param string $align Alignment (left, center, etc)
  23.  * @param string $bgcolor Back color in hexadecimal
  24.  * @param string $xtra Extra options
  25.  * @return string HTML ready for output
  26.  * @since 1.3.0
  27.  */
  28. function html_tag( $tag,                // Tag to output
  29.                                               $val = '',           // Value between tags
  30.                                               $align = '',         // Alignment
  31.                                               $bgcolor = '',       // Back color
  32.                                               $xtra = '' ) {       // Extra options
  33.  
  34.     GLOBAL $languages, $squirrelmail_language;
  35.  
  36.     $align = strtolower( $align );
  37.     $bgc = '';
  38.     $tag = strtolower( $tag );
  39.  
  40.     if ( isset( $languages[$squirrelmail_language]['DIR']) ) {
  41.         $dir = $languages[$squirrelmail_language]['DIR'];
  42.     } else {
  43.         $dir = 'ltr';
  44.     }
  45.  
  46.     if ( $dir == 'ltr' ) {
  47.         $rgt = 'right';
  48.         $lft = 'left';
  49.     } else {
  50.         $rgt = 'left';
  51.         $lft = 'right';
  52.     }
  53.  
  54.     if ( $bgcolor <> '' ) {
  55.         $bgc = " bgcolor=\"$bgcolor\"";
  56.     }
  57.  
  58.     switch ( $align ) {
  59.     case '':
  60.         $alg = '';
  61.         break;
  62.     case 'right':
  63.         $alg = " align=\"$rgt\"";
  64.         break;
  65.     case 'left':
  66.         $alg = " align=\"$lft\"";
  67.         break;
  68.     default:
  69.         $alg = " align=\"$align\"";
  70.         break;
  71.     }
  72.  
  73.     $ret = "<$tag";
  74.  
  75.     if ( $dir <> 'ltr' ) {
  76.         $ret .= " dir=\"$dir\"";
  77.     }
  78.     $ret .= $bgc . $alg;
  79.  
  80.     if ( $xtra <> '' ) {
  81.         $ret .= " $xtra";
  82.     }
  83.  
  84.     if ( $val <> '' ) {
  85.         $ret .= ">$val</$tag>\n";
  86.     } else {
  87.         $ret .= '>'. "\n";
  88.     }
  89.  
  90.     return( $ret );
  91. }
  92.  
  93. /**
  94.  * handy function to set url vars
  95.  *
  96.  * especially useful when $url = $PHP_SELF
  97.  * @param string $url url that must be modified
  98.  * @param string $var variable name
  99.  * @param string $val variable value
  100.  * @param boolean $link controls sanitizing of ampersand in urls (since 1.3.2)
  101.  * @return string $url modified url
  102.  * @since 1.3.0
  103.  */
  104. function set_url_var($url, $var, $val=0, $link=true) {
  105.     $k = '';
  106.     $pat_a = array (
  107.                     '/.+(\\&'.$var.')=(.*)\\&/AU',   /* in the middle */
  108.                     '/.+\\?('.$var.')=(.*\\&).+/AU', /* at front, more follow */
  109.                     '/.+(\\?'.$var.')=(.*)$/AU',     /* at front and only var */
  110.                     '/.+(\\&'.$var.')=(.*)$/AU'      /* at the end */
  111.                     );
  112.     $url = preg_replace('/&amp;/','&',$url);
  113.  
  114.     // FIXME: why switch is used instead of if () or one preg_match()
  115.     switch (true) {
  116.     case (preg_match($pat_a[0],$url,$regs)):
  117.         $k = $regs[1];
  118.         $v = $regs[2];
  119.         break;
  120.     case (preg_match($pat_a[1],$url,$regs)):
  121.         $k = $regs[1];
  122.         $v = $regs[2];
  123.         break;
  124.     case (preg_match($pat_a[2],$url,$regs)):
  125.         $k = $regs[1];
  126.         $v = $regs[2];
  127.         break;
  128.     case (preg_match($pat_a[3],$url,$regs)):
  129.         $k = $regs[1];
  130.         $v = $regs[2];
  131.         break;
  132.     default:
  133.         if ($val) {
  134.             if (strpos($url,'?')) {
  135.                 $url .= "&$var=$val";
  136.             } else {
  137.                 $url .= "?$var=$val";
  138.             }
  139.         }
  140.         break;
  141.     }
  142.  
  143.     if ($k) {
  144.         if ($val) {
  145.             $rpl = "$k=$val";
  146.             if ($link) {
  147.                 $rpl = preg_replace('/&/','&amp;',$rpl);
  148.             }
  149.         } else {
  150.             $rpl = '';
  151.         }
  152.         if( substr($v,-1)=='&' ) {
  153.             $rpl .= '&';
  154.         }
  155.         $pat = "/$k=$v/";
  156.         $url = preg_replace($pat,$rpl,$url);
  157.     }
  158.     $url = preg_replace('/&/','&amp;',$url);
  159.     return $url;
  160. }

Documentation generated on Sat, 07 Oct 2006 16:11:31 +0300 by phpDocumentor 1.3.0RC6