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(); } }