codes vip_quality_mod
・デフォルト名無し関連
codes/0ch_vip_quality_mod.pl (diff)| @@ -51,6 +51,9 @@ | ||
| 51 | 51 | # 「VIP クオリティ」モジュールの読み込み |
| 52 | 52 | require './module/Vip_quality.pl'; |
| 53 | 53 | |
| 54 | + my $CGI = $Sys->Get('MainCGI'); | |
| 55 | + my $Set = $CGI->{'SET'}; | |
| 56 | + | |
| 54 | 57 | # 加工データを準備 |
| 55 | 58 | my $version = $Sys->Get('VERSION'); |
| 56 | 59 | my $bbs = $Sys->Get('BBS'); |
| @@ -60,6 +63,10 @@ | ||
| 60 | 63 | my $text = $Form->Get('MESSAGE'); |
| 61 | 64 | my $info = $Form->Get('datepart') . ' '. $Form->Get('idpart'); |
| 62 | 65 | |
| 66 | + if ($name =~ /^\@[0-9a-f]{6}\@$/i) { | |
| 67 | + $name .= $Set->Get('BBS_NONAME_NAME'); | |
| 68 | + } | |
| 69 | + | |
| 63 | 70 | # 「VIP クオリティ」名無し制御サブルーチンの実行 |
| 64 | 71 | $name = Vip_quality::vip_quality_new_treed($name, $bbs, $key) if ($Sys->Equal('MODE', 1)); |
| 65 | 72 | # 「VIP クオリティ」サブルーチンの実行 |