ニュースカテ以外の板の名無しに、bbs.cgi側で「まとめブログ転載禁止」みたいなのを入れる事は出来ませんか?

選挙用名無しの下にこれを入れる

if (!&IsNewsCategoryBoard($GB)){
$FOX->{$GB->{FORM}->{'bbs'}}->{'BBS_NONAME_NAME'} .= "@まとめブログ転載禁止";
}

IsSenmonの下あたりに

sub IsNewsCategoryBoard
{
my ($GB) = @_ ;

if($GB->{FORM}->{bbs} eq 'bizplus') {return 1;}
if($GB->{FORM}->{bbs} eq 'newsplus') {return 1;}
if($GB->{FORM}->{bbs} eq 'lifeline') {return 1;}
if($GB->{FORM}->{bbs} eq 'wildplus') {return 1;}
if($GB->{FORM}->{bbs} eq 'moeplus') {return 1;}
if($GB->{FORM}->{bbs} eq 'mnewsplus') {return 1;}
if($GB->{FORM}->{bbs} eq 'femnewsplus') {return 1;}
if($GB->{FORM}->{bbs} eq 'dqnplus') {return 1;}
if($GB->{FORM}->{bbs} eq 'scienceplus') {return 1;}
if($GB->{FORM}->{bbs} eq 'owabiplus') {return 1;}
if($GB->{FORM}->{bbs} eq 'liveplus') {return 1;}
if($GB->{FORM}->{bbs} eq 'news') {return 1;}
if($GB->{FORM}->{bbs} eq 'trafficinfo') {return 1;}
if($GB->{FORM}->{bbs} eq 'musicnews') {return 1;}
if($GB->{FORM}->{bbs} eq 'comicnews') {return 1;}
if($GB->{FORM}->{bbs} eq 'gamenews') {return 1;}
if($GB->{FORM}->{bbs} eq 'pcnews') {return 1;}
if($GB->{FORM}->{bbs} eq 'news7') {return 1;}
if($GB->{FORM}->{bbs} eq 'archives') {return 1;}
if($GB->{FORM}->{bbs} eq 'news2') {return 1;}
if($GB->{FORM}->{bbs} eq 'asia') {return 1;}
if($GB->{FORM}->{bbs} eq 'bakanews') {return 1;}
if($GB->{FORM}->{bbs} eq 'editorial') {return 1;}
if($GB->{FORM}->{bbs} eq 'wikileaks') {return 1;}

return 0;
}

というのを誰か開発室に書いてくださいオナシャス!