qwik2md 0.1.0

data/vendor/qwik/lib/qwik/act-typekey.rb

@@ -0,0 +1,198 @@
+# 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? '..'
+begin
+  require 'qwik/typekey'
+  $have_typekey = true
+rescue LoadError
+  $have_typekey = false
+end
+
+module Qwik
+  class Action
+    def pre_act_typekey
+      if @req.query.length == 0
+	return typekey_redirect_to_typekey
+      end
+
+      sitetoken = typekey_get_sitetoken
+      return typekey_error_no_sitetoken if sitetoken.nil?
+
+      tk = TypeKey.new(sitetoken, '1.1')
+      key = typekey_get_publickey(tk)
+
+      email = @req.query['email']
+      name  = @req.query['name']
+      nick  = @req.query['nick']
+      ts    = @req.query['ts']		# time stamp
+      sig   = @req.query['sig']
+      # <email>::<name>::<nick>::<ts>::<site-token>
+      begin
+	tk.verify(email, name, nick, ts, sig)
+      rescue VerifyFailed
+	return c_notice(_('Verify failed.')) {
+	  _('Verify failed.')
+	}
+      rescue TimeOutError
+	return c_notice(_('Time out.')) {
+	  _('Time out.')
+	}
+      end
+
+      sid = session_store(email)
+      @res.set_cookie('sid', sid)	# Set Session id by cookie
+
+      return c_notice(_('Login')+' '+_('Success'), 'FrontPage.html') {
+	[:p, [:a, {:href=>'FrontPage.html'}, _('Go next')]]
+      }
+    end
+
+    def typekey_error_no_sitetoken
+      return c_nerror(_('Cannot use.')) {
+	[:p, _('There is no site token for TypeKey.')]
+      }
+    end
+
+    def typekey_redirect_to_typekey
+      sitetoken = typekey_get_sitetoken
+      return typekey_error_no_sitetoken if sitetoken.nil?
+
+      tk = TypeKey.new(sitetoken, '1.1')
+
+      # http://example.com/test/.typekey
+      ret_url = c_relative_to_absolute('.typekey')
+      url = tk.get_login_url(ret_url, true)
+      return c_nredirect('Go TypeKey', url)	# Redirect to TypeKey
+    end
+
+    TYPEKEY_SITETOKEN_FILE = 'typekey-sitetoken.txt'
+
+    def typekey_get_sitetoken
+      file = @config.etc_dir.path+TYPEKEY_SITETOKEN_FILE
+      return nil if ! file.exist?
+      return file.read.chomp
+    end
+
+    def typekey_get_publickey(tk)
+      # Make cache timeout to 100 years.  Only for test.
+     #tk.key_cache_timeout = 60 * 60 * 24 * 365 * 100	# 100 years
+      tk.key_cache_timeout = 60 * 60 * 24 * 365 * 2	# 2 years
+      cache_path = @config.cache_dir.path+'typekey-publickey.txt'
+      tk.key_cache_path = cache_path.to_s
+      return tk.get_key
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActTypekey < Test::Unit::TestCase
+    include TestSession
+
+    def test_act_typekey
+      t_add_user
+      t_site_open	# OPEN site
+
+      res = session
+
+      # test_get_sitetoken
+      sitetoken = @action.typekey_get_sitetoken
+      return if sitetoken.nil?	# Stop test here.
+      eq 20, sitetoken.length
+
+      # See the FrontPage.
+      res = session '/test/'
+      ok_title('FrontPage')
+
+      # See the Login page.
+      res = session('/test/.login') {|req|
+	req.cookies.clear
+      }
+      ok_title('Login')
+
+      # Redirect to TypeKey login page.
+      res = session '/test/.typekey'
+      eq 302, @res.status
+      assert_match(%r|\Ahttps://www.typekey.com/t/typekey/login|,
+		   @res['Location'])
+      meta = @res.body.get_path('//meta[2]')
+      assert_match(%r|url=https://www.typekey.com/t/typekey/login|,
+		   meta[1][:content])
+
+      # The client returned from the TypeKey login page.
+      begin
+	res = session '/test/.typekey?&ts=1111111111&email=guest@example.com&name=guestexample&nick=guest&sig=ttttttttttttttttttttttttttt=:LLLLLLLLLLLLLLLLLLLLLLLLLLL='
+	ok_title('Verify failed.')
+      rescue => e
+	p 'failed.', e
+      end
+
+      begin
+	res = session '/test/.typekey?&ts=1110026410&email=2005@eto.com&name=etocom&nick=eto&sig=tRUcIO6haAHv/vQSguPk2EijTrc=:LCUvoHCXFLaeO8SoldCKmFr2Guo='
+	ok_title('Time out.')
+      rescue => e
+	p 'failed.', e
+      end
+    end
+
+    def nutypekey_get_sitetoken
+      file = @config.etc_dir.path+Qwik::Action::TYPEKEY_SITETOKEN_FILE
+      return file.read.chomp
+    end
+
+    def test_typekey
+      return if $0 != __FILE__	# just only for unit test.
+      return if ! $have_typekey
+
+      res = session
+
+      sitetoken = 't'
+      tk = TypeKey.new(sitetoken, '1.1')
+      tk.key_cache_timeout = 60 * 60 * 24 * 365 * 100	# 100years
+      tk.key_cache_path = (@config.cache_dir.path+'typekey-publickey.txt').to_s
+
+      return_url = 'http://example.com/.typekey'
+      eq 'https://www.typekey.com/t/typekey/login?t=t&_return=http://example.com/.typekey&v=1.1', tk.get_login_url(return_url)
+      eq 'https://www.typekey.com/t/typekey/login?t=t&need_email=1&_return=http://example.com/.typekey&v=1.1', tk.get_login_url(return_url, true)
+      eq 'https://www.typekey.com/t/typekey/logout?_return=http://example.com/.typekey', tk.get_logout_url(return_url)
+
+      begin
+	key = tk.get_key
+	eq ['p', 'q', 'pub_key', 'g'], key.keys
+      rescue
+	p 'failed'
+      end
+    end
+
+    def test_verify
+      return if $0 != __FILE__	# just only for unit test.
+      return if ! $have_typekey
+
+      res = session
+      sitetoken = @action.typekey_get_sitetoken
+      tk = TypeKey.new(sitetoken, '1.1')
+      tk.key_cache_timeout = 60 * 60 * 24 * 365 * 100	# 100years
+      tk.key_cache_path = (@config.cache_dir.path+'typekey-publickey.txt').to_s
+
+      ts = '1111111111'
+      email = 'guest@example.com'
+      name = 'guestexample'
+      nick = 'guest'
+      sig = 'ttttttttttttttttttttttttttt=:LLLLLLLLLLLLLLLLLLLLLLLLLLL='
+
+      begin
+	assert_raise(VerifyFailed){
+	  result = tk.verify(email, name, nick, ts, sig)
+	}
+      rescue => e
+	p 'failed', e
+      end
+    end
+  end
+end

data/vendor/qwik/lib/qwik/act-under-const.rb

@@ -0,0 +1,94 @@
+# 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.
+
+# Under construction.
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+
+module Qwik
+  class Action
+    # ==============================
+    def notyet_plg_calendar
+      return 'calendar'
+    end
+
+    # ==============================
+    def notyet_plg_draw
+      return [:div, 
+	[:'v:line', {:from=>'0, 100', :to=>'200, 200'}, '']]
+    end
+
+    # ==============================
+    def notyet_plg_extlink
+      w = []
+      w << [:script, {:type=>'text/javascript',
+	  :src=>'.theme/ap/ArekorePopup.js'}, '']
+      w << [:script, {:type=>'text/javascript'}, '
+AP.launch;
+']
+      return []
+    end
+
+    # ==============================
+    # 'Go Back to Work.' plugin
+    # Inspired from http://www.marktaw.com/getbacktowork.htm
+    def notyet_plg_go_back_to_work
+      return [:strong, 'hello, world!']
+    end
+
+    def notyet_ext_go_back_to_work
+      c_notice('hello, world!'){'hi, there.'}
+    end
+
+    # ==============================
+    def notyet_ext_print
+      ext_html	# call this first.
+      return c_nerror('not yet')
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActTmp < Test::Unit::TestCase
+    include TestSession
+
+    def notyet_test_plg_calendar
+    end
+
+    def notyet_test_plg_draw
+    end
+
+    def notyet_test_extlink
+      ok_wi([], '{{extlink}}')
+    end
+
+    def test_gbtw
+      t_add_user
+
+      res = session
+
+      page = @site.create_new
+      page.store('{{go_back_to_work}}')
+      res = session('/test/1.html')
+      #ok_xp({:action=>'1.go_back_to_work', :method=>'POST'}, 'div[@class='main']')
+
+      res = session('POST /test/1.go_back_to_work?work=n&style=0')
+      #assert_match(/ ''\[\[n\]\]'' : m\n\{\{hcomment\}\}/, page.load)
+    end
+
+    def test_ext_print
+      t_add_user
+      page = @site.create_new
+      page.store('t')
+      res = session('/test/1.html')
+      ok_xp([:div, {:class=>'body'}, [:div, {:class=>'section'}, [[:p, 't']]]],
+	    "//div[@class='body']")
+    end
+  end
+end

data/vendor/qwik/lib/qwik/act-webservice.rb

@@ -0,0 +1,321 @@
+# 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_PluginWebService = {
+      :dt => 'Web service plugins',
+      :dd => 'You can use several external Web services.',
+      :dc => '
+* Hatena Point plugin
+ {{hatena_point(eto)}}
+You can embed hatena point tag.
+* Trackfeed plugin
+You can use trackfeed by this plugin.
+ {{trackfeed(yourid)}}
+* Subscribe Bloglines plugin
+You can show subscribe bloglines button.
+ {{sub_bloglines}}
+{{sub_bloglines}}
+
+You can write a specific URL in the argument.
+ {{sub_bloglines("http://www.ruby-lang.org/")}}
+{{sub_bloglines("http://www.ruby-lang.org/")}}
+* E Words plugin
+You can show words description.
+ {{e_words}}
+{{e_words}}
+* Google AdSense plugin
+You can show an ad by Google AdSense.
+ {{google_ad}}
+{{google_ad}}
+ {{google_ad_button}}
+{{google_ad_button}}
+You can select from the two sizes.
+There is no way to use another size for now.
+* Show translate link plugin
+You can show an translation link.
+ {{translate_ej}}
+Specify translate English to Japanese link.
+ {{translate_je}}
+Specify translate Japanese to English link.
+'
+    }
+
+    D_PluginWebService_ja = {
+      :dt => 'Webサービス・プラグイン',
+      :dd => 'Web上の各種サービスを利用するプラグインです。',
+      :dc => '
+* はてなポイント・プラグイン
+ {{hatena_point(eto)}}
+はてなポイント(投げ銭)のタグを埋込めます。
+* Trackfeedプラグイン
+トラックフィードを埋込めます。
+ {{trackfeed(yourid)}}
+* Bloglines講読プラグイン
+Bloglinesで講読するリンクを表示します。
+ {{sub_bloglines}}
+{{sub_bloglines}}
+
+特定のURLを指定することもできます。
+ {{sub_bloglines("http://www.ruby-lang.org/")}}
+{{sub_bloglines("http://www.ruby-lang.org/")}}
+* E Wordsプラグイン
+用語定義を表示させることができます。
+ {{e_words}}
+{{e_words}}
+* Google AdSenseプラグイン
+Google AdSenseを埋込めます。
+ {{google_ad}}
+{{google_ad}}
+ {{google_ad_button}}
+{{google_ad_button}}
+二種類のサイズから選べます。
+それ以外のサイズは、現在は未対応となっています。
+* 翻訳プラグイン
+翻訳ページに飛ぶリンクを表示します。
+You can show an translation link.
+ {{translate_ej}}
+英語から日本語へ翻訳する。
+ {{translate_je}}
+日本語から英語へ翻訳する。
+'
+    }
+
+    # ========== hatena point
+    def plg_hatena_point(hatena_account)
+      page = @site[@req.base]
+      url = c_relative_to_absolute(page.url)
+      rdf =[:'rdf:RDF',
+	{:'xmlns:rdf'=>'http://www.w3.org/1999/02/22-rdf-syntax-ns#',
+	  :'xmlns:foaf'=>'http://xmlns.com/foaf/0.1/'},
+	[:'rdf:Description',
+	  {:'rdf:about'=>url},
+	  [:'foaf:maker',
+	    {:'rdf:parseType'=>'Resource'},
+	    [:'foaf:holdsAccount',
+	      [:'foaf:OnlineAccount',
+		{:'foaf:accountName'=>hatena_account},
+		[:'foaf:accountServiceHomepage',
+		  {:'rdf:resource'=>'http://www.hatena.ne.jp/'}]]]]]]
+      return [:span, {:class=>'hatena_point'}, rdf]
+    end
+
+    # ========== trackfeed
+    def plg_trackfeed(id)
+      return unless /\A[0-9a-f]+\z/ =~ id
+      script = [:script, {:src=>"http://trackfeed.com/usr/#{id}.js"}, '']
+      return script
+    end
+
+    # ========== Bloglines
+    def plg_sub_bloglines(url=nil, icon='modern4')
+      return unless /\A[a-z0-9]+\z/ =~ icon
+      url = @site.site_url if url.nil?
+      button = [:a, {:href=>"http://www.bloglines.com/sub/#{url}"},
+	[:img, {:src=>"http://www.bloglines.com/images/sub_#{icon}.gif",
+	    :border=>'0', :alt=>'subscribe Bloglines'}]]
+      return button
+    end
+
+    # ========== E Words
+    def plg_e_words
+      return [:script, {:type=>'text/javascript',
+	  :src=>'http://e-words.jp/embed.x'}, '']
+    end
+
+    # ========== Google AdSense
+    def plg_google_ad(id=nil)
+      id ||= 'pub-5746941487859743'
+      str = <<'EOT'
+
+google_ad_client = "#{id}";
+google_alternate_color = 'eeeeee';
+google_ad_width   = 120;
+google_ad_height  = 240;
+google_ad_format  = '120x240_as';
+google_ad_channel ='2257701812';
+google_ad_type = 'text_image';
+google_color_border = 'ffffff';
+google_color_bg   = 'ffffff';
+google_color_link = '00cccc';
+google_color_url  = '00cc66';
+google_color_text = '000000';
+EOT
+      return google_ad(str)
+    end
+
+    def plg_google_ad_button(id=nil)
+      id ||= 'pub-5746941487859743'
+      str = <<'EOT'
+
+google_ad_client = "#{id}";
+google_alternate_color = 'eeeeee';
+google_ad_width   = 125;
+google_ad_height  = 125;
+google_ad_format  = '125x125_as';
+google_ad_channel ='2257701812';
+google_ad_type = 'text_image';
+google_color_border = 'ffffff';
+google_color_bg   = 'ffffff';
+google_color_link = '00cccc';
+google_color_url  = '00cc66';
+google_color_text = '000000';
+EOT
+      return google_ad(str)
+    end
+
+    def google_ad(str)
+      str << '//'
+      return [:div, {:style=>'text-align: center;'},
+	[:script, {:type=>'text/javascript'}, [:'!--', str]],
+	[:script, {:type=>'text/javascript',
+	    :src=>'http://pagead2.googlesyndication.com/pagead/show_ads.js'},
+	  '']]
+    end
+
+    # ========== Excite Translate
+    def plg_translate_ej(msg=nil)
+      return plg_translate('ej', msg)
+    end
+
+    def plg_translate_je(msg=nil)
+      return plg_translate('je', msg)
+    end
+
+    def plg_translate(lang, message=nil)
+      if lang == 'ej'
+	lp = 'ENJA'
+      elsif lang == 'je'
+	lp = 'JAEN'
+      else
+	return nil
+      end
+
+      page = @site[@req.base]
+      return if page.nil?
+      full_url = c_relative_to_absolute(page.url)
+     #base = 'http://www.excite.co.jp/world/english/web/'
+      base = 'http://www.excite.co.jp/world/english/web/proceeding/'
+      url = "#{base}?wb_lp=#{lp}&wb_url=#{full_url}"
+
+      if message.nil?
+	message = 'translate'
+	if lang == 'ej'
+	  message += ' (e->j)'
+	elsif lang == 'je'
+	  message += ' (j->e)'
+	end
+      end
+
+      e = [:a, {:href=>url}, message]
+      return e
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  require 'qwik/wabisabi-format-xml'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActWebService < Test::Unit::TestCase
+    include TestSession
+
+    def test_plg_hatena_point
+      t_add_user
+      page = @site.create_new
+      page.store('{{hatena_point(a)}}')
+      res = session('/test/1.html')
+      span = res.body.get_path("//span[@class='hatena_point']")
+      rdf = span[2]
+      ok_eq([:'rdf:RDF',
+	      {:'xmlns:rdf'=>'http://www.w3.org/1999/02/22-rdf-syntax-ns#',
+		:'xmlns:foaf'=>'http://xmlns.com/foaf/0.1/'},
+	      [:'rdf:Description',
+		{:'rdf:about'=>'http://example.com/test/1.html'},
+		[:'foaf:maker',
+		  {:'rdf:parseType'=>'Resource'},
+		  [:'foaf:holdsAccount',
+		    [:'foaf:OnlineAccount',
+		      {:'foaf:accountName'=>'a'},
+		      [:'foaf:accountServiceHomepage',
+			{:'rdf:resource'=>'http://www.hatena.ne.jp/'}]]]]]],
+	    rdf)
+
+=begin
+<rdf:RDF
+ xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
+ xmlns:foaf='http://xmlns.com/foaf/0.1/'>
+<rdf:Description 
+ rdf:about="エントリーのPermalink あるいはウェブサイトのURL">
+ <foaf:maker rdf:parseType='Resource'>
+ <foaf:holdsAccount>
+ <foaf:OnlineAccount 
+ foaf:accountName="あなたのはてなアカウント名">
+ <foaf:accountServiceHomepage 
+	 rdf:resource='http://www.hatena.ne.jp/' />
+ </foaf:OnlineAccount>
+ </foaf:holdsAccount>
+ </foaf:maker>
+</rdf:Description>
+</rdf:RDF>
+=end
+      str = rdf.rb_format_xml
+      #puts str
+
+      ok_eq(
+"<rdf:RDF xmlns:foaf=\"http://xmlns.com/foaf/0.1/\" xmlns:rdf=\"http://www.w3.org/1999/02/22-rdf-syntax-ns#\"
+><rdf:Description rdf:about=\"http://example.com/test/1.html\"
+><foaf:maker rdf:parseType=\"Resource\"
+><foaf:holdsAccount
+><foaf:OnlineAccount foaf:accountName=\"a\"
+><foaf:accountServiceHomepage rdf:resource=\"http://www.hatena.ne.jp/\"
+/></foaf:OnlineAccount
+></foaf:holdsAccount
+></foaf:maker
+></rdf:Description
+></rdf:RDF
+>",
+	    str)
+    end
+
+    def test_trackfeed
+      ok_wi([:script, {:src=>'http://trackfeed.com/usr/1.js'}, ''],
+	    '{{trackfeed(1)}}')
+    end
+
+    def test_sub_bloglines
+      ok_wi([:a, {:href=>'http://www.bloglines.com/sub/http://example.com/test/'}, [:img, {:src=>'http://www.bloglines.com/images/sub_modern4.gif', :border=>'0', :alt=>'subscribe Bloglines'}]], '{{sub_bloglines}}')
+      ok_wi([:a, {:href=>'http://www.bloglines.com/sub/http://e.com/'}, [:img, {:src=>'http://www.bloglines.com/images/sub_modern4.gif', :border=>'0', :alt=>'subscribe Bloglines'}]], '{{sub_bloglines(http://e.com/)}}')
+      ok_wi([:a, {:href=>'http://www.bloglines.com/sub/http://e.com/'}, [:img, {:src=>'http://www.bloglines.com/images/sub_modern3.gif', :border=>'0', :alt=>'subscribe Bloglines'}]], '{{sub_bloglines(http://e.com/,modern3)}}')
+    end
+
+    def test_e_words
+      ok_wi([:script, {:src=>'http://e-words.jp/embed.x',
+		:type=>'text/javascript'}, ''], '{{e_words}}')
+    end
+
+    def test_google_ad
+      t_add_user
+      page = @site.create_new
+      page.store('{{google_ad}}')
+      res = session('/test/1.html')
+      ok_wi(/pagead2.googlesyndication.com/, '{{google_ad}}')
+    end
+
+    def test_translate
+      ok_wi([:a, {:href=>'http://www.excite.co.jp/world/english/web/proceeding/?wb_lp=JAEN&wb_url=http://example.com/test/1.html'}, 'translate (j->e)'],
+	    '{{translate_je}}')
+      ok_wi([:a, {:href=>'http://www.excite.co.jp/world/english/web/proceeding/?wb_lp=JAEN&wb_url=http://example.com/test/1.html'}, 'English'],
+	    '{{translate_je(English)}}')
+      ok_wi([:a, {:href=>'http://www.excite.co.jp/world/english/web/proceeding/?wb_lp=ENJA&wb_url=http://example.com/test/1.html'}, 'translate (e->j)'],
+	    '{{translate_ej}}')
+    end
+  end
+end