qwik2md 0.1.0

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

@@ -0,0 +1,292 @@
+# 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_PluginMap = {
+      :dt => 'Map plugin',
+      :dd => 'You can embed a map and create makers.',
+      :dc => "* Example
+{{{
+{{map(139.7005, 35.6595, 3)
+* [139.7005,35.6595] Shibuya
+- Hachiko Mae
+* [139.7030,35.6715] Harajuku
+- Takeshita St.
+}}
+}}}
+See [[PluginMap]] for example.
+* Thanks
+I use '[[Google Local|http://maps.google.com/]]' for the map.
+Thank you very much.
+"
+    }
+
+    def plg_map(clat, clng, mag=0)
+      # Prepare maplink div.
+
+      href = ".map?s=#{@req.sitename}&k=#{@req.base}"
+      fullhref = "#{href}&m=full"
+
+      #href = c_relative_to_root(href)
+      #fullhref = c_relative_to_root(fullhref)
+      href = "/#{href}"
+      fullhref = "/#{fullhref}"
+
+      div = [:div, {:class=>'maplink'},
+	[:iframe, {:src=>href,
+	    :style=>'width:700px;height:400px;border:0;'}, ''],
+	[:br],
+	[:div, {:style=>'margin: 0 0 1em 0;'},
+	  [:a, {:href=>fullhref, :style=>'font-size:x-small;'},
+	    _('Show map in full screen.')]]]
+      content = yield
+      elements = c_res(content)
+      div += elements
+      return div
+    end
+
+    def pre_act_map
+      sitename = @req.query['s']
+      pagekey  = @req.query['k']
+      mode     = @req.query['m']
+
+      # Prepare site.
+      @site = @memory.farm.get_site(sitename)
+      if @site.nil?
+	@site = @memory.farm.get_top_site
+	return action_no_such_site(@req.sitename)
+      end
+      if ! @site.is_open?
+        c_require_member	# IMPORTANT: Security check.
+      end
+
+      page = @site[pagekey]
+      c_nerror('No such page.') if page.nil?
+      plugin = get_first_plugin(page, 'map')
+
+      param = plugin[1][:param]
+      args = Action.plugin_parse_args(param)
+      clat = args.shift.to_f
+      clng = args.shift.to_f
+      mag = args.shift.to_i
+
+      content = plugin[2]
+
+      ar = []
+      ar << map_style
+      maparea = map_maparea(clat, clng, mag, content, mode)
+      ar << maparea
+
+      title = 'map'
+      c_plain(title){ar}
+
+      head = @res.body.get_path('/head')
+      head << map_initial_script
+      head << map_script(clat, clng, mag, content, mode)
+
+      body = @res.body.get_path('/body')
+      body[1][:onload] = 'qwikMakeMap();'
+
+      footer= @res.body.get_path("//div[@class='footer']")
+      footer.clear
+
+      if ! @config.test
+	map_make_page_utf8
+      end
+    end
+
+    def map_make_page_utf8
+      @res.body = @res.body.format_xml.page_to_xml
+      @res['Content-Type'] = "text/html; charset=#{Charset::UTF8}"
+    end
+
+    def get_first_plugin(page, method)
+      str = page.load
+      elements = c_parse(str)
+      elements.each {|element|
+	if element[0] == :plugin && element[1][:method] == method
+	  return element
+	end
+      }
+      return nil
+    end
+
+    GOOGLE_MAPS_API_KEY_FILE = 'google-maps-api-key.txt'
+
+    def map_get_api_key
+      file = @config.etc_dir.path+GOOGLE_MAPS_API_KEY_FILE
+      return if ! file.exist?
+      return file.open {|f| f.gets }.chomp
+    end
+
+    def map_style
+      return [:style, '.header { display: none ! important; }
+body { background: #fff; }']
+    end
+
+    def map_initial_script
+      key = map_get_api_key
+      #return if key.nil?	# Fatal error.
+      key ||= ''	# Ad hoc.
+      src = "http://maps.google.com/maps?file=api&v=1&key=#{key}"
+      return [:script, {:src=>src, :type=>'text/javascript'}, '']
+    end
+
+    def map_script(clat, clng, mag, content, mode='iframe')
+      maparea = []
+
+      # Prepare markers.
+      elements = c_parse(content)
+
+      markers = []
+      marker = nil
+
+      elements.each {|element|
+	if element[0] == :h2
+	  marker = []
+	  markers << marker
+	  marker << element
+	else
+	  if marker
+	    marker << element
+	  end
+	end
+      }
+
+      ms = []
+      markers.each {|marker|
+	h2 = marker[0]
+        if h2[1] == '[' && h2[3] == ']'
+	  lat, lng = h2[2].split(',')
+          h2[1] = ''	# Destruct headers.
+          h2[2] = ''
+          h2[3] = ''
+	  ms << [lat, lng, marker]
+        end
+      }
+
+      marker_script = ''
+      ms.each {|lat, lng, marker|
+	s = marker.rb_format_xml(-1, -1)
+        s = s.sub(/\n/, '')
+	marker_script << "qwikSetMark(#{lat}, #{lng}, '#{s}');\n"
+      }
+
+      # Add script.
+      clat = clat.to_f
+      clng = clng.to_f
+      mag = mag.to_i
+      # You should set width for div element in the marker.
+      script = "
+function qwikMakeMap() {
+  if (GBrowserIsCompatible()) {
+    // Define the function inside.
+    function qwikSetMark(lat, lng, body) {
+      var point = new GPoint(lng, lat);
+      var html=\"<div style='width:220px'>\"+body+\"</div>\";
+      var marker = new GMarker(point);
+      map.addOverlay(marker);
+      GEvent.addListener(marker, 'click', function() {
+        marker.openInfoWindowHtml(html);
+      });
+      marker.openInfoWindowHtml(html);
+    }
+
+    var map = new GMap(document.getElementById('map'));
+    map.addControl(new GLargeMapControl());
+    map.addControl(new GMapTypeControl());
+    map.centerAndZoom(new GPoint(#{clng}, #{clat}), #{mag});
+    GEvent.addListener(map, 'moveend', function() {
+      var center = map.getCenterLatLng();
+      var latLngStr = '* [' + center.y + ',' + center.x + '] ';
+      document.getElementById('message').innerHTML = latLngStr;
+    });
+
+    #{marker_script}
+  }
+}
+"
+      maparea << [:script, {:type=>'text/javascript'},
+                 "\n//",
+                 [:'![CDATA[', "\n\n"+script+"\n//"],
+                 "\n"]
+      return maparea
+    end
+
+    def map_maparea(clat, clng, mag, content, mode='iframe')
+      maparea = [:div, {:class=>'maparea'}]
+
+      # Add initial script.
+      #maparea << map_initial_script
+
+      # Add <div id='map'></div>
+      style = 'width: 696px; height: 382px;'
+      style = 'width: 100%; height: 600px;' if mode == 'full'
+      maparea << [:div, {:id=>'map', :style=>style}, '']
+      maparea << [:div, {:id=>'message', :style=>'font-size:x-small;'}, '']
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  require 'qwik/wabisabi-format-xml'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActMap < Test::Unit::TestCase
+    include TestSession
+
+    TEST_MAP_CONTENT = '
+{{map(139.7005, 35.6595, 3)
+* [139.7005,35.6595] Shibuya
+- Hachiko Mae
+* [139.7030,35.6715] Harajuku
+- Takeshita St.
+}}
+'
+
+    def test_all
+      t_add_user
+
+      page = @site.create_new
+      str = TEST_MAP_CONTENT
+      page.store(str)
+      res = session '/test/1.html'
+
+      ok_title '1'
+      w = res.body.get_path("//div[@class='maplink']")
+      eq [:div, {:class=>'maplink'},
+	[:iframe, {:src=>'/.map?s=test&k=1',
+	    :style=>'width:700px;height:400px;border:0;'}, '']],
+	w[0..2]
+
+      res = session '/.map?s=test&k=1'
+      ok_title 'map'
+      w = res.body.get_path("//div[@class='maparea']")
+    end
+
+    def nutest_map
+      str = '
+{{map(1, 2, 3, 400, 300)
+* StoreA
+,4,5
+- List1
+- http://example.com/StoreA
+> CommentA
+* StoreB
+,6,7
+{{file(StoreB.jpg)}}
+- List2
+- http://example.com/StoreB
+> CommentB
+}}
+'
+    end
+  end
+end

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

@@ -0,0 +1,42 @@
+# 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
+    def ext_md5
+      c_require_page_exist
+      c_set_status
+      c_set_no_cache
+      c_set_contenttype('text/plain')
+      c_set_body(@site[@req.base].get.md5hex)
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActMD5 < Test::Unit::TestCase
+    include TestSession
+
+    def test_all
+      t_add_user
+
+      page = @site.create_new
+
+      page.store ''
+      res = session '/test/1.md5'
+      eq 'd41d8cd98f00b204e9800998ecf8427e', res.body
+
+      page.store '*t'
+      res = session '/test/1.md5'
+      eq '713c3323a56a1024e3638a96c031cf91', res.body
+    end
+  end
+end