| トップページ |

2008.04.01

CoCoLo

このエントリーをはてなブックマークに追加 mixiチェック

Filename: cocolo.js

#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use CGI;
 
my $q = CGI->new();
my $referer = $q->referer() || 'http://blog.dtpwiki.jp/';
my $cocolo_url = 'http://www.blogpet.net/js/641d076399ee15a6a5aaa64eb6d75acc.js';
 
my $js = get_blogbet_js( $cocolo_url, $referer, );
$js =~ s/this.width = 130/this.width = 469/;
$js =~ s/this.height = 220/this.height = 794/;
print $q->header( -type => 'text/javascript' );
print $js;
 
exit;
 
sub get_blogbet_js {
  my $url     = shift;
  my $referer = shift;
  my $ua      = LWP::UserAgent->new();
  $ua->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)');
  my $req = HTTP::Request->new(
    'GET',
    $url,
  );
  $req->referer( $referer );
  my $res = $ua->request($req);
  my $content = $res->content;
  return $content;
}
一年の計は元旦にありっていうけれども、年度の計は4/1にやってもいいよね、本当になるかどうかは知らん。

今年度は

印刷屋さんとして、オンラインサービスを公開したいな。言うだけだったらタダだもんね。

2008.04.01 午前 12:01 [ネタ] | |

トラックバック

この記事のトラックバックURL:
http://app.cocolog-nifty.com/t/trackback/19018/40570237

この記事へのトラックバック一覧です: CoCoLo:

コメント

コメントを書く






検索


  • Google
    Web blog 内   

プロフィール

あわせて読みたい

カテゴリー

総エントリー数：3812

ﾅﾐﾓﾆ

  • PowerEdge T105

    • DELLのサーバ（意外に安価）。64bitLinux載っけるといいよね、ちょっと高くなるけどRAIDオプションとHDD２台構成にしておくと安心です。

最近のコメント

RSS

最近の記事

○○○

最近のトラックバック

バックナンバー

RSS 1.0 RSS 1.0
はてぶカウンタ++
スカウター : M.C.P.C. ―むり・くり―プラスコミュニケーション
フィードメーター - M.C.P.C.