CoCoLo

Tweet

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 00:01 投稿　大野 義貴 [ネタ] | 固定リンク |