'$this->url',
'email' => '$this->email',
'mail' => '$this->email', // 为了容错，[mail]和等效
'img' => '$this->img',
'b' => '$this->simple',
'i' => '$this->simple',
'u' => '$this->simple',
'tt' => '$this->simple',
's' => '$this->simple',
'strike' => '$this->simple',
'h1' => '$this->simple',
'h2' => '$this->simple',
'h3' => '$this->simple',
'h4' => '$this->simple',
'h5' => '$this->simple',
'h6' => '$this->simple',
'sup' => '$this->simple',
'sub' => '$this->simple',
'em' => '$this->simple',
'strong' => '$this->simple',
'code' => '$this->simple',
'small' => '$this->simple',
'big' => '$this->simple',
'blink' => '$this->simple',
'fly' => '$this->fly',
'move' => '$this->move',
'glow' => '$this->cssstyle',
'shadow' => '$this->cssstyle',
'blur' => '$this->cssstyle',
'wave' => '$this->cssstyle',
'sub' => '$this->simple',
'sup' => '$this->simple',
'size' => '$this->size',
'face' => '$this->face',
'font' => '$this->face', // 为了容错，[font]和[face]等效
'color' => '$this->color',
'html' => '$this->html',
'quote' => '$this->quote',
'swf' => '$this->swf',
'upload' => '$this->upload'
);
function ubbcode()
{
$this->$nest= 0;
$this->$slastmodified= sprintf(%s, date(y-m-j h:i, getlastmod()));
}
/***********************************************************************
* 对使用者输入的 e-mail 作简单的检查，
* 检查使用者的 e-mail 字串是否有 @ 字元，
* 在 @ 字元前有英文字母或数字，在之后有数节字串，
* 最后的小数点后只能有二个或三个英文字母。
* super@mail.wilson.gs 就可以通过检查，super@mail.wilson 就不能通过检查
************************************************************************/
function emailcheck($str)
{
if (eregi(^[_\.0-9a-z-]+@([0-9a-z][0-9a-z-]+\.)+[a-z]{2,3}$, $str))
return true;
else
return false;
}
/***********************************************************************
* 对使用者输入的 url 作简单的检查，
* 目前只能简单判断，不能自动检查fpt，finger等
************************************************************************/
function checkurl($str)
{
$bvalidurl= true;
if (eregi(([a-z0-9-]+([\.][a-z0-9\-]+)+), $str, $er_arr))
{
/*
printf (0. %s
\n, $er_arr[0]);
printf (1. %s
\n, $er_arr[1]);
printf (2. %s
\n, $er_arr[2]);
printf (3. %s
\n, $er_arr[3]);
printf (4. %s
\n, $er_arr[4]);
*/
}
else
$bvalidurl= false;
return $bvalidurl;
}
/***********************************************************************
* 对使用者输入的 图片url 作简单的检查，
* 目前只能简单判断结尾是否为图片文件
* 不支持由cgi动态生成的图片，比如计数器这类的
************************************************************************/
function checkimgurl($str)
{
if ($this->checkurl($str)) {
if(eregi(\.(jpeg|jpg|gif|bmp|png|pcx|tiff|tga|lwf)$, $str))
return true;
else
return false;
}
else
return false;
}
/***********************************************************************
* 自动补全url部分，主要是协议前缀，
* 默认是htpp://，支持https://；ftp://；finger://；gopher://等
* 函数并不对url的合法性作检查
************************************************************************/
function formaturl($str)
{
if (!eregi(^(ftp|http|https|mms|gopher|finger|bbs|telnet):(\/\/|\\\\), $str))
$str= 'http://'.$str;
return $str;
}
//对$str进行ubb编码解析
function parse($str)
{
$nest ++;
$parse = ''.($str);
$ret = '';
while(true){
//查找[xx] 或者[xx=xx] , 但不包括[xx=]
$eregi_ret=eregi(\[([a-z][a-z0-9]{0,7})(=[a-za-z0-9#.:/&@|\?,%=_\+\\']+)?\], $parse, $eregi_arr);
if(!$eregi_ret)
{
$ret .= $parse;
break; //如果没有，返回
}
/* for debug
else
{
printf ($. %s
, $eregi_ret);
printf (0. %s
, $eregi_arr[0]);
printf (1. %s
, $eregi_arr[1]);
printf (2. %s
, $eregi_arr[2]);
printf (3. %s
, $eregi_arr[3]);
}
*/
$pos = @strpos($parse, $eregi_arr[0]); // 起始位置
$tag_start= $eregi_arr[1];
$tag= strtolower($eregi_arr[1]);
$tag_param= $eregi_arr[2];
$parse2 = substr($parse, 0, $pos);//标记之前
$parse = substr($parse, $pos + $eregi_ret);//标记之后
if(!isset($this->tags[$tag]))
{
$ret .= $parse2.'['.$tag_start.']';
continue; //如果是不支持的标记
}
//查找对应的结束标记
$eregi_ret=eregi(\[(/.$tag.)\], $parse, $eregi_arr);
if(!$eregi_ret)
{
$ret .= $parse2.'['.$tag_start.$tag_param.']';
continue;//没有对应该的结束标记
}
$pos= strpos($parse, $eregi_arr[0]);
$value= substr($parse, 0, $pos); //起止标记之间的内容
$tag_end= $eregi_arr[1];
$parse= substr($parse, $pos + $eregi_ret);//结束标记之后的内容
// 允许嵌套标记，递归分析
if (!(($tag == 'code') or ($tag==url) or ($tag==email) or ($tag==img))){
$value= $this->parse($value);
}
$ret.= $parse2;
$parsefun= sprintf('$ret .= %s($tag_start, $tag_param, $tag_end, $value);', $this->tags[$tag]);
eval($parsefun);
}
$nest --;
return $ret;
}
/*****************************************************
* 简单替换，类似[b]变为
* 标签内容不便，只是替代括号为
*****************************************************/
function simple($start, $para, $end, $value){
if (strlen($para) > 0)
return sprintf([%s%s]%s[%s], $start, $para, $value, $end);
else
return sprintf(%s, $start, $value, $end);
}
/*****************************************************
* 如下认为合法可以没有“http://”；ftp一定要自己加“ftp://”
* 93611
*
* http://www.fogsun.com
*****************************************************/
function url($start, $para, $end, $value){
$sa= $value;
$surl= substr(trim($para), 1);
if (strlen($surl) > 0)
{
if (strlen($value) == 0)
$sa= $surl;
}
else
{
$surl= trim($value);
}
$surl= $this->formaturl($surl);
if($this->checkurl($surl))
return $sa;
else {
return sprintf([%s%s]%s[%s], $start, $para, $value, $end);
}
}
/*****************************************************
* 如下认为合法可以没有“mailto:”头；
* [email=pazee@21cn.com]pazee
*
* pazee@21cn.com
*****************************************************/
function email($start, $para, $end, $value){
$sa= $value;
$surl= substr(trim($para), 1);
if (strlen($surl) > 0)
{
if (strlen($value) == 0)
$sa= $surl;
}
else
{
$surl= trim($value);
}
//if (strtolower(substr($surl, 0, 7)) != mailto:)
$surl= mail.php?email=. $surl;
if($this->emailcheck(substr($surl, 15)))
return $sa;
else
return sprintf([%s%s]%s[%s], $start, $para, $value, $end);
}
/*****************************************************
* 显示图片；如下用法认为合法
* [img=www.21cn.com/title.jpg][/img]
*
*****************************************************/
function img($start, $para, $end, $value){
$surl= substr(trim($para), 1);
if (strlen($surl) $surl= trim($value);
//$surl= $this->formaturl($surl);
if ($this->checkimgurl($surl))
return sprintf(, $surl,$surl);
else
return sprintf([%s%s]%s[%s], $start, $para, $value, $end);
}
/*****************************************************
* 字符串从右向左循环移动
* 无参数
* 等效与html的
*****************************************************/
function fly($start, $para, $end, $value){
if (strlen($para)>0) // 有参数
return sprintf([%s%s]%s[%s], $start, $para, $value, $end);
else
return ''.$value.'';
}
/*****************************************************
* 字符串来回移动
* 无参数
* 等效与html的
*****************************************************/
function move($start, $para, $end, $value) {
if (strlen($para)>0) // 有参数
return sprintf([%s%s]%s[%s], $start, $para, $value, $end);
else
return ''.$value.'';
}
/*****************************************************
* 字符晕光效果包括 glow、shadow和blur
* 字符晕光效果[glow=a,b,c]或者[shadow=a,b,c]
* 3个参数允许缺省
* 实现文字阴影特效，
* glow, shadow,blur 属性依次为颜色、宽度和边界大小
* wave 属性依次为变形频率、宽度和边界大小
*****************************************************/
function cssstyle(&$start, &$para, &$end, &$value){
$rets= sprintf([%s%s]%s[%s], $start, $para, $value, $end);
if (strlen($para)==0)
{
$para==,,;
}
if (eregi(^=([#]?[[:xdigit:]]{6}|[a-z0-9]*),([0-9]*),([0-9]*), $para, $er_arr))
{
$color= ($er_arr[1] != ) ? $er_arr[1] : red; // default color
$width= ($er_arr[2] != ) ? $er_arr[2] : 400; // default width
$border= ($er_arr[3] != ) ? $er_arr[3] : 5; // default border
switch ($start)
{
case glow:
case shadow:
$rets= sprintf(%s, $start, $color, $border, $width, $value);
break;
case blur;
$rets= sprintf(%s, $start, $border, $color, $width, $value);
break;
case wave:
$color= ($er_arr[1] != ) ? $er_arr[1] : 4; // default color
$border= ($er_arr[3] != ) ? $er_arr[3] : 2; // default border
$rets= sprintf(%s, $start, $color, $border, $width, $value);
break;
}
}
return $rets;
}
/*****************************************************
* 字体颜色 xxx
* n 可以是 #xxxxxx 或者 xxxxxx (6位16进制数)
* red,greed,blue,black等颜色保留字也有效
* 等效与html的xxx
* [color]xxxx[/color]等效于 [color=red]
*****************************************************/
function color($start, $para, $end, $value){
$cl= strtolower(substr($para, 1));
if ($cl == )
$cl= red;
if (eregi((^[#]?[[:xdigit:]]{6})|red|green|blue|yellow|blue|white|gray|brown|silver|purple|orange ,$cl))
return sprintf(%s,$cl, $value);
else
return sprintf([%s%s]%s[%s], $start, $para, $value, $end);
}
/*****************************************************
* 字体大小 xxx 1 * 等效与html的xxx
*****************************************************/
function size($start, $para, $end, $value){
$size= substr($para, 1);
if ($size >=1 && $size 1))
return sprintf(%s,$size, $value);
else
return sprintf([%s%s]%s[%s], $start, $para, $value, $end);
}
/*****************************************************
* 字体名字 [face=n] n字体名称，不需要引号
* 等效与html的xxx
*****************************************************/
function face($start, $para, $end, $value){
$fn= substr($para, 1);
if (!eregi([[:punct:]], $fn) && strlen($para) > 1) {
switch (strtoupper($fn))
{
case st:
$fn= 宋体;
break;
case ht:
$fn= 黑体;
break;
case kt:
$fn= 楷体_gb2312;
break;
case ft:
$fn= 仿宋_gb2312;
break;
case yy:
$fn= 幼圆;
break;
case ls:
$fn= 隶书;
break;
case xst:
$fn= 新宋体;
break;
default:
$fn= substr($para, 1);
}
return sprintf(%s,$fn, $value);
}
else
return sprintf([%s%s]%s[%s], $start, $para, $value, $end);
}
/*****************************************************
* 文件上传[upload]
*****************************************************/
function upload($start, $para, $end, $value){
$fn= trim(substr($para, 1));
if (!eregi([[:punct:]], $fn) && strlen($para) > 1) {
if (eregi(jpg|jpeg|bmp|gif|png, $fn)) {
if ($this->checkimgurl($value))
return sprintf( 此主题相关图片如下:
,$fn,$value,$value);
else
return sprintf([%s%s]%s[%s], $start, $para, $value, $end);
} elseif ($fn == swf) {
return sprintf( 此主题相关flash:
全屏欣赏 (点右键->另存为可将动画下载),$fn,$value,$value);
} elseif (eregi(rar|zip|doc, $fn)) {
return sprintf(点击下载此主题相关附件
,$fn,$value);
}
} else
return sprintf([%s%s]%s[%s], $start, $para, $value, $end);
}
/*****************************************************
* 调试代码标签[html]
*****************************************************/
function html($start, $para, $end, $value)
{
if (strlen($value) > 0) {
$value = eregi_replace('
', , $value);
return sprintf(
%s
[ctrl+a 全部选择 提示：你可先修改部分代码，再按运行]
,$value);
} else {
return sprintf([%s]%s[%s], $start, $value, $end);
}
}
/*****************************************************
* 引用标签[quote]
*****************************************************/
function quote($start, $para, $end, $value)
{
if (strlen($value) > 0) {
return sprintf(以下为引用内容:
%s
,$value);
} else {
return sprintf([%s]%s[%s], $start, $value, $end);
}
}
/*****************************************************
* flash[swf]
*****************************************************/
function swf($start, $para, $end, $value)
{
if (strlen($value) > 0) {
return sprintf (
全屏欣赏 (点右键->另存为可将动画下载),$value,$value);
} else {
return sprintf([%s]%s[%s], $start, $value, $end);
}
}
}
?>