ﾐﾆｸｰﾊﾟｰは壊れません! ﾓﾊﾞｲﾙｻｲﾄ
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