関西のペット情報が満載
ペットジャム関西

ペットショップ検索
種類から検索
ペット業界の求人
ペット関連WEBサイト
WEB SHOP
ペット保険
スクール・専門学校

新着SHOPレポート
東大阪市のベテラン革首輪職人のお店 
四条畷の猫専門店で可愛い猫み〜つけた!
東大阪市でこだわりの革&布犬具を発見!!
美人看板犬がいる堺市 鳳のドッグカフェ
丁寧・安心の愛犬も大好きなペットサロン
愛犬の健康を考える帝塚山のグッズショップ
オシャレはここから!西宮のドッグブティック
美味しい料理が自慢!北田辺のドッグカフェ


新着企画情報
読者投稿写真館 ころんちゃん 
読者投稿写真館 ルーカちゃん 
mint ドッグカーニバル2008
読者投稿写真館 レンちゃん
噂の「ペットマッサージ」ってナニ?!
お散歩中にコンニチハ in 鶴見緑地公園


新着ショップ情報
DogCatch【グッズ販売・しつけ教室】 
KITTY FARM【ペットショップ】
Mornin’club【グッズ販売・サロン】
molle cafe【ドッグカフェ】
Treasure Dragon 宝龍【ペット撮影・グッズ作成】
ドッグガーデン ドルチェ【ドッグカフェ】
犬のごはん・コム【ペットショップ】
H&I【ドッグカフェ・サロン】



新着求人情報
Door to Door FURUSHO 岡本店【トリマー募集】 
Door to Door FURUSHO 心斎橋店【トリマー募集】 


メルマガ会員募集
編集企画コーナー
SHOP NEWS
JAMファイル
最新!ペットジャムニュース
それいけ!お宅のペットちゃん
お散歩中にコンニチワ
読者投稿写真館
親方イズム日記
マンガコーナー
質問道場柳生家の食卓
いろいろ紹介コーナー
オススメペットブログ
ペットサークル・クラブ
ペットのために読むべき詩
知っておきたい知識
知らなきゃいけないマナー


投稿はこちら
スタッフブログはこちら

PCサイトへは
http://www.pet-jam.jp/

(C)ペットジャム関西
#!/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_image" . "&channel=9641425951" . "&client=ca-mb-pub-9073750486201289" . "&color_border=" . google_append_color("555555", $google_dt) . "&color_bg=" . google_append_color("FFFFFF", $google_dt) . "&color_link=" . google_append_color("0D8F63", $google_dt) . "&color_text=" . google_append_color("000000", $google_dt) . "&color_url=" . google_append_color("008000", $google_dt) . "&dt=" . $google_dt . "&format=mobile_double" . "&host=" . $google_host . "&ip=" . uri_escape($ENV{"REMOTE_ADDR"}) . "&markup=xhtml" . "&oe=utf8" . "&output=xhtml" . "&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; }