functions/html.php

   1 <?php
   2
   3 /**
   4  * html.php
   5  *
   6  * Copyright (c) 1999-2002 The SquirrelMail Project Team
   7  * Licensed under the GNU GPL. For full terms see the file COPYING.
   8  *
   9  * The idea is to inlcude here some functions to make easier
  10  * the right to left implementation by "functionize" some
  11  * html outputs.
  12  *
  13  * $Id$
  14  */
  15
  16     function html_tag( $tag,                // Tag to output
  17                        $val = '',           // Value between tags
  18                        $align = '',         // Alignment
  19                        $bgcolor = '',       // Back color
  20                        $xtra = '' ) {       // Extra options
  21
  22         GLOBAL $languages, $squirrelmail_language;
  23
  24         $align = strtolower( $align );
  25         $bgc = '';
  26         $tag = strtolower( $tag );
  27
  28         if ( isset( $languages[$squirrelmail_language]['DIR']) ) {
  29             $dir = $languages[$squirrelmail_language]['DIR'];
  30         } else {
  31             $dir = 'ltr';
  32         }
  33
  34         if ( $dir == 'ltr' ) {
  35             $rgt = 'right';
  36             $lft = 'left';
  37         } else {
  38             $rgt = 'left';
  39             $lft = 'right';
  40         }
  41
  42         if ( $bgcolor <> '' ) {
  43             $bgc = " bgcolor=\"$bgcolor\"";
  44         }
  45
  46         switch ( $align ) {
  47             case '':
  48                 $alg = '';
  49                 break;
  50             case 'right':
  51                 $alg = " align=\"$rgt\"";
  52                 break;
  53             case 'left':
  54                 $alg = " align=\"$lft\"";
  55                 break;
  56             default:
  57                 $alg = " align=\"$align\"";
  58                 break;
  59         }
  60
  61         $ret = "<$tag";
  62
  63         if ( $dir <> 'ltr' ) {
  64             $ret .= " dir=\"$dir\"";
  65         }
  66         $ret .= $bgc . $alg;
  67
  68         if ( $xtra <> '' ) {
  69             $ret .= " $xtra";
  70         }
  71
  72         if ( $val <> '' ) {
  73             $ret .= ">$val</$tag>";
  74         } else {
  75             $ret .= ' />';
  76         }
  77
  78         return( $ret );
  79     }
  80
  81     /* handy function to set url vars */
  82     /* especially usefull when $url = $PHP_SELF */
  83     function set_url_var($url, $var, $val=0, $link=true) {
  84         $k = '';
  85         $ret = '';
  86         $pat_a = array (
  87                        '/.+(\\&'.$var.')=(.*)\\&/AU',   /* in the middle */
  88                        '/.+\\?('.$var.')=(.*\\&).+/AU', /* at front, more follow */
  89                        '/.+(\\?'.$var.')=(.*)$/AU',     /* at front and only var */
  90                        '/.+(\\&'.$var.')=(.*)$/AU'      /* at the end */
  91                      );
  92         preg_replace('/&amp;/','&',$url);
  93         switch (true) {
  94             case (preg_match($pat_a[0],$url,$regs)):
  95                 $k = $regs[1];
  96                 $v = $regs[2];
  97                 break;
  98             case (preg_match($pat_a[1],$url,$regs)):
  99                 $k = $regs[1];
 100                 $v = $regs[2];
 101                 break;
 102             case (preg_match($pat_a[2],$url,$regs)):
 103                 $k = $regs[1];
 104                 $v = $regs[2];
 105                 break;
 106             case (preg_match($pat_a[3],$url,$regs)):
 107                 $k = $regs[1];
 108                 $v = $regs[2];
 109                 break;
 110             default:
 111                 if ($val) {
 112                     if (strpos($url,'?')) {
 113                         $url .= "&$var=$val";
 114                     } else {
 115                         $url .= "?$var=$val";
 116                     }
 117                 }
 118                 break;
 119         }
 120
 121         if ($k) {
 122             if ($val) {
 123                 $rpl = "$k=$val";
 124                 if ($link) {
 125                     $rpl = preg_replace('/&/','&amp;',$rpl);
 126                 }
 127             } else {
 128                 $rpl = '';
 129             }
 130             $pat = "/$k=$v/";
 131             $url = preg_replace($pat,$rpl,$url);
 132         }
 133         return $url;
 134     }
 135
 136     /* Temporary test function to proces template vars with formatting.
 137      * I use it for viewing the message_header (view_header.php) with
 138      * a sort of template.
 139      */
 140     function echo_template_var($var, $format_ar = array() ) {
 141         $frm_last = count($format_ar) -1;
 142
 143         if (isset($format_ar[0])) echo $format_ar[0];
 144             $i = 1;
 145
 146         switch (true) {
 147             case (is_string($var)):
 148                 echo $var;
 149                 break;
 150             case (is_array($var)):
 151                 $frm_a = array_slice($format_ar,1,$frm_last-1);
 152                 foreach ($var as $a_el) {
 153                     if (is_array($a_el)) {
 154                         echo_template_var($a_el,$frm_a);
 155                     } else {
 156                         echo $a_el;
 157                         if (isset($format_ar[$i])) {
 158                             echo $format_ar[$i];
 159                         }
 160                         $i++;
 161                     }
 162                 }
 163                 break;
 164             default:
 165                 break;
 166         }
 167         if (isset($format_ar[$frm_last]) && $frm_last>$i ) {
 168             echo $format_ar[$frm_last];
 169         }
 170     }
 171 ?>