6 * Copyright (c) 1999-2003 The SquirrelMail Project Team
7 * Licensed under the GNU GPL. For full terms see the file COPYING.
9 * The idea is to inlcude here some functions to make easier
10 * the right to left implementation by "functionize" some
16 function html_tag( $tag, // Tag to output
17 $val = '', // Value between tags
18 $align = '', // Alignment
19 $bgcolor = '', // Back color
20 $xtra = '' ) { // Extra options
22 GLOBAL $languages, $squirrelmail_language;
24 $align = strtolower( $align );
26 $tag = strtolower( $tag );
28 if ( isset( $languages[$squirrelmail_language]['DIR']) ) {
29 $dir = $languages[$squirrelmail_language]['DIR'];
34 if ( $dir == 'ltr' ) {
42 if ( $bgcolor <> '' ) {
43 $bgc = " bgcolor=\"$bgcolor\"";
51 $alg = " align=\"$rgt\"";
54 $alg = " align=\"$lft\"";
57 $alg = " align=\"$align\"";
63 if ( $dir <> 'ltr' ) {
64 $ret .= " dir=\"$dir\"";
73 $ret .= ">$val</$tag>";
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) {
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 */
92 preg_replace('/&/','&',$url);
94 case (preg_match($pat_a[0],$url,$regs)):
98 case (preg_match($pat_a[1],$url,$regs)):
102 case (preg_match($pat_a[2],$url,$regs)):
106 case (preg_match($pat_a[3],$url,$regs)):
112 if (strpos($url,'?')) {
113 $url .= "&$var=$val";
115 $url .= "?$var=$val";
125 $rpl = preg_replace('/&/','&',$rpl);
131 $url = preg_replace($pat,$rpl,$url);
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.
140 function echo_template_var($var, $format_ar = array() ) {
141 $frm_last = count($format_ar) -1;
143 if (isset($format_ar[0])) echo $format_ar[0];
147 case (is_string($var)):
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);
157 if (isset($format_ar[$i])) {
167 if (isset($format_ar[$frm_last]) && $frm_last>$i ) {
168 echo $format_ar[$frm_last];