■ このスレッドは過去ログ倉庫に格納されています
随時実験中と見せかけて $Mango->{part}->[5] [転載禁止]©2ch.net
- 961 : [Φ|(|´|Д|`|)|🌀] BBxed!!Mango Mangüé ★ 転載ダメ©2ch.net (★):2014/11/10(月) 15:42:01.43 ID:???* ?S★(824720)
-
しゅうせいばん
# 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 '';
}
294 KB
★スマホ版★
掲示板に戻る
全部
前100
次100
最新50
read.cgi ver 05.04.09 2022/06/21 Walang Kapalit ★
FOX ★