随時実験中と見せかけて $Mango->{part}->[5] [転載禁止]©2ch.net

しゅうせいばん
# Smart phones
$Return_mark = [qw|0 S d ｽﾌﾟｰ|] if $ENV{REMOTE_HOST} =~ /spmode/;
$Return_mark = [qw|0 S D ﾍﾟﾗﾍﾟﾗ|] if $ENV{REMOTE_HOST} =~ /mopera/;

$Return_mark = [qw|0 S a ｱｳｱｳ|] if $ENV{REMOTE_HOST} =~ /au-net/;

$Return_mark = [qw|0 S s ｻｻｸｯﾃﾛ|] if $ENV{REMOTE_HOST} =~ /panda-world/;
$Return_mark = [qw|0 S S ｵｯﾍﾟｹ|] if $ENV{REMOTE_HOST} =~ /openmobile/;
$Return_mark = [qw|0 S x ｱ-ｸｾ-|] if $ENV{REMOTE_HOST} =~ /access-internet/;

$Return_mark = [qw|0 S e ｲﾓｲﾓ|] if $ENV{REMOTE_HOST} =~ /emobile/;
$Return_mark = [qw|0 S E ｴ-ｲﾓ|] if $ENV{REMOTE_HOST} =~ /e-mobile/;

# MVNO
$Return_mark = [qw|0 M M ﾌﾞｰｲﾓ|] if $ENV{REMOTE_HOST} =~ /vmobile/;
$Return_mark = [qw|0 M M ﾍﾞｰｲﾓ|] if $ENV{REMOTE_HOST} =~ /bmobile/;
$Return_mark = [qw|0 M M ｵｲｺﾗﾐﾈｵ|] if $ENV{REMOTE_HOST} =~ /mineo/;
$Return_mark = [qw|0 M M ﾜﾝﾄﾝｷﾝ|] if $ENV{REMOTE_HOST} =~ /omed¥d+¥.tokyo/;
$Return_mark = [qw|0 M M ﾜﾝﾐﾝｸﾞｸ|] if $ENV{REMOTE_HOST} =~ /omed¥d+¥.osaka/;
$Return_mark = [qw|0 M M ﾌｫｫｰｯ|] if $ENV{REMOTE_HOST} =~ /[Ff]?foma.+?¥.ocn/;
$Return_mark = [qw|0 M M ﾄﾞｺｸﾞﾛ|] if $ENV{REMOTE_HOST} =~ /dcm.+?¥.mesh/;
$Return_mark = [qw|0 M M ﾎｶｸﾞﾛ|] if $ENV{REMOTE_HOST} =~ /lte.+?¥.mesh/;
$Return_mark = [qw|0 M M ﾌｫｰｯ|] if $ENV{REMOTE_HOST} =~ /[Ff]?foma.+?¥.infoweb/;
$Return_mark = [qw|0 M M ﾌｫﾎｰｯ|] if $ENV{REMOTE_HOST} =~ /[Ff]?foma.+?¥.hi-ho/;
$Return_mark = [qw|0 M M ﾗｸﾗｯﾍﾟ|] if $ENV{REMOTE_HOST} =~ /pl.+?¥.n-otemachi/;

$Return_mark = [qw|0 W M ﾜｲﾓﾏｰ|] if $ENV{REMOTE_HOST} =~ /(wimax|wmaxuq|UQ.+?mesh)/;
$Return_mark = [qw|0 X M ｸﾞｸﾞﾚｶｽ|] if $ENV{REMOTE_HOST} =~ /google-proxy/;

# Mobile phones
$Return_mark = [qw|O G G ｶﾞﾗﾌﾟｰ|] if $Mobiles;
$Return_mark = [qw|0 B B ｳﾗｳﾗ|] if $Mobiles =~ /^900/;

# Others
$Return_mark = [qw|0 0 H ｵﾏｲﾀﾞﾚ|] if $ENV{REMOTE_HOST} =~ /^[0-9¥/]+$/;
$Return_mark = [qw|0 0 h ｱﾝﾀﾀﾞﾚ|] unless $ENV{REMOTE_HOST};

$Return_mark = [qw|0 0 0 ﾜｯﾁｮｲ|] unless $Return_mark;
$Return_mark = [qw|* * * ★|] if $GB->{CAP};

if (
$FOX->{$GB->{FORM}->{'bbs'}}->{BBS_SLIP} eq 'vvv'
){
$GB->{FORM}->{FROM} .= sprintf qq| </b>(%s)<b>|, $Return_mark->[3] if ref $Return_mark;
return $Return_mark->[2];
}
elsif(
$FOX->{$GB->{FORM}->{'bbs'}}->{BBS_SLIP} eq 'verbose'
){
return $Return_mark->[2];
}
elsif(
$FOX->{$GB->{FORM}->{'bbs'}}->{BBS_SLIP} eq 'feature'
){
return $Return_mark->[1];
}
elsif(
$FOX->{$GB->{FORM}->{'bbs'}}->{BBS_SLIP} eq 'checked'
){
return $Return_mark->[0];
}
else {
return '';
}