SBMのロボットのUserAgent名が分かるCGIスクリプト

Tweet

今作っているもののデバッグ用なんですけれども、SBM のブックマーク用ページタイトル取得ロボットの User Agent 名を表示させるスクリプト。

下のリンクで示した URL を、SBM でブックマークしようとすると、その SBM のロボが名乗る UA 名が分かるかもしれません。ふつうのブラウザでアクセスすると普通にそのブラウザの UA 名を表示します。title 要素にも UA 名が設定されるのがミソ。

http://labo.dtpwiki.jp/user_agent/user_agent.cgi

#!/usr/bin/perl
use strict;
use warnings;
use CGI qw(:standard);
use utf8;
binmode STDOUT, ':utf8';
 
print header(-charset => 'utf8'),
      start_html(                         
        -title    => escapeHTML(user_agent()),
        -encoding => 'utf8',
        -lang     => 'ja',
      ),
      h1('HTTP_USER_AGENT Test'),       
      p('このページを SBM でブックマークすると
         SBM のエントリのタイトルのところに
         SBM のロボットの
         User Agent 名がでるよ。'),
      dl(                     
        dt('HTTP_USER_AGENT'),
        dd(escapeHTML(user_agent())),
      ),
      end_html;
exit 1;

でも最初に取得したタイトルがどう扱われるかというのは SBM ごとに違うよねー

2006.09.11 00:58 投稿　大野 義貴 [Perl] | 固定リンク |