qwikdoc 0.0.1

data/vendor/qwik/qwik.rb

@@ -0,0 +1,5 @@
+# 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 'qwik/server'

data/vendor/qwik/qwikweb-adduser.rb

@@ -0,0 +1,34 @@
+# 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.
+
+=begin
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/config'
+require 'qwik/farm'
+
+module Qwik
+  class AddUser
+    def self.main(argv)
+      if argv.length != 2
+	puts "Usage: qwikweb-adduser [sitename] [mail address]"
+	exit
+      end
+
+      config = Config.new
+      memory = ServerMemory.new(config)
+      farm = Farm.new(config, memory)
+      sitename = argv.shift
+      mail = argv.shift
+      begin
+	site = farm.get_site(sitename)
+	site.member.add(mail)
+      rescue
+	puts 'Error: The site does not exist.'
+	exit 1
+      end
+      puts 'Adding a new user completed.'
+    end
+  end
+end
+=end

data/vendor/qwik/qwikweb-catalog-validator.rb

@@ -0,0 +1,110 @@
+# 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/gettext'
+include Qwik
+include Qwik::GetText
+
+module Qwik
+  class CatalogValidator
+    def self.main(argv)
+      if argv.length < 2
+	puts "usage: ruby catalog-validator.rb <catalog> <source...>"
+	exit
+      end
+
+      catalog_file = argv.shift
+      catalog = load_catalog(catalog_file)
+      set_catalog(catalog)
+
+      ok = true
+      argv.each {|source_file|
+	validator = self.new(source_file, catalog)
+	validator.validate
+	validator.error_messages.each {|message|
+	  puts message
+	}
+	ok = (ok and validator.ok?)
+      }
+      if ok then exit else exit(1) end
+    end
+
+    def initialize (source_file_name, messages)
+      @source_file_name  = source_file_name
+      @gettext_catalog = messages
+      @error_messages = []
+    end
+    attr_reader :error_messages
+
+    def read_file_with_numbering (file_name)
+      content = ''
+      File.open(file_name).each_with_index {|line, idx|
+        lineno = idx + 1
+        content << line.gsub(/\b_\(/, "_[#{lineno}](")
+      }
+      content
+    end
+
+    def collect_messages (content)
+      messages = []
+      while content.sub!(/\b_\[(\d+)\]\(("(?:\\"|.)*?").*?\)/m, "")
+        lineno  = $1.to_i
+        message = eval($2)
+        messages.push([lineno, message])
+      end
+      messages
+    end
+
+    def validate
+      @gettext_catalog or return
+      content = read_file_with_numbering(@source_file_name)
+      messages = collect_messages(content)
+      messages.each {|lineno, message|
+        translated_message = @gettext_catalog[message]
+        if not translated_message
+          message = 
+            sprintf('%s:%d: %s', @source_file_name, lineno, message.inspect)
+          @error_messages.push(message)
+        elsif message.count('%') != translated_message.count('%')
+          message = sprintf("%s:%d: %s => # of %% mismatch.",
+                            @source_file_name, 
+                            lineno, message.inspect, translated_message)
+          @error_messages.push(message)
+        end
+      }
+    end
+
+    def ok?
+      @error_messages.empty?
+    end
+  end
+end
+
+if $0 == __FILE__
+  Qwik::CatalogValidator.main(ARGV)
+end
+
+if defined?($test) && $test
+  require 'qwik/testunit'
+
+  class TestCatalogValidator < Test::Unit::TestCase
+    include Qwik::GetText
+
+    def test_dummy
+    end
+
+    def nutest_validator
+     #validator = CatalogValidator.new($0, CATALOG)
+      validator = Qwik::CatalogValidator.new($0, CATALOG)
+      validator.validate
+      ok_eq(true, validator.ok?)
+
+     #validator = CatalogValidator.new($0, {})
+      validator = Qwik::CatalogValidator.new($0, {})
+      validator.validate
+      ok_eq(false, validator.ok?)
+    end
+  end
+end

data/vendor/qwik/qwikweb-incgen.rb

@@ -0,0 +1,28 @@
+# 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.
+
+=begin
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/config'
+require 'qwik/password'
+
+module Qwik
+  class IncrementGeneration
+    def self.main(argv)
+      if argv.length == 0
+	puts 'usage: qwikweb-incgen [mailaddress]'
+	exit
+      end
+
+      config = Config.new
+      gen = PasswordGenerator.new(config)
+      mail = argv.shift
+      g = gen.generation_inc(mail)
+      puts 'mail: '+mail
+      puts 'generation: '+g.to_s
+      puts 'increment generation done.'
+    end
+  end
+end
+=end

data/vendor/qwik/qwikweb-makesite.rb

@@ -0,0 +1,41 @@
+# 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.
+
+=begin
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/config'
+require 'qwik/farm'
+
+module Qwik
+  class MakeSite
+    def self.main(argv)
+      return usage if argv.length != 2
+
+      config = Config.new
+      memory = ServerMemory.new(config)
+      farm = Farm.new(config, memory)
+
+      sitename = argv.shift
+      mail = argv.shift
+      return usage if sitename.nil? || sitename.empty?
+      return usage if mail.nil? || mail.empty?
+
+      begin
+	site = farm.make_site(sitename)
+	site = farm.get_site(sitename)
+	site.member.add(mail)
+      rescue => e
+	puts 'Error: The site is already exist.'
+	exit 1
+      end
+      puts 'Creating a new site completed.'
+    end
+
+    def self.usage
+      puts 'usage: qwikweb-makesite [sitename] [your mail address]'
+      exit
+    end
+  end
+end
+=end

data/vendor/qwik/qwikweb-server.rb

@@ -0,0 +1,44 @@
+# 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/config'
+require 'qwik/loadlib'
+require 'qwik/server'
+
+module Qwik
+  class QwikWebServer
+    def self.main(args)
+      return if defined?($qwikweb_server_running) && $qwikweb_server_running
+
+      File.umask(0)
+
+      config = Config.new
+      Config.load_args_and_config(config, $0, args)
+
+      # Load all actions here.
+      LoadLibrary.load_libs_here('qwik/act-*.rb')
+      LoadLibrary.load_libs_here('qwik/plugin/act-*.rb')
+
+      if config[:server_type] == 'webrick'
+	server = Server.new(config)
+      elsif config[:server_type] == 'mongrel'
+	require 'qwik/mongrel-server'
+	server = MongrelServer.new(config)
+      else
+	puts 'Error'
+	exit
+      end
+
+      $qwikweb_server_running = true
+      server.start
+    end
+  end
+end
+
+if $0 == __FILE__
+  args = ARGV
+  args << '-d'	# force debug mode
+  Qwik::QwikWebServer.main(args)
+end

data/vendor/qwik/qwikweb-showpassword.rb

@@ -0,0 +1,26 @@
+# 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.
+
+=begin
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/config'
+require 'qwik/password'
+
+module Qwik
+  class ShowPassword
+    def self.main(argv)
+      if argv.length == 0
+	puts 'usage: qwikweb-showpassword [mailaddress]'
+	exit
+      end
+
+      config = Config.new
+      gen = PasswordGenerator.new(config)
+      mail = argv.shift
+      puts 'mail: '+mail
+      puts 'pass: '+gen.generate(mail)
+    end
+  end
+end
+=end

data/vendor/qwik/qwikweb-watchlog.rb

@@ -0,0 +1,67 @@
+# 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/config'
+require 'qwik/util-pathname'
+require 'qwik/logger'
+
+module Qwik
+  class WatchLog
+    def self.main(args)
+      config = Config.new
+      Config.load_args_and_config(config, 'qwikweb-watchlog', args)
+      self.new(config).run
+    end
+
+    def initialize(config)
+      @config = config
+    end
+
+    # http://colinux:9190/qtest/
+    def run
+      pid_path = @config.web_pid_file.path
+      if pid_path.exist?
+	str = pid_path.read
+	puts 'Process id: '+str
+      end
+
+      p error_log = @config.log_dir.path + Logger::WEB_ERROR_LOG
+      p access_log = @config.log_dir.path + Logger::ACCESS_LOG
+      p web_access_log = @config.log_dir.path + Logger::WEB_ACCESS_LOG
+
+      t1 = start_tail_f(error_log.to_s)
+      t2 = start_tail_f(web_access_log.to_s)
+      loop { sleep 1 }
+    end
+
+    def start_tail_f(file)
+      return Thread.new {
+        open(file) {|log|
+	  log.seek(0, IO::SEEK_END)
+          tail_f(log) {|line| puts line }
+        }
+      }
+    end
+
+    def tail_f(input)
+      loop {
+        line = input.gets
+        yield line if line
+        if input.eof?
+          sleep 1
+          input.seek(input.tell)
+        end
+      }
+    end
+  end
+end
+
+if $0 == __FILE__
+  argv = ARGV
+#  argv << '-d'
+#  argv << '-c'
+#  argv << 'config-debug.txt'
+  Qwik::WatchLog.main(argv)
+end

data/vendor/qwik/request-path.rb

@@ -0,0 +1,304 @@
+# 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 Qwik
+  class UnknownPathException < Exception; end
+
+  class Request
+    attr_reader :sitename
+    attr_accessor :base
+    attr_reader :ext
+    attr_accessor :plugin
+    attr_reader :ext_args
+    attr_accessor :path_args
+    attr_reader :path_query
+    attr_reader :unparsed_uri
+
+    def parse_path(path)
+      if @unparsed_uri.nil?
+	@unparsed_uri = path	# for test
+      end
+
+      @sitename, @base, @ext, @plugin, @path_args, @path_query, @ext_args =
+	Request.parse_path(path, @config.default_sitename)
+
+      return [@sitename, @base, @ext]	# only for test
+    end
+
+    def self.parse_path(path, default_sitename)
+      raise "first character must be '/'" unless path[0] == ?/
+
+      path = remove_quote(path)
+
+      path = normalize_path(path)	# for security
+
+      # OBSOLETE: Patch for redirect plugin (old format).
+      if /\A\/((?:http|https|ftp|file):\/.+)\z/ =~ path
+	return [default_sitename, '', '', 'redirect', [$1], {}, []]
+      end
+
+      pas = path.split('/')
+      pas.shift		# Drop the first null element.
+
+      # Ad hoc: Error handling.
+      if pas.length == 1
+	if ! pas.first.include?('.') && /\/\z/ !~ path
+	  return [default_sitename, pas.first, '', nil, [], {}, []]
+	end
+      end
+
+      sitename = base = ext = plugin = nil
+      path_args = []
+      path_query = {}
+      ext_args = []
+
+      pas.each_with_index {|pa, i|
+	if plugin || ext
+	  # path_args is catch all.
+	  path_args << pa
+	  next
+	end
+
+	# Maybe sitename.
+	if i == 0
+	  if Request.sitename?(pa)
+	    sitename = pa
+	  end
+	  next if sitename	# Skip.
+	end
+
+	ff = pa.split('.')
+
+	# No end with dot.
+	if ff[1].nil? || ff[1].empty?
+	  if ff[0] == 'theme' || ff[0] == 'attach'
+	    ff = ['', ff[0]]
+	  else
+	    base = ''
+	    ext = ''
+	    return [sitename, base, ext, plugin, path_args, path_query, ext_args]
+	  end
+	end
+
+	# Start with dot -> Action plugin.
+	if ff[0].empty?
+	  raise 'no two action' unless plugin.nil?	# No two plugins.
+	  plugin = ff[1]
+	  next
+	end
+
+	# Accept only two.
+	if 2 < ff.length
+	  base = ff.shift
+	  ext = ff.pop
+	  ext_args = ff
+	  next
+	end
+
+	raise 'base should be one.' if base	# base should be one.
+	base = ff[0]
+	ext = ff[1]
+      }
+
+      # sitename is not specified.
+      sitename = default_sitename if sitename.nil?
+
+      if base.nil?
+	base, ext = ['FrontPage', 'html']
+      end
+
+      path_args.each {|pa|
+	ff = pa.split('=')
+	if ff.length == 2
+	  path_query[ff.first] = ff.last
+	end
+      }
+
+      base.set_url_charset
+
+      return [sitename, base, ext, plugin, path_args, path_query, ext_args]
+    end
+
+    private
+
+    def init_path
+      @sitename = nil
+      @base = nil
+      @ext = nil
+      @plugin = nil
+      @ext_args = []
+      @path_args = []
+      @path_query = {}
+      @unparsed_uri = nil
+    end
+
+    # For Excite Translate Bug.
+    def self.remove_quote(path)
+      if /\A(.+)\"(.+)\"\z/ =~ path
+	return $1+$2
+      end
+      return path
+    end
+
+    # copied from webrick/httputils.rb
+    def self.normalize_path(path)
+      raise "abnormal path `#{path}'" if path[0] != ?/
+      ret = path.dup
+
+      ret.gsub!(%r{/+}o, '/')                    # //      => /
+      while ret.sub!(%r:/\.(/|\z):o, '/'); end   # /.      => /
+      begin                                      # /foo/.. => /foo
+        match = ret.sub!(%r{/([^/]+)/\.\.(/|\z)}o){
+          if $1 == '..'
+            raise "abnormal path `#{path}'"
+          else
+            '/'
+          end
+        }
+      end while match
+
+      raise "abnormal path `#{path}'" if %r{/\.\.(/|\z)} =~ ret
+      return ret
+    end
+
+    def self.sitename?(pa)
+      ff = pa.split('.')
+      return false if ff.first.empty? # action
+      len = ff.length
+      return true if len == 1
+      # contain dot, and last is com or jp is external site
+      return true if 1 < len && %w(com jp).include?(ff.last)
+      return false
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/testunit'
+  require 'qwik/config'
+  require 'qwik/request'
+  $test = true
+end
+
+if defined?($test) && $test
+  require 'qwik/test-module-public'
+
+  class TestRequestPath < Test::Unit::TestCase
+    include TestModulePublic
+
+    def test_class_method
+      c = Qwik::Request
+      ok_eq('a',   c.remove_quote('a'))
+      ok_eq("\"a\"", c.remove_quote("\"a\""))
+      ok_eq('ab',  c.remove_quote("a\"b\""))
+      ok_eq("'a'", c.remove_quote("'a'"))
+    end
+
+    def test_all
+      config = Qwik::Config.new
+      req = Qwik::Request.new(config)
+
+      # test_parse_path
+#      t_make_public(Qwik::Request, :parse_path)
+      ok_eq(['www', 'FrontPage', 'html'], req.parse_path('/'))
+      ok_eq(['www', 'FrontPage', 'html'],
+	    req.parse_path('/FrontPage.html'))
+      ok_eq(['test', 't', 'html'], req.parse_path('/test/t.html'))
+      ok_eq(['test', 'FrontPage', 'html'], req.parse_path('/test/'))
+      ok_eq(['www', 'test', ''], req.parse_path('/test'))
+      ok_eq(['test', 'FrontPage', 'html'],
+	    req.parse_path('/test/FrontPage.html'))
+      ok_eq(['example.com', 'FrontPage', 'html'],
+	    req.parse_path('/example.com/'))
+      ok_eq(['www.example.com', 'FrontPage', 'html'],
+	    req.parse_path('/www.example.com/'))
+
+      # test_theme_plugin
+      req.parse_path('/.theme/all.css')
+      ok_eq(['theme', ['all.css']], [req.plugin, req.path_args])
+      ok_eq(['www', 'FrontPage', 'html'],
+	    req.parse_path('/.theme/all.css'))
+
+      req.parse_path('/.theme/qwikgreen/qwikgreen.css')
+      ok_eq(['theme', ['qwikgreen', 'qwikgreen.css']],
+	    [req.plugin, req.path_args])
+
+      req.parse_path('/.login')
+      ok_eq(['login', []], [req.plugin, req.path_args])
+
+      req.parse_path('/.login/user@e.com/44484125/')
+      ok_eq(['login', ['user@e.com', '44484125']],
+	    [req.plugin, req.path_args])
+
+      ok_eq(['www', 'FrontPage', 'html'],
+	    req.parse_path('/FrontPage.html/sid=000/'))
+      ok_eq(['sid=000'], req.path_args)
+      ok_eq({'sid'=>'000'}, req.path_query)
+
+      # test_parse_plugin
+      assert_raise(RuntimeError){ req.parse_path('test/') }
+      ok_eq(['test', 'FrontPage', 'html'],
+	    req.parse_path('/test/.attach/t.txt'))
+      ok_eq(['attach', ['t.txt']], [req.plugin, req.path_args])
+      ok_eq(['www', 'FrontPage', 'html'],
+	    req.parse_path('/.attach/s.jpg'))
+      ok_eq(['attach', ['s.jpg']], [req.plugin, req.path_args])
+
+      ok_eq(['www', 'FrontPage', 'html'], req.parse_path('/.new'))
+      ok_eq(['new', []], [req.plugin, req.path_args])
+
+      ok_eq(['test', 'test', 'zip'], req.parse_path('/test/test.zip'))
+      ok_eq('zip', req.ext)
+
+      ok_eq(['www', 'test', 'zip'], req.parse_path('/test.zip'))
+      ok_eq('zip', req.ext)
+
+      ok_eq(['e.com', 'FrontPage', 'html'],
+	    req.parse_path('/e.com/.attach/t.png'))
+      ok_eq(['attach', ['t.png']],
+	    [req.plugin, req.path_args])
+
+      ok_eq(['www', 'www', 'zip'], req.parse_path('/www.zip'))
+      ok_eq(['www', 'www', 'rss'], req.parse_path('/www.rss'))
+
+      ok_eq(['www', 'favicon', 'ico'], req.parse_path('/favicon.ico'))
+
+      # test_attach
+      ok_eq(['www', 'FrontPage', 'html'],
+	    req.parse_path('/.attach/s.jpg'))
+      ok_eq(['attach', ['s.jpg']], [req.plugin, req.path_args])
+
+      ok_eq(['www', 'FrontPage', 'html'],
+	    req.parse_path('/.attach/thumb/s.jpg'))
+      ok_eq(['attach', ['thumb', 's.jpg']],
+	    [req.plugin, req.path_args])
+
+      # test_parse_sitename
+      c = Qwik::Request
+      ok_eq(true,  c.sitename?('test'))
+      ok_eq(true,  c.sitename?('e.com'))
+      ok_eq(true,  c.sitename?('www.e.com'))
+      ok_eq(false, c.sitename?('www.new'))
+      ok_eq(false, c.sitename?('www.zip'))
+      ok_eq(false, c.sitename?('www.rss'))
+      ok_eq(false, c.sitename?('hoge.1.backup'))
+
+      # test_ext_args
+      ok_eq(['www', 'hoge', 'backup'],
+	    req.parse_path('/hoge.backup'))
+      ok_eq([], req.ext_args)
+
+      ok_eq(['www', 'hoge', 'backup'],
+	    req.parse_path('/hoge.1.backup'))
+      ok_eq(['1'], req.ext_args)
+
+      ok_eq(['test', 'hoge', 'backup'],
+	    req.parse_path('/test/hoge.1.backup'))
+      ok_eq(['1'], req.ext_args)
+
+    end
+  end
+end