X-Git-Url: https://vcs.fsf.org/?a=blobdiff_plain;f=functions%2Fhtml.php;h=747d68ede2c347859388d01c56cbd45242efb329;hb=96862638ef65bfd5438320fc30adf6edf5f1429d;hp=72351c0cb2893545ebc1681c93b430345163e748;hpb=8008456a180e245d1c81c1773547d59573b5c1bf;p=squirrelmail.git

diff --git a/functions/html.php b/functions/html.php
index 72351c0c..747d68ed 100644
--- a/functions/html.php
+++ b/functions/html.php
@@ -3,77 +3,179 @@
 /**
  * html.php
  *
- * Copyright (c) 1999-2002 The SquirrelMail Project Team
+ * Copyright (c) 1999-2004 The SquirrelMail Project Team
  * Licensed under the GNU GPL. For full terms see the file COPYING.
  *
  * The idea is to inlcude here some functions to make easier
  * the right to left implementation by "functionize" some
  * html outputs.
  *
- * $Id$
+ * @version $Id$
+ * @package squirrelmail
  */
 
-    function html_tag( $tag,                // Tag to output
-                       $val = '',           // Value between tags (if empty only start tag is output)
+/**
+ * Generate html tags
+ *
+ * @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
+ */
+function html_tag( $tag,                // Tag to output
+                       $val = '',           // Value between tags
                        $align = '',         // Alignment
                        $bgcolor = '',       // Back color
                        $xtra = '' ) {       // Extra options
-			 
-    	GLOBAL $languages, $language;
-    	
-    	$align = strtolower( $align );
-    	$dir   = strtolower( $dir );
-    	$tag = strtoupper( $tag );
-    	
-    	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;
-        case 'left':    	    
-            $alg = " ALIGN=\"$lft\"";
-    	default:
-    	    $alg = " ALIGN=\"$align\"";
-    	}
-	
-	    $ret = "<$tag";
-	    
-	    if ( $dir <> 'ltr' ) {
-	        $ret .= " DIR=\"$dir\"";
-	    }
-	    
-	    $ret .= "$bgc$alg";
-	    
-	    if ( $xtra <> '' ) {
-	        $ret .= " $xtra";
-	    }
-	    $ret .= '>';
-	    
-	    if ( $val <> '' ) {
-	        $ret .= "$val</$tag>";
-	    }
-	
+
+        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';
+        }
+
+        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;
+            case 'left':
+                $alg = " align=\"$lft\"";
+                break;
+            default:
+                $alg = " align=\"$align\"";
+                break;
+        }
+
+        $ret = "<$tag";
+
+        if ( $dir <> 'ltr' ) {
+            $ret .= " dir=\"$dir\"";
+        }
+        $ret .= $bgc . $alg;
+
+        if ( $xtra <> '' ) {
+            $ret .= " $xtra";
+        }
+
+        if ( $val <> '' ) {
+            $ret .= ">$val</$tag>";
+        } else {
+            $ret .= '>';
+        }
+
         return( $ret );
     }
 
+    /* handy function to set url vars */
+    /* especially usefull when $url = $PHP_SELF */
+    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 */
+                     );
+        preg_replace('/&amp;/','&',$url);
+        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;
+        }
+
+        if ($k) {
+            if ($val) {
+                $rpl = "$k=$val";
+                if ($link) {
+                    $rpl = preg_replace('/&/','&amp;',$rpl);
+                }
+            } else {
+                $rpl = '';
+            }
+            $pat = "/$k=$v/";
+            $url = preg_replace($pat,$rpl,$url);
+        }
+        return $url;
+    }
+
+    /* Temporary test function to proces template vars with formatting.
+     * I use it for viewing the message_header (view_header.php) with
+     * a sort of template.
+     */
+    function echo_template_var($var, $format_ar = array() ) {
+        $frm_last = count($format_ar) -1;
+
+        if (isset($format_ar[0])) echo $format_ar[0];
+            $i = 1;
+
+        switch (true) {
+            case (is_string($var)):
+                echo $var;
+                break;
+            case (is_array($var)):
+                $frm_a = array_slice($format_ar,1,$frm_last-1);
+                foreach ($var as $a_el) {
+                    if (is_array($a_el)) {
+                        echo_template_var($a_el,$frm_a);
+                    } else {
+                        echo $a_el;
+                        if (isset($format_ar[$i])) {
+                            echo $format_ar[$i];
+                        }
+                        $i++;
+                    }
+                }
+                break;
+            default:
+                break;
+        }
+        if (isset($format_ar[$frm_last]) && $frm_last>$i ) {
+            echo $format_ar[$frm_last];
+        }
+    }
 ?>
\ No newline at end of file