qwik2md 0.1.0

data/vendor/qwik/lib/qwik/qwik-service.rb

@@ -0,0 +1,341 @@
+# 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 'optparse'
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/config'
+require 'qwik/version'
+require 'qwik/util-pathname'
+require 'qwik/mailaddress'
+require 'pp'
+require 'qwik/qp'
+
+module Qwik
+  class QwikService
+    QWIKWEB_SERVER = '/usr/bin/qwikweb-server'
+    QWIKWEB_PID = '/var/run/qwik/qwikweb.pid'
+    QUICKML_SERVER = '/usr/bin/quickml-server'
+    QUICKML_PID = '/var/run/qwik/quickml.pid'
+
+    def self.main(args)
+      self.new.run(args)
+    end
+
+    def run(args)
+      @config = Config.new
+      args_conf, cmd = QwikService.parse_args('qwik-service', args)
+      @config.update(args_conf)		# config file is specified by args
+      file_conf = Config.load_config_file(@config[:config_file])
+      @config.update(file_conf)
+      @config.update(args_conf)		# Set args again to override.
+
+      cmd, cmd_args = cmd
+
+      if self.respond_to?(cmd)
+	return self.send(cmd) if cmd_args.nil?
+	return self.send(cmd, cmd_args)
+      end
+      warn "Error: unknown cmd [#{cmd}]"
+    end
+
+    def self.parse_args(myprog, args)
+      config = {}
+      cmd = []
+      optionparser = OptionParser.new {|opts|
+	opts.banner = "Usage: #{myprog} [options]"
+	opts.separator ''
+	opts.separator 'Specific options:'
+	opts.on('-c', '--config file', 'Specify config file.') {|a|
+	  config[:config_file] = a
+	}
+	opts.on('-d', '--[no-]debug', 'Run in debug mode.') {|a|
+	  config[:debug] = a
+	}
+	opts.on('--start', 'Start qwikWeb and QuickML services.') {|a|
+	  cmd = [:start]
+	}
+	opts.on('--stop', 'Stop qwikWeb and QuickML services.') {|a|
+	  cmd = [:stop]
+	}
+	opts.on('--restart', 'Restart qwikWeb and QuickML services.') {|a|
+	  cmd = [:restart]
+	}
+	opts.on('--web-start', 'Start qwikWeb services.') {|a|
+	  cmd = [:web_start]
+	}
+	opts.on('--web-stop', 'Stop qwikWeb services.') {|a|
+	  cmd = [:web_stop]
+	}
+	opts.on('--web-restart', 'Restart qwikWeb services.') {|a|
+	  cmd = [:web_restart]
+	}
+	opts.on('--ml-start', 'Start QuickML services.') {|a|
+	  cmd = [:ml_start]
+	}
+	opts.on('--ml-stop', 'Stop QuickML services.') {|a|
+	  cmd = [:ml_stop]
+	}
+	opts.on('--ml-restart', 'Restart QuickML services.') {|a|
+	  cmd = [:ml_restart]
+	}
+	opts.on('--watchlog', 'Watch log continuously.') {|a|
+	  cmd = [:watchlog]
+	}
+	opts.on('--makesite sitename,mailaddr', 'Make a new site.') {|a|
+	  cmd = [:makesite, a]
+	}
+	opts.on('--adduser sitename,mailaddr', 'Add a user.') {|a|
+	  cmd = [:adduser, a]
+	}
+	opts.on('--showpassword mailaddress', 'Show password.') {|a|
+	  cmd = [:showpassword, a]
+	}
+	opts.on('--incgen mailaddress', 'Increment a generation.') {|a|
+	  cmd = [:incgen, a]
+	}
+	opts.separator ''
+	opts.separator 'Debug options:'
+	opts.on('--showinactive', 'Show inactive sites.') {|a|
+	  cmd = [:showinactive, a]
+	}
+	opts.separator ''
+	opts.separator 'Common options:'
+	opts.on_tail('-h', '--help', 'Show this message.') {
+	  puts opts
+	  exit
+	}
+	opts.on_tail('-v', '--version', 'Show version.') {
+	  puts VERSION
+	  exit
+	}
+
+      }
+
+      begin
+	optionparser.parse!(args)
+      rescue OptionParser::ParseError => err
+	puts err.message
+	puts optionparser.to_s
+	exit
+      end
+      if cmd.empty?
+        puts optionparser.to_s
+	exit
+      end
+      return config, cmd
+    end
+
+    def start
+      web_start
+      ml_start
+    end
+
+    def stop
+      web_stop
+      ml_stop
+    end
+
+    def restart
+      stop
+      sleep 1
+      start
+    end
+
+    def web_start
+      start_cmd('Starting qwikWeb services: ',
+		"#{QWIKWEB_SERVER} -c #{@config[:config_file]}")
+    end
+
+    def web_stop
+      pidfile = @config[:web_pid_file] || QWIKWEB_PID
+      pidfile += '-d' if @config[:debug]
+      stop_cmd('Stopping qwikWeb services: ', pidfile)
+    end
+
+    def web_restart
+      web_stop
+      sleep 1
+      web_start
+    end
+
+    def ml_start
+      start_cmd('Starting QuickML services: ',
+		"#{QUICKML_SERVER} -c #{@config[:config_file]}")
+    end
+
+    def ml_stop
+      pidfile = @config[:ml_pid_file] || QUICKML_PID
+      stop_cmd('Stopping QuickML services: ', pidfile)
+    end
+
+    def ml_restart
+      ml_stop
+      sleep 1
+      ml_start
+    end
+
+    def watchlog
+      require 'qwik/qwikweb-watchlog'
+      WatchLog.new(@config).run
+    end
+
+    def makesite(args)
+      require 'qwik/farm'
+      require 'qwik/mailaddress'
+
+      def usage
+	warn 'Usage: qwik-service --makesite sitename,yourmailaddress'
+	exit
+      end
+
+      sitename, mail = args.split(/,/, 2)
+      return usage if sitename.nil? || sitename.empty?
+      return usage if mail.nil? || mail.empty?
+      if ! MailAddress.valid?(mail)
+	warn "Error: invalid mail form [#{mail}]"
+	return usage 
+      end
+
+      memory = ServerMemory.new(@config)
+      farm = Farm.new(@config, memory)
+
+      site = nil
+      begin
+	site = farm.make_site(sitename)
+      rescue Errno::EACCES => e
+	error e.to_s
+      rescue => e
+	error "The site [#{sitename}] is already exist."
+      end
+
+      site = farm.get_site(sitename)
+      site.member.add(mail)
+
+      puts "Creating a new site [#{sitename}] and
+adding an initial user [#{mail}] is completed."
+    end
+
+    def adduser(args)
+      require 'qwik/farm'
+      require 'qwik/mailaddress'
+
+      def usage
+	die 'Usage: qwik-service --adduser sitename,mailaddress'
+      end
+
+      sitename, mail = args.split(/,/, 2)
+      return usage if sitename.nil? || sitename.empty?
+      return usage if mail.nil? || mail.empty?
+      if ! MailAddress.valid?(mail)
+	warn "Error: invalid mail form [#{mail}]"
+	return usage 
+      end
+
+      memory = ServerMemory.new(@config)
+      farm = Farm.new(@config, memory)
+
+      site = farm.get_site(sitename)
+      if site.nil?
+	error "The site [#{sitename}] does not exist."
+      end
+
+      if site.member.exist?(mail)
+	error "A user [#{mail}] is already exist."
+      end
+
+      site.member.add(mail)
+      puts "Adding a new user [#{mail}] to site [#{sitename}] is completed."
+    end
+
+    def showpassword(mail)
+      require 'qwik/password'
+      require 'qwik/mailaddress'
+
+      def usage
+	die 'Usage: qwik-service --showpassword mailaddress'
+      end
+
+      return usage if mail.nil? || mail.empty?
+      if ! MailAddress.valid?(mail)
+	warn "Error: invalid mail form [#{mail}]"
+	return usage 
+      end
+
+      gen = PasswordGenerator.new(@config)
+      puts "mail: #{mail}"
+      puts "pass: #{gen.generate(mail)}"
+    end
+
+    def incgen(mail)
+      require 'qwik/password'
+
+      def usage
+	die 'Usage: qwik-service --showpassword mailaddress'
+      end
+
+      return usage if mail.nil? || mail.empty?
+      if ! MailAddress.valid?(mail)
+	warn "Error: invalid mail form [#{mail}]"
+	return usage 
+      end
+
+      gen = PasswordGenerator.new(@config)
+      g = gen.generation_inc(mail)
+      puts "mail: #{mail}"
+      puts "generation: #{g}"
+      puts "increment generation done."
+    end
+
+    def showinactive(*a)
+      require 'qwik/farm'
+
+      memory = ServerMemory.new(@config)
+      farm = Farm.new(@config, memory)
+      inactive_sites = farm.check_inactive_sites
+      p inactive_sites
+    end
+
+    private
+
+    def die(msg)
+      warn msg
+      exit
+    end
+
+    def error(msg)
+      warn "Error: " + msg
+      exit 1
+    end
+
+    def start_cmd(msg, cmd)
+      print msg
+      system cmd
+      puts
+    end
+
+    def stop_cmd(msg, pid_file)
+      print msg
+      pid = pid_file.path.read.to_i
+      Process.kill(:KILL, pid)
+      puts
+
+#	pid = `cat /usr/local/qwik/log/qwikweb.pid`
+#	pid = `cat /var/run/qwik/qwikweb.pid`
+#	process = `ps ho%c -p $pid`
+#	if [ $process = "qwikweb-server" ] ; then
+#		kill $pid
+#		echo 
+#	else
+#		echo "Stopping failed."
+#	fi
+    end
+  end
+end
+
+if $0 == __FILE__
+  args = ARGV
+ #args << '-d'		# force debug mode
+  Qwik::QwikService.main(args)
+end

data/vendor/qwik/lib/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/lib/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/lib/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/lib/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/lib/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/lib/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/lib/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/lib/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