トリップ関連

1/2頁 (10件)

1: 03/03 21:18 ID:A7/ZF6DA
{
$FORM{'FROM'} =~s/◆/◇/g;
$FORM{'FROM'} =~s/★/☆/g;
$FORM{'FROM'} =~s/削除/"削除"/g;
$FORM{'FROM'} =~s/sakujyo/"sakujyo"/g;
$FORM{'FROM'} =~s/管理人/"管理人"/g;
$FORM{'FROM'} =~s/管直人/"管直人"/g;
$FORM{'FROM'} =~s/菅直人/"菅直人"/g;

# トリップ
my ($key,$salt);
if($FORM{'FROM'}=~/#(.+)/){
$key = $1;
$salt = substr($key."H.", 1, 2);
$salt =~ s/[^\.-z]/\./go;
$salt =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
$FLAG{'trip'} = substr(crypt($key, $salt),-10);
}

$FORM{'FROM'} =~ s/#.*//g;
$FORM{'mail'} =~ s/#.*//g;

if($FLAG{'trip'}){
$FORM{'FROM'}.=" "if($FORM{'FROM'});
$FORM{'FROM'}.="<trip>";
}

if($FLAG{'cap'}){
$FLAG{'cap'}="＠$FLAG{'cap'}"if($FORM{'FROM'});
$FORM{'FROM'}.="$FLAG{'cap'}";
}

$FORM{'FROM'} =~ s/^fusianasan/<f>/;
$FORM{'FROM'} =~ s/([^\x81-\x95|\xE0-\xEF])fusianasan/$1 <f>/g;
# $FORM{'FROM'} =~ s/([^\x81-\x95|\xE0-\xEF])fusianasan/$1<f>/g;
$FORM{'FROM'} =~ s/<f>/<\/b>$HOST<b>/g;
$FORM{'FROM'} =~ s/<trip>/◆<\/b>$FLAG{'trip'}<b>/g;

#「VIP クオリティ」サブルーチンの実行
my (@vip);
($FORM{'FROM'},$FORM{'mail'},$DATE,$FORM{'MESSAGE'}) = Vip_quality::vip_quality($FORM{'FROM'},$FORM{'mail'},$DATE,$FORM{'MESSAGE'},$version,$FORM{'bbs'},$FORM{'key'});

#「VIP クオリティ」名無し制御サブルーチンの実行
$FORM{'FROM'} = Vip_quality::vip_quality_new_treed($FORM{'FROM'},$FORM{'bbs'},$FORM{'key'});

## $FORM{'FROM'} =~ s/mokorikomo/<\/b>$HOST<b>/g;

$FORM{'MESSAGE'} =~ s/>>([\d]+)-([\d]+)/<a href="..\/test\/read.cgi?bbs=$FORM{'bbs'}&key=$FORM{'key'}&st=$1&to=$2" target="_blank">>>$1-$2<\/a>/g;
$FORM{'MESSAGE'} =~ s/^>>([\d]+)/<a href="..\/test\/read.cgi?bbs=$FORM{'bbs'}&key=$FORM{'key'}&st=$1&to=$1&nofirst=true" target="_blank">>>$1<\/a>/g;
$FORM{'MESSAGE'} =~ s/([^>])>>([\d]+)/$1<a href="..\/test\/read.cgi?bbs=$FORM{'bbs'}&key=$FORM{'key'}&st=$2&to=$2&nofirst=true" target="_blank">>>$2<\/a>/g;

# $FORM{'MESSAGE'} =~ s/>>([\d]+)(?!\-[\d])/<a href="..\/test\/read.cgi?bbs=$FORM{'bbs'}&key=$FORM{'key'}&st=$1&to=$1&nofirst=true" target="_blank">>>$1<\/a>/g;
# $FORM{'MESSAGE'} =~ s/>>([\d]+)\-([\d]+)/<a href="..\/test\/read.cgi?bbs=$FORM{'bbs'}&key=$FORM{'key'}&st=$1&to=$2" target="_blank">>>$1-$2<\/a>/g;
}

[*]前次[#]
▲[6]上に [8]最新ﾚｽ [7]ﾋﾟｸ一覧