← Back to branch summary

~ubuntu-branches/ubuntu/maverick/ilohamail/maverick

« back to all changes in this revision

Viewing changes to IlohaMail/lang/common.inc

  • Committer: Bazaar Package Importer
  • Author(s): Joerg Jaspert
  • Date: 2004-02-04 13:44:37 UTC
  • Revision ID: james.westby@ubuntu.com-20040204134437-kz8j3ui2qa7oq8z2
Tags: upstream-0.8.12
Import upstream version 0.8.12

Show diffs side-by-side

added added

removed removed

Lines of Context:
IlohaMail/lang/common.inc
 
1
<?php
 
2
/////////////////////////////
 
3
//      common.inc
 
4
//      (C)2002 Ryo Chijiiwa <Ryo@IlohaMail.org>
 
5
//              
 
6
//              Description:
 
7
//                      Charset agnostic functions related
 
8
//                      to the lang/charset.inc libraries.
 
9
//
 
10
//      This file is part of IlohaMail. IlohaMail is free software released 
 
11
//      under the GPL license.  See enclosed file COPYING for details, or 
 
12
//      see http://www.fsf.org/copyleft/gpl.html
 
13
////////////////////////////
 
14
 
 
15
function LangFormatIntTime($time, $system, $ampm, $format){
 
16
        //purpose: take "930" and format as "9:30am" or "0930" as necessary
 
17
        $min_pos = strlen($time) - 2;
 
18
        $hours = substr($time, 0, $min_pos);
 
19
        $minutes = substr($time, $min_pos);
 
20
        if ($system==12){
 
21
                if ($hours >= 12){
 
22
                        if ($hours>12) $hours-=12;
 
23
                        $a = "pm";
 
24
                }else{
 
25
                        $a = "am";
 
26
                }
 
27
        }
 
28
        $result = $format;
 
29
        $result = str_replace("%h", $hours, $result);
 
30
        $result = str_replace("%m", $minutes, $result);
 
31
        $result = str_replace("%a", $ampm[$a], $result);
 
32
        
 
33
        return $result;
 
34
}
 
35
 
 
36
function LangInsertStringsFromAK($dest, $source_a){
 
37
        if (!is_array($source_a)) return $dest;
 
38
        else{
 
39
                while ( list($key, $val) = each($source_a) ){
 
40
                        $place_holder = "%".$key;
 
41
                        $dest = str_replace($place_holder, $val, $dest);
 
42
                }
 
43
        }
 
44
        return $dest;
 
45
}
 
46
 
 
47
function LangDecodeMimeString($str, $charset){
 
48
        $a=explode("?", $str);
 
49
        $count = count($a);
 
50
        if ($count >= 3){                       //should be in format "charset?encoding?base64_string"
 
51
                for ($i=2; $i<$count; $i++) $rest.=$a[$i];
 
52
                
 
53
                if (($a[1]=="B")||($a[1]=="b")) $rest = base64_decode($rest);
 
54
                else if (($a[1]=="Q")||($a[1]=="q")){
 
55
                        $rest = str_replace("_", " ", $rest);
 
56
                        $rest = quoted_printable_decode($rest);
 
57
                }
 
58
                if (strcasecmp($a[0], "utf-8")==0){
 
59
                        include_once("../include/utf8.inc");
 
60
                        return utf8ToUnicodeEntities($rest);
 
61
                }else{
 
62
                        return LangConvert($rest, $charset, $a[0]);
 
63
                }
 
64
        }else{
 
65
                return $str;            //we dont' know what to do with this
 
66
        }
 
67
}
 
68
 
 
69
function LangDecodeSubject($input, $charset){
 
70
        $out = "";
 
71
        //echo "Received: $input <br>\n";
 
72
        $pos = strpos($input, "=?");
 
73
        if ($pos !== false){
 
74
                $out = substr($input, 0, $pos);
 
75
 
 
76
                $end_cs_pos = strpos($input, "?", $pos+2);
 
77
                $end_en_pos = strpos($input, "?", $end_cs_pos+1);
 
78
                $end_pos = strpos($input, "?=", $end_en_pos+1);
 
79
 
 
80
                $encstr = substr($input, $pos+2, ($end_pos-$pos-2));
 
81
                //echo "encstr: $encstr <br>\n";
 
82
                $rest = substr($input, $end_pos+2);
 
83
                //echo "rest: $rest <br>\n";
 
84
                $out.=LangDecodeMimeString($encstr, $charset);
 
85
                $out.=LangDecodeSubject($rest, $charset);
 
86
                //echo "returning: $out <br>\n";
 
87
                return $out;
 
88
        }else{
 
89
                return LangConvert($input, $charset, $charset);
 
90
        }
 
91
}
 
92
 
 
93
function LangFormAddressHTML($user, $name, $address, $charset){
 
94
        global $my_prefs;
 
95
        
 
96
        if ($my_prefs["compose_inside"]) $target="list2";
 
97
        else $target="_blank";
 
98
        
 
99
        if (empty($name)) $name=$address;
 
100
        $decoded_name = LangDecodeSubject($name, $charset);
 
101
        if (strpos($decoded_name, " ")!==false) $q_decoded_name = "\"".$decoded_name."\"";
 
102
        else $q_decoded_name = $decoded_name;
 
103
        
 
104
        $url = "compose2.php?user=".$user."&to=".urlencode($q_decoded_name." <".$address.">");
 
105
        
 
106
        $res="";
 
107
        $res.="<a href=\"$url\" target=\"$target\">".$decoded_name."</a>";
 
108
        $res.="[<a href=\"edit_contact.php?user=$user&name=".urlencode($decoded_name)."&email=".urlencode($address)."&edit=-1\">+</a>]";
 
109
        return $res;
 
110
}
 
111
 
 
112
function LangExplodeQuotedString($delimiter, $string){
 
113
        $quotes=explode("\"", $string);
 
114
        while ( list($key, $val) = each($quotes))
 
115
                if (($key % 2) == 1) 
 
116
                        $quotes[$key] = str_replace($delimiter, "_!@!_", $quotes[$key]);
 
117
        $string=implode("\"", $quotes);
 
118
        
 
119
        $result=explode($delimiter, $string);
 
120
        while ( list($key, $val) = each($result) )
 
121
                $result[$key] = str_replace("_!@!_", $delimiter, $result[$key]);
 
122
        
 
123
        return $result;
 
124
}
 
125
 
 
126
function LangParseAddressList($str){
 
127
        $a=LangExplodeQuotedString(",", $str);
 
128
        $result=array();
 
129
        reset($a);
 
130
        while( list($key, $val) = each($a) ){
 
131
                $val = str_replace("\"<", "\" <", $val);
 
132
                $sub_a = LangExplodeQuotedString(" ", $val);
 
133
                reset($sub_a);
 
134
                while ( list($k, $v) = each($sub_a) ){
 
135
                        if ((strpos($v, "@") > 0) && (strpos($v, ".") > 0)) 
 
136
                                $result[$key]["address"] = str_replace("<", "", str_replace(">", "", $v));
 
137
                        else $result[$key]["name"] .= (empty($result[$key]["name"])?"":" ").str_replace("\"","",stripslashes($v));
 
138
                }
 
139
                if (empty($result[$key]["name"])) $result[$key]["name"] = $result[$key]["address"];
 
140
        }
 
141
        
 
142
        return $result;
 
143
}
 
144
 
 
145
function LangEncodeAddressList($str, $charset){
 
146
        $str = str_replace(", ", ",", $str);
 
147
        $str = str_replace("," , ", ", $str);
 
148
        $str = str_replace("; ", ";", $str);
 
149
        $str = str_replace(";", "; ", $str);
 
150
        
 
151
        $a = LangExplodeQuotedString(" ", $str);
 
152
        if (is_array($a)){
 
153
                $c = count($a);
 
154
                for ($i=0;$i<$c;$i++){
 
155
                        if ((strpos($a[$i],"@") > 0) && (strpos($a[$i], ".") > 0)){
 
156
                                //probably an email address, leave it alone
 
157
                        }else{
 
158
                                //some string, encode
 
159
                                $word = stripslashes($a[$i]);
 
160
                                $len = strlen($word);
 
161
                                $enc = LangEncodeSubject(str_replace("\"", "", $word), $charset);
 
162
                                if (($word[0]=="\"")&&($word[$len-1]=="\"")) $enc = "\"".$enc."\"";
 
163
                                $a[$i] = $enc;
 
164
                        }
 
165
                }
 
166
                return implode(" ", $a);
 
167
        }else{
 
168
                return $str;
 
169
        }
 
170
}
 
171
 
 
172
function LangDecodeAddressList($str, $charset, $user){
 
173
        $a=LangParseAddressList($str);
 
174
        if (is_array($a)){
 
175
                $c=count($a);
 
176
        $j=0;
 
177
                reset($a);
 
178
                while( list($i, $val) = each($a) ){
 
179
            $j++;
 
180
                        $address=$a[$i]["address"];
 
181
                        $name=str_replace("\"", "", $a[$i]["name"]);
 
182
                        $res.=LangFormAddressHTML($user, $name, $address, $charset);
 
183
                        if ((($j % 3)==0) && (($c-$j)>1)) $res.=",<br>&nbsp;&nbsp;&nbsp;";
 
184
                        else if ($c>$j) $res.=",&nbsp;";
 
185
                        //$res.=(($c>1)&&($j<$c)?",<br>&nbsp;&nbsp;&nbsp;":"");
 
186
                }
 
187
        }
 
188
        
 
189
        return $res;
 
190
}
 
191
 
 
192
function LangShowAddresses($str, $charset){
 
193
        $a=LangParseAddressList($str);
 
194
        if (is_array($a)){
 
195
                $c=count($a);
 
196
        $j=0;
 
197
                reset($a);
 
198
                while( list($i, $val) = each($a) ){
 
199
            $j++;
 
200
                        $address=$a[$i]["address"];
 
201
                        $name=str_replace("\"", "", $a[$i]["name"]);
 
202
                        
 
203
                        $res.=htmlspecialchars("\"$name\" <$address>");
 
204
                        if ((($j % 3)==0) && (($c-$j)>1)) $res.=",<br>&nbsp;&nbsp;&nbsp;";
 
205
                        else if ($c>$j) $res.=",&nbsp;";
 
206
                }
 
207
        }
 
208
        
 
209
        return $res;
 
210
}
 
211
 
 
212
function LangFormatDate($timestamp, $format){
 
213
        $date = getdate($timestamp);
 
214
        
 
215
        $result = $format;
 
216
        $result = str_replace("%d", $date["mday"], $result);
 
217
        $result = str_replace("%m", $date["mon"], $result);
 
218
        $result = str_replace("%y", $date["year"], $result);
 
219
        $result = str_replace("%t", $date["hour"].":".$date["minutes"], $result);
 
220
        $result = str_replace("%S", date('S', $timestamp), $result);
 
221
 
 
222
        return $result;
 
223
}
 
224
 
 
225
 
 
226
function LangWrapLine($line, $width){
 
227
        $line_len = strlen($line);
 
228
        $i = 0;
 
229
        
 
230
        //if line is less than width, we're good
 
231
        if ($line_len <= $width) return $line;
 
232
        
 
233
        for ($prev_i=0,$i=$width;$i<$line_len;$prev_i=$i,$i+=$width){
 
234
                //extract last segment that is $width wide
 
235
                $chunk = substr($line, $prev_i, ($i-$prev_i))."\n";
 
236
                
 
237
                //find last space in this chunk
 
238
                $last_space = strrpos($chunk, " ");
 
239
                $last_space = $prev_i + $last_space;
 
240
                
 
241
                if ($last_space==$prev_i){
 
242
                        //no space found in this chunk
 
243
                        $next_space = strpos($line, " ", $i);
 
244
                        if ($next_space!==false){
 
245
                                $i = $next_space;
 
246
                                $line[$next_space] = "\n";
 
247
                        }
 
248
                }else{
 
249
                        //replace last space before width with newline
 
250
                        $line[$last_space]="\n";
 
251
                        $i = $last_space;
 
252
                }
 
253
        }
 
254
        
 
255
        return $line;
 
256
}
 
257
 
 
258
function LangSmartWrap($text, $len){
 
259
        $lines = explode("\n", $text);
 
260
        
 
261
        if (!is_array($lines)) return "";
 
262
        
 
263
        while ( list($i,$line)=each($lines) ){
 
264
                if (!ereg("^>", $line)) $lines[$i] = LangWrapLine(chop($line), $len);
 
265
        }
 
266
        
 
267
        return implode("\n", $lines);
 
268
}
 
269
 
 
270
 
 
271
?>
 
 
b'\\ No newline at end of file'