1. Instructions for adding tracking
2. Advancedタブ
3. 1 What are you tracking?
4. A site built for a mobile phone

1. 「2 Paste code on your mobile site」のコードをviewから呼び出せるところに準備
2. htmlあたりに<img src="[% google_analytics_get_image_url() %]">書く
3. 「3 Copy this file to your root directory」にあるga.plをcgi起動出来るように設定するか、同様の内容を作る

さっそく導入してみたんですが、どうもsessionの同定が出来てないっぽいです。
別集計で出したUUが2,000ぐらいなのに、Analyticsだと10,000になっていたりします。

# Generate a visitor id for this hit.
# If there is a visitor id in the cookie, use that, otherwise
# use the guid if we have one, otherwise use a random number.
sub get_visitor_id {
  my ($guid, $account, $user_agent, $cookie) = @_;

  # If there is a value in the cookie, don't change it.
  if ($cookie ne "") {
    return $cookie;
  }

  my $message = "";
  if ($guid ne "") {
  # Create the visitor id using the guid.
    $message = $guid . $account;
  } else {
  # otherwise this is a new user, create a new random id.
    $message = $user_agent . get_random_number();
  }

  my $md5_string = md5_hex($message);

  return "0x" . substr($md5_string, 0, 16);
}

# If there is a visitor id in the cookie, use that, otherwise
# use the guid if we have one, otherwise use a random number.

--- ga.pl	2009-11-12 21:27:23.000000000 +0900
+++ ga.pl.new	2009-11-12 21:22:04.000000000 +0900
@@ -6,6 +6,7 @@
 use Digest::MD5 qw(md5_hex);
 use LWP::UserAgent;
 use URI::Escape;
+use HTTP::MobileAgent;
 use strict;
 
 # Tracker version.
@@ -59,9 +60,10 @@
   }
 
   my $message = "";
-  if ($guid ne "") {
-  # Create the visitor id using the guid.
-    $message = $guid . $account;
+  my $user_id = _get_user_id();
+  if ($user_id ne "") {
+  # Create the visitor id using the uesr_id.
+    $message = $user_id . $account;
   } else {
   # otherwise this is a new user, create a new random id.
     $message = $user_agent . get_random_number();
@@ -192,4 +194,14 @@
   write_gif_data($new_cookie, $utm_url);
 }
 
+sub _get_user_id {
+    my $agent = HTTP::MobileAgent->new; 
+    return $agent->user_id
+        if $agent->is_docomo;
+    return (split('_', $ENV{HTTP_X_UP_SUBNO}, 2))[0]
+        if $agent->is_ezweb;
+    return substr($ENV{HTTP_X_JPHONE_UID}, 1, length($ENV{HTTP_X_JPHONE_UID}))
+        if $agent->is_vodafone;
+}
+
 track_page_view();

$ patch -p0 < ga.pl.patch

このパッチでは、端末ID送信しない設定の端末とか、端末ID送信しないwillcomとかをスルーしちゃいます。厳密に計測するには、アプリケーション側で端末IDみて、なければユニークなID（session id）とかを使うべきですが、これだけでもそこそこの制度がでるので、さっくりやりたい人はこっちで良いと思います。

Tokuhiro Matsuno (‎tokuhirom‎) - ‎PSGI - Perl Server Gateway Interface‎

Tatsuhiko Miyagawa (‎miyagawa‎) - ‎Event programming fun with AnyEvent and Coro‎

Kazuhiro Osawa (‎Yappo‎) - ‎Key Value Store with O/R Mapper

Atsushi Kobayashi (‎nekokak‎) - ‎simple or mapper DBIx::Skinny

Masahiro Nagano (‎kazeburo‎) - ‎大規模画像配信を支えるPerl‎

Tokuhiro Matsuno (‎tokuhirom‎) - ‎Asynchronous Database Queries with Perl‎

ma la (‎mala‎) - ‎Asynchronous Programming for (A)synchronous Communication‎

もと画像はこちら

use Imager;

# 写真の読み込み
my $photo = new Imager;
$photo->read(file => $photo_file) or die $photo->errstr;

# 写真を傾ける
$photo = $photo->rotate( degrees => 20 );

# キャンバスとなるオブジェクト
my $canvas = new Imager( xsize => 300, ysize => 350, channels => 4 );

# 写真のリサイズ
$photo = $photo->scale(
    xpixels => 300,
    ypixels => 300,
);

# キャンバスに写真を貼り付け
$canvas->paste(
    src  => $photo,
    left  => 0,
    top  => 0,
);

# PNGで書き出し
$canvas->write(file=> './result.png', type=> 'png') or die;

上記コードを実行するとこうなります。

斜めにはなるんですが、四隅が黒くなってしまいました。
透明にするにはアルファチャンネルを有効にしてあげれば良いはずなので、

channel => 4に設定してあげればいいんですが。

略

# 写真の読み込み
my $photo = new Imager;
$photo->read(file => $photo_file) or die $photo->errstr;

# 写真を傾ける
$photo = $photo->rotate( degrees => 20, back => [0,0,0,255] );
$photo->img_set( channel => 4 );

略

実行結果はこうなります
背景はあえて不透明にしてあります（白にすればよかった・・）

なぜか写真が透明になってしまいました・・・
なぜかと言うと元の写真にアルファチャンネルが設定されていないからで、

アルファチャンネルが０（透明）に設定されてしまうせいでした。

これを回避するためにImagerにはconvertというメソッドがあります。

略

# 写真の読み込み
my $photo = new Imager;
$photo->read(file => $photo_file) or die $photo->errstr;

# 写真を傾ける
$photo = $photo->convert( preset => 'addalpha');
$photo = $photo->rotate( degrees => 20, back => [0,0,0,0]);

略

結果はこのとおり

思いどうりになりました。
Imagerは色々画像を加工するメソッドが用意されていていいですね。

"----------------------------------------------------------------------------------------
" 基本設定
"----------------------------------------------------------------------------------------

"ブラウザタイトルの変更
set titlestring=Firefox
"ページ全体で検索語を強調表示
set hlsearch
"ビープ音を鳴らさずビジュアルベルを使用
set visualbell
"ビジュアルベルを無効化
"set visualbellstyle=display:none;
"ヒントのスタイルを指定
"set hintstyle=z-index:5000; font-family:monospace; font-size:12px; color:white; background-color:blue; border-color:ButtonShadow; border-width:0px; border-style:solid; padding:0px 1px 0px 1px; position:absolute;
"ヒント(フォーカス時)のスタイルを指定
"set focusedhintstyle=z-index:5000; font-family:monospace; font-size:12px; color:ButtonText; background-color:ButtonShadow; border-color:ButtonShadow; border-width:1px; border-style:solid; padding:0px 1px 0px 1px; position:absolute;

"----------------------------------------------------------------------------------------
" キーマップ設定
"----------------------------------------------------------------------------------------

"yで選択範囲をコピー
map y :echo 'Yank!'<CR>Y
"j/kの移動量を5倍に
map j 5<C-e>
map k 5<C-y>
"<BS>で「戻る」
map <BS> H
"h/lでタブ移動
map h <C-p>
map l <C-n>
"<S-Left>/<S-Right>で現在のタブの位置変更
map <S-Left>  :tabmove! -1<CR>
map <S-Right> :tabmove! +1<CR>
"補完設定
set wildoptions=auto
set complete=sl

twitter、nowa、frepaのヒトコトをrubyで更新に プチプロフのヒトコト更新もコマンドラインからマルチポスト出来るようにしてみた。

apiが（多分）ないので、mechanaizeで強引にHackします。

#!/usr/bin/ruby

require 'net/http'
require 'rubygems'
require 'mechanize'
require 'kconv'

exit unless $*[0]

# update puchi-prof
agent = WWW::Mechanize.new                     # インスタンス生成
agent.user_agent_alias = 'Windows IE 6'        #  User-Agentの設定
page = agent.get('http://www.pcpf.jp/')    # プチプロフにアクセス
puts page.uri
login_form = page.forms.first
login_form.fields.name('pcpf_id').value = 'user_name'
login_form.fields.name('password').value = 'password'
page = agent.submit(login_form)     # フォームのsubmitボタンを押す

page = agent.get('http://my.m.pcpf.jp/status_message/')
hitokoto_form = page.forms.first
#puts hitokoto_form
hitokoto_form.fields.name('body').value = $*[0].tosjis
puts hitokoto_form.fields.name('body').value
page = agent.submit(hitokoto_form)

mechanaizeは組み込みではないので、gemで入れる必要がアリ。

これ使うと何でもアリな感じww

完全にHackしどころを間違えた感が・・・