したらばTOP ■掲示板に戻る■ 全部 1-100 最新50 | |

厨房CGI

62：名無しさん＠もっさり：2002/11/08(金) 10:25
#＃処理
if($name=~/#/){
my $lastname;
my @name=split/(?<!#nanashisan,)#/,$name;
if(@name >2 and $name!~/#$/){
$lastname=pop @name;
}
$name=shift @name;
foreach my $cap (@name){
# キャップ
if($cap!~/\W/ and open CAP,"./cap/$cap.cgi"){
my $cap_name=<CAP>;
close CAP;
$name .="<font color=$capcolor>$cap_name</font>";
$capbool=1;
}
# 名無しさん色変え
elsif($cap =~/^nanashisan,.*$/){
my $iro = (split /,/,$cap)[1];
if ( 7 < length $iro ) { error("色指定が長すぎます","no"); }
$name .="<font color=$iro >$nanashiname</font>";
}
# トリップ
else{
my $salt = substr($cap."H.", 1, 2);
$salt =~ s/[^\.-z]/\./go;
$salt =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
my $id = substr(crypt($cap, $salt),-8);
$name.="</b>◆$id <b>";
}
}
if($lastname){
# 名無しさん色変え
if($lastname =~/^nanashisan,.*$/){
my $iro = (split /,/,$lastname)[1];
if ( 7 < length $iro ) { error("色指定が長すぎます","no"); }
$name .="<font color=$iro >$nanashiname</font>";
}
else{
$name.=$lastname;
}
}
}
新着レスの表示

名前： E-mail（省略可）：

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）
掲示板管理者へ連絡 無料レンタル掲示板