ruby-web 1.1.1

data/lib/web/wiki/linker.rb

@@ -0,0 +1,72 @@
+module Web
+  class Wiki
+  class Linker #:nodoc:
+    def initialize
+    end
+
+    def html_regexp
+      /((<textarea)(.)*(\/textarea>))|(<a[ ]*href=[\"']*([^\"'>]*)[\"']*>([^(<\/)]*)<\/a>)|(<[^>]*>)/mi #"'
+    end
+    
+    def scan_linked_word( scanner , output )
+      if scanner.scan(/\[\[(.*?)\]\]/)
+        if Web::Wiki.page_list.include?(scanner[1])
+          output.print "<a href=\"?page.name=#{Web::escape(scanner[1])}\">#{scanner[1]}</a>"
+        else
+          output.print "#{scanner[1]}<a href=\"?page.name=#{Web::escape(scanner[1])}&action=edit\">?</a>"
+        end
+        true
+      else
+        false
+      end
+    end
+    
+    def make_link( pagename )
+      if (Web::Wiki::pref( :script_url ) && Web::Wiki::pref( :store_url ) )
+        "<a href=\"#{Web::Wiki::pref(:script_url)}/#{pagename}.html\">#{pagename}</a>"
+      else
+        "<a href=\"?page.name=#{Web::escape(pagename)}\">#{pagename}</a>"
+      end
+    end
+    
+    def scan_bumpy_word( scanner , output )
+      if scanner.scan(/([A-Z][\w\/]*[a-z][\w\/]*[A-Z]\w*)/)
+        if Web::Wiki.page_list.include?(scanner[1])
+          output.print make_link( scanner[1] )
+        else
+          output.print "#{scanner[1]}<a href=\"?page.name=#{Web::escape(scanner[1])}&action=edit\">?</a>"
+        end
+        true
+      else
+        false
+      end
+    end
+    
+    def scan_html( scanner , output )
+      if scanner.scan(html_regexp)
+        output.print scanner[0]
+        true
+      else
+        false
+      end
+    end
+    
+    def scan_other( scanner , output )
+      if scanner.scan(/(\w+|\s+|.)/)
+        output.print scanner[1]
+        true
+      else
+        false
+      end
+    end
+    
+    def replace_links(string )
+      out = StringIO.new
+      scanner = StringScanner.new(string)
+      while scan_linked_word( scanner , out ) || scan_bumpy_word( scanner , out ) || scan_html( scanner , out ) || scan_other( scanner , out )
+      end
+      out.string
+    end
+  end
+end
+end

data/lib/web/wiki/page.rb

@@ -0,0 +1,201 @@
+module Web
+  class Wiki
+
+    #begin experiment with SimpleDispatcher
+    if false
+    class PageEditor #:nodoc: # < Web::SimpleDispatcher::Template
+                     include Web::SimpleDispatcher::TemplateMixin##
+      
+      class << self
+        include Web::SimpleDispatcher::TemplateClassMixin
+      end
+      
+      
+      attr_accessor :page, :wiki
+      
+      def page
+        unless @page
+          @page = wiki.load_page
+          unless (Web["revision"] == nil || Web["revision"].empty? || Web["revision"].to_s == "0")
+            history = @page.history
+            @page = history.find{ |p|
+              Web["revision"].to_i == p.revision
+            }
+            @page.history = history
+          end
+        end
+        @page
+      end
+      
+      
+      def initialize
+      end
+      
+      def on_submit r
+        page.set_automatic_fields
+        wiki.save( page )
+      end
+    end
+    # end experiment with SimpleDispatcher
+  end
+  
+  class Page #:nodoc:
+    @@attributes = []
+    def Page.page_attr_accessor( *symbols )
+      symbols.each { |symbol|
+        attr_accessor symbol
+      }
+      Page::page_attr( *symbols )
+    end
+
+    def Page::page_attr( *symbols )
+      symbols.each { |symbol|
+        @@attributes.push symbol
+      }
+    end
+  
+    @@max_revisions = 25
+    def Page.max_revisions
+      @@max_revisions
+    end
+    
+    def set_by_request
+      @@attributes.each { |symbol|
+        self.send( symbol.to_s + "=", Web["page." + symbol.to_s] )
+      }
+      set_automatic_fields
+    end
+
+    def set_automatic_fields
+      self.revision += 1
+      self.mtime = Time.now()
+      self.history.unshift self.clone
+      self.history.pop if ( self.history.size > Page.max_revisions )
+      self.remote_addr = ENV["REMOTE_ADDR"]
+    end
+    
+    attr_accessor :name, :revision, :history, :mtime, :remote_addr
+    page_attr_accessor :align, :valign, :illustration, :bg_color, :text_color, :top_margin, :left_margin, :comment
+    def initialize( name )
+      self.name = name
+      self.revision = 0
+      self.history = [ ]
+      self.content = ""
+      self.comment = ""
+      self.illustration = ""
+      self.bg_color = "ffffff"
+      self.text_color = "000000"
+      self.align = "left"
+      self.valign = "top"
+      self.top_margin = "5"
+      self.left_margin = "5"
+      self.mtime = Time.now()
+      self.remote_addr = "auto-create"
+    end
+    
+    def mtime_pretty
+      if (mtime.hour > 12)
+        mtime.hour - 12
+    elsif (mtime.hour == 0)
+        12
+      else
+        mtime.hour
+      end.to_s + ":" +
+          mtime.min.to_s +
+                mtime.strftime("%p ").downcase +
+    mtime.strftime("%b ") +
+          mtime.mday.to_s +
+                mtime.strftime( ", %Y" )
+    end
+    
+    def template
+      if (self.name == Web::Wiki::pref(:home_page))
+        Web::Wiki::pref( :home_template )
+      elsif(self.illustration == nil)
+        "basic.html"
+      elsif (self.illustration.empty?)
+        "basic.html"
+      else
+        "illustration.html"
+      end
+    end
+
+    def escaped_name
+      name.gsub( /\//, "-slash-" )
+    end
+  
+    def download_link
+      File.join( Web::Wiki.store_url, escaped_name, "" )
+    end
+
+    def dir
+      File.join( Web::Wiki.store_dir, escaped_name )
+    end
+
+    class Asset < String #:nodoc:
+      attr_accessor :owner
+      def initialize(newowner, newpath)
+        self.owner = newowner
+        super( newpath )
+      end
+
+      def size
+        File.size( File.join( owner.dir, self ) )
+      end
+
+      def thumbnail
+        if (size > 102400)
+          "#{self} (<i>#{size} bytes</i>)"
+        else
+          "<img src='#{owner.download_link}#{self}' border=0 width=100><br>#{self}"
+        end
+      end
+
+    end
+
+    def assets
+      a = if (File.exists? dir)
+            (Dir.entries( dir ) - [".", ".."]).find_all { |e|
+              e =~ /^[^\#]/
+            }.collect{ |e|
+              Asset.new(self, e)
+            }
+          else
+            [ ]
+          end
+      a
+    end
+    
+    def historical_assets
+      historical = {}
+      assets.each { |e|
+        historical[e] = Dir[dir + "/*" + e].entries.sort { |a,b|
+          File.mtime( a ) <=> File.mtime( b )
+        }.collect { |e|
+          File.basename(e)
+        }
+      }
+      Dir[dir + "/\#*deleted.*"].entries.each{ |e|
+        base = File.basename(e).gsub( /\#(\d+\.){0,1}deleted\./, "" )
+        historical[base] = [ File.basename(e) ] unless historical.has_key?( base )
+      }
+      historical
+    end
+    
+    page_attr :content
+    attr_reader :content
+    def content=( newcontent )
+      {
+        %r{(<[^>]*)(http:\/\/[^"']*)(((#{Regexp.escape(download_link)})|(#{Regexp.escape(download_link.gsub(/&/, "&amp;"))}))[^"']*)(((\s|'|")[^>]*>)|>)} => '\1\3\7',
+    }.each{ |pattern, replacement|
+        newcontent.gsub!( pattern, replacement )
+      }
+      @content = newcontent
+    end
+    
+    def html
+      Web::Wiki::Linker.new.replace_links(self.content)
+    end
+  end
+  end
+end   

data/lib/webunit.rb

@@ -0,0 +1,27 @@
+=begin
+= WebUnit
+  Copyright(C) 2001 yuichi TAKAHASHI
+  $Id: webunit.rb,v 1.1.1.1 2003/01/21 11:50:39 yuichi Exp $
+=end
+
+require 'webunit/webunit/utils'
+require 'webunit/webunit/exception'
+require 'webunit/webunit/assert'
+require 'webunit/webunit/htmlelem'
+require 'webunit/webunit/link'
+require 'webunit/webunit/frame'
+require 'webunit/webunit/image'
+require 'webunit/webunit/jscript'
+require 'webunit/webunit/testcase'
+require 'webunit/webunit/cookie'
+require 'webunit/webunit/params'
+require 'webunit/webunit/form'
+require 'webunit/webunit/parser'
+require 'webunit/webunit/response'
+require 'webunit/webunit/table'
+begin
+  require 'webunit/webunit/domwalker'
+rescue LoadError
+end
+
+WebUnit::TestCase::new( 'nil?' ).setup

data/lib/webunit/assert.rb

@@ -0,0 +1,152 @@
+=begin
+= WebUnit::assert
+  Copyright(C) 2001 yuichi TAKAHASHI
+  $Id: assert.rb,v 1.1.1.1 2003/01/21 11:50:39 yuichi Exp $
+=end
+
+require 'webunit/converter'
+
+module WebUnit
+
+  include WebUnit::Utils
+
+=begin
+--- WebUnit#assert_urls(expected,actual,message='')
+      compare two URLs. raise AssertionFailedError, when these are diferent.
+=end
+
+  def assert_urls( expected, actual, message='' )
+    setup_assert
+    message << " " unless message == ""
+    if expected == nil || actual == nil
+      message << "expected:<nil> but was:<#{actual}>" if expected == nil
+      message << "expected:<#{expected}> but was:<nil>" if actual == nil
+      raise_assertion_error( message )
+    end
+
+    some_expected = [expected, $URLBASE + expected]
+    patterns = [actual, orthop_url(actual)]
+    for exp in some_expected
+      for e in [exp, orthop_url(exp)]
+        for pattern in patterns
+          return if e == pattern
+        end
+      end
+    end
+
+    message << "expected:<#{expected}> but was:<#{actual}>"
+    raise_assertion_error( message )
+  end
+
+=begin
+--- WebUnit#assert_input( name, type, value, actual, message="" )
+      check attribute of input field.
+
+
+=end
+
+  def assert_input( name, type, value, actual, message="" )
+    setup_assert
+    message << " " unless message == ""
+    unless name == actual.name
+      message << "expected:<name:#{name}> but was:<name:#{actual.name}>"
+      raise_assertion_error( message )
+    end
+    unless type == actual.type
+      message << "expected:<type:#{type}> but was:<type:#{actual.type}>"
+      raise_assertion_error( message )
+    end
+    unless value == actual.value
+      message << "expected:<value:#{value}> but was:<value:#{actual.value}>"
+      raise_assertion_error( message )
+    end
+  end
+
+=begin
+--- WebUnit#assert_select_option( value, data, selected, actual, message="" )
+
+
+=end
+
+  def assert_select_option( value, data, selected, actual, message="" )
+    setup_assert
+    message << " " unless message == ""
+    unless value == actual.value
+      message << "expected:<value:#{value}> but was:<value:#{actual.value}>"
+      raise_assertion_error( message )
+    end
+    data = value if data == nil
+    unless data == actual.data
+      message << "expected:<data:#{data}> but was:<data:#{actual.data}>"
+      raise_assertion_error( message )
+    end
+    unless selected == ( actual.stat == 'on' )
+    #unless selected == ( '' == actual.attrs['selected'] )
+      if selected
+        message << "expected:<selected> but was:<unselected>"
+      else
+        message << "expected:<unselected> but was:<selected>"
+      end
+      raise_assertion_error( message )
+    end
+  end
+
+=begin
+--- WebUnit#assert_attrs( expected, actual, message="" )
+      check attribute of input field.
+
+
+=end
+
+  def assert_attrs( expected, actual, message="" )
+    setup_assert
+    message << " " unless message == ""
+    expected.each do |k,v|
+      av = nil
+      if actual.respond_to?( "#{k}" )
+        av = actual.send( "#{k}" )
+      else
+        av = actual.attrs[k] if actual.attrs.key?( k )
+      end
+      unless av == v
+        message << "expected:<#{k}:#{v}> but was:<#{k}:#{av}>"
+        raise_assertion_error( message )
+      end
+    end
+  end
+
+=begin
+--- WebUnit#assert_include( expected, actual, message="" )
+      check ((|actual|)) has HtmlElems, which have ((|expected|)) as data
+
+
+=end
+
+  def assert_include( expected, actual, message="" )
+    setup_assert
+    message << " " unless message == ""
+    unless actual.has?( expected ) then
+      if actual.search( expected ) == []
+        message << "expected:<#{expected.inspect}> but not exist in <#{actual.inspect}>."
+        raise_assertion_error( message )
+      end
+    end
+  end
+
+=begin
+--- WebUnit#assert_title( expected, actual, message="" )
+      check title of ((|actual|)) and ((|expected|)) as string,
+      append formatted body to message, when both differ.
+=end
+
+  def assert_title( expected, actual, message="" )
+    setup_assert
+    message << " " unless message == ""
+    unless actual.title == expected then
+      message << "expected:<#{expected}> but not exist in <#{actual.title}>."
+      message << "\n#{'='*72}#{actual.format}\n#{'='*72}\n"
+      raise_assertion_error( message )
+    end
+  end
+
+end