qwikdoc 0.0.1

data/vendor/qwik/dev-replace.rb

@@ -0,0 +1,353 @@
+# 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.
+
+require 'pp'
+
+$LOAD_PATH << '..' unless $LOAD_PATH.include? '..'
+require 'qwik/util-pathname'
+
+def dummy_replace_line(line)	# dummy
+  return line
+end
+
+def replace_line(line)
+  return line.gsub(/\$LOAD_PATH \<\< \'\.\.\'/) {
+    "$LOAD_PATH.unshift '..'"
+  }
+end
+
+def replace_content_by_line(content, dryrun)
+  replace = false
+  newcontent = ''
+  content.each {|line|
+    newline = replace_line(line)
+    if newline != line
+      yield
+      puts "-#{line}"
+      puts "+#{newline}"
+      replace = true
+    end
+    newline = line if dryrun		# for debug
+    newcontent << newline
+  }
+  return replace, newcontent, dryrun
+end
+
+def main
+  #dryrun = false
+  dryrun = true
+
+  #Dir.glob('test-sub-*.rb') {|fname|
+
+  last_fname = ''
+
+  Dir.glob('*.rb') {|fname|
+    next if fname == 'dev-replace.rb'
+    content = open(fname, 'rb') {|f| f.read }
+
+    replace, newcontent, dryrun = replace_content_by_line(content, dryrun) {
+      if last_fname != fname
+	puts "��#{fname}"
+	last_fname = fname
+      end
+    }
+
+    if replace
+      open("#{fname}.bak", 'wb') {|f|
+	f.print content			# make backup
+      }
+      open(fname, 'wb') {|f|
+	f.print newcontent		# make new content
+      }
+    end
+  }
+end
+main
+
+=begin
+
+OLD_BANNER = <<"EOS"
+#
+# 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.
+#
+EOS
+
+NEW_BANNER = <<"EOS"
+# 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.
+EOS
+
+def replace_line(line)
+  return line.gsub(OLD_BANNER) {
+    NEW_BANNER
+  }
+end
+
+def nureplace_line(line)
+  return line.gsub(%r|2003-2005|) {
+    "2003-2006"
+  }
+end
+
+def nu2replace_line(line)
+  return line.gsub(%r|c_relative_to_absolute|) {
+    "c_relative_to_root"
+  }
+end
+
+def nu3replace_line(line)
+  return line.gsub(%r|c_relative_to_full|) {
+    "c_relative_to_absolute"
+  }
+end
+
+def replace_line(line)
+  return line.gsub(%r|\$LOAD_PATH \<\< '\.\.' unless \$LOAD_PATH\.include\?\('\.\.'\)|) {
+    "$LOAD_PATH << '..' unless $LOAD_PATH.include? '..'"
+  }
+end
+
+def replace_line(line)
+  return line.gsub(%r|\$LOAD_PATH\.unshift 'compat' unless \$LOAD_PATH\.include\? 'compat'|) {
+    "$LOAD_PATH << 'compat' unless $LOAD_PATH.include? 'compat'"
+  }
+end
+
+def nu3_replace_line(line)
+  return line.gsub(%r|\$LOAD_PATH\.unshift\('\.\.\/\.\.\/compat'\) unless \$LOAD_PATH\.include\?\('\.\.\/\.\.\/compat'\)|) {
+    "$LOAD_PATH.unshift 'compat' unless $LOAD_PATH.include? 'compat'"
+  }
+end
+
+def nu2_replace_line(line)
+  str = "\$LOAD_PATH << '..' unless \$LOAD_PATH.include?('..')"
+  restr = Regexp.escape(str)
+  #puts restr
+  # \$LOAD_PATH\ <<\ '\.\.'\ unless\ \$LOAD_PATH\.include\?\('\.\.'\)
+  re = Regexp.compile(restr)
+  out = "\$LOAD_PATH << '..' unless \$LOAD_PATH.include? '..'"
+  return line.gsub(re) {
+    out
+  }
+end
+
+def nu_replace_line(line)
+  return line.gsub(%r|\$LOAD_PATH << \'\.\./\.\./lib\' unless \$LOAD_PATH\.include\?\('\.\./\.\./lib'|) {
+    "\$LOAD_PATH << '..' unless \$LOAD_PATH.include?('..'"
+  }
+end
+
+
+# ============================== souko
+def nu_replace_line(line)
+  return line.gsub(/require \"t\/test\"/) {
+    "require \"qwik\/test-common\""
+  }
+end
+
+def nu2replace_line(line)
+  return line.gsub(/class TC\_/) {
+    'class Test'
+  }
+end
+
+def nu3replace_line(line)
+  return line.gsub(/if \$debug/) {
+    'if defined?($debug) && $debug'
+  }
+end
+
+def nu4replace_line(line)
+  return line.gsub(/assert_wiki/) {
+    'ok_wi'
+  }
+end
+
+def nu5replace_line(line)
+  return line.gsub(/assert_in\(/) {
+    'ok_in('
+  }
+end
+
+def nu6replace_line(line)
+  return line.gsub(/assert_xpath/) {
+    'ok_xp'
+  }
+end
+
+def nu7replace_line(line)
+  return line.gsub(/assert_equal/) {
+    'ok_eq'
+  }
+end
+
+def nu8replace_line(line)
+  return line.gsub(/require \"test\/unit\"/) {
+    "require \"qwik\/testunit\""
+  }
+end
+
+def nu9replace_line(line)
+  return line.gsub(/assert_xml/) {
+    'ok_in'
+  }
+end
+
+def nu10replace_line(line)
+  return line.gsub(/require \"qwik\/memory\"/) {
+    "require \"qwik\/server-memory\""
+  }
+end
+
+def nu11replace_line(line)
+  return line.gsub(/include TestQuickMLModule/) {
+    'include TestModuleML'
+  }
+end
+
+def nu12replace_line(line)
+  return line.gsub(/include TestMLSessionModule/) {
+    'include TestModuleML'
+  }
+end
+
+def nu13replace_line(line)
+  return line.gsub(/require \"qwik\/test-module-ms\"/) {
+    "require \"qwik/test-module-ml\""
+  }
+end
+
+def nu14replace_line(line)
+  return line.gsub(/user@e.com/) {
+    'bob@example.net'
+  }
+end
+
+def nu15replace_line(line)
+  return line.gsub(/Mail\.send_mail/) {
+    'Sendmail.send_mail'
+  }
+end
+
+def nu16replace_line(line)
+  return line.gsub(/class QuickML$/) {
+    'class Group'
+  }
+end
+
+def nu17replace_line(line)
+  return line.gsub(/QuickML::QuickML/) {
+    'QuickML::Group'
+  }
+end
+
+def nu18replace_line(line)
+  return line.gsub(/QuickML\./) {
+    "Group\."
+  }
+end
+
+def nu19replace_line(line)
+  return line.gsub(/require "qwik\/util-path"/) {
+    'require "qwik/util-pathname'
+  }
+end
+
+def nu20replace_line(line)
+  return line.gsub(/require "qwik\/util-pathname$/) {
+    'require "qwik\/util-pathname"'
+  }
+end
+
+def nu21replace_line(line)
+  return line.gsub(/require "qwik\\\/util-pathname"/) {
+    'require "qwik/util-pathname"'
+  }
+end
+
+def nu22replace_line(line)
+  return line.gsub(/Qwik::Config.new\(true\)/) {
+    'Qwik::Config.new(:debug=>true)'
+  }
+end
+
+def nu23replace_line(line)
+  if /\$debug/ =~ line
+    pp line
+  end
+  return line
+end
+
+def nu24replace_line(line)
+  return line.gsub(/\$debug/) {
+    '$test'
+  }
+end
+
+def nu25replace_line(line)
+# return line.gsub(/charset='([\w]+)'/) {
+#  return line.gsub(/charset='([\w-]+)'/) {
+  #a = 'charset'
+  #a = 'filename'
+  #a = 'boundary'
+  #return line.gsub(/#{a}='([\w\.-]+)'/) {
+
+  return line.gsub(/; ([A-Za-z]+)='([\w \.-]+)'/) {
+    k = $1
+    v = $2
+    "; #{k}=\"#{v}\""
+  }
+end
+
+def nu27replace_line(line)
+  return line.gsub(%r|"../../lib"|) {
+    "'../../lib'"
+  }
+end
+
+def nu28replace_line(line)
+  return line if line.include?("\\")
+  return line.gsub(%r|""|) {
+    "''"
+  }
+end
+
+def nu29replace_line(line)
+  return line if line.include?("\\")
+  return line if line.include?('<')
+  return line if line.include?('>')
+
+  line =  line.gsub(/\"(.*?)\"/) {
+    str = $1
+    ignore = %w(ascii section EOT)
+    if ignore.include?(str)
+      "\"#{str}\""
+#   elsif /\A[A-Za-z0-9\:\.\/_ |-]+\z/ =~ str
+#   elsif /\A[A-Za-z0-9\:\._ |-]+\z/ =~ str
+#   elsif /\A[A-Za-z0-9\@\:\._ |-]+\z/ =~ str
+#   elsif /\A[A-Za-z0-9\%\*\/\@\:\._ |-]+\z/ =~ str
+#   elsif /\A[A-Za-z0-9\%\*\/\@\:\._ |-]+\z/ =~ str
+    elsif /\A[A-Za-z0-9\,\%\*\/\@\:\._ \|-]+\z/ =~ str
+      "'#{str}'"
+    else
+      "\"#{str}\""
+    end
+  }
+
+  return line
+end
+
+def replace_line(line)
+  return line.gsub(%r|assert_text\(\'(.+)\', \'title\'\)|) {
+    "ok_title('#{$1}')"
+  }
+end
+
+=end

data/vendor/qwik/dev-sendmail.rb

@@ -0,0 +1,25 @@
+# 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.
+
+# You can send a mail using SMTP for checking the status.
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/config'
+require 'qwik/util-sendmail'
+require 'qwik/qwik-mail'
+
+def main
+  config = Qwik::Config.new
+  config.update(:smtp_host => '127.0.0.1', :smtp_port => '25')
+  mail = {
+    :from    => 'etocom@gmail.com',
+    :to      => 'etoeto@qwik.jp',
+    :subject => 'test',
+    :content => 'test desu.',
+  }
+  sendmail = Qwik::Sendmail.new('127.0.0.1', '25')
+  sendmail.send(mail)
+end
+
+main

data/vendor/qwik/farm.rb

@@ -0,0 +1,283 @@
+# -*- coding: shift_jis -*-
+# 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/site'
+require 'qwik/util-pathname'
+require 'qwik/util-time'
+
+# $update_group_files = true
+$update_group_files = false
+
+module Qwik
+  # Bundle many sites to one object.
+  class Farm
+    def initialize(config, memory)
+      @config = config
+      @memory = memory
+      @logger = @memory[:logger]
+      @data_path = @config.sites_dir.path
+      @grave_path = @config.grave_dir.path
+      @top_sitename = @config.default_sitename
+      if $update_group_files
+	$update_group_files = false	# Set before to do it.
+	update_group_files
+      end
+    end
+
+    def update_group_files
+      list().each {|sitename|
+	site = get_site(sitename)
+	site.member.update_group_files
+      }
+    end
+
+    def get_site(sitename)
+      sitepath = @data_path + sitename
+
+      # FIXME: Should we check the directory everytime?
+      if ! sitepath.directory?	# At the first, check the directory.
+	return nil	# No such site.
+      end
+
+      # Now, I am sure that we have the directory for the site.
+      # Create a new site object and return it.
+      return Site.new(@config, @memory, sitename)
+    end
+    alias exist? get_site
+
+    def get_top_site
+      return get_site(@top_sitename)
+    end
+
+    def list
+      return check_all_sites.sort
+    end
+
+    def close_all
+      list().each {|sitename|
+	site = self.get_site(sitename)
+	site.close if site
+      }
+    end
+
+    def make_site(sitename, now = Time.now)
+      sitepath = @data_path + sitename
+      raise 'site already exist' if sitepath.exist?	# Check the path first.
+      sitepath.mkdir
+      page = (sitepath + "_QwikSite.txt")
+      page.write(now.rfc_date)
+      return nil
+    end
+
+    def sweep
+      @logger.log(WEBrick::Log::INFO, 'start sweep') unless $test
+
+      log = @memory[:bury_log]
+      unless $test
+	log.info("start sweep")
+      end
+
+      inactive_sites = check_inactive_sites
+      buried = []
+      inactive_sites.each {|sitename|
+	@logger.log(WEBrick::Log::INFO, 'sweep '+sitename) unless $test
+	buried << bury(sitename)
+      }
+
+      unless $test
+	log.info("end sweep")
+      end
+
+      return buried
+    end
+
+    def check_inactive_sites
+      inactive_sites = []
+      list().each {|sitename|
+	# Do not bury default site.
+	next if sitename == @top_sitename
+	site = get_site(sitename)
+	# Check a particular page to check the directory is a site or not.
+	next if ! site.exist?('_SiteConfig')
+	inactive_sites << sitename if site && site.inactive?
+      }
+      return inactive_sites
+    end
+
+    private
+
+    def check_all_sites
+      sites = Array.new
+
+      # Check the direcotry entries.
+      @data_path.each_entry {|entry|
+	pa = @data_path + entry
+	next if ! pa.directory?	# is not a directory?
+	sitename = entry.to_s
+	next if sitename[0] == ?.	# begin with dot?
+	next if sitename == 'CVS'
+	#next if (pa + '_SiteConfig.txt').exist?	# check the site.
+        sites << sitename
+      }
+
+      return sites
+    end
+
+    def bury(sitename)
+      site = get_site(sitename)
+      if site.unconfirmed?
+	dump_site(site, 'deleted')
+	delete(site)
+	return
+      end
+      dump_site(site, 'buried')
+
+      sitepath = site.path
+      dirtime = sitepath.mtime.to_i
+      @grave_path.check_directory
+      (sitepath.parent + ".grave").check_directory
+      while true
+	tempgravepath = sitepath.parent + ".grave" + "#{dirtime}_#{sitename}"
+	gravesitepath = @grave_path + "#{dirtime}_#{sitename}"
+	unless tempgravepath.exist? || gravesitepath.exist?
+	  # step1. move atomically on same disk volume
+	  sitepath.rename(tempgravepath)
+	  # step2. move across disk volume
+	  #FileUtils.mv(tempgravepath, gravesitepath)
+	  break
+	end
+	dirtime += 1
+      end
+      #return gravesitepath
+      return tempgravepath
+    end
+
+    def bury_dummy(sitename)
+      site = get_site(sitename)
+      dump_site(site, 'bury dummy')
+      return site.path
+    end
+
+    require 'stringio'
+    def dump_site(site, message)
+      log = @memory[:bury_log]
+      buff = StringIO.new
+      buff.puts("#{message}: #{site.sitename}")
+
+      ml_life_time = site.siteconfig['ml_life_time'].to_i
+      days = ml_life_time / (60*60*24)
+      buff.puts("ml_life_time: #{ml_life_time} (#{days}d)")
+
+      site.path.children.sort{|a,b| b.mtime <=> a.mtime }.each do |path|
+	buff << path.mtime.strftime("%Y-%m-%d %H:%M:%S ")
+	buff << sprintf("% 8d ", path.size)
+	buff << path.basename.to_s
+	buff << "\n"
+      end
+      unless $test
+	log.info(buff.string)
+      end
+    end
+
+    def delete(site)
+      sitepath = site.path
+      sitepath.remove_directory
+    end
+
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-module-session'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestFarm < Test::Unit::TestCase
+    include TestSession
+
+    def test_make_site
+      farm = @memory.farm
+      farm.close_all
+      @dir.teardown
+      @dir.rmtree if @dir.directory?
+      @dir.rmdir  if @dir.directory?
+
+      dir = @config.sites_dir.path
+
+      # test_exist?
+      assert_equal false, !!farm.exist?('test')
+      assert_equal nil, farm.get_site('test')
+      assert_equal false, (dir + 'test').exist?
+
+      # test_make_site
+      assert_equal false, (dir + 'test').path.exist?
+      farm.make_site('test', Time.at(0))
+      assert_equal true, (dir + 'test').path.exist?
+      assert_equal true, (dir + 'test/_QwikSite.txt').path.exist?
+      assert_equal "1970-01-01T09:00:00", (dir + 'test/_QwikSite.txt').path.read
+      assert_equal false, (dir + 'test/test').path.exist?
+      assert_equal true, !!farm.exist?('test')
+      assert_equal false, (dir + 'test/test').path.exist?
+
+      site = farm.get_site('test')
+      assert_equal true, (dir + 'test'.path).exist?
+      assert_equal false, (dir + 'test/test').path.exist?
+      #assert_equal true, (dir + 'test/test').path.exist?
+      assert_equal 'test', site.sitename
+
+      # test_raise
+      assert_raise(RuntimeError) {
+	# Creating a site with same name cause error.
+	farm.make_site('test')
+      }
+    end
+
+    def test_all
+      farm = @memory.farm
+
+      # test_top_site
+      site = farm.get_top_site
+      eq @config.default_sitename, site.sitename
+
+      # test_list
+      is "Array", farm.list.class.name
+
+      #assert_equal false, (@dir+"test").exist?
+    end
+
+    def test_sweep
+      farm = @memory.farm
+
+      site = farm.get_site('test')
+      page = site['_SiteConfig']
+      page.put_with_time(':ml_life_time:0', 0)	# Die soon.
+
+      # test_inactive?
+      eq true, site.inactive?
+
+      # test_sweep
+      buried = farm.sweep
+      site = farm.get_site('test')
+      eq nil, site
+
+      # Clean up the grave dir.
+      buried.each {|gravesitepath|
+	gravesitepath.teardown
+	gravesitepath.rmtree
+      }
+    end
+
+    def test_delete
+      farm = @memory.farm
+      site = farm.get_site('test')
+      site_path = site.path
+      t_make_public(Qwik::Farm, :delete)
+      farm.delete(site)
+      eq false, site_path.exist?
+    end
+  end
+end