qwikdoc 0.0.1

data/vendor/qwik/site-member.rb

@@ -0,0 +1,230 @@
+# 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 Site
+    def member
+      @member = SiteMember.new(@config, self) if ! defined?(@member)
+      return @member
+    end
+  end
+
+  class SiteMember
+    include Enumerable
+
+    def initialize(config, site)
+      @config = config
+      @site = site
+      @quickml_member = QuickMLMember.new(@config, @site)
+    end
+
+    def update_group_files
+      @quickml_member.update_group_files
+    end
+
+    def exist?(user)
+      return true if exist_qwik_members?(user)
+      return true if @quickml_member.exist?(user)
+      false
+    end
+
+#act-ring-invite.rb:125: next if @site.member.exist_qwik_members?(guest_mail)
+#act-ring-new.rb:60: return 'exist' if @site.member.exist_qwik_members?(guest_mail)
+    def exist_qwik_members?(user)
+      return false if db_page.nil?
+      db.exist?(user)
+    end
+
+    def add(user, invite=nil)
+      db.add(user, invite)
+    end
+
+    def remove(user)
+      db.remove(user) if db_page
+    end
+
+    def list(obf=true)
+      ar = []
+      ar += db.hash.keys.to_a if db_page
+      ar += @quickml_member.list
+      ar = ar.uniq
+      if obf && @site.is_open?
+	ar = ar.map {|u|
+	  MailAddress.obfuscate(u)
+	}
+      end
+      return ar
+    end
+
+    def each
+      list.each {|u|
+	yield u
+      }
+    end
+
+    private
+
+    def db_page
+      k = 'SiteMember'
+      return @site[k] if @site.exist?(k)
+      k = '_'+k
+      return @site[k] if @site.exist?(k)
+      return @site.create(k)
+    end
+
+    def db
+      page = db_page
+      return page.wikidb
+    end
+  end
+
+  class QuickMLMember	# QuickML compatible
+    include Enumerable
+
+    def initialize(config, site)
+      @config = config
+      @site = site
+      @str = nil
+      @ar = []
+
+      check_new
+    end
+
+    def update_group_files
+      # @group_db.update_files
+    end
+
+    def list
+      check_new
+      @ar
+    end
+
+    def exist?(user)
+      list.include?(user)
+    end
+
+    private
+
+    def check_new
+      str = get_content
+      return if str == @str
+      @str = str
+      @ar = QuickMLMember.check_new_internal(@str)
+    end
+
+    def get_content
+      f = @site.path+'_GroupMembers.txt'
+      return f.read if f.exist?
+
+      f = @site.path+',members'
+      return f.read if f.exist?
+
+      return nil
+    end
+
+    def self.check_new_internal(str)
+      ar = []
+      return ar if str.nil?
+      str.each {|line|
+	firstchar = line[0, 1]
+	next if firstchar == '#' || firstchar == ';'
+	k, v = line.chomp.split
+	next if k.nil?
+	ar << k
+      }
+      return ar
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestSiteMember < Test::Unit::TestCase
+    include TestSession
+
+    alias ok assert
+
+    def test_all
+      user = 'user@e.com'
+      member = @site.member
+
+      # test_exist?
+      page = @site.create('_SiteMember')
+      ok_eq(false, member.exist?(user))
+      page.store(user)
+      ok_eq(false, member.exist?(user))
+      page.store(',user@e.com')
+      ok_eq(true,  member.exist?(user))
+      page.store(',user@e.com,')
+      ok_eq(true,  member.exist?(user))
+      page.store(',user@e.com,a')
+      ok_eq(true,  member.exist?(user))
+      page.store(',user@e.com,a,')
+      ok_eq(true,  member.exist?(user))
+
+      # test_remove
+      member.remove(user)
+      ok_eq(false, member.exist?(user))
+      ok_eq('', page.load)
+
+      # test_add
+      member.add(user)
+      ok_eq(true,  member.exist?(user))
+
+      # test_invite
+      guest = 'guest@example.com'
+      member.add(guest, user)
+      ok_eq(true,  member.exist?(guest))
+
+      ok_eq(",user@e.com,\n,guest@example.com,user@e.com\n", page.load)
+      assert(member.list.include?(user))
+      assert(member.list.include?(guest))
+      member.remove(guest)
+      ok_eq(true, !member.exist?(guest))
+
+      @site.delete('_SiteMember')
+      ok_eq(true, !member.exist?(user))
+      ok_eq([], member.list)
+
+      # test_quickml_member
+      ok_eq(true, !member.exist?(user))
+      store(user)
+      ok_eq(true, member.exist?(user))
+
+      ok_eq([user], member.list)
+      store('# user@e.com')
+      ok_eq(true, !member.exist?(user))
+
+      store('; user@e.com')
+      ok_eq(true, !member.exist?(user))
+
+      store('')
+      ok_eq(true, !member.exist?(user))
+      ok_eq([], member.list)
+
+      # test_obfuscate
+      page = @site['_SiteConfig']
+      assert_match(/:open:false/, page.load)
+      ok_eq(false, @site.is_open?)
+      page.store(':open:true')
+      ok_eq(':open:true', page.load)
+      ok_eq(true, @site.is_open?)
+
+      member.add(user)
+      member.add(guest)
+      assert(member.list.include?('user@e...'))
+      assert(member.list.include?('guest@e...'))
+    end
+
+    def store(content)	# quickml_member
+      (@dir+'_GroupMembers.txt').put(content)
+    end
+  end
+end

data/vendor/qwik/site-monitor.rb

@@ -0,0 +1,97 @@
+# 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 'monitor'
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+
+module Qwik
+  class Site
+    def sitemonitor
+      @sitemonitor = SiteMonitor.new(@config, self) unless defined? @sitemonitor
+      return @sitemonitor
+    end
+  end
+
+  class SiteMonitor
+    MAX_LISTENER = 5
+
+    def initialize(config, site)
+      @config = config
+      @site = site
+
+      @buf = []
+      @buf.extend(MonitorMixin)
+      @empty_cond = @buf.new_cond
+
+      @listener = []
+    end
+
+    def shout(event)
+      @buf.synchronize {
+	@buf.push(event)
+	@empty_cond.broadcast
+      }
+    end
+
+    def listen(action)
+      len = @listener.length
+#      if MAX_LISTENER < len
+#	return
+#      end
+
+      @listener << action
+
+      index = @buf.length
+      loop {
+	@buf.synchronize {
+	  @empty_cond.wait_while {
+	    @buf[index].nil?
+	  }
+	  ev = @buf[index]
+	  index += 1
+	  yield(ev)
+	}
+      }
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestMonitor < Test::Unit::TestCase
+    include TestSession
+
+    def listen_one(monitor)
+      monitor.listen(nil) {|ev|
+	return ev
+      }
+    end
+
+    def test_monitors
+      monitor = @site.sitemonitor
+
+      t1 = Thread.new {
+	ev = listen_one(monitor)
+	ok_eq(1, ev)
+      }
+
+      t2 = Thread.new {
+	ev = listen_one(monitor)
+	ok_eq(1, ev)
+      }
+
+      sleep 0.01
+      monitor.shout(1)
+
+      t1.join
+      t2.join
+    end
+
+  end
+end

data/vendor/qwik/site-pages.rb

@@ -0,0 +1,62 @@
+# 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 Site
+    def db();		@pages.db;		end
+    def backupdb();	@pages.backupdb;	end
+
+    def last_page_time; @pages.last_page_time;	end
+    def [](k)		@pages[k];		end
+    def exist?(k)	@pages.exist?(k);	end
+    def each(*a, &b)	@pages.each(*a, &b);	end
+    def each_all(*a, &b) @pages.each_all(*a, &b);	end
+    def to_a(*a)	@pages.to_a(*a);	end
+    def create(k)	@pages.create(k);	end
+    def create_new();	@pages.create_new;	end
+    def get_new_id();	@pages.get_new_id;	end
+    def delete(k)	@pages.delete(k);	end
+    def title_list();	@pages.title_list;	end
+    def date_list();	@pages.date_list;	end
+#   def path(f)		@pages.path(f);		end
+    def close();	@pages.close;		end
+    def get_by_title(t)	@pages.get_by_title(t);	end
+
+    def get_superpage(k)
+      page = self[k]
+      return page if page
+      page = self["_#{k}"]
+      return page if page
+      return nil
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-module-session'
+  require 'qwik/farm'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestSitePages < Test::Unit::TestCase
+    include TestSession
+
+    def test_all
+      # test_get_superpage
+      eq nil, @site.get_superpage('t')		# Not found.
+      page = @site.create '_t'
+      eq '_t', @site.get_superpage('t').key	# There is a private page.
+      page = @site.create 't'
+      eq 't', @site.get_superpage('t').key	# There is a public page.
+
+      # test_get_superpage_for_super_page
+      eq '_SideMenu', @site.get_superpage('SideMenu').key
+      page = @site.create 'SideMenu'
+      eq 'SideMenu', @site.get_superpage('SideMenu').key
+    end
+  end
+end

data/vendor/qwik/site-plan.rb

@@ -0,0 +1,139 @@
+# 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-time'
+
+module Qwik
+  class Site
+    # ============================== plan
+    PLAN_RE = /\Aplan_(\d\d\d\d\d\d\d\d)\z/
+
+    def get_pages_with_date
+      pages = []
+      self.each {|page|
+	if PLAN_RE =~ page.key
+          datestr = $1
+	  date = Time.parse(datestr).to_i
+	  pages << [page.key, date.to_i]
+	  next
+	end
+
+=begin
+	tags = page.get_tags
+	if tags
+	  tags.each {|tag|
+	    date = Time.date_parse(tag)
+	    if date
+	      pages << [page.key, date.to_i]
+	    end
+	  }
+	end
+=end
+      }
+      return pages
+    end
+
+    # ============================== footer
+    def get_footer(now)
+      pages = get_pages_with_date
+      footer = ''
+      footer << generate_plan(pages, now)
+      return footer
+    end
+
+    private
+
+    def generate_plan(pages, now)
+      return '' if pages.empty?
+
+      # Select near futer.  From yesterday to 1 month in the future.
+      pages = plan_select_future(pages, now)
+      pages = plan_select_near_future(pages, now)
+      return '' if pages.empty?
+
+      # Sort by date.
+      pages = pages.sort_by {|pagekey, datei|
+	datei
+      }
+
+      str = "* Plan\n"
+      pages.each {|pagekey, datei|
+	date = Time.at(datei)
+	date_abbr = Time.date_abbr(now, date)
+
+	page = self[pagekey]
+	title = page.get_title
+
+	url = self.page_url(pagekey)
+
+	str << "- [#{date_abbr}] #{title}\n"
+	str << url+"\n"
+      }
+
+      return str
+    end
+
+    def plan_select_future(pages, now)
+      day = 60*60*24		# 1 day
+      nowi = now.to_i
+      return pages.select {|pagekey, datei|
+	diff = datei - nowi
+	-day < diff
+      }
+    end
+
+    def plan_select_near_future(pages, now)
+      month = 60*60*24*30	# 1 month
+      nowi = now.to_i
+      return pages.select {|pagekey, datei|
+	diff = datei - nowi
+	diff < month
+      }
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestSitePlan < Test::Unit::TestCase
+    include TestSession
+
+    def create_plan_pages(site)
+      page = site.create 'plan_19700101'
+      page.store("* t")
+      page = site.create 'plan_19700115'
+      page.store("* t")
+      page = site.create 'plan_19700201'
+      page.store("* t")
+      page = site.create 'plan_19710101'
+      page.store("* t")
+    end
+
+    def test_site_plan
+      create_plan_pages(@site)
+      pages = @site.get_pages_with_date
+      eq [["plan_19700101", -32400],
+	["plan_19700115", 1177200],
+	["plan_19700201", 2646000],
+	["plan_19710101", 31503600]],
+	pages
+    end
+
+    def test_site_footer
+      res = session
+
+      eq '', @site.get_footer(Time.at(0))
+
+      create_plan_pages(@site)
+      eq "* Plan\n- [01-01] t\nhttp://example.com/test/plan_19700101.html\n- [01-15] t\nhttp://example.com/test/plan_19700115.html\n", @site.get_footer(Time.at(0))
+
+      eq "* Plan\n- [01-15] t\nhttp://example.com/test/plan_19700115.html\n- [02-01] t\nhttp://example.com/test/plan_19700201.html\n", @site.get_footer(Time.at(60*60*24*10))	# 10 days later.
+    end
+  end
+end