Irvineを使ってTwitterに貼られた静止画を落とすためのスクリプト。「t.co」のURLが貼られたTwitter・Twilogのページから「IrvineへすべてのURLを送る」で使う。現バージョンはUserAgentがIE8相当で「t.co」の転送先が「twitter.com」、「twitpic.com」「yfrog.com」「pict.am」「p.twipple.jp」「instagr.am」「photozou.jp」「tou.ch」となる場合に有効。
//Dorothy2
//caption=twitter-t.co
//version=0.01
//hint=twitter.com・twilog.orgのページからURLを渡してください
//match=http://t.co/
//author=Abcdefgh
//path=program
//priority=500
//end
//created 12,Dec.,2011 by Abcdefgh
//t.coからの転送先に対応したスクリプトを呼び出す
function(){
println('t-co.dms start');
// 転送ページをダウンロード
urlinfo.referer = 'http://twitter.com';
common_load('download');
var http = download(urlinfo.url);
if(http.responseHeader.code != 200){
return retry('error--->' + http.responseHeader.code);
}
// 転送先ページURLを抽出
if (!http.data.match(/\"(https?:\/\/[^"]+)\"/)) {
println('error---> 転送先ページが見つかりません');
exit();
}
var title = RegExp.$1;
urlinfo.url = title;
if (title.match(/twitter[.]com/)) {
eval(program_load('twitter'))();
} else if (title.match(/twitpic[.]com/)){
eval(program_load('twitpic'))();
} else if (title.match(/yfrog[.]com/)){
eval(program_load('yfrog'))();
} else if (title.match(/pict[.]am/)){
eval(program_load('pictam'))();
} else if (title.match(/p[.]twipple[.]jp/)){
eval(program_load('twipple'))();
} else if (title.match(/instagr[.]am/)){
eval(program_load('instagra'))();
} else if (title.match(/photozou.(com|jp)/)){
eval(program_load('photozou'))();
} else if (title.match(/tou.ch/)){
eval(program_load('tou-ch'))();
} else {
println('error---> 目的のページが見つかりません');
println('転送先>' + title);
exit();
}
}