qwikdoc 0.0.1

data/vendor/qwik/site-report.rb

@@ -0,0 +1,282 @@
+# 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/farm'
+require 'qwik/mail'
+require 'qwik/mailaddress'
+require 'qwik/util-sendmail'
+require 'qwik/util-pathname'
+#require 'qwik/group-config'
+
+module Qwik
+  class SendReportThread
+    def initialize(memory)
+      @memory = memory
+    end
+
+    def start
+      loop {
+	now = Time.now
+	sleep(calc_sleep_time(now))
+	begin
+	  process
+	rescue Exception => e
+	  p e
+	end
+      }
+    end
+
+    def send(interval)
+      farm = @memory.farm
+      farm.list.each {|sitename|
+	site = farm.get_site(sitename)
+	if site.siteconfig['reportmail'] == interval
+	  site.send_report
+	end
+      }
+    end
+  end
+
+  class WeeklySendReportThread < SendReportThread
+    def calc_sleep_time(w)
+      t = Time.at(w.to_i + 60*60*24*7)	# next week
+      nxt = Time.local(t.year, t.mon, t.day, 0, 0, 0, 0)	# next
+      return (nxt - w).to_i
+    end
+
+    def process
+      send('weekly')
+    end
+  end
+
+  class DailySendReportThread < SendReportThread
+    def calc_sleep_time(w)
+      t = Time.at(w.to_i + 60*60*24)	# next day
+      nxt = Time.local(t.year, t.mon, t.day, 0, 0, 0, 0)	# next
+      return (nxt - w).to_i
+    end
+
+    def process
+      send('daily')
+    end
+  end
+
+  class HourlySendReportThread < SendReportThread
+    def calc_sleep_time(w)
+      t = Time.at(w.to_i + 60*60)	# next hour
+      nxt = Time.local(t.year, t.mon, t.day, t.hour, 0, 0, 0)	# next
+      return (nxt - w).to_i
+    end
+
+    def process
+      send('hourly')
+    end
+  end
+
+  class Site
+    def send_report
+      rep = self.make_report
+      return nil if rep.nil?
+      list = self.member.list(false)	# Without obfuscation.
+
+      list.each {|user|
+	mail = generate_report_mail(user, rep)
+	sm = Sendmail.new(@config.smtp_host, @config.smtp_port, @config.test)
+	begin
+	  sm.send(mail)
+	rescue => e
+	  p 'error '+e
+	end
+      }
+      self.delete('_SiteChanged')		# Destructive.
+    end
+
+#    private
+
+    def make_report
+      page = self['_SiteChanged']
+      return nil if page.nil?
+
+      report = ''
+      page.wikidb.array.each {|k, v|
+	user, cmd, pagename = v
+	user = 'anonymous' if user.nil? || user.empty?
+	user = MailAddress.obfuscate(user) if ! user.empty?
+	time = Time.at(k.to_i)
+	time_str = time.strftime('%H:%M')
+	url = self.page_url(pagename)
+	line = "#{time_str} #{user} #{cmd} #{url}\n"
+	report += line
+      }
+      return report
+    end
+
+    def generate_report_mail(user, rep)
+      domainurl = self.host_url
+      siteurl = self.site_url
+      f = self.siteconfig['reportfrom']
+      from = self.ml_address
+      from = f if f && ! f.empty?
+      mail = {
+	:from    => from,
+	:to      => user,
+	:subject => "#{siteurl} Report",
+	:content => "Recent changes on #{siteurl}\n\n#{rep}",
+	:precedence => "bulk",
+      }
+
+      lang = get_lang
+      if lang == 'ja'
+	mail[:subject] = "#{siteurl} ���|�[�g"
+	mail[:content] = "#{siteurl} �ɂ�����A�{���̕ҏW�L�^�ł��B\n\n#{rep}"
+      end
+
+      return mail
+    end
+
+    def get_lang
+      lang = 'en'
+      page = self['_GroupCharset']
+      return lang if page.nil?
+      content = page.load
+      charset = self.class.parse_charset(content)
+      return 'ja' if charset == 'iso-2022-jp'
+      return lang
+    end
+
+    # FIXME: Same as in group-config.rb
+    def self.parse_charset(content)
+      return (content.to_a.first || '').chomp
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestReportThread < Test::Unit::TestCase
+    include TestSession
+
+    def test_all
+      memory = @memory
+
+      # test_weekly_thread
+      @day = Qwik::WeeklySendReportThread.new(memory)
+      t = Time.now
+      eq(true, 0 < @day.calc_sleep_time(t))
+      t = Time.local(2000, 1, 1, 0, 0, 0)	# 2000-01-01T00:00:00
+      eq(86400*7, @day.calc_sleep_time(t))
+      t = Time.local(2000, 1, 1, 0, 30, 0)	# 2000-01-01T00:30:00
+      eq(603000, @day.calc_sleep_time(t))
+
+      # test_daily_thread
+      @day = Qwik::DailySendReportThread.new(memory)
+      t = Time.now
+      eq(true, 0 < @day.calc_sleep_time(t))
+      t = Time.local(2000, 1, 1, 0, 0, 0)	# 2000-01-01T00:00:00
+      eq(86400, @day.calc_sleep_time(t))
+      t = Time.local(2000, 1, 1, 0, 30, 0)	# 2000-01-01T00:30:00
+      eq(84600, @day.calc_sleep_time(t))
+
+      # test_hourly_thread
+      @day = Qwik::HourlySendReportThread.new(memory)
+      t = Time.now
+      eq(true, 0 < @day.calc_sleep_time(t))
+      t = Time.local(2000, 1, 1, 0, 0, 0)	# 2000-01-01T00:00:00
+      eq(3600, @day.calc_sleep_time(t))
+      t = Time.local(2000, 1, 1, 0, 30, 0)	# 2000-01-01T00:30:00
+      eq(1800, @day.calc_sleep_time(t))
+    end
+  end
+
+  class TestSiteReport < Test::Unit::TestCase
+    include TestSession
+
+    def test_all
+      t_add_user
+
+      # test_get_lang
+      t_make_public(Qwik::Site, :get_lang)
+      eq('en', @site.get_lang)
+
+      # test_generate_report_mail
+      t_make_public(Qwik::Site, :generate_report_mail)
+      mail = @site.generate_report_mail('user@e.com', 'test')
+      eq 'test@q.example.com', mail[:from]
+      eq 'user@e.com', mail[:to]
+      eq 'http://example.com/test/ Report', mail[:subject]
+      eq 'Recent changes on http://example.com/test/
+
+test', mail[:content]
+
+      # test_get_lang_ja
+      page = @site.create('_GroupCharset')
+      page.put('iso-2022-jp
+')
+      eq('ja', @site.get_lang)
+
+      # test_generate_report_mail_ja
+      t_make_public(Qwik::Site, :generate_report_mail)
+      mail = @site.generate_report_mail('user@e.com', 'test')
+      eq 'test@q.example.com', mail[:from]
+      eq 'user@e.com', mail[:to]
+      eq 'http://example.com/test/ ���|�[�g', mail[:subject]
+      eq 'http://example.com/test/ �ɂ�����A�{���̕ҏW�L�^�ł��B
+
+test', mail[:content]
+
+      # test_make_report
+      t_make_public(Qwik::Site, :make_report)
+      rep = @site.make_report
+      eq(nil, rep)
+
+      page = @site.create_new
+      page.store('t')
+
+      sitelog = @site.sitelog
+      sitelog.add(0, 'user@e.com', 'save', '1')
+      eq(',0,user@e.com,save,1
+', @site['_SiteChanged'].load)
+      sitelog.add(0, nil, 'save', '1')
+      eq(',0,user@e.com,save,1
+,0,,save,1
+', @site['_SiteChanged'].load)
+
+      # test_make_report2
+      eq('09:00 user@e... save http://example.com/test/1.html
+09:00 anonymous save http://example.com/test/1.html
+', @site.make_report)
+      eq(',0,user@e.com,save,1
+,0,,save,1
+', @site['_SiteChanged'].load)
+
+      # test_send_report
+      @site.send_report
+      eq(['test@q.example.com', 'user@e.com'], $smtp_sendmail[2..3])
+      assert_match(/test@q.example.com/, $smtp_sendmail[4])
+
+      header =
+"From: test@q.example.com
+To: user@e.com
+Subject: http://example.com/test/ =?ISO-2022-JP?B?GyRCJWwlXSE8JUgbKEI=?=
+Content-Type: text/plain; charset=\"ISO-2022-JP\"
+
+"
+      body =
+'http://example.com/test/ �ɂ�����A�{���̕ҏW�L�^�ł��B
+
+09:00 user@e... save http://example.com/test/1.html
+09:00 anonymous save http://example.com/test/1.html
+
+'
+      eq((header+body.set_sourcecode_charset.to_mail_charset),
+	 $smtp_sendmail[4])
+    end
+  end
+end

data/vendor/qwik/site-resolve.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 General Public License version 2.
+#
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/wabisabi-template'
+
+module Qwik
+  class Site
+    # Make index before call this method.  Use parent.
+    def resolve_all_ref(wabisabi)
+      wabisabi.index_each_tag(:a) {|e|
+	resolve_ref(e)
+      }
+      return wabisabi
+    end
+
+    def resolve_ref(w)
+      attr = w.attr
+      return w if attr.nil?
+
+      href = attr[:href]
+      return w if href.nil? || href.empty?
+
+      # External link.
+      if /^(?:http|https|ftp|file):\/\// =~ href
+	w.set_attr(:class=>'external')
+
+	# Make it redirect link.
+	if self.siteconfig['redirect'] == 'true'
+	  w.set_attr(:href=>".redirect?url=#{href}")
+	end
+	
+	return w
+      end
+
+      # Error check.
+      return w if href.include?('?')	# ignore command link
+      return w if href[0] == ?/	# already resolved
+      return w if /\.html\z/ !~ href	# ignore not html file
+
+      linkbase = href.sub(/\.html\z/, '')
+      text = w[2]
+
+      t = linkbase
+      page = self.get_by_title(t)
+      if page && page.key != t
+	w.set_attr(:href=>page.key+'.html')
+	return w
+      end
+
+      # Create a new page link.
+      if ! self.exist?(linkbase)
+	newlinkbase = linkbase.escape
+	edithref = ".new?t=#{newlinkbase}"
+
+	return [:span, {:class=>'new'}, text,
+	  [:a, {:href=>edithref},
+	    [:img, {:src=>'.theme/i/new.png', :alt=>'create'}]]]
+
+      end
+
+      # Rewrite inside to the page title.
+      if linkbase == text
+	t = self[linkbase].get_title
+	return w if t == linkbase
+	w[2] = t
+	return w
+      end
+
+      return w
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestSiteResolve < Test::Unit::TestCase
+    include TestSession
+
+    def ok(e, w)
+      ok_eq(e, @site.resolve_ref(w))
+    end
+
+    def test_all
+      res = session
+
+      ok([:a], [:a])
+      ok([:a, {:href=>''}, 't'], [:a, {:href=>''}, 't'])
+
+      # test_external
+      ok([:a, {:href=>'http://e/', :class=>'external'}, 't'],
+	 [:a, {:href=>'http://e/'}, 't'])
+
+      # test_redirect
+      page = @site['_SiteConfig']
+      page.store(':redirect:true')
+      ok([:a, {:href=>'.redirect?url=http://e/', :class=>'external'}, 't'],
+	 [:a, {:href=>'http://e/'}, 't'])
+      page.store('')
+
+      ok([:a, {:href=>'a?b'}, 't'],
+	 [:a, {:href=>'a?b'}, 't'])
+      ok([:a, {:href=>'/t'}, 't'],
+	 [:a, {:href=>'/t'}, 't'])
+      ok([:a, {:href=>'t'}, 't'],
+	 [:a, {:href=>'t'}, 't'])
+
+      # test_new
+      ok([:span, {:class=>'new'}, 't',
+	   [:a, {:href=>'.new?t=t'},
+	     [:img, {:alt=>'create', :src=>'.theme/i/new.png'}]]],
+	 [:a, {:href=>'t.html'}, 't'])
+
+      page = @site.create('t')
+      ok([:a, {:href=>'t.html'}, 't'], [:a, {:href=>'t.html'}, 't'])
+      page = @site.create_new
+      page.store('t')
+      ok([:a, {:href=>'1.html'}, '1'], [:a, {:href=>'1.html'}, '1'])
+      ok([:a, {:href=>'1.html'}, 't'], [:a, {:href=>'1.html'}, 't'])
+      page.store('*t')
+      ok([:a, {:href=>'1.html'}, 't'], [:a, {:href=>'1.html'}, '1'])
+      ok([:a, {:href=>'1.html'}, 't'], [:a, {:href=>'1.html'}, 't'])
+      ok([:a, {:href=>'1.html'}, 's'], [:a, {:href=>'1.html'}, 's'])
+
+      # test_error
+      ok([:a, {:href=>"\"D_R\", \"/v/w\""}, 't'],
+	 [:a, {:href=>"\"D_R\", \"/v/w\""}, 't'])
+
+      # test_act
+      ok([:a, {:href=>'.attach'}, '.attach'],
+	 [:a, {:href=>'.attach'}, '.attach'])
+
+      # test_plusplus
+      ok([:a, {:href=>'t.html'}, 't'],
+	 [:a, {:href=>'t.html'}, 't'])
+      ok([:span, {:class=>'new'}, 'C++',
+	   [:a, {:href=>'.new?t=C%2B%2B'},
+	     [:img, {:alt=>'create', :src=>'.theme/i/new.png'}]]],
+	 [:a, {:href=>'C++.html'}, 'C++'])
+      page.store('* C++')
+      ok([:a, {:href=>'1.html'}, 'C++'],
+	 [:a, {:href=>'C++.html'}, 'C++'])
+    end
+
+    def test_japanese
+      res = session
+      page = @site.create_new
+      page.store('*��')
+
+      ok([:a, {:href=>'1.html'}, '��'],
+	 [:a, {:href=>'��.html'}, '��'])
+      
+      ok([:span, {:class=>'new'}, '��',
+	   [:a, {:href=>'.new?t=%82%A2'},
+	     [:img, {:alt=>'create', :src=>'.theme/i/new.png'}]]],
+	 [:a, {:href=>'��.html'}, '��'])
+    end
+  end
+
+  class TestSiteResolveAll < Test::Unit::TestCase
+    include TestSession
+
+    def ok_all(e, w)
+      ok_eq(e, @site.resolve_all_ref(w))
+    end
+
+    def test_all
+      res = session
+      # test_ref
+      ok_all([[:span, {:class=>'new'}, 't',
+		 [:a, {:href=>'.new?t=t'},
+		   [:img, {:alt=>'create', :src=>'.theme/i/new.png'}]]]],
+	     [[:a, {:href=>'t.html'}, 't']])
+      page = @site.create('t')
+      ok_all([[:a, {:href=>'t.html'}, 't']],
+	     [[:a, {:href=>'t.html'}, 't']])
+      page = @site.create_new
+      page.store('t')
+      ok_all([[:a, {:href=>'1.html'}, '1']],
+	     [[:a, {:href=>'1.html'}, '1']])
+      page.store('*t')
+      ok_all([[:a, {:href=>'1.html'}, 't']],
+	     [[:a, {:href=>'1.html'}, '1']])
+      ok_all([[:a, {:href=>'.attach'}, '.attach']],
+	     [[:a, {:href=>'.attach'}, '.attach']])
+    end
+
+    def test_all1
+      res = session
+
+      # test_newpage
+      ok_wi([:p, [:span, {:class=>'new'}, 'test',
+		[:a, {:href=>'.new?t=test'},
+		  [:img, {:alt=>'create', :src=>'.theme/i/new.png'}]]]],
+	    '[[test]]')
+      ok_wi([:p, [:span, {:class=>'new'}, '��',
+		[:a, {:href=>'.new?t=%82%A2'},
+		  [:img, {:alt=>'create', :src=>'.theme/i/new.png'}]]]],
+	    '[[��]]')
+    end
+
+    def test_all2
+      res = session
+
+      # test_act
+      ok_wi([:p, 't', [:a, {:href=>'.attach'}, '.attach']],
+	    't[[.attach]]')
+      ok_wi([:p, [:a, {:href=>'.attach'}, '.attach']], '[[.attach]]')
+      ok_wi([:p, [:a, {:href=>'.attach'}, 'FileAttach']],
+	    '[[FileAttach|.attach]]')
+      ok_wi([:p, [:a, {:href=>'.attach'}, '�t�@�C���Y�t']],
+	    '[[�t�@�C���Y�t|.attach]]')
+
+      # test_mojibake
+      ok_wi([:p, 't'], 't')
+      ok_wi([:p, '450�~'], '450�~')
+    end
+
+  end
+end