⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 code.cgi

📁 一个linux论坛
💻 CGI
📖 第 1 页 / 共 2 页
字号:
🔍
12 
#############################################################
#  LeoBoard ver.5000 / LB5000 / 雷傲超级论坛 ver.5000
#
#  版权所有: 雷傲工作室(原蓝宝石软件工作室)
#
#  制作人  : 山鹰糊 (Shining Hu)
#            花无缺 (Ifairy Han)
#
#  主页地址: http://www.CGIer.com/      CGI 编程者之家
#	     http://www.LeoBoard.com/   雷傲论坛支持主页
#	     http://www.leoBBS.com/     本论坛直通车
#
#############################################################

sub signlbcode {
    my $signature = shift;
    study($signature);
    $signature =~ s/javascript/\&\#106\;avascript/isg;
    $signature =~ s/FORM/\&\#102\;orm/isg;
    $signature =~ s/value/\&\#118\;alue/isg;
    $signature =~ s/about:/about\&\#58\;/isg;
    $signature =~ s/apasswordcookie/a\&\#112\;asswordcookies/isg;
    $signature =~ s/adminpass/admin\&\#112\;assword/isg;
    $signature =~ s/document.cookie/documents\&\#46\;cookie/isg;
    $signature =~ s/file:/file\&\#58\;/isg;
    $signature =~ s/on(mouse|exit|error|click|key)/\&\#111\;n$1/isg;
#    $signature =~ s/title/\&\#116\;itle/isg;
    $signature =~ s/style/\&\#115\;tyle/isg;
    $signature =~ s/membercode/memberc\&\#111\;de/isg;
    $signature =~ s/setmembers.cgi/setmembers\&\#46\;cgi/isg;
    $signature =~ s/<p>/\n\n/isg;
    $signature =~ s/<br>/\n/isg;
    if (($arrawsignpic eq "on")||($membercode eq 'mo' ||$membercode eq 'cmo' || $membercode eq 'ad' || $inmembmod eq 'yes' || $membercode eq 'smo')) {
	$signature =~ s/\[url.+?\[img\]\s*(http|https|ftp):\/\/(\S+?)\s*\[\/img\]\[\/url\]/<a href=$1:\/\/$2 target=_blank title=开新窗口浏览><img src=$1:\/\/$2 border=0 onload=\"javascript:if(this.width>screen.width-333)this.width=screen.width-333\"><\/a>/isg;
	$signature =~ s/\[img\]\s*(http|https|ftp):\/\/(\S+?)\s*\[\/img\]/<img src=$1:\/\/$2 border=0 onload=\"javascript:x=this.width;y=this.height;limity=screen.height\/3;if(this.height>limity)this.height=limity; if(this.width>screen.width-333)this.width=screen.width-333\" onClick=\"this.width=x;this.height=y\">/isg;
        $signature =~ s/(^|\s|\>)(http|https|ftp):\/\/(\S+?\.)(png|bmp|gif|jpg|jpeg)/$1<img src=$2:\/\/$3$4 border=0 onload=\"javascript:x=this.width;y=this.height;limity=screen.height\/3;if(this.height>limity)this.height=limity; if(this.width>screen.width-333)this.width=screen.width-333\" onClick=\"this.width=x;this.height=y\">/isg;
    }
    if (($arrawsignflash eq "on")||($membercode eq 'mo' ||$membercode eq 'cmo' || $membercode eq 'ad' || $inmembmod eq 'yes' || $membercode eq 'smo')) {
	$signature =~ s/(\[swf\])\s*(http|https|ftp):\/\/(\S+?\.swf)\s*(\[\/swf\])/<PARAM NAME=PLAY VALUE=TRUE><PARAM NAME=LOOP VALUE=TRUE><PARAM NAME=QUALITY VALUE=HIGH><embed src=$2:\/\/$3 quality=high pluginspage="http:\/\/www.macromedia.com\/shockwave\/download\/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application\/x-shockwave-flash" WIDTH=410 height=280><\/embed>/isg;
	$signature =~ s/(\[FLASH=)(\S+?)(\,)(\S+?)(\])\s*(http|https|ftp):\/\/(\S+?\.swf)\s*(\[\/FLASH\])/<OBJECT CLASSID="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" WIDTH=$2 HEIGHT=$4><PARAM NAME=MOVIE VALUE=$6:\/\/$7><PARAM NAME=PLAY VALUE=TRUE><PARAM NAME=LOOP VALUE=TRUE><PARAM NAME=QUALITY VALUE=HIGH><EMBED SRC=$6:\/\/$7 WIDTH=$2 HEIGHT=$4 PLAY=TRUE LOOP=TRUE QUALITY=HIGH><\/EMBED><\/OBJECT>/isg;
        $signature =~ s/(^|\s|\>)(http|https|ftp):\/\/(\S+?\.swf)/$1<PARAM NAME=PLAY VALUE=TRUE><PARAM NAME=LOOP VALUE=TRUE><PARAM NAME=QUALITY VALUE=HIGH><embed src=$2:\/\/$3 quality=high pluginspage="http:\/\/www.macromedia.com\/shockwave\/download\/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application\/x-shockwave-flash" WIDTH=410 height=280><\/embed>/isg;
    }
    $signature =~ s/(^|\s|\>|\\|\;)(http|https|ftp):\/\/(\S+?)(\s|$|\<|\[)/$1<a href=$2:\/\/$3\ target=_blank>$2\:\/\/$3<\/a>$4/isg;
    $signature =~ s/(^|\s|\>|\\|\;)www\.(\S+?)(\s|$|\<|\[)/$1<a href=http:\/\/www.$2 target=_blank>www.$2<\/a>$3/isg;
    $signature =~ s/(^|\s|\>|\;)(\w+\@\w+\.\w+)(\s|$|\<|\[)/$1<A HREF=mailto:$2>$2<\/A>$3/isg;
    if ($signature =~ /\[\/.{1,12}]/) {
        $signature =~ s/\[url\](\[\S+\])(\S+?)(\[\S+\])\[\/url\]/<a href=$2 target=_blank>$1$2$3<\/a>/isg;
        $signature =~ s/\[url=\s*(.*?)\s*\]\s*(.*?)\s*\[\/url\]/<a href=$1 target=_blank>$2<\/a>/isg;
        $signature =~ s/\[url\]\s*(.*?)\s*\[\/url\]/<a href=$1 target=_blank>$1<\/a>/isg;
        $signature =~ s/(\[email\])(\S+\@\S+?)(\[\/email\])/<A HREF="mailto:$2">$2<\/A>/isg;
        $signature =~ s/\[email=(\S+?\@\S+?)\]\s*(.*?)\s*\[\/email\]/<a href=mailto:$1>$2<\/a>/isg;
    
        if (($arrawsignfontsize eq "on")||($membercode eq 'mo' ||$membercode eq 'cmo' || $membercode eq 'ad' || $inmembmod eq 'yes' || $membercode eq 'smo')) {
    	    $signature =~ s/\[size=\s*([1-6])\s*\]\s*(.*?)\s*\[\/size\]/<font size=$1>$2<\/font>/isg;
        }
        if ($arrawsignsound eq "on") {
	    $signature =~ s/(\[sound\])\s*(http|https|ftp):\/\/(\S+?\.wav)\s*(\[\/sound\])/<bgsound src=$2:\/\/$3 border=0><img src=$imagesurl\/images\/mid.gif width=16 height=16 alt=WAVE音乐>/isg;
	    $signature =~ s/(\[sound\])\s*(http|https|ftp):\/\/(\S+?\.mid)\s*(\[\/sound\])/<bgsound src=$2:\/\/$3 border=0><img src=$imagesurl\/images\/wave.gif width=16 height=16 alt=MIDI音乐>/isg;
	    $signature =~ s/(\[sound\])\s*(http|https|ftp):\/\/(\S+?\.midi)\s*(\[\/sound\])/<bgsound src=$2:\/\/$3 border=0><img src=$imagesurl\/images\/wave.gif width=16 height=16 alt=MIDI音乐>/isg;
        }

        $signature =~ s/\[b\](.+?)\[\/b\]/<b>$1<\/b>/isg;
        $signature =~ s/\[i\](.+?)\[\/i\]/<i>$1<\/i>/isg;
        $signature =~ s/\[u\](.+?)\[\/u\]/<u>$1<\/u>/isg;
        $signature =~ s/\[font=\s*(.*?)\s*\]\s*(.*?)\s*\[\/font\]/<font face=$1>$2<\/font>/isg;
        $signature =~ s/\[color=(\S+?)\]\s*(.*?)\s*\[\/color\]/<font color=$1>$2<\/font>/isg;
        $signature =~ s/(\[s\])(.+?)(\[\/s\])/<s>$2<\/s>/isg;
        $signature =~ s/(\[sup\])(.+?)(\[\/sup\])/<sup>$2<\/sup>/isg;
        $signature =~ s/(\[sub\])(.+?)(\[\/sub\])/<sub>$2<\/sub>/isg;
        $signature =~ s/(\[align=)(left|center|right)(\])(.+?)(\[\/align\])/<DIV Align=$2>$4<\/DIV>/isg;
        $signature =~ s/(\[SHADOW=)(\S+?)(\,)(.+?)(\,)(.+?)(\])(.+?)(\[\/SHADOW\])/<table width=$2 style="filter:shadow\(color=$4\, direction=$6)"><tr><td>$8<\/td><\/tr><\/table>/isg;
        $signature =~ s/(\[BLUR=)(\S+?)(\,)(.+?)(\,)(.+?)(\])(.+?)(\[\/BLUR\])/<table width=$2 style="filter:blur\(Add=0, direction=$4\, strength=$6)"><tr><td>$8<\/td><\/tr><\/table>/isg;
        $signature =~ s/(\[FLIPH\])(.+?)(\[\/FLIPH\])/<table style="filter:flipH"><tr><td>$2<\/td><\/tr><\/table>/isg;
        $signature =~ s/(\[FLIPV\])(.+?)(\[\/FLIPV\])/<table style="filter:flipV"><tr><td>$2<\/td><\/tr><\/table>/isg;
        $signature =~ s/(\[INVERT\])(.+?)(\[\/INVERT\])/<table style="filter:invert"><tr><td>$2<\/td><\/tr><\/table>/isg;
        $signature =~ s/(\[xray\])(.+?)(\[\/xray\])/<table style="filter:xray"><tr><td>$2<\/td><\/tr><\/table>/isg;
        $signature =~ s/(\[MOVE\])(.+?)(\[\/Move\])/<MARQUEE>$2<\/MARQUEE>/isg;
        $signature =~ s/(\[fly\])(.+?)(\[\/fly\])/<marquee width=90% behavior=alternate scrollamount=3>$2<\/marquee>/isg;
#	$signature =~ s/<\/MARQUEE>(.{1,40})<\/td><\/tr><\/table>/<\/MARQUEE>$1/isg;
    }
    $signature =~ s/\n\n/<p>/isg;
    $signature =~ s/\n/<br>/isg;
    $signature =~ s|\n\[|\[|g;
    $signature =~ s|\]\n|\]|g;
    $signature =~ s|\[hr\]| |g;
    $signature =~ s/\[br\]/<br>/isg;
    $signature =~ s/<p>/<br><br>/isg;
    $signature =~ s|<br>| <br>|g;
    $signature =~ s/\&amp;/\&/isg;
    $signature =~ s/&quot\;/\"/isg;
    $signature =~ s/\&amp;/\&/isg;
    $signature =~ s/ \&nbsp;/　/isg;
    return $signature;
}
sub smilecode {
    my $post = shift;
    $post = $post."\n";
    study($post);
    unless ($post =~ /(\:|\&\#59\;|\_|8)/) { # &\#59\; 就是 ;
	return ($post);
    }
    if ($post =~ /(^|\s|\>|\;)\:/) {
	$post =~ s/(^|\s|\>|\;)\&gt;\:\((\s|$|\<|\[)/$1<img src=$imagesurl\/emoticons\/angry.gif>$2/isg;
	$post =~ s/(^|\s|\>|\;)\&gt;\:&lt;(\s|$|\<|\[)/$1<img src=$imagesurl\/emoticons\/angry.gif>$2/isg;
	$post =~ s/(^|\s|\>|\;)\&gt;\:-\((\s|$|\<|\[)/$1<img src=$imagesurl\/emoticons\/angry.gif>$2/isg;
	$post =~ s/(^|\s|\>|\;)\&gt;\:-&lt;(\s|$|\<|\[)/$1<img src=$imagesurl\/emoticons\/angry.gif>$2/isg;
	$post =~ s/(^|\s|\>|\;)\?\:\((\s|$|\<|\[)/$1<img src=$imagesurl\/emoticons\/confused.gif>$2/isg;
	$post =~ s/(^|\s|\>|\;)\?\:-\((\s|$|\<|\[)/$1<img src=$imagesurl\/emoticons\/confused.gif>$2/isg;
	$post =~ s/(^|\s|\>|\;)\:\)(\s|$|\<|\[)/$1<img src=$imagesurl\/emoticons\/smile.gif>$2/isg;
	$post =~ s/(^|\s|\>|\;)\:-\)(\s|$|\<|\[)/$1<img src=$imagesurl\/emoticons\/smile.gif>$2/isg;
	$post =~ s/(^|\s|\>|\;)\:\((\s|$|\<|\[)/$1<img src=$imagesurl\/emoticons\/sad.gif>$2/isg;
	$post =~ s/(^|\s|\>|\;)\:-\((\s|$|\<|\[)/$1<img src=$imagesurl\/emoticons\/sad.gif>$2/isg;
	$post =~ s/(^|\s|\>|\;)\:-\?(\s|$|\<|\[)/$1<img src=$imagesurl\/emoticons\/confused.gif>$2/isg;
	$post =~ s/(^|\s|\>|\;)\:D(\s|$|\<|\[)/$1<img src=$imagesurl\/emoticons\/biggrin.gif>$2/isg;
	$post =~ s/(^|\s|\>|\;)\:-D(\s|$|\<|\[)/$1<img src=$imagesurl\/emoticons\/biggrin.gif>$2/isg;
	$post =~ s/(^|\s|\>|\;)\:p(\s|$|\<|\[)/$1<img src=$imagesurl\/emoticons\/smiled.gif>$2/isg;
	$post =~ s/(^|\s|\>|\;)\:-p(\s|$|\<|\[)/$1<img src=$imagesurl\/emoticons\/smiled.gif>$2/isg;
    }
    if ($post =~ /(^|\s|\>|\;)\&\#59\;/) {
	$post =~ s/(^|\s|\>|\;)\&\#59\;\)(\s|$|\<|\[)/$1<img src=$imagesurl\/emoticons\/wink.gif>$2/isg;
	$post =~ s/(^|\s|\>|\;)\&\#59\;P(\s|$|\<|\[)/$1<img src=$imagesurl\/emoticons\/wink.gif>$2/isg;
	$post =~ s/(^|\s|\>|\;)\&\#59\;-\)(\s|$|\<|\[)/$1<img src=$imagesurl\/emoticons\/wink.gif>$2/isg;
	$post =~ s/(^|\s|\>|\;)\&\#59\;-P(\s|$|\<|\[)/$1<img src=$imagesurl\/emoticons\/wink.gif>$2/isg;
	$post =~ s/(^|\s|\>|\;)\&\#59\;\((\s|$|\<|\[)/$1<img src=$imagesurl\/emoticons\/sads.gif>$2/isg;
	$post =~ s/(^|\s|\>|\;)\&\#59\;-\((\s|$|\<|\[)/$1<img src=$imagesurl\/emoticons\/sads.gif>$2/isg;
	$post =~ s/(^|\s|\>|\;)\&\#59\;D(\s|$|\<|\[)/$1<img src=$imagesurl\/emoticons\/biggrin.gif>$2/isg;
	$post =~ s/(^|\s|\>|\;)\&\#59\;-D(\s|$|\<|\[)/$1<img src=$imagesurl\/emoticons\/biggrin.gif>$2/isg;
    }
    if ($post =~ /(^|\s|\>|\;)8/) {
	$post =~ s/(^|\s|\>|\;)8\)(\s|$|\<|\[)/$1<img src=$imagesurl\/emoticons\/smile.gif>$2/isg;
	$post =~ s/(^|\s|\>|\;)8-\)(\s|$|\<|\[)/$1<img src=$imagesurl\/emoticons\/smile.gif>$2/isg;
	$post =~ s/(^|\s|\>|\;)8D(\s|$|\<|\[)/$1<img src=$imagesurl\/emoticons\/cheesy.gif>$2/isg;
	$post =~ s/(^|\s|\>|\;)8-D(\s|$|\<|\[)/$1<img src=$imagesurl\/emoticons\/cheesy.gif>$2/isg;
    }
    $post =~ s/(^|\s|\>|\;)\^_\^(\s|$|\<|\[)/$1<img src=$imagesurl\/emoticons\/winks.gif>$2/isg;
    return $post;
}
sub lbcode {
    my $post = shift;
    study($post);

    $post =~ s/javascript/\&\#106\;avascript/isg;
    $post =~ s/value/\&\#118\;alue/isg;
    $post =~ s/FORM/\&\#102\;orm/isg;
    $post =~ s/about:/about\&\#58\;/isg;
    $post =~ s/document.cookie/documents\&\#46\;cookie/isg;
    $post =~ s/apasswordcookie/a\&\#112\;asswordcookies/isg;
    $post =~ s/adminpass/admin\&\#112\;ass/isg;
    $post =~ s/file:/file\&\#58\;/isg;
    $post =~ s/on(mouse|exit|error|click|key)/\&\#111\;n$1/isg;
#    $post =~ s/title/\&\#116\;itle/isg;
    $post =~ s/membercode/memberc\&\#111\;de/isg;
    $post =~ s/setmembers.cgi/setmembers\&\#46\;cgi/isg;

    if ($wwjf ne "no") {
	if ($post=~/LBHIDDEN\[(.*?)\]LBHIDDEN/sg) {
    	    if (($inmembername eq $membername)||($mymembercode eq "ad") || ($mymembercode eq 'smo') || ($myinmembmod eq "yes")|| ($myrating >= $1) ){
	    }else{
		$post=qq~<FONT COLOR=$fonthighlight><B>[Hidden Post: Rating $1]</B></FONT> <BR>  <BR> <FONT COLOR=$posternamecolor>（您没有权限看这个帖子，您的威望至少需要 <B>$1<\/B>）</FONT><BR>  <BR> ~;
		$addme="附件保密!<br>";
	    }
	    $post=~s/LBHIDDEN\[(.*?)\]LBHIDDEN/<font color=$fonthighlight>（此贴只有威望大于等于 <B>$1<\/B> 的才能察看）<\/font><br>/sg;   
	}
    }
    else { $post=~s/LBHIDDEN\[(.*?)\]LBHIDDEN//; }

    if ($post =~/\[DISABLELBCODE\]/) {
	$post =~ s/\[DISABLELBCODE\]//isg;
	return $post;
    }

    if (($arrawpostpic eq "on")||($membercode eq 'mo' || $membercode eq 'cmo' || $membercode eq 'ad' || $inmembmod eq 'yes' || $membercode eq 'smo')) {
	$post =~ s/\[url.+?\[img\]\s*(http|https|ftp):\/\/(\S+?)\s*\[\/img\]\[\/url\]/<a href=$1:\/\/$2 target=_blank title=开新窗口浏览><img src=$1:\/\/$2 border=0 onload=\"javascript:if(this.width>screen.width-333)this.width=screen.width-333\"><\/a>/isg;
	$post =~ s/\[img\]\s*(http|https|ftp):\/\/(\S+?)\s*\[\/img\]/<a href=$1:\/\/$2 target=_blank title=开新窗口浏览><img src=$1:\/\/$2 border=0 onload=\"javascript:if(this.width>screen.width-333)this.width=screen.width-333\"><\/a>/isg;
	$post =~ s/(^|\s|\>)(http|https|ftp):\/\/(\S+?\.)(png|bmp|gif|jpg|jpeg)/$1<a href=$2:\/\/$3$4 target=_blank title=开新窗口浏览><img src=$2:\/\/$3$4 border=0 onload=\"javascript:if(this.width>screen.width-333)this.width=screen.width-333\"><\/a>/isg;
    }
    if (($arrawpostflash eq "on")||($membercode eq 'mo' || $membercode eq 'cmo' || $membercode eq 'ad' || $inmembmod eq 'yes' || $membercode eq 'smo')) {
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -