📄 functions.php
字号:
<?/*$Header: /home/cvsroot/pofhq-wapmail/functions.php,v 1.7 2002/12/13 19:20:13 pau Exp $Copyright (c) 2002 Pau Oliva Fora <pau@eSlack.org> Licensed under the GNU GPL. For full terms see the file COPYING.*/header("content-type:text/vnd.wap.wml");header("Expires: Mon, 26 Jul 1997 05:00:00 GMT"); // Date in the pastheader("Last-Modified: " . gmdate("D, d M Y H:i:s") . " GMT"); // always modifiedheader("Cache-Control: no-store, no-cache, must-revalidate"); // HTTP/1.1header("Cache-Control: post-check=0, pre-check=0", false);header("Pragma: no-cache"); // HTTP/1.0$VERSION="1.3beta2";function wmlheader() { echo("<?xml version=\"1.0\"?>\n"); echo("<!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.1//EN\" \"http://www.wapforum.org/DTD/wml_1.1.xml\">\n\n"); echo("<wml>\n"); }function wmlmeta() { echo("<head>\n"); echo("<meta http-equiv=\"Cache-Control\" content=\"max-age=0\" forua=\"true\"/>\n"); echo("<meta http-equiv=\"Cache-Control\" content=\"must-revalidate\" forua=\"true\"/>\n"); echo("<meta http-equiv=\"Cache-Control\" content=\"no-cache\" forua=\"true\"/>\n"); echo("</head>\n"); }function wmlfooter() { echo("</card>\n</wml>\n"); }function get_mime_type(&$structure) { $primary_mime_type = array("TEXT", "MULTIPART", "MESSAGE", "APPLICATION", "AUDIO", "IMAGE", "VIDEO", "OTHER"); if($structure->subtype) { return $primary_mime_type[(int) $structure->type] . '/' . $structure->subtype; } return "TEXT/PLAIN"; } function get_part($stream, $msg_number, $mime_type, $structure = false, $part_number = false) { /* yields the part of a message with a particular MIME type. Thanks to */ /* <cleong@organic.com> for this function in php manual user contributed notes. */ if(!$structure) { $structure = imap_fetchstructure($stream, $msg_number); } if($structure) { if($mime_type == get_mime_type($structure)) { if(!$part_number) { $part_number = "1"; } $text = imap_fetchbody($stream, $msg_number, $part_number); if($structure->encoding == 3) { return decode2(imap_base64($text)); } else if($structure->encoding == 4) { $text = imap_qprint($text); if (ereg("=\n", $text)) $text = ereg_replace ("=\n", "", $text); return decode2($text); } else { return decode2($text); } } if($structure->type == 1) { /* multipart */ while(list($index, $sub_structure) = each($structure->parts)) { if($part_number) { $prefix = $part_number . '.'; } $data = get_part($stream, $msg_number, $mime_type, $sub_structure, $prefix . ($index + 1)); if($data) { return $data; } } } } return false; } function decode($string) { /* Decodes base64 and quoted printable to a 'human readable' format */ if(ereg("=\?.{0,}\?[Bb]\?",$string)){ $arrHead=split("=\?.{0,}\?[Bb]\?",$string); while(list($key,$value)=each($arrHead)){ if(ereg("\?=",$value)){ $arrTemp=split("\?=",$value); $arrTemp[0]=base64_decode($arrTemp[0]); $arrHead[$key]=join("",$arrTemp); } } $string=join("",$arrHead); } if(ereg("=\?.{0,}\?[Qq]\?",$string)){ $string=quoted_printable_decode($string); $string=ereg_replace("=\?.{0,}\?[Qq]\?","",$string); $string=ereg_replace("\?=","",$string); } return decode2($string);}function decode2($string) { /* Displays message correctly when there is a '$' sign on it */ /* and reduces redundant signs usually used in signatures. */ if (ereg("\\$",$string)) $string=ereg_replace("\\$","\$$","$string"); if (ereg(" />",$string)) $string=ereg_replace(" />","/>","$string"); if (ereg("\ \ ",$string)) $string=ereg_replace("\ \ "," ","$string"); if (ereg("----",$string)) $string=ereg_replace("----","--","$string"); if (ereg("____",$string)) $string=ereg_replace("____","__","$string"); if (ereg("====",$string)) $string=ereg_replace("====","==","$string"); if (ereg("####",$string)) $string=ereg_replace("####","##","$string"); if (ereg("&nbsp;",$string)) $string=ereg_replace("&nbsp;","","$string"); return $string;}function waplink($title,$name,$href,$fields) { /* generates the needed link in wml from an array */ echo "<anchor title=\"$title\">$name\n"; echo "<go href=\"$href\" method=\"post\">\n"; foreach ($fields as $key => $value) echo "<postfield name=\"$key\" value=\"$value\"/>\n"; echo "</go></anchor><br/>\n"; }function wapbutton($form,$label,$href,$fields) { /* generates a wml button in the browser (similar to a link) */ echo "<do type=\"accept\" label=\"$label\">\n"; echo "<go href=\"$href\" method=\"post\">\n"; if ($form) foreach ($fields as $key => $value) echo "<postfield name=\"$key\" value=\"$".$value."\"/>\n"; else foreach ($fields as $key => $value) echo "<postfield name=\"$key\" value=\"$value\"/>\n"; echo "</go></do>\n";}function isutf8($string) { /* try to see if $msgbody is encoded in UTF-8, otherwise encode it. */ if (ereg("醸閨韡髚鷟鄚鑭靯騶鵿鋦雦飢鰘鼃羭蓔蛗觸趞纜葇蘾襹質膢藎蟶謡軀駖褆鐋⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -