楽屋裏から 2002年分

2002.06.17　とりあえず完成

　5月6日に思い立った備忘録に検索機能を付ける件、サーバー上でのテストに成功する。今回作ったスクリプトはこんな感じです。

#! /usr/local/bin/ruby
=begin
　備忘録検索システム
　Author : Masaya Tomikura (vzx01036@nifty.ne.jp）
　ver.1.00 : 2002.06.17
=機能
　フォームから取得した検索語とデータファイルを比較し、マッチした項目を表示する。
　また、フォームからではなく、リンクからも指定できる。（現状、未実装）
=データ形式
No◆カテゴリー◆本文◆発言者◆出典◆日付

=end

require 'cgi'
require 'kconv'
require 'erbl'

##### 検索語クラス #####
=begin
このクラスでは、下記のことを行う。
*文字コードをEUCに変換する

なお、注意点として、引数はハッシュを前提とする。具体的には、cgi.paramsから取得する
=end

class Word
  attr_reader :form
  
  def initialize(hash)
    @form = hash
    
    set_euc()
  end
  
  private
  
  ### EUCに設定 ###
  def set_euc
    @form.each_key {|key|
      # cgiのフォームに入力がない場合は「""」に設定する
      @form[key] = "" if @form[key].first == nil
      @form[key] = Kconv::toeuc(@form[key].first)
    }
  end
end


##### 検索クラス #####
=begin
　このクラスでは、下記のことを行う。
*ファイルからデータを取得する。
*引数として与えられたキーワードを正規化した上で検索する。
*結果は、eEubyを使って出力する。
=end

class Search
  def initialize(word)
    @target = word
    @result = []
    
    search()
    show()
  end
  
  private

  ### 検索 ###
  def search
    db_name ="oneline.dat"
    search_word = {}
    i = 0
    
    # キーワードを正規化する
    @target.each_key {|key|
      # @target そのものではなく、正規化したキーワードは search_word[] とする
      search_word[key] = Regexp.new(@target[key])
    }
    
    # 実際に検索する
    File.foreach(db_name) do |line|
      line.chop!
      no, category, oneline, person, source, date = line.split("◆")
      if (  search_word['categoly'] =‾ category &&
            search_word["word"] =‾ oneline &&
            (search_word['person'] =‾ person || search_word['person'] =‾ source))
        @result[i] = line
        @result[i] = []
        @result[i] = no, oneline, person, source, date
        i = i + 1
      end
    end
  end

  # 結果を出力する
  def show
    result_file = File::readlines("result.rhtml").join
    print "Content-Type: text/html; charset=EUC-JP¥n¥n"
    print ERbLight::new(result_file).result(binding)
  end
end

##### ここからがメイン処理 #####
cgi = CGI.new('html4.0')
word = Word.new(cgi.params)
Search.new(word.form)

　本当は、データの区切りを「◆」なんて特殊な文字を使わずに、「,」の方がいいのだろうけれど、ちょっと面倒くさいことになりそうなので、手抜きしています。

　出力するための rhtmlファイルは、こんな感じです（こちらは必要な部分だけ）。

<!-- ユーザの指定した語句を表示 -->
<%
  if @target['categoly'] == "" then
    @target['categoly'] = "なし"
  end
  if @target['word'] == "" then
    @target['word'] = "なし"
  end
  if @target['person'] == "" then
    @target['person'] = "なし"
  end
  hit = @result.size

%>
<P class="result">カテゴリー<STRONG>「<%= @target["categoly"] %>」</STRONG>、
キーワード<STRONG>「<%= @target['word'] %>」</STRONG>、
人物<STRONG>「<%= @target["person"] %>」</STRONG>
で検索した結果、<STRONG><%= hit %>件</STRONG>見つかりました。</P>

<HR>
<!-- 検索結果を表示 -->
<% if @result.empty? then %>
<P>　お探しのものは見つかりませんでした……。</P>
<% else %>
  <% @result.each do |result| %>
  <P><STRONG>#<%= result[0] %></STRONG>　<%= result[1] %><BR>
  <SMALL>【<%= result[2] %>】　（<%= result[3] %>）　（<%= result[4] %>）</SMALL></P>
  <% end %>
<% end %>

# 掲示板クラス
require 'erb/erbl'

class Board
  def initialize( board_url )
    @board_url = board_url	# 書出し先の位置を把握
  end
  
  def post( reply_no = "" )
    # 投稿画面を出力する
    # 出力には ERuby を使用
  end
  
  def write( article = "" )
    # 投稿された記事を HTML に書き出す
    # 出力には ERuby を使用
  end
  
  def make_log
    # 一定数の書き込みがあった場合、過去ログを作成する
  end
end

require 'runit/testcase'
require 'runit/cui/testrunner'
require 'board'

class TestBoard < RUNIT::TestCase
  ### 初期化のテスト ###
  def test_initialize
    board = Board.new("test_bbs")
    assert_instance_of(Board, board)
  end
end

if $0 == __FILE__
  if ARGV.size == 0
    suite = TestBoard.suite
  else
    suite = RUNIT::TestSuite.new
    ARGV.each do |testmethod|
      suite.add_test(TestBoard.new(testmethod))
    end
  end
  RUNIT::CUI::TestRunner.run(suite)
end

function cls()
{
  var win = 0;
  var lose = 0;
  var even = 0;
}

  ##### post メソッドのテスト #####
  def test_post
    reply1 = "1"
    reply_nil = nil
    post_html = File::readlines("test_bbs/post.html").join
    board = Board.new("test_bbs")
    
    # reply があった場合
    reply_num = "1"
    post_interface = ERbLight::new(post_html).result(binding)
    assert_equal(post_interface, board.post(reply1))
    
    # 新規投稿の場合
    reply_num = ""
    post_interface = ERbLight::new(post_html).result(binding)
    assert_equal(post_interface, board.post(reply_nil))
  end

  ##### 投稿画面の提供 #####
  def post( reply_num )
    reply_num = "" if reply_num == nil
    post_html = File::readlines(File::join(@board_url, "post.html")).join
    return ERbLight::new(post_html).result(binding)
  end

  ##### 記事の書き込み #####
  def write ( article )
    # 何らかの方法で index ファイルを作成
    return File::join( @board_url, "index.html" )
  end

  ##### 記事書き込みの確認 #####
    def test_write
      article = {"title" => "test title",
                 "name" => "hogehoge",
                 "body" => "これは書き込みのテストです"}
      File::copy("test_bbs/base_index.html", "test_bbs/index.html")
      board = Board.new("test_bbs")
      board.write(article)
      test_new_index = File::readlines("test_bbs/test_new_index.html").join
      new_index = File::readlines("test_bbs/index.html").join
      
      assert_equal(test_new_index, new_index)
    end

  def write( article = "" )
    num = File::readlines(File::join(@board_url, "id")).join.to_i + 1
    template_file = File::readlines(File::join(@board_url, "template.rhtml")).join
    new_article = ERbLight::new(template_file).result(binding)
    index_file = File::join(@board_url, "index.html")
    
    if num % @max_num == 1 && num != 1
      # backup ファイルの作成処理
    else
      backup_file = File::join(@board_url, "index.bak")
      File::rename(index_file, backup_file)
      p_write(new_article, backup_file)
    end
    return index_file
  end
  
  ## 最終的には private メソッド化する 
  def p_write( new_article, base_file )
    File::open(File::join(@board_url, "index.html"), "w"){|index_file|
      File::open(base_file, "r"){|file|
        while line = file.gets
          if line =‾ //
            index_file.write(new_article)
          else
            index_file.write(line)
          end
        end
      }
    }
  end

#! /usr/local/bin/ruby

require 'erb/erbl'

class Board
  def initialize( board_url )
    base_url = "./"
    @board_url = base_url + board_url
    
    # 指定されたディレクトリが存在しない場合の処理
    
    # ここから先は最終的に設定ファイルに移行
    @max_num = 20
    @board_file = "index.html"
  end
  
  ##### 投稿画面の提供 #####
  def post( reply_num )
    reply_num = "" if reply_num == nil
    post_html = File::readlines(File::join(@board_url, "post.html")).join
    return ERbLight::new(post_html).result(binding)
  end
  
  ##### 書き込み #####
  def write( article = "" )
    num = p_number()
    template_file = File::readlines(File::join(@board_url, "template.rhtml")).join
    new_article = ERbLight::new(template_file).result(binding)
    index_file = File::join(@board_url, @board_file)
    
    ### 過去ログの作成判断 ###
    if num % @max_num == 1 && num != 1
      backup_file = p_make_log(num)
    else
      backup_file = File::join(@board_url, "index.bak")
      File::rename(index_file, backup_file)
    end
    
    p_write(new_article, backup_file)
    return index_file
  end
  
  ##### 実際の書き込み #####
  def p_write( new_article, base_file )
    File::open(File::join(@board_url, @board_file), "w"){|index_file|
      File::open(base_file, "r"){|file|
        while line = file.gets
          if line =‾ //
            index_file.write(new_article)
          else
            index_file.write(line)
          end
        end
      }
    }
  end
  
  ##### ログの作成 #####
  def p_make_log( num )
    file_num = (num / @max_num).truncate
    log_file = file_num.to_s + ".html"
    index_file = File::join(@board_url, @board_file)
    
    File::rename(index_file, File::join(@board_url, log_file))
    
    body_template = File::readlines(File::join(@board_url, "body_template.rhtml")).join
    backup_file = File::join(@board_url, "index.bak")
    File::open(backup_file, "w"){|file|
      file.write(body_template)
    }
    return backup_file
  end
  
  ##### 記事 id の管理 #####
  def p_number
    # idファイルが存在しない場合の処理
    id_file = File::join(@board_url, "id")
    num = File::readlines(id_file).join.to_i + 1
    File::open(id_file, "w"){|file|
      file.write(num)
    }
    return num
  end
end

class Article
  def initialize( cgi_params )
    @params = {}
    @params.default = ""
    @params = cgi_params.first
  end
end

class TestArticle < RUNIT::TestCase
  def test_initialize
    cgi_params = {
      "test1" => ["test_1", "test_2"],
      "test2" => ["test_2"],
      "test3" => [nil]
    }
    article = Article.new(cgi_params)
    assert_instance_of(Article, article)
    assert_equal("test_1", article.params["test1"])
    assert_equal("test_2", article.params["test2"])
    assert_equal("", article.params["test3"])
  end
end

class Article
  attr_reader :params
  
  def initialize( cgi_params )
    @params = Hash.new()
    @params.default = ""
    cgi_params.each_key{|key|
      if cgi_params[key].first == nil
        @params[key] = ""
      else
        @params[key] = cgi_params[key].first
      end
    }
  end
end

  def []( *args )
    @params[*args]
  end

  def test_initialize
    （省略）
    assert_equal("test_1", article["test1"])
    assert_equal("test_2", article["test2"])
    assert_equal("", article["test3"])
    assert_equal("", article["none_key"])
  end

  def toeuc
    @params.each_key{|key|
      @params[key].toeuc
    }
  end
  
  def tojis
    @params.each_key{|key|
      @params[key].tojis
    }
  end
  
  def toeuc!
    @params.each_key{|key|
      @params[key] = @params[key].toeuc
    }
  end
  
  def tojis!
    @params.each_key{|key|
      @params[key] = @params[key].tojis
    }
  end

  def set_br
    self.gsub(/¥n/, "<BR>¥n;")
  end

  def reply( re_num, str )
    if re_num == ""
      link_article = ""
    else
      id_file = File::join(@board_url, "id")
      num = File::readlines(id_file).join.to_i
      file_num = (re_num.to_i / @max_num).truncate + 1
      if file_num == (num / @max_num).truncate + 1
        link_article = '<A href="#' + re_num.to_s + '">' + str + '</A>'
      else
        link_article = '<A href="' + file_num.to_s + '.html#' + re_num.to_s + '">' + str + '</A>'
      end
    end
    return link_article
  end

  def test_reply
    article = {"test1" => "10"}
    File::copy("test_bbs/base_index.html", "test_bbs/index.html")
    make_id_file("25")
    board = Board.new("./test_bbs")
    board.write(article)
    assert_equal('', board.reply("", "元記事"))
    assert_equal('<A href="1.html#10">元記事</A>', board.reply("10", "元記事"))
    assert_equal('<A href="#21">元記事</A>', board.reply("21", "元記事"))
  end