ぜろちゃんねるスクリプトを改造するスレ

621 ：◆hikArinCL2 ：2006/02/03(金) 00:17:23 ID:???0

>>616
[各種編集] -> [META情報の編集]
でロボット回避のタグを埋め込む

>>620
(動作保障はなし)
my $agent = $ENV{'HTTP_USER_AGENT'};
if ($agent =~ /DoCoMo/) {
my $serial = '00000000000'; # ダミー
if ($agent =~ m|/ser(\w{11})$|) {
$serial = $1;
}
elsif ($agent =~ /;ser(\w{15});/) {
$serial = $1;
}
$HOST = join ' ', $serial, $HOST;
}
elsif ($agent =~ /UP\.Browser/) {
$HOST = join ' ', $ENV{'HTTP_X_UP_SUBNO'}, $HOST;
}
elsif ($agent =~ /^Vodafone/) {
$HOST = join ' ', ([split(/\//,$agent)]->[4]), $HOST;
}
elsif ($agent =~ /J-PHONE/) {
$HOST = join ' ', ([split(/\//,$agent)]->[3]), $HOST;
}