ミニクーパーは壊れません! モバイルサイト

mobile ver.

ブログ ミニクーパーは壊れません!のモバイルサイトです
#!/usr/bin/perl use LWP::UserAgent; use Time::HiRes qw(gettimeofday); use URI::Escape; sub google_append_color { my @color_array = split(/,/, $_[0]); return $color_array[$_[1] % @color_array]; } sub google_append_screen_res { my $screen_res = $ENV{"HTTP_UA_PIXELS"}; my $delimiter = "x"; if ($screen_res == "") { $screen_res = $ENV{"HTTP_X_UP_DEVCAP_SCREENPIXELS"}; $delimiter = ","; } my @res_array = split($delimiter, $screen_res); if (@res_array == 2) { return "&u_w=" . $res_array[0] . "&u_h=" . $res_array[1]; } } sub google_append_dcmguid { my $dcmguid = $ENV{"HTTP_X_DCMGUID"}; if ($dcmguid) { return "&dcmguid=" . $dcmguid; } } my $google_dt = sprintf("%.0f", 1000 * gettimeofday()); my $google_scheme = ($ENV{"HTTPS"} eq "on") ? "https://" : "http://"; my $google_host = uri_escape($google_scheme . $ENV{"HTTP_HOST"}); my $google_ad_url = "http://pagead2.googlesyndication.com/pagead/ads?" . "ad_type=text" . "&channel=5688072281" . "&client=ca-mb-pub-8971808744330814" . "&color_border=" . google_append_color("FFFFFF", $google_dt) . "&color_bg=" . google_append_color("FFFFFF", $google_dt) . "&color_link=" . google_append_color("0000CC", $google_dt) . "&color_text=" . google_append_color("000000", $google_dt) . "&color_url=" . google_append_color("0000CC", $google_dt) . "&dt=" . $google_dt . "&format=mobile_double" . "&host=" . $google_host . "&ip=" . uri_escape($ENV{"REMOTE_ADDR"}) . "&markup=chtml" . "&oe=sjis" . "&output=chtml" . "&ref=" . uri_escape($ENV{"HTTP_REFERER"}) . "&url=" . $google_host . uri_escape($ENV{"REQUEST_URI"}) . "&useragent=" . uri_escape($ENV{"HTTP_USER_AGENT"}) . google_append_screen_res() . google_append_dcmguid(); my $google_ua = LWP::UserAgent->new; my $google_ad_output = $google_ua->get($google_ad_url); if ($google_ad_output->is_success) { print $google_ad_output->content; }

1.ミニクーパーを手洗い洗車に任せよう!
(2009-06-23 20:43:02)

2.ミニクーパーで金沢の近江町(おおみちょう)市場に行こう!
(2009-06-23 20:43:00)

3.ミニクーパーのクラッチディスク不良交換
(2009-06-23 20:42:59)[4]

4.ミニクーパーのギヤが入らない?!
(2009-06-23 20:42:57)[7]

5.ミニクーパーにボンネットダンパーを取り付けしよう
(2009-06-23 20:42:55)[4]

6.ミニクーパーの足回りのチェック
(2009-06-23 20:42:54)[2]

7.ミニクーパーで永井豪記念館に行こう!
(2009-06-23 20:42:52)

8.ミニクーパーのETC取り付け方法
(2009-06-23 20:42:52)[4]

9.ミニクーパーのモンテキャリア活用
(2009-06-23 20:42:50)[4]

10.ミニクーパーがもらえます!
(2009-06-23 20:42:49)[5]

1/41

次の10件
最後の4件

最近のコメント15件

Powered by
MT4i 3.0.8