qwikdoc 0.0.1

data/vendor/qwik/act-sitelog.rb

@@ -0,0 +1,118 @@
+# 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 Action
+    D_SiteLog = {
+      :dt => 'Show SiteLog',
+      :dd => 'You can see sitelog of this site.',
+      :dc => "* How to
+ [[.sitelog]]
+Follow this link. [[.sitelog]]
+"
+    }
+
+    D_SiteLog_ja = {
+      :dt => '�ҏW����',
+      :dd => '���܂܂ł̕ҏW���������邱�Ƃ��ł��܂��B',
+      :dc => "* �g����
+ [[.sitelog]]
+[[.sitelog]]��H�����������B
+"
+    }
+
+    # sitelog viewer
+    def plg_sitelog
+      dl = [:dl]
+      @site.sitelog.list.each {|k, v|
+	user, cmd, pagename = v
+	user = 'anonymous' if user.nil? || user.empty?
+	user = MailAddress.obfuscate(user) if ! user.empty?
+	dl << [:dt, "#{Time.at(k.to_i).ymdx} - #{user}"]
+	dl << [:dd, "#{cmd}: ", [:a, {:href=>"#{pagename}.html"}, pagename]]
+      }
+      return dl
+    end
+
+    # sitelog viewer
+    def act_sitelog
+      return c_plain('SiteLog') {
+	[:div, {:class=>'day'},
+	  [:div, {:class=>'section'}, plg_sitelog]]
+      }
+    end
+
+    def c_time_str(time=nil)
+      time ||= @req.start_time
+      return sprintf('%.6f', time.to_i + time.usec/1000000.0)
+    end
+
+    def c_make_log(cmd, pagename=@req.base)
+      timestr = c_time_str
+      @site.log(timestr, @req.user, cmd, pagename)
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActSiteLog < Test::Unit::TestCase
+    include TestSession
+
+    def test_time_str
+      res = session
+      assert_match(/\d+\.\d{6}/, @action.c_time_str)
+      ok_eq('0.000000', @action.c_time_str)
+    end
+
+    def test_sitelog
+      t_add_user
+
+      # Create a page.
+      res = session('POST /test/.new?t=TestPage'){|req|
+	req.start_time += 1
+      }
+      ok_eq(',1.000000,user@e.com,create,TestPage
+', @site['_SiteLog'].load)
+
+      # Save a page.
+      res = session('POST /test/TestPage.save?contents=t'){|req|
+	req.start_time += 2
+      }
+      ok_eq(',1.000000,user@e.com,create,TestPage
+,2.000000,user@e.com,save,TestPage
+', @site['_SiteLog'].load)
+
+      # Delete a page.
+      res = session('POST /test/TestPage.save?contents='){|req| # null content
+	req.start_time += 3
+      }
+      ok_eq(',1.000000,user@e.com,create,TestPage
+,2.000000,user@e.com,save,TestPage
+,3.000000,user@e.com,delete,TestPage
+', @site['_SiteLog'].load)
+
+      # See the SiteLog.
+      page = @site.create_new
+      page.store('{{sitelog}}')
+      res = session('/test/1.html'){|req|
+	req.start_time += 4
+      }
+      div = @res.body.get_path("//div[@class='section']")
+      div = div.inside.remove_comment.get_single
+      ok_eq([:dd, 'create: ',
+	      [:a, {:href=>'TestPage.html'}, 'TestPage']], div[2])
+      ok_eq([:dd, 'save: ',
+	      [:a, {:href=>'TestPage.html'}, 'TestPage']], div[4])
+      ok_eq([:dd, 'delete: ',
+	      [:a, {:href=>'TestPage.html'}, 'TestPage']], div[6])
+    end
+  end
+end

data/vendor/qwik/act-smil.rb

@@ -0,0 +1,299 @@
+# 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/tokenizer'
+require 'qwik/act-media'
+require 'qwik/smil-time'
+
+module Qwik
+  class Action
+    D_PluginSmil = {
+      :dt => 'Video editing plugin',
+      :dd => 'You can control the timeline of the video.',
+      :dc => "* Example
+** Tokyo Setagaya ward Congress
+{{smil
+:url:rtsp://realgi.city.setagaya.tokyo.jp/20030918-2.rm
+|3:12:15|3:12:20|
+|3:19:58|3:21:12|
+}}
+ {{smil
+ :url:rtsp://realgi.city.setagaya.tokyo.jp/20030918-2.rm
+ |3:12:15|3:12:20|
+ |3:19:58|3:21:12|
+ }}
+This is just an example to use smil plugin.
+"
+    }
+
+    def plg_smil(title=nil)
+      @smil_num = 0 if !defined?(@smil_num)
+      @smil_num += 1
+      file = "#{@req.base}.#{@smil_num}.smil"
+      str = yield
+      title = file if title.nil?
+
+      gen = SmilGenerator.new
+      gen.parse(str)
+      smil = gen.generate_smil
+      smil_str = smil.format_xml.page_to_xml	# make it to utf8
+      @site.files(@req.base).put(file, smil_str, true)	# override
+
+      table = gen.generate_html
+
+      div = [:div, {:class=>'smil'},
+	table,
+	[:p, [:a, {:href=>file}, file]]]
+
+      return div
+    end
+
+    def plg_video(*args)
+      name = @req.base
+      name = args.shift if 0 < args.length
+      msg = yield
+      v = Video.new(@site, name)
+      v.parse(msg)
+      v.generate_file
+      return v.to_xml
+    end
+
+    def ext_smil
+    # $smil_debug = true
+      $smil_debug = false
+      ar = []
+      ar << @req.base
+      ar += @req.ext_args
+      ar << @req.ext
+      filename = ar.join('.')
+      file = @site.files(@req.base).path(filename)
+      if $smil_debug
+	return c_notice(1) { "filename is #{filename}" }
+      end
+
+      return c_simple_send(file.to_s, 'application/smil')
+    end
+  end
+
+  class SmilGenerator
+    def initialize
+      @width, @height = 320, 240
+      @time_table = []
+    end
+
+    def parse(str)
+      url = nil
+      @width, @height = 320, 240
+      @time_table = []
+      tokens = tokenize(str)
+      tokens.each {|token|
+	case token[0]
+	when :dl
+	  case token[1]
+	  when 'url'    then url     = token[2]
+	  when 'width'  then @width  = token[2]
+	  when 'height' then @height = token[2]
+	  else
+	    raise 'unknown param type'
+	  end
+	when :table
+	  time_begin = SmilTime.at_smil(token[1])
+	  time_end   = SmilTime.at_smil(token[2])
+	  title = token[3]
+	  @time_table << [url, time_begin, time_end, title]
+	else
+	  raise 'unknown type'
+	end
+      }
+      return [@width, @height, @time_table] # only for test
+    end
+
+    def tokenize(str)
+      return TextTokenizer.tokenize(str)
+    end
+
+    def generate_smil
+      time = 0.0
+      par = []
+      @time_table.each {|url, time_begin, time_end, title|
+	duration = time_end.to_f - time_begin.to_f
+	par << [:video, {:region=>'v', :begin=>"#{time}s",
+	    :src=>url, :'clip-begin'=>time_begin.to_smil,
+	    :'clip-end'=>time_end.to_smil}]
+	time += duration
+      }
+      smil = [:smil, {:xmlns=>'http://www.w3.org/2001/SMIL20/Language',
+	  :'xmlns:rn'=>'http://features.real.com/2001/SMIL20/Extensions'},
+	[:head,
+	  [:layout,
+	    [:'root-layout', {:width=>@width, :height=>@height}],
+	    [:region, {:id=>'v', :fit=>'meet'}]]],
+	[:body, [:par, *par]]]
+      return smil
+    end
+
+    def generate_html
+      table = [:table]
+      table << [:tr,
+	[:th, 'IN'],
+	[:th, 'OUT'],
+	[:th, 'MSG']
+      ]
+      @time_table.each {|url, time_begin, time_end, title|
+	table << [:tr, 
+	  [:td, time_begin.to_smil],
+	  [:td, time_end.to_smil],
+	  [:td, title]]
+      }
+      return table
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  require 'qwik/testunit'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActSmil < Test::Unit::TestCase
+    include TestSession
+
+    def test_plg_video
+      t_add_user
+      page = @site.create_new
+      page.put('{{smil
+:url:rtsp://example.com/test/1.files/t.rm
+,00,05.05,msg1
+,12:10,12:15.15,msg2
+}}')
+      res = session('/test/1.html')
+      ok_in([:div, {:class=>'smil'},
+	      [:table,
+		[:tr, [:th, 'IN'], [:th, 'OUT'], [:th, 'MSG']],
+		[:tr, [:td, '00:00:00'], [:td, '00:00:05.05'],
+		  [:td, 'msg1']],
+		[:tr, [:td, '00:12:10'], [:td, '00:12:15.15'],
+		  [:td, 'msg2']]],
+	      [:p, [:a, {:href=>'1.1.smil'}, '1.1.smil']]],
+	    '//div[@class="section"]')
+
+      path = @site.files('1').path('1.1.smil')
+      str = path.read
+      assert(str.include?('http://www.w3.org/2001/SMIL20/Language'))
+
+      res = session('/test/1.1.smil') # get the file
+      str = res.body
+      assert(str.include?('http://www.w3.org/2001/SMIL20/Language'))
+      ok_eq('application/smil', res['Content-Type'])
+    end
+
+    def test_media_plugin
+      ok_wi([:div, {:class=>'box'},
+	      [:table, [:tr, [:td, 'IN'], [:td, 'OUT'], [:td, 'MSG']]],
+	      [:p, [:a, {:href=>'.attach/1.smil'}, '1']]],
+	    "{{video\n,k,v\n}}")
+
+      t_add_user
+      res = session('/test/.attach/1.smil') # get a file
+      str = res.body
+      ok_eq('application/smil', res['Content-Type'])
+
+      # test real situation
+      ok_wi([:div, {:class=>'box'},
+	      [:table,
+		[:tr, [:td, 'IN'], [:td, 'OUT'], [:td, 'MSG']],
+		[:tr, [:td, '00:03'], [:td, '00:13']],
+		[:tr, [:td, '00:20'], [:td, '00:28']]],
+	      [:p, [:a, {:href=>'.attach/TestSmil.smil'}, 'TestSmil']]],
+	    '{{video(TestSmil)
+:width:160
+:height:120
+:url:rtsp://stream.nhk.or.jp/news/20030914000046002.rm
+,00:03,00:13,
+,00:20,00:28,
+}}')
+      res = session('/test/.attach/TestSmil.smil')
+
+      # test real situation
+      ok_wi([:div, {:class=>'box'},
+	      [:table,
+		[:tr, [:td, 'IN'], [:td, 'OUT'], [:td, 'MSG']],
+		[:tr, [:td, '00:03'], [:td, '00:13'], [:td, '��']],
+		[:tr, [:td, '00:20'], [:td, '00:28']]],
+	      [:p, [:a, {:href=>'.attach/TestSmil.smil'}, 'TestSmil']]],
+	    '{{video(TestSmil)
+:width:160
+:height:120
+:url:rtsp://stream.nhk.or.jp/news/20030914000046002.rm
+,00:03,00:13,��
+,00:20,00:28,
+}}')
+      res = session('/test/.attach/TestSmil.smil')
+      str = res.body
+      assert(str.include?('http://www.w3.org/2001/SMIL20/Language'))
+    end
+  end
+
+  class TestSmil < Test::Unit::TestCase
+    def test_smil_generator
+      gen = Qwik::SmilGenerator.new
+
+      str = ':url:rtsp://example.com/test/1.files/t.rm
+,00,05.05,msg1
+,12:10,12:15.15,msg2'
+
+      # test_tokenize
+      tokens = gen.tokenize(str)
+      ok_eq([[:dl, 'url', 'rtsp://example.com/test/1.files/t.rm'],
+	      [:table, '00', '05.05', 'msg1'],
+	      [:table, '12:10', '12:15.15', 'msg2']], tokens)
+
+      # test parse
+      width, height, time_table = gen.parse(str)
+      ok_eq(320, width)
+      ok_eq(240, height)
+      ok_eq([['rtsp://example.com/test/1.files/t.rm',
+		Qwik::SmilTime.at_smil('00'),
+		Qwik::SmilTime.at_smil('05.05'), 'msg1'],
+	      ['rtsp://example.com/test/1.files/t.rm',
+		Qwik::SmilTime.at_smil('12:10'),
+		Qwik::SmilTime.at_smil('12:15.15'),'msg2']],
+	    time_table)
+
+      # test generate_smil
+      w = gen.generate_smil
+      ok_eq([:head, [:layout,
+		[:'root-layout', {:height=>240, :width=>320}],
+		[:region, {:id=>'v', :fit=>'meet'}]]],
+	    w.get_path('//head'))
+      ok_eq([:video,
+	      {:'clip-end'=>'00:00:05.05',
+		:begin=>'0.0s',
+		:region=>'v',
+		:src=>'rtsp://example.com/test/1.files/t.rm',
+		:'clip-begin'=>'00:00:00'}],
+	    w.get_path('//video'))
+      ok_eq([:video,
+	      {:'clip-end'=>'00:12:15.15',
+		:begin=>'5.166666s',
+		:region=>'v',
+		:src=>'rtsp://example.com/test/1.files/t.rm',
+		:'clip-begin'=>'00:12:10'}],
+	    w.get_path('//video[2]'))
+
+      # test generate_html
+      w = gen.generate_html
+      ok_eq([:table,
+	      [:tr, [:th, 'IN'], [:th, 'OUT'], [:th, 'MSG']],
+	      [:tr, [:td, '00:00:00'], [:td, '00:00:05.05'],
+		[:td, 'msg1']],
+	      [:tr, [:td, '00:12:10'], [:td, '00:12:15.15'],
+		[:td, 'msg2']]],
+	    w)
+    end
+  end
+end

data/vendor/qwik/act-status.rb

@@ -0,0 +1,220 @@
+# Copyright (C) 2003-2009 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 Action
+    def status_get_date(time)
+      return "* " + time.strftime("%Y-%m-%dT%H:%M:%S") + "\n"
+    end
+
+    def status_get_memory(ps)
+      str = ''
+      ps.each_line {|line|
+	user, pid, cpu, mem, vsz, rss, tty, stat, start, time, command =
+	  line.split(nil, 11)
+	next if /^sh/ =~ command
+	next if /^grep/ =~ command
+	next if /^ruby/ =~ command
+	next if %r|^/bin/sh| =~ command
+	next if time == "0:00"
+
+	command = 'quickml-server' if /quickml-server/ =~ command
+	command = 'qwikweb-server' if /qwikweb-server/ =~ command
+
+	vsz = vsz.to_i / 1000
+	rss = rss.to_i / 1000
+
+	str << "#{vsz}MB	#{rss}MB	#{command}\n"
+      }
+      str
+    end
+
+    def status_get_objects
+      ar = []
+      num = 0
+      string_length = 0
+      ObjectSpace.each_object {|obj|
+        num += 1
+
+        name = obj.class.name
+        ar << name
+
+        if name == "String"
+          string_length += obj.length
+        end
+        
+=begin
+        if name == "String" ||
+            name == "Regexp" ||
+            name == "Class" ||
+            name == "Hash" ||
+            name == "Bignum" ||
+            name == "Module" ||
+            name == "Float" ||
+            name == "Array"
+          # do nothing
+        else
+          ar << name
+        end
+=end
+      }
+
+      hash = Hash.new(0)
+      ar.each {|classname|
+        hash[classname] += 1
+      }
+
+      ar2 = []
+      hash.each {|k, v|
+        ar2 << [v, k]
+      }
+
+      ar3 = ar2.sort.reverse
+
+      str = "* get_objects\n"
+      str << "object num #{num.commify}\n"
+      str << "string_length #{string_length.commify}\n"
+
+      ar3.each {|v, k|
+        str << "#{v}\t#{k}\n"
+      }
+      str
+    end
+
+    def status_get_objects2
+      ar = []
+      num = 0
+      ObjectSpace.each_object {|obj|
+        ar << obj.class.name
+        num += 1
+      }
+
+      ar3 = ar.sort.uniq
+
+      str = ''
+      str << "object num #{num}\n"
+
+      ar3.each {|v|
+        str << "#{v}\n"
+      }
+
+      str
+    end
+
+    def status_show_httprequests(now)
+      ar = []
+      ObjectSpace.each_object {|obj|
+        ar << obj if obj.class.name == "WEBrick::HTTPRequest"
+      }
+
+      str = "* WEBrick::HTTPRequest\n"
+      ar.each {|req|
+        #diff = now - req.start_time
+        path = req.unparsed_uri
+        ua = req["user-agent"]
+        #str << "#{path}\t#{ua}\n"
+        str << "#{path}\n"
+        str << "#{ua}\n"
+      }
+      str
+    end
+
+    def status_show_requests(now)
+      ar = []
+      ObjectSpace.each_object {|obj|
+        ar << obj if obj.class.name == "Qwik::Request"
+      }
+
+      str = "* Qwik::Request\n"
+      ar.each {|req|
+        diff = now - req.start_time
+        path = req.unparsed_uri
+        str << "#{path}\t#{diff}\n"
+      }
+      str
+    end
+
+    def is_administrator?
+      file = @config.etc_dir.path + "administrator.txt"
+      return false if ! file.exist?
+      admin = file.read.chomp
+      return false if @req.user != admin
+      return true
+    end
+
+    def act_status
+      c_require_login
+      return c_nerror("You are not administrator.") if ! is_administrator?
+
+      str = ""
+
+      now = @req.start_time
+
+      str << status_get_date(now)
+
+      ps = `ps auxww | grep -i ruby`
+      str << status_get_memory(ps)
+      str << "\n"
+
+      str << status_show_httprequests(now)
+      str << "\n"
+
+      str << status_show_requests(now)
+      str << "\n"
+
+      str << status_get_objects
+#      str << status_get_objects2
+      str << "\n"
+
+#      return c_notice(_('Status')) {
+      return c_plain(_('Status')) {
+	[[:h2, _('Status')],
+#	  [:pre, str]]
+	  [:pre, c_pre_text { str }]]
+      }
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActStatus < Test::Unit::TestCase
+    include TestSession
+
+    def test_all
+      res = session
+
+      time = Time.at(0)
+      str = @action.status_get_date(time)
+      is "* 1970-01-01T09:00:00\n", str
+
+      ps = <<'EOS'
+qwik     14611  0.0  0.0  3468 1260 ?        Ss   17:19   0:00 /bin/sh -c /usr/bin/ruby -I/home/qwik/qwik/lib /home/qwik/qwik/bin/quickml-server -d -c /home/qwik/qwik/etc/config-debug.txt >> /home/qwik/qwik/log/quickml-out 2>&1
+qwik     14612  0.0  0.0  3468 1260 ?        Ss   17:19   0:00 /bin/sh -c /usr/bin/ruby -I/home/qwik/qwik/lib /home/qwik/qwik/bin/qwikweb-server -d -c /home/qwik/qwik/etc/config-debug.txt >> /home/qwik/qwik/log/out 2>&1
+qwik     14613  0.5  0.2 12964 9520 ?        S    17:19   0:01 /usr/bin/ruby -I/home/qwik/qwik/lib /home/qwik/qwik/bin/quickml-server -d -c /home/qwik/qwik/etc/config-debug.txt
+qwik     14614  6.9  0.8 35792 29504 ?       S    17:19   0:15 /usr/bin/ruby -I/home/qwik/qwik/lib /home/qwik/qwik/bin/qwikweb-server -d -c /home/qwik/qwik/etc/config-debug.txt
+qwik     14615  0.0  0.2 12964 9520 ?        S    17:19   0:00 /usr/bin/ruby -I/home/qwik/qwik/lib /home/qwik/qwik/bin/quickml-server -d -c /home/qwik/qwik/etc/config-debug.txt
+qwik     14616  0.0  0.2 12964 9520 ?        S    17:19   0:00 /usr/bin/ruby -I/home/qwik/qwik/lib /home/qwik/qwik/bin/quickml-server -d -c /home/qwik/qwik/etc/config-debug.txt
+qwik     14617  0.0  0.8 35792 29504 ?       S    17:19   0:00 /usr/bin/ruby -I/home/qwik/qwik/lib /home/qwik/qwik/bin/qwikweb-server -d -c /home/qwik/qwik/etc/config-debug.txt
+qwik     14618  0.0  0.8 35792 29504 ?       S    17:19   0:00 /usr/bin/ruby -I/home/qwik/qwik/lib /home/qwik/qwik/bin/qwikweb-server -d -c /home/qwik/qwik/etc/config-debug.txt
+EOS
+      str = @action.status_get_memory(ps)
+      is "12MB\t9MB\tquickml-server\n35MB\t29MB\tqwikweb-server\n", str
+
+      now = Time.at(0)
+      str = @action.status_show_httprequests(now)
+      is "* WEBrick::HTTPRequest\n", str
+
+      str = @action.status_show_requests(now)
+      #is "* Qwik::Request\n/test/\t0.0\n", str
+      is "String", str.class.name
+    end
+  end
+end