qwikdoc 0.0.1

data/vendor/qwik/ml-sweeper.rb

@@ -0,0 +1,101 @@
+#
+# Copyright (C) 2002-2004 Satoru Takabayashi <satoru@namazu.org> 
+# Copyright (C) 2003-2006 Kouichirou Eto
+#     All rights reserved.
+#     This is free software with ABSOLUTELY NO WARRANTY.
+#
+# You can redistribute it and/or modify it under the terms of 
+# the GNU General Public License version 2.
+#
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/group'
+
+module QuickML
+  class Sweeper
+    def initialize (config)
+      @config = config
+      @status = :safe
+      @logger = @config.logger
+    end
+
+    def start
+      @logger.vlog 'Sweeper started'
+      loop {
+	sleep(@config.sweep_interval)
+	begin
+	  sweep
+	rescue Exception => e
+	  @logger.log "Unknown Sweep Error: #{e.class}: #{e.message}"
+	  @logger.log e.backtrace
+	end
+      }
+    end
+
+    def shutdown
+      until @status == :safe
+	sleep(0.5)
+      end
+      @logger.vlog 'Sweeper shutdown'
+    end
+
+    private
+
+    def sweep
+      @status = :sweeping
+      @logger.vlog 'Sweeper runs'
+      Dir.new(@config.sites_dir).each {|filename|
+	filename = File.join(@config.sites_dir, filename)
+	if Sweeper.ml_file?(filename)
+	  mlname = File.basename(filename)
+	  address = Sweeper.mladdress(mlname, @config.ml_domain)
+	  ServerMemory.ml_mutex(@config, address).synchronize {
+            ml = Group.new(@config, address)
+	    ml.group_config_check_exist
+	    sweep_ml(ml)
+	  }
+	end
+      }
+      @logger.vlog 'Sweeper finished'
+      @status = :safe
+    end
+
+    def self.ml_file? (filename)
+      return false if File.file?(filename)
+      return false if /\./ =~ File.basename(filename) # avoid the name with dot
+      return true
+    end
+
+    def self.mladdress (name, ml_domain)
+      return "#{name}@#{ml_domain}"
+    end
+
+    def sweep_ml (ml)
+      if ml.inactive?
+	@logger.log "[#{ml.name}]: Inactive"
+	#ml.close
+	ml.close_dummy
+      elsif ml.need_alert?
+	ml.report_ml_close_soon
+      end
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/testunit'
+  require 'qwik/test-module-ml'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestMLSweeper < Test::Unit::TestCase
+    include TestModuleML
+
+    def test_all
+      c = QuickML::Sweeper
+      eq true, c.ml_file?('/qwik/data/test')
+      eq "test@example.net", c.mladdress('test', 'example.net')
+    end
+  end
+end

data/vendor/qwik/mock-logger.rb

@@ -0,0 +1,65 @@
+# Copyright (C) 2003-2006 Kouichirou Eto, All rights reserved.
+# This is free software with ABSOLUTELY NO WARRANTY.
+# You can redistribute it and/or modify it under the terms of the GNU GPL 2.
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+
+module QuickML
+  class MockLogger
+    def initialize
+      clear
+    end
+
+    def clear
+      @log = []
+      @vlog = []
+    end
+
+    def log(str)
+      @vlog << str
+      @log << str
+    end
+
+    def vlog(str)
+      @vlog << str
+    end
+
+    def get_log
+      lo = @log
+      clear
+      return lo
+    end
+
+    def get_vlog
+      lo = @vlog
+      clear
+      return lo
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/testunit'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestMockLogger < Test::Unit::TestCase
+    def test_all
+      # test_initialize
+      s = QuickML::MockLogger.new
+
+      # test_log
+      s.log('t')
+
+      # test_get_log
+      ok_eq(['t'], s.get_log)
+
+      # test_vlog
+      s.vlog('v')
+
+      # test_get_vlog
+      ok_eq(['v'], s.get_vlog)
+    end
+  end
+end

data/vendor/qwik/mock-sendmail.rb

@@ -0,0 +1,78 @@
+# Copyright (C) 2003-2006 Kouichirou Eto, All rights reserved.
+# This is free software with ABSOLUTELY NO WARRANTY.
+# You can redistribute it and/or modify it under the terms of the GNU GPL 2.
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+
+class MockSmtpServer
+  def self.open(smtp_host, smtp_port)
+    return self.new(smtp_host, smtp_port)
+  end
+
+  def initialize(smtp_host, smtp_port)
+    @smtp_host, @smtp_port = smtp_host, smtp_port
+    @buffer = []
+    @in_data = false
+  end
+  attr_reader :buffer		# for test.
+
+  def gets
+    if @buffer.empty?
+      return '220 qwik.jp ESMTP MockSmtpServer'
+    end
+
+    if @in_data
+      if /\.\z/ =~ @buffer.last
+	@in_data = false
+	return '250 Ok: queued as 381E41683E'	# The message is fake.
+      end
+    end
+
+    cmd = @buffer.last[0..3].downcase
+    case cmd
+    when 'ehlo'
+      return '250 example.com'
+    when 'mail'
+      return '250 ok'
+    when 'rcpt'
+      return '250 ok'
+    when 'data'
+      @in_data = true
+      return '354 End data with <CR><LF>.<CR><LF>'
+    when 'quit'
+      return '221 Bye'
+    end
+
+    return ''
+  end
+
+  def print(str)
+    str.sub!(/\r\n\z/, '')
+    @buffer << str
+  end
+
+  def close
+    # Do nothing.
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/testunit'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestMockSmtpServer < Test::Unit::TestCase
+    def test_all
+      # test_initialize
+      s = MockSmtpServer.new('localhost', '9195')
+
+      # test_gets
+      is '220 qwik.jp ESMTP MockSmtpServer', s.gets
+
+      # test_print
+      s.print('t')
+      is ['t'], s.buffer
+    end
+  end
+end

data/vendor/qwik/mock-socket.rb

@@ -0,0 +1,82 @@
+# Copyright (C) 2003-2006 Kouichirou Eto, All rights reserved.
+# This is free software with ABSOLUTELY NO WARRANTY.
+# You can redistribute it and/or modify it under the terms of the GNU GPL 2.
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/util-safe'
+
+module QuickML
+  class MockSocket
+    include SafeGetsModule
+
+    def initialize(str = '')
+      require 'stringio'
+      @inputs = StringIO.new(str)
+      @buffer = []
+    end
+    attr_reader :buffer
+
+    def result
+      ar = []
+      @buffer.each {|res|
+	ar << res.sub(/\r\n\z/, "")
+      }
+      return ar
+    end
+
+    def hostname
+      return 'localhost'
+    end
+
+    def address
+      return '127.0.0.1'
+    end
+
+    def eof?
+      return @inputs.eof?
+    end
+
+    def closed?
+      return @inputs.eof?
+    end
+
+    def close
+      # Do nothing.
+    end
+
+    def print(*args)
+      str = args.join
+      @buffer << str
+    end
+
+    def read(len)
+      @inputs.read(len)
+    end
+
+    alias org_safe_gets safe_gets
+    def safe_gets
+      line = org_safe_gets
+      return nil if line.nil?
+      line = line.xchomp+"\r\n"
+      return line
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/testunit'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestMockSocket < Test::Unit::TestCase
+    def test_all
+      # test_initialize
+      s = QuickML::MockSocket.new('')
+
+      # test_print
+      s.print('t')
+      is ['t'], s.buffer
+    end
+  end
+end

data/vendor/qwik/modulobe.rb

@@ -0,0 +1,406 @@
+# Copyright (C) 2003-2006 Kouichirou Eto, All rights reserved.
+# This is free software with ABSOLUTELY NO WARRANTY.
+# You can redistribute it and/or modify it under the terms of the GNU GPL 2.
+
+# special mode for modulobe.com
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/util-time'
+require 'qwik/htree-to-wabisabi'
+require 'qwik/mdlb-sample'
+require 'qwik/mdlb-model'
+
+module Qwik
+  class Action
+    def modulobe_model_link(file)
+      base = file.basename.to_s
+      return file, @req.base+'.files/'+base
+    end
+
+    def modulobe_image_link(file)
+      image_file = file.to_s.sub(/\.mdlb\z/, '.gif').path
+      base = file.basename('.mdlb').to_s+'.gif'
+      return image_file, @req.base+'.files/'+base
+    end
+
+    def modulobe_thumb_link(file)
+      base = file.basename('.mdlb').to_s+'.gif'
+      thumb_file = file.dirname+'.thumb'+base
+      return thumb_file, @req.base+'.files/.thumb/'+base
+    end
+  end
+end
+
+module Modulobe
+  class ModelList
+    def initialize(files)
+      @files = files
+      @models = {}
+      @days = nil
+      @timeline = nil
+      @last_time = nil
+    end
+
+    def empty?
+      get_all_models
+      return @models.empty?
+    end
+
+    def get_all_models
+      @files.each {|basename|
+	next unless /\.mdlb\z/ =~ basename
+	if @models[basename].nil?
+	  file = @files.path(basename)
+	  model = ModelFile.new(file)
+	  model.get_internal_info
+	  @models[basename] = model
+	end
+      }
+    end
+    #private :get_all_models
+
+    def prepare_timeline
+      @timeline = @models.values.sort_by {|model|
+	model.mtime
+      }
+      return if @timeline.last.nil?
+      @last_time = @timeline.last.mtime
+
+      @days = Hash.new {|h, k| h[k] = []}
+      @timeline.reverse.each {|model|
+        if model
+	@days[model.mtime.ymd] << model
+        end
+      }
+    end
+
+    def get_table(action, path)
+      get_all_models	# @models are cached.
+      prepare_timeline if @timeline.nil?
+
+      trs = []
+      @days.to_a.sort_by {|ymd, models|
+	ymd
+      }.reverse.each {|ymd, models|
+	trs << [:tr, {:class=>'day'}, [:th, {:colspan=>'3'}, ymd]]
+	models.each {|model|
+	  trs << model.create_entry(action, path)
+	}
+      }
+      table = [:table, {:class=>'model'}, *trs]
+      div = [:div, {:class=>'model'}, table]
+      return div
+    end
+
+    def get_style
+      return [:style, '
+/* ==================== model */
+div.model {
+  margin: 1em 0;
+  padding: 10px;
+  border: 0;
+  background-color: #fff;
+}
+
+table.model {
+  margin: 0;
+  width: 100%;
+  border: 0;
+}
+
+tr.day th {
+  padding: 15px 0 0 0;
+  border-top: 0;
+  border-right: 0;
+  border-bottom: 0;
+  border-left: 0;
+  color: #0c0;
+  background-color: transparent;
+}
+
+tr.model td {
+  margin: 0;
+  padding: 0;
+  border: 1px solid #f30;
+  border: 0;
+  line-height: 1.0;
+}
+
+tr.model td img {
+  margin: 10px 10px 0 10px;
+  border: 0;
+  border-bottom: 0;
+}
+
+tr.model td a {
+  border: 0;
+}
+
+tr.model td div {
+  margin: 0;
+  padding: 0;
+}
+
+tr.model td div.author {
+  font-size: small;
+}
+
+tr.model td div.name {
+  margin: 0 0 0 0;
+  font-size: medium;
+  font-weight: bold;
+}
+
+tr.model td div.name a {
+  text-decoration: underline;
+}
+
+tr.model td pre {
+  margin: 0;
+  padding: 0;
+  border: 0;
+  line-height: 1.0;
+  background-color: transparent;
+}
+']
+    end
+
+    def get_rss(action, base)
+      get_all_models	# @models are cached.
+      prepare_timeline if @timeline.nil?
+
+      xml = []
+      xml << [:'?xml', '1.0', 'utf-8']
+
+      rss = [:rss, {:version=>'2.0', :'xmlns:creativeCommons'=>
+	  'http://backend.userland.com/creativeCommonsRssModule'}]
+      xml << rss
+
+      channel = [:channel,
+	[:title, 'Modulobe model gallery'],
+	[:link, 'http://wiki.modulobe.com/'],
+	[:description, 'The model list of Modulobe Wiki site.'],
+	[:language, 'ja'],
+	[:managingEditor, 'modulobe@qwik.jp'],
+	[:webMaster, 'modulobe@qwik.jp']]
+      rss << channel
+      channel << [:lastBuildDate, @last_time.rfc1123_date]
+      channel << [:ttl, '60']
+
+      @timeline.each {|model|
+	item = model.create_rss_item(action, base)
+	channel << item
+      }
+
+      return xml
+    end
+  end
+
+  class ModelFile
+    def initialize(file)
+      @file = file
+      @mtime = @file.mtime
+      @length = @file.size
+      @image_file = @file.to_s.sub(/\.mdlb\z/, '.gif').path
+      @name = @author = @comment = nil
+    end
+    attr_reader :file, :mtime
+    attr_reader :length		# for debug
+    attr_reader :image_file	# for debug
+    attr_reader :name, :author, :comment
+
+    def get_internal_info
+      if @name.nil?
+	content = @file.read
+	@name, @author, @comment = extract_info(content)
+      end
+      return @name, @author, @comment
+    end
+
+    def extract_info(str)
+      htree = HTree(str)
+      wabisabi = htree.to_wabisabi
+      info = wabisabi.get_path('//model/info')
+      return [nil, nil, nil] unless info
+      name    = info.get_path('/name').text.set_xml_charset.to_page_charset
+      author  = info.get_path('/author').text.set_xml_charset.to_page_charset
+      comment = info.get_path('/comment').text.set_xml_charset.to_page_charset
+      return [name, author, comment]
+    end
+
+    def prepare_metadata
+      name    = @name    || @file.basename('.mdlb').to_s
+      author  = @author  || 'anonymous'
+      comment = @comment || ''
+      return [name, author, comment]
+    end
+
+    # wget http://wiki.modulobe.com/model.mdlbrss
+    # http://colinux:9190/modulobewiki/model.html
+    # wget http://colinux:9190/modulobewiki/model.mdlbrss
+    def prepare_link(action, path)
+#      base = @file.basename('.mdlb').to_s
+#      href = path+'/'+base+'.mdlb'
+
+      model_file, model_relative = action.modulobe_model_link(@file)
+      model_absolute = action.c_relative_to_root(model_relative)
+      model_full     = action.c_relative_to_absolute(model_relative)
+
+      image_file, image_relative = action.modulobe_image_link(@file)
+
+      if image_file.exist?
+	thumb_file, thumb_relative = action.modulobe_thumb_link(@file)
+	if ! thumb_file.exist?
+	  action.thumb_generate(image_file.basename.to_s)
+	end
+	img = [:img, {:src=>thumb_relative}]
+      else
+	img = [:img, {:width=>'100', :height=>'75', :src=>'model.files/x.gif'}]
+      end
+      img = [:a, {:href=>model_relative}, img]
+
+      return [model_relative, model_full, img]
+    end
+
+    def create_entry(action, path)
+      href, url, img = prepare_link(action, path)
+      name, author, comment = prepare_metadata
+      tr = [:tr, {:class=>'model'},
+	[:td, img],
+	[:td, [:div, {:class=>'author'}, author],
+	  [:div, {:class=>'name'}, [:a, {:href=>href}, name]],
+	  [:pre, {:class=>'comment'}, comment]]]
+      return tr
+    end
+
+    def create_model_entry(action, path)
+      href, url, img = prepare_link(action, path)
+      name, author, comment = prepare_metadata
+      return img
+    end
+
+    # http://colinux:9190/modulobewiki/model.mdlbrss
+    # http://wiki.modulobe.com/model.mdlbrss
+    def create_rss_item(action, path)
+      href, url, img = prepare_link(action, path)
+      name, author, comment = prepare_metadata
+      item = [:item]
+      item << [:title, name]
+      item << [:link, url]
+
+      src = img[2][1][:src]
+      imgsrc = action.c_relative_to_absolute(src)
+      html = "<p><img src=\"#{imgsrc}\" alt=\"#{name}\" width=\"100\" height=\"75\"/><br/>#{comment}</p>"
+      item << [:description, html]
+
+      item << [:author, author]
+      item << [:pubDate, @mtime.rfc1123_date]
+      item << [:enclosure,
+	{:url=>url, :length=>@length, :type=>'application/xml'}]
+      item << [:'creativeCommons:license',
+	'http://creativecommons.org/licenses/by-sa/2.5/deed.ja']
+      return item
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestModulobeModel < Test::Unit::TestCase
+    include TestSession
+    include Modulobe::Sample
+
+    def test_all
+      t_add_user
+
+      page = @site['_SiteConfig']
+      page.store(':siteurl:http://wiki.example.com/')
+
+      page = @site.create('c')
+      page.store('')
+      files = @site.files('c')
+
+      files.put('test1.mdlb', MODULOBE_TEST_MODEL1, nil, 0)
+      files.put('test1.gif', TEST_PNG_DATA, nil, 1)
+      file = files.path('test1.mdlb')
+
+      # test_create_model
+      model = Modulobe::ModelFile.new(file)
+      ok_eq('.test/data/test/c.files/test1.mdlb', model.file.to_s)
+      ok_eq(Time.at(0), model.mtime)
+      ok_eq(563, model.length)
+      ok_eq('.test/data/test/c.files/test1.gif', model.image_file.to_s)
+
+      # test_internal_info
+      ok_eq(nil, model.name)
+
+      # test_prepare_metadata
+      name, author, comment = model.prepare_metadata
+      ok_eq('test1', name)
+      ok_eq('anonymous', author)
+      ok_eq('', comment)
+
+      # test_get_internal_info
+      name, author, comment = model.get_internal_info
+      ok_eq('t1 model', name)
+      ok_eq('Alice', author)
+      ok_eq('This is a comment.
+', comment)
+
+      session('/test/c.html')	# for create @action
+
+      # test_modulobe_model_link
+      file, relative = @action.modulobe_model_link(model.file)
+      ok_eq('c.files/test1.mdlb', relative)
+      ok_eq('/c.files/test1.mdlb',
+		   @action.c_relative_to_root(relative))
+      ok_eq('http://wiki.example.com/c.files/test1.mdlb',
+		   @action.c_relative_to_absolute(relative))
+
+      # test_modulobe_image_link
+      file, relative = @action.modulobe_image_link(model.file)
+      ok_eq('.test/data/test/c.files/test1.gif', file.to_s)
+      ok_eq('c.files/test1.gif', relative)
+
+      # test_modulobe_thumb_link
+      file, relative = @action.modulobe_thumb_link(model.file)
+      ok_eq('.test/data/test/c.files/.thumb/test1.gif', file.to_s)
+      ok_eq('c.files/.thumb/test1.gif', relative)
+
+      path = 'c.files'
+      ok_eq([:tr, {:class=>'model'},
+	      [:td,
+		[:a, {:href=>'c.files/test1.mdlb'},
+		  [:img, {:src=>'c.files/.thumb/test1.gif'}]]],
+	      [:td,
+		[:div, {:class=>'author'}, 'Alice'],
+		[:div, {:class=>'name'},
+		  [:a, {:href=>'c.files/test1.mdlb'}, 't1 model']],
+		[:pre, {:class=>'comment'}, 'This is a comment.
+']]],
+	    model.create_entry(@action, path))
+
+      ok_eq([:a, {:href=>'c.files/test1.mdlb'},
+	      [:img, {:src=>'c.files/.thumb/test1.gif'}]],
+	    model.create_model_entry(@action, path))
+
+      ok_eq([:item,
+	      [:title, 't1 model'],
+	      [:link, 'http://wiki.example.com/c.files/test1.mdlb'],
+	      [:description,
+		"<p><img src=\"http://wiki.example.com/c.files/.thumb/test1.gif\" alt=\"t1 model\" width=\"100\" height=\"75\"/><br/>This is a comment.\n</p>"],
+	      [:author, 'Alice'],
+	      [:pubDate, 'Thu, 01 Jan 1970 09:00:00 GMT'],
+	      [:enclosure,
+		{:length=>563, :type=>'application/xml',
+		  :url=>'http://wiki.example.com/c.files/test1.mdlb'}],
+	      [:'creativeCommons:license',
+		'http://creativecommons.org/licenses/by-sa/2.5/deed.ja']],
+	    model.create_rss_item(@action, path))
+    end
+  end
+end