9cd67a0a |
1 | <?php |
2 | |
3 | /** |
8008456a |
4 | * html.php |
9cd67a0a |
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 | |
8008456a |
16 | function html_tag( $tag, // Tag to output |
13cf639b |
17 | $val = '', // Value between tags (if empty only start tag is issued) |
8008456a |
18 | $align = '', // Alignment |
19 | $bgcolor = '', // Back color |
20 | $xtra = '' ) { // Extra options |
892b98c9 |
21 | |
22 | GLOBAL $languages, $squirrelmail_language; |
23 | |
24 | $align = strtolower( $align ); |
25 | $bgc = ''; |
26 | $tag = strtoupper( $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 | $ret .= '>'; |
72 | |
73 | if ( $val <> '' ) { |
74 | $ret .= "$val</$tag>"; |
75 | } |
76 | |
94ac35c6 |
77 | return( $ret ); |
94ac35c6 |
78 | } |
79 | |
02725e0b |
80 | /* handy function to set url vars */ |
81 | /* especially usefull when $url = $PHP_SELF */ |
82 | function set_url_var($url, $var, $val=0) { |
892b98c9 |
83 | $k = ''; |
84 | $ret = ''; |
892b98c9 |
85 | $pat_a = array ( |
02725e0b |
86 | '/.+(\\&'.$var.')=(.*)\\&/AU', /* in the middle */ |
892b98c9 |
87 | '/.+\\?('.$var.')=(.*\\&).+/AU', /* at front, more follow */ |
88 | '/.+(\\?'.$var.')=(.*)$/AU', /* at front and only var */ |
89 | '/.+(\\&'.$var.')=(.*)$/AU' /* at the end */ |
90 | ); |
91 | switch (true) { |
92 | case (preg_match($pat_a[0],$url,$regs)): |
93 | $k = $regs[1]; |
94 | $v = $regs[2]; |
95 | break; |
96 | case (preg_match($pat_a[1],$url,$regs)): |
97 | $k = $regs[1]; |
98 | $v = $regs[2]; |
99 | break; |
100 | case (preg_match($pat_a[2],$url,$regs)): |
101 | $k = $regs[1]; |
102 | $v = $regs[2]; |
103 | break; |
104 | case (preg_match($pat_a[3],$url,$regs)): |
105 | $k = $regs[1]; |
106 | $v = $regs[2]; |
107 | break; |
108 | default: |
109 | if ($val) { |
110 | if (strpos($url,'?')) { |
c9aa0b45 |
111 | $url .= "&$var=$val"; |
892b98c9 |
112 | } else { |
113 | $url .= "?$var=$val"; |
114 | } |
115 | } |
116 | break; |
117 | } |
118 | |
119 | if ($k) { |
120 | if ($val) { |
121 | $rpl = "$k=$val"; |
c9aa0b45 |
122 | $rpl = preg_replace('/&/','&',$rpl); |
892b98c9 |
123 | } else { |
124 | $rpl = ''; |
125 | } |
126 | $pat = "/$k=$v/"; |
127 | $url = preg_replace($pat,$rpl,$url); |
02725e0b |
128 | } |
c9aa0b45 |
129 | return $url; |
892b98c9 |
130 | } |
02725e0b |
131 | |
6330a306 |
132 | /* Temporary test function to proces template vars with formatting. |
892b98c9 |
133 | * I use it for viewing the message_header (view_header.php) with |
6330a306 |
134 | * a sort of template. |
892b98c9 |
135 | */ |
6330a306 |
136 | function echo_template_var($var, $format_ar = array() ) { |
892b98c9 |
137 | $frm_last = count($format_ar) -1; |
138 | |
139 | if (isset($format_ar[0])) echo $format_ar[0]; |
140 | $i = 1; |
6330a306 |
141 | |
892b98c9 |
142 | switch (true) { |
143 | case (is_string($var)): |
144 | echo $var; |
145 | break; |
146 | case (is_array($var)): |
147 | $frm_a = array_slice($format_ar,1,$frm_last-1); |
148 | foreach ($var as $a_el) { |
149 | if (is_array($a_el)) { |
150 | echo_template_var($a_el,$frm_a); |
151 | } else { |
152 | echo $a_el; |
153 | if (isset($format_ar[$i])) { |
154 | echo $format_ar[$i]; |
155 | } |
156 | $i++; |
157 | } |
158 | } |
159 | break; |
160 | default: |
161 | break; |
162 | } |
163 | if (isset($format_ar[$frm_last]) && $frm_last>$i ) { |
164 | echo $format_ar[$frm_last]; |
165 | } |
166 | } |
02725e0b |
167 | ?> |