5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

随時実験中と見せかけて $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.02 2018/11/22 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)