Big Sky

やったーJavaScriptの動くMySQLできたよー - 愛と勇気と缶ビール

しばらく 積ん読 していたこの本をちょっと眺めてみたら、 MySQL のUDFって簡単に作れるんだなー、と思った && そういや V8 って ライブラリ として簡単にリンクできるはずだな、と思い出した...

http://d.hatena.ne.jp/zentoo/20110925/1316961032

Big Sky :: やったーJavaScriptの動くSQLiteできたよー

正誤表を書くのにしばらくこの本をちょっと眺めてみたら、SQLiteのUDFって簡単に作れるんだなー、と思った && そういやV8ってライブラリとして簡単にリンクできるはずだな、と思い出した ので、つい...

http://mattn.kaoriya.net/software/lang/c/20110926141218.htm

まぁ、単なるUDFですが。

mattn/mysql-mruby - GitHub
https://github.com/mattn/mysql-mruby

これをコンパイルしてpluginとして配置すると mysql> SELECT mrb_eval('[1,2,3].map {|x| "hello" + x}');
+-------------------------------------------+
| mrb_eval('[1,2,3].map {|x| "hello" + x}') |
+-------------------------------------------+
| ["hello1", "hello2", "hello3"]            |
+-------------------------------------------+
1 row in set (0.00 sec)

こんな事出来て幸せ！

あなたも matz テーブルの mruby フィールドに何か書き込んでみませんか！

ソーシャル化したbit.lyの恥ずかしいリンクの消し方 - ぼくはまちちゃん！(Hatena)

こんな記事がありました！ Big Sky :: bit.ly がソーシャルに生まれ変わって、皆とっても恥かしい事になる...

http://d.hatena.ne.jp/Hamachiya2/20120530/bitly

既に800件以上あるのでやってられなかったの巻。
今年もYAPC::Asiaは盛り上がりそうですね。僕行った事無いけど...
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request;
use Config::Pit;
use JSON;

my $config = pit_get('bit.ly', require => {
    username => 'username on bit.ly',
    password => 'password on bit.ly',
});

my $req = HTTP::Request->new(
    POST => 'https://api-ssl.bitly.com/oauth/access_token');

$req->authorization_basic(
    $config->{username},
    $config->{password},
);

my $ua = LWP::UserAgent->new;
$ua->env_proxy;

my $res = $ua->request($req);
my $access_token = $res->decoded_content;

my $offset = 0;

my $base_url = "https://api-ssl.bitly.com";
my $url = "$base_url/v3/user/link_history?access_token=$access_token&limit=100";
while (1) {
    my $history = from_json $ua->get("$url&offset=$offset")->decoded_content;
    my @items = @{$history->{data}->{link_history}};
    last unless scalar @items;
    for my $item (@items) {
        unless ($item->{private}) {
            my $link = $item->{long_url};
            print "$link\n";
            #$res = $ua->get(
            #    "$base_url/v3/user/link_edit"
            #    ."?access_token=$access_token&link=$link&edit=private"
            #    ."&private=true");
        }
    }
    $offset += 100;
}
コメント外したらprivateになる予感。
試したこと無いので誰か試して...
あとsleep入れた方がいいと思うよ(最初から入れろコラ)。

URL短縮サービス bit.ly がソーシャルに生まれ変わった様です。

bitly blog - Welcome to the new bitly!

Welcome to the new bitly! bitly has long been the home to important content you share across the web...

http://blog.bitly.com/post/23998132587/welcome-to-the-new-bitly

• Easily save, share and discover links ? they’re called bitmarks, like bookmarks.
• Instantly search your saved bitmarks.
• Curate groups of bitmarks into bundles and collaborate on bundles with friends.
• Make any bitmark or bundle private or public.
• See what friends are sharing across multiple social networks, all in one place.
• Save and share links from anywhere with our new bitmarklet, Chrome extension and iPhone app.

いろいろ改良が入ったのはいいんですが、ユーザページという物が出来てしまった。 https://bitly.com/u/mattn 今はプライベートにしてしまったので、今後ポストする物は明示的にパブリック扱いにしない限りプライベート扱いになります。
bit.ly って twitter クライアントや外部サービスなんかで、ほぼ自動的に使っていたので間違えたポストがあったら放ったらかしだったし、まさかユーザがポストしたURL一覧なんて見れるようになると思って無かったよね。如何わしい画像いっぱいポストしてる人とか焦るよね。
ログインして右上のメニューから「SETTINGS」を選んで

「Default bitmark privacy」を「Private」に変えればok。
やばい画像をいっぱいポストしてる人はいますぐ変えるべし。
ただしこれ、デフォルト値です。既存の物は全てpublic扱いなので自分で消すべきです。アカウント抹消したら消えるだろか...。