- update css(for textarea)

[feedblog/feedgenerator.git] / feedgenerator.rb

#!/usr/local/bin/ruby\r
# -*- coding: utf-8 -*-\r
#\r
#= Atom Feed 1.0を管理するWEBアプリケーション\r
#\r
#Autohr::    Kureha Hisame (http://lunardial.sakura.ne.jp/) & Yui Naruse (http://airemix.com/)\r
#Version::   3.0.0.0\r
#Copyright:: Copyright 2009 FeedBlog Project (http://sourceforge.jp/projects/feedblog/)\r
#License::   GPLv3\r
\r
require "cgi"\r
require "cgi/session"\r
require "erb"\r
require "rexml/document"\r
require "pstore"\r
require 'time'\r
require "date"\r
require "fileutils"\r
\r
require "./common.rb"\r
require "./define.rb"\r
\r
# = Feed/Entryのスーパークラス\r
# \r
# 入出力用のメソッドなど、共通する機能を提供します\r
class AbstractEntry\r
  # 初期化メソッドです\r
  #\r
  # _hash_ :: 値を格納したhash配列。superfeed.new(CGI::Session.new(new CGI).params)のようにして使う。\r
  def initialize(hash)\r
    # 内部データ保持用のハッシュ配列です\r
    @attr = {}\r
    \r
    # 引数を格納します\r
    @paramlist.each do |key|\r
      val = hash[key.to_sym] || hash[key.to_s]\r
      if val\r
        val.strip!\r
        val.gsub!(/\r\n|\r/, "\n")\r
        @attr[key.to_sym] = CGI.escapeHTML(val)\r
      else\r
        # 空の場合の対策\r
        @attr[key.to_sym] = ""\r
      end\r
    end\r
    \r
    # 可視・不可視を示すハッシュキーを格納する配列です\r
    @display = {}\r
    \r
    # ハッシュキーの日本語説明を格納する配列です\r
    @name = []\r
  end\r
  \r
  # Accessor\r
  attr_reader :attr, :paramlist, :name, :display\r
  \r
  # 内部の@attrハッシュにアクセスする手段を提供するメソッドです\r
  #\r
  # AbstractEntry.attr[:title]にアクセスしたい場合はAbstractEntry.titleで可能になります。\r
  # AbstractEntry.send("title")という方法でもアクセス可能です。\r
  def method_missing(methname, *args)\r
    methname = methname.to_s\r
    \r
    if methname[-1] == ?=\r
      # setter\r
      raise ArgumentError, "wrong number of arguments (#{args.length} for 1)" unless args.length == 1\r
      methname.chop!\r
      methname = @paramlist.find{|par|par == methname}\r
      return @attr[methname.to_sym] = args[0] if methname\r
    else\r
      # getter\r
      raise ArgumentError, "wrong number of arguments (#{args.length} for 0)" unless args.empty?\r
      return @attr[methname.to_sym] if @attr.key?(methname.to_sym)\r
    end\r
    # attr上にキーがない値を入れようとした場合はNoMethodError\r
    raise NoMethodError\r
  end\r
  \r
  def [](key)\r
    @attr[key.to_sym]\r
  end\r
  \r
  def []=(key, value)\r
    @attr[key.to_sym] = value\r
  end\r
end\r
\r
# = Feedクラス\r
#\r
# Feedの基礎情報を保有するクラスです\r
class Feed < AbstractEntry\r
  # 初期化メソッドです\r
  #\r
  # _hash_ :: 値を格納したhash配列。feed.new(CGI::Session.new(new CGI).params)のようにして使います。\r
  def initialize(hash)\r
    # 内部データ保持用のハッシュ配列です\r
    @attr = {}\r
    \r
    # 内部データの項目名を格納する配列です\r
    @paramlist = ["feedattr", "title", "subtitle", "self", "url", "updated", "feedid", "rights", "aname", "amail", "others"]\r
    \r
    # AbstractEntryのinitializeメソッドを呼び出し、値を@attr配列に格納します\r
    super(hash)\r
    \r
    # 可視・不可視を示すハッシュキーを格納する配列です\r
    @display = {"feedattr" => "none", "title" => "", "subtitle" => "", \r
      "self" => "", "url" => "", \r
      "updated" => "none", "feedid" => "", \r
      "rights" => "", "aname" => "", \r
      "amail" => "", "others" => "none"}\r
    \r
    # デバッグモードの場合、全ての入力要素を表示します\r
    if DEBUG == true\r
      @display.each do |key, val|\r
        @display[key] = ""\r
      end\r
    end\r
    \r
    # ハッシュキーの日本語説明を格納する配列です\r
    @name = {"feedattr" => "feedの保持している属性", "title" => "ウェブページのタイトル", "subtitle" => "ウェブページの簡単な説明", \r
      "self" => "このXMLファイルのURL", "url" => "ウェブページのURL", \r
      "updated" => "XMLファイルの最終更新日", "feedid" => "あなたのページ独自のID", \r
      "rights" => "ページの著作権表記", "aname" => "ページの製作者", \r
      "amail" => "ページ製作者のメールアドレス", "others" => "その他の要素"}\r
    \r
  end\r
  \r
  # Atom XMLファイルを読み込んで解析し、等価なFeedオブジェクトを返却するメソッドです\r
  #\r
  # _path_ :: Atom XMLファイルのパス\r
  def self.readxml(path)\r
    \r
    # ファイルを読み込みます\r
    doc = REXML::Document.new(myopen(path, "r:utf-8"){|f|f.read})\r
    xml = {}\r
    others = []\r
    \r
    # Feedの属性値を取得します\r
    xmlattr = []\r
    doc.elements["feed"].attributes.each_attribute do |attr|\r
      xmlattr.push("#{attr.to_string} ")\r
    end\r
    xml[:feedattr] = xmlattr.join("\n").gsub(/"/, "'")\r
    \r
    # XML解析部分です。各element毎に判定を行います\r
    doc.elements.each("feed") do |elm|\r
      elm.elements.each { |child|\r
        begin\r
          case child.name\r
            when "id"\r
            xml[:feedid] = child.text\r
            when "title", "subtitle", "updated", "rights"\r
            xml[child.name.to_sym] = child.text\r
            when "author"\r
            child.elements.each do |gchild|\r
              case gchild.name\r
                when "name"\r
                xml[:aname] = gchild.text\r
                when "email"\r
                xml[:amail] = gchild.text\r
              end\r
            end\r
            when "link"\r
            child.attributes.each do |k, v|\r
              if k == "rel"\r
                if v == "self"\r
                  xml[:self] = child.attributes["href"]\r
                elsif v == "alternate"\r
                  xml[:url] = child.attributes["href"]\r
                end\r
              end\r
            end\r
            when "entry"\r
            # Entry要素は無視します\r
          else\r
            # 上記判定以外の全要素は配列に格納します\r
            others.push(child.to_s)\r
          end\r
        rescue NoMethodError\r
        end\r
        \r
      }\r
    end\r
    \r
    # Others要素を結合して代入します\r
    xml[:others] = others.join("\n")\r
    feed = Feed.new(xml)\r
    return feed\r
  end\r
  \r
  # 内部に保持している情報を、Atom Feed1.0形式の文字列に出力するメソッドです\r
  def to_s\r
    buf = []\r
    \r
    # buf.push("<feed #{@attr[:feedattr]}>")\r
    buf.push("<feed xml:lang='ja-jp' xmlns='http://www.w3.org/2005/Atom'>");\r
    buf.push("<title type=\"text\">#{@attr[:title]}</title>")\r
    buf.push("<subtitle type=\"text\">#{@attr[:subtitle]}</subtitle>")\r
    buf.push("<link rel=\"self\" type=\"application/atom+xml\" href=\"#{@attr[:self]}\" />")\r
    buf.push("<link rel=\"alternate\" type=\"text/html\" href=\"#{@attr[:url]}\" />")\r
    buf.push("<updated>#{Time.now.iso8601}</updated>")\r
    buf.push("<id>#{@attr[:feedid]}</id>")\r
    buf.push("<rights type=\"text\">#{@attr[:rights]}</rights>")\r
    buf.push("<author>")\r
    buf.push("\t<name>#{@attr[:aname]}</name>")\r
    buf.push("\t<email>#{@attr[:amail]}</email>")\r
    buf.push("</author>")\r
    buf.push("#{CGI.unescapeHTML(@attr[:others])}") if @attr[:others] != ""\r
    \r
    return buf.join("\n")\r
  end\r
  \r
  # Feed情報更新メソッド\r
  def self.update(path, feed)\r
    entrylist = Entry.readxml(path)\r
    Feed.to_xml(path, feed, entrylist)\r
    \r
    true\r
  end\r
  \r
  # XMLファイル出力用メソッドです\r
  #\r
  # _feed_ :: Feedオブジェクト\r
  # _entry_ :: Entryオブジェクトの配列\r
  def self.to_xml(path, feed, entrylist_tmp)\r
    buf = []\r
    entrylist = entrylist_tmp.dup\r
    buf.push("<?xml version=\"1.0\" encoding=\"utf-8\"?>")\r
    buf.push("#{feed.to_s}\n")\r
    entrylist.each { |entry|\r
      if REPLACEENTRYIDANDURL\r
        entry.entryid.gsub!(/^[^\?]*\?/, "")\r
        entry.entryid = feed.url + "?" + entry.entryid\r
        entry.url = feed.url + "#" + entry.entryid\r
      end\r
      buf.push("#{entry.to_s}\n")\r
    }\r
    buf.push("</feed>")\r
    \r
    myopen(path, "w") do |f|\r
      f.print buf.join("\n")\r
    end\r
  end\r
  \r
  # XMLファイル出力用メソッドです\r
  #\r
  # _feed_ :: Feedオブジェクト\r
  # _entry_ :: Entryオブジェクトの配列\r
  def self.to_xml_plain(path, feed, entrylist)\r
    buf = []\r
    buf.push("<?xml version=\"1.0\" encoding=\"utf-8\"?>")\r
    buf.push("#{feed.to_s}\n")\r
    entrylist.each { |entry|\r
      buf.push("#{entry.to_s}\n")\r
    }\r
    buf.push("</feed>")\r
    \r
    myopen(path, "w") do |f|\r
      f.print buf.join("\n")\r
    end\r
  end\r
  \r
end\r
\r
# = Entryクラス\r
#\r
# Entryの基礎情報を保有するクラスです\r
class Entry < AbstractEntry\r
  # 初期化メソッドです\r
  #\r
  # _hash_ :: 値を格納したhash配列。entry.new(CGI::Session.new(new CGI).params)のようにして使います。\r
  def initialize(hash)\r
    # 内部データ保持用のハッシュ配列です\r
    @attr = {}\r
    \r
    # 内部データの項目名を格納する配列です\r
    @paramlist = ["entryid", "title", "summary", "published", "updated", "url", "content", "category", "others"]\r
    \r
    # AbstractEntryのinitializeメソッドを呼び出し、値を@attr配列に格納します\r
    super(hash)\r
    \r
    # 可視・不可視を示すハッシュキーを格納する配列です\r
    @display = {"entryid" => "none", "title" => "",\r
      "summary" => "", "published" => "none",\r
      "updated" => "none", "url" => "",\r
      "content" => "", "category" => "", \r
      "others"=>"none"}\r
    \r
    # デバッグモードの場合、全ての入力要素を表示します\r
    if DEBUG == true\r
      @display.each do |key, val|\r
        @display[key] = ""\r
      end\r
    end\r
    \r
    # ハッシュキーの日本語説明を格納する配列です\r
    @name = {"entryid" => "記事固有のID", "title" => "記事のタイトル",\r
      "summary" => "記事の簡単な説明", "published" => "記事の出版時刻",\r
      "updated" => "記事の更新時刻", "url" => "記事へのURLアドレス",\r
      "content" => "記事の本文", "category" => "タグ", "others"=>"その他の項目"}\r
  end\r
  \r
  # Atom XMLファイルを読み込んで解析し、等価なEntryオブジェクト配列を返却するメソッドです\r
  #\r
  # _path_ :: Atom XMLファイルのパス\r
  def self.readxml(path)\r
    \r
    # ファイルを読み込みます\r
    doc = REXML::Document.new(myopen(path, "r:utf-8"){|f|f.read})\r
    entrylist = []\r
    xml = {}\r
    \r
    # XML解析部分です。各element毎に判定を行います\r
    doc.elements.each("feed/entry") do |elm|\r
      xml = {}\r
      category = []\r
      others = []\r
      elm.elements.each do |child|\r
        begin\r
          case child.name\r
            when "id"\r
            xml[:entryid] = child.text\r
            when "link"\r
            xml[:url] = child.attributes["href"]\r
            when "title", "summary", "summary", "published", "updated", "content"\r
            xml[child.name.to_sym] = child.text\r
            when "category"\r
            category << child.to_s\r
          else\r
            # 上記判定以外の全要素は配列に格納します\r
            others.push(child.to_s)\r
          end\r
        rescue NoMethodError\r
        end\r
      end\r
      # Category要素を代入します\r
      xml[:category] = category.join("\n")\r
      # Others要素を結合して代入します\r
      xml[:others] = others.join("\n")\r
      entrylist.push(Entry.new(xml))\r
    end\r
    \r
    return entrylist\r
  end\r
  \r
  # Atom XMLファイルを読み込んで解析し、テンプレートファイルにしたがってHTMLに変換するメソッドです\r
  def self.to_html(xmlpath, destpath, entry_temppath, html_temppath)\r
    # 引数チェック - 全必須\r
    if xmlpath.empty? or destpath.empty? or entry_temppath.empty? or html_temppath.empty?\r
      raise ArgumentError\r
    end\r
    \r
    # 必須ファイル存在チェック\r
    unless File.exist?(xmlpath) and File.exist?(entry_temppath) and File.exist?(html_temppath)\r
      raise IOError\r
    end\r
    \r
    # XML読み込み\r
    entrylist = Entry.readxml(xmlpath)\r
    \r
    body = ''\r
    entrylist.each { |e|\r
      # Entry毎のHTML表示部分を生成\r
      body << e.to_template(entry_temppath)\r
    }\r
    \r
    # HTML全体のテンプレートを生成\r
    html_temp = HtmlWriter.new(html_temppath, binding)\r
    \r
    # HTMLに書き込み\r
    myopen(destpath, 'w:utf-8') { |f|\r
      f.write(CGI.pretty(html_temp.to_code))\r
    }\r
  end\r
  \r
  # Entryをテンプレートに沿って変形するメソッド\r
  def to_template(temppath)\r
    erb = HtmlWriter.new(temppath, binding)\r
    title = CGI.unescapeHTML(@attr[:title])\r
    date = @attr[:published]\r
    content = CGI.unescapeHTML(@attr[:content])\r
    erb.to_code\r
  end\r
  \r
  # Entry挿入メソッド\r
  def self.insert(path, entry)\r
    feed = Feed.readxml(path)\r
    entrylist = Entry.readxml(path)\r
    entrylist.unshift entry\r
    \r
    Feed.to_xml(path, feed, entrylist)\r
    \r
    true\r
  end\r
  \r
  # Entry更新メソッド\r
  def self.update(path, entry)\r
    feed = Feed.readxml(path)\r
    entrylist = Entry.readxml(path)\r
    \r
    successed = false\r
    entrylist.each_with_index { |e, i|\r
      if e.entryid == entry.entryid\r
        entrylist[i] = entry \r
        successed = true\r
      end\r
    }\r
    Feed.to_xml(path, feed, entrylist) if successed\r
    \r
    successed\r
  end\r
  \r
  # Entryロードメソッド\r
  def self.select(path, entryid)\r
    feed = Feed.readxml(path)\r
    entrylist = Entry.readxml(path)\r
    \r
    entry = nil\r
    entrylist.each_with_index { |e, i|\r
      entry = entrylist[i].dup if e.entryid == entryid\r
    }\r
    \r
    entry\r
  end\r
  \r
  # Entry消去メソッド\r
  def self.delete(path, entryid)\r
    feed = Feed.readxml(path)\r
    entrylist = Entry.readxml(path)\r
    \r
    successed = false\r
    delete_index = -1\r
    entrylist.each_with_index { |e, i|\r
      if e.entryid == entryid\r
        delete_index = i\r
        successed = true\r
      end\r
    }\r
    \r
    if successed\r
      entrylist.delete_at delete_index\r
      Feed.to_xml(path, feed, entrylist)\r
    end\r
    \r
    successed\r
  end\r
  \r
  # データソースから読み取ったHTMLを、エディタで編集可能な形式に変換するメソッドです\r
  def content_for_generator\r
    str = @attr[:content].dup\r
    str.strip!\r
    str.gsub!(/(&lt;\/(?:p|h\d|div)(?:&gt;|>))\n/i, '\1')\r
    str.gsub!(/\n/, '&lt;br&gt;') if REPLACEBRTAG\r
    str.gsub!(/(&lt;(?:(?!&gt;).)*?)#{Regexp.escape(RELAYPATH)}/) { "#$1#{HOMEBASE}" }\r
    str\r
  end\r
  \r
  # エディタで編集されたCONTENT要素を、データソースに書き込める形式に変換するメソッドです\r
  def content_for_blog\r
    str = @attr[:content].dup\r
    str = CGI.unescapeHTML(str)\r
    str.strip!\r
    str.gsub!(/(\r\n|\n)/, "")\r
    str.gsub!(/<br>|<br[ ]*\/>/i, "\n") if REPLACEBRTAG\r
    str.gsub!(/(<br>|<br[ ]*\/>|<\/p>|<\/h\d>|<\/div>)(?=[^\n])/i) { "#$1\n" } unless REPLACEBRTAG\r
    str.gsub!(/(<[^>]*?)#{Regexp.escape(HOMEBASE)}/) { "#$1#{RELAYPATH}" }\r
    CGI.escapeHTML(str)\r
  end\r
  \r
  # 確認画面で表示されるCONTENT要素を生成するメソッドです\r
  def content_for_view\r
    str = @attr[:content].dup\r
    str = CGI.unescapeHTML(str)\r
    str.strip!\r
    str.gsub!(/<br>|<br[ ]*\/>/i, "\n") if REPLACEBRTAG\r
    str.gsub!(/(<[^>]*?)#{Regexp.escape(RELAYPATH)}/) { "#$1#{HOMEBASE}" }\r
    str\r
  end\r
  \r
  # 内部に保持している情報を、Atom Feed1.0形式の文字列に出力するメソッドです\r
  def to_s\r
    buf = []\r
    buf.push("<entry>")\r
    buf.push("<id>#{@attr[:entryid]}</id>")\r
    buf.push("<title>#{@attr[:title]}</title>")\r
    buf.push("<summary>#{@attr[:summary]}</summary>")\r
    buf.push("<published>#{@attr[:published]}</published>")\r
    buf.push("<updated>#{@attr[:updated]}</updated>")\r
    buf.push("<link href=\"#{@attr[:url]}\" />")\r
    buf.push("<content type=\"html\">#{@attr[:content]}</content>")\r
    buf.push("#{CGI.unescapeHTML(@attr[:category])}") if @attr[:category] != ""\r
    buf.push("#{CGI.unescapeHTML(@attr[:others])}") if @attr[:others] != ""\r
    buf.push("</entry>")\r
    \r
    return buf.join("\n")\r
  end\r
end\r
\r
# = LogListクラス\r
#\r
# loglist.xmlにかかわる入出力を行います\r
class LogList\r
  # 初期化メソッドです\r
  #\r
  # _display_ :: 画面表示用文字の配列\r
  # _path_ :: XMLファイルパスの配列\r
  # _logpath_ :: loglist.xmlのパス\r
  def initialize(display, path, logpath)\r
    @display = display\r
    @path = path\r
    @logpath = logpath\r
  end\r
  \r
  attr_accessor :display, :path, :logpath\r
  \r
  # loglist.xmlファイルを読み込んで解析し、LogListオブジェクトを返却するメソッドです\r
  #\r
  # _logpath_ :: loglist.xmlへのパス\r
  def LogList.readxml(logpath)\r
    \r
    # ファイルを読み込みます\r
    lines = []\r
    myopen(logpath, "r:utf-8") { |f|\r
      lines = f.readlines\r
    }\r
    \r
    doc = REXML::Document.new(lines.join("\n"))\r
    @display = []\r
    @path = []\r
    \r
    doc.elements.each("list/file") { |elm|\r
      elm.elements.each {|child|\r
        case child.name\r
          when "display"\r
          @display.push(child.text)\r
          when "path"\r
          @path.push(child.text)\r
        else \r
          # With no action\r
        end\r
      }\r
    }\r
    \r
    return LogList.new(@display, @path, logpath)\r
  end\r
  \r
  # loglist.xmlにオブジェクトの内容を反映するメソッドです\r
  def to_xml\r
    buf = []\r
    buf.push("<list>")\r
    path.each_with_index do |path, i|\r
      buf.push("<file>")\r
      buf.push("<display>#{@display[i]}</display>")\r
      buf.push("<path>#{@path[i]}</path>")\r
      buf.push("</file>")\r
    end\r
    buf.push("</list>")\r
    \r
    myopen(@logpath, "w") do |f|\r
      f.print buf.join("\n")\r
    end\r
  end\r
  \r
end\r
\r
# = FileUploaderクラス\r
#\r
# 画像の管理を行うクラスです\r
class FileUploader\r
  # 初期化メソッドです\r
  def initialize\r
  end\r
  \r
  # ファイルの一覧を取得し、ファイル名称を格納した配列を返却します\r
  def filelist\r
    arr = Dir::entries(XMLPATH).sort\r
    arr.delete(".")\r
    arr.delete("..")\r
    \r
    return arr\r
  end\r
  \r
  # ファイルの消去を実行します\r
  #\r
  # _name_ :: 消去するファイル名\r
  def delete(name)\r
    File.delete(XMLPATH + name.match(/[^\/]*?$/).to_a[0])\r
  end\r
  \r
  # ファイルのアップロードを実行します\r
  #\r
  # _name_ :: アップロードファイルの名称\r
  # _img_ :: アップロードファイル\r
  def upload(name, img)\r
    open(XMLPATH + File.basename(name), "w") do |f|\r
      f.binmode\r
      f.write img\r
    end\r
  end\r
end\r
\r
# = Pluginクラス\r
#\r
# プラグインの処理を行うクラスです\r
class FeedGenPluginManager\r
  def self.exec(mode, filepath)\r
    feed = Feed.readxml(XMLPATH + filepath)\r
    entries = Entry.readxml(XMLPATH + filepath)\r
    feed.freeze\r
    entries.freeze\r
    Dir.foreach(PLUGINDIR) do |fn|\r
      next unless File.extname(fn) == '.rb'\r
      require File.join(PLUGINDIR, fn)\r
      plugin_name = "FeedGenPlugins::"\r
      plugin_name << File.basename(fn).gsub(/\.rb\Z/, "")\r
      plugin_ins = plugin_name.split(/::/).inject(Object) { |c,name| c.const_get(name) }\r
      plugin_ins.new.exec(mode, feed, entries)\r
    end\r
  end\r
end\r
\r
# = Controllerクラス\r
#\r
# コントローラ部分に相当する処理を受け持つクラスです\r
class Controller\r
  def Controller.NormalForm(cgi, session, params, db)\r
    db.transaction do\r
      # modeとactionの相関図は以下のようになります。\r
      # [mode] + [action]\r
      #        + [action]\r
      #        + [action]\r
      #        + ... and more\r
      case params["mode"]\r
        # ログ選択画面\r
        when "logselect"\r
        session["filepath"] = params["logpath"]\r
        db["loglist"] = LogList.readxml(LISTXMLPATH)\r
        # 初期状態で選択されるログは「loglist.xml」の最上に位置するログになります\r
        session["filepath"] = db["loglist"].path[0] if session["filepath"] == nil\r
        db["feed"] = Feed.readxml(XMLPATH + File.basename(session["filepath"]))\r
        db["entry"] = Entry.readxml(XMLPATH + File.basename(session["filepath"]))\r
        \r
        # 新規記事追加部分\r
        when "newentry"\r
        case params["action"]\r
          # 確認画面\r
          when "confirm"\r
          session["target_filepath"] = params["target_filepath"]\r
          db["newentry"] = Entry.new(params)\r
          db["newentry"].content = db["newentry"].content_for_blog\r
          # 記事の追記を実際にファイルに反映\r
          when "exec"\r
          session["target_filepath"] = params["target_filepath"]\r
          successed = Entry.insert(XMLPATH + File.basename(params["target_filepath"]), Entry.new(params))\r
          unless successed\r
            session["error"] = "記事の新規追加に失敗しました。" \r
            params["mode"] = "error"\r
          else\r
            # 成功時はプラグイン処理を実施する\r
            FeedGenPluginManager.exec("newentry", File.basename(session["filepath"]))\r
            session["info"] = "記事の新規作成が成功しました。"\r
          end\r
          # 画面を戻った際の処理\r
          when "back"\r
          session["target_filepath"] = params["target_filepath"]\r
          db["newentry"] = Entry.new(params)\r
        else \r
          # New Diary - Default\r
          session["target_filepath"] = session["filepath"]\r
          db["feed"] = Feed.readxml(XMLPATH + File.basename(session["filepath"]))\r
          db["entry"] = Entry.readxml(XMLPATH + File.basename(session["filepath"]))\r
        end\r
        \r
        # 記事編集部分\r
        when "editentry"\r
        case params["action"]\r
          # 編集画面\r
        when "edit"\r
          session["target_filepath"] = params["target_filepath"]\r
          session["editid"] = cgi["editid"].to_s\r
          db["editentry"] = Entry.select(XMLPATH + File.basename(session["target_filepath"]), session["editid"])\r
          # 確認画面\r
        when "confirm"\r
          session["target_filepath"] = params["target_filepath"]\r
          session["editid"] = cgi["editid"].to_s\r
          db["editentry"] = Entry.new(params)\r
          db["editentry"].content = db["editentry"].content_for_blog\r
          # 記事の変更を実際にファイルに反映\r
        when "exec"\r
          session["target_filepath"] = params["target_filepath"]\r
          successed = Entry.update(XMLPATH + File.basename(params["target_filepath"]), Entry.new(params))\r
          unless successed\r
            session["error"] = "記事の編集処理に失敗しました。該当の日記が既に存在しない可能性があります。" \r
            params["mode"] = "error"\r
          else\r
            # 成功時はプラグイン処理を実施する\r
            FeedGenPluginManager.exec("editentry", File.basename(session["filepath"]))\r
            session["info"] = "記事の編集が完了しました。"\r
            \r
            # 一覧を更新後の内容で更新する。\r
            session["target_filepath"] = session["filepath"]\r
            db["feed"] = Feed.readxml(XMLPATH + File.basename(session["filepath"]))\r
            db["entry"] = Entry.readxml(XMLPATH + File.basename(session["filepath"]))\r
          end\r
        when "back"\r
          session["target_filepath"] = params["target_filepath"]\r
          db["editentry"] = Entry.new(params)\r
        else\r
          # Edit Diary - Default\r
          session["target_filepath"] = session["filepath"]\r
          db["feed"] = Feed.readxml(XMLPATH + File.basename(session["filepath"]))\r
          db["entry"] = Entry.readxml(XMLPATH + File.basename(session["filepath"]))\r
        end\r
        \r
        # 記事削除部分\r
        when "delentry"\r
        case params["action"]\r
          # 確認画面\r
          when "confirm"\r
          session["target_filepath"] = params["target_filepath"]\r
          session["delid"] = cgi["delid"].to_s\r
          db["delentry"] = Entry.select(XMLPATH + File.basename(session["target_filepath"]), session["delid"])\r
          # 記事の削除を実際にファイルに反映\r
          when "exec"\r
          session["target_filepath"] = params["target_filepath"]\r
          successed = Entry.delete(XMLPATH + File.basename(params["target_filepath"]), cgi["delid"].to_s)\r
          unless successed\r
            session["error"] = "日記の編集処理に失敗しました。該当の日記が既に存在しない可能性があります。" \r
            params["mode"] = "error"\r
          else\r
            # 成功時はプラグイン処理を実施する\r
            FeedGenPluginManager.exec("delentry", File.basename(session["filepath"]))\r
            session["info"] = "記事の削除に成功しました。"\r
            \r
            # 内容を更新する\r
            session["target_filepath"] = session["filepath"]\r
            db["feed"] = Feed.readxml(XMLPATH + File.basename(session["filepath"]))\r
            db["entry"] = Entry.readxml(XMLPATH + File.basename(session["filepath"]))\r
          end\r
          when "back"\r
          session["target_filepath"] = params["target_filepath"]\r
          db["feed"] = Feed.readxml(XMLPATH + File.basename(session["target_filepath"]))\r
          db["entry"] = Entry.readxml(XMLPATH + File.basename(session["target_filepath"]))\r
        else\r
          # Delete Diary - Default\r
          session["target_filepath"] = session["filepath"]\r
          db["feed"] = Feed.readxml(XMLPATH + File.basename(session["filepath"]))\r
          db["entry"] = Entry.readxml(XMLPATH + File.basename(session["filepath"]))\r
        end\r
        \r
        # Feed情報変更部分\r
        when "editfeed"\r
        case params["action"]\r
          # 確認画面\r
        when "confirm"\r
          session["target_filepath"] = params["target_filepath"]\r
          db["feed"] = Feed.new(params)\r
          # 実際にFeed情報の変更をファイルに反映\r
        when "back"\r
          session["target_filepath"] = params["target_filepath"]\r
          db["feed"] = Feed.new(params)\r
        when "exec"\r
          session["target_filepath"] = params["target_filepath"]\r
          Feed.update(XMLPATH + File.basename(params["target_filepath"]), Feed.new(params))\r
          session["info"] = "基本情報の更新が完了しました。"\r
        else\r
          session["target_filepath"] = session["filepath"]\r
          db["feed"] = Feed.readxml(XMLPATH + File.basename(session["filepath"]))\r
        end\r
        \r
        # ログ編集モード\r
        when "log"\r
          # 必ず内部データをリフレッシュする\r
          db["loglist"] = LogList.readxml(LISTXMLPATH)\r
          case params["action"]\r
          # ログファイルの編集を実際にファイルに反映\r
          when "addexec"\r
            # エラーチェック。この段階のエラーは強度のエラーを発する。\r
            db["loglist"].path.each do |val|\r
              if val == cgi["logpath"]\r
                # 重複していた場合エラーメッセージを表示し、処理を行わない\r
                params["action"] = ""\r
                params["mode"] = "error"\r
                session["error"] = "ログファイルの追加中に重大なエラーが発生しました。環境を見直してください。"\r
                return\r
              end\r
            end\r
          \r
            # 入力された内容を保持する配列に追加\r
            db["loglist"].path[1, 0] = cgi["logpath"]\r
            db["loglist"].display[1, 0] = cgi["logdisplay"]\r
            db["loglist"].to_xml\r
            # 既存のdiary.xmlを指定された名称でコピーして保存\r
            FileUtils.copy_file(XMLPATH + File.basename(db["loglist"].path[0]), XMLPATH + File.basename(db["logpath"]), true)\r
            # 保持している情報を更新する\r
            db["loglist"] = LogList.readxml(LISTXMLPATH)\r
            db["entry"] = []\r
            # 新たなdiary.xmlを生成。この際保持する情報は同一のFeedオブジェクトnew()\r
            Feed.to_xml(XMLPATH + File.basename(db["loglist"].path[0]), db["feed"], [])\r
          \r
            session["info"] = "ログファイルの追加が完了しました。"\r
            \r
              # 現在編集中のデータを強制的に最上のファイルパスに変更\r
              session["filepath"] = db["loglist"].path[0]\r
              \r
              # 前月の時刻を作成します\r
              prevmonth = (DateTime.now << 1)\r
              \r
              # 前月の時刻を元に、ディフォルト書式を生成します\r
              db["logpath"] = FEEDXMLDIR + prevmonth.strftime("%Y%m") + ".xml"\r
              db["logdisplay"] = prevmonth.strftime("%Y年%m月").gsub("年0", "年")\r
          \r
          # 確認画面\r
          when "addconfirm"\r
          # 入力されたログが既に存在するかを確認\r
            db["loglist"].path.each do |val|\r
              if val == cgi["logpath"]\r
                # 重複していた場合エラーメッセージを表示し、処理を行わない\r
                params["action"] = ""\r
                session["error"] = "同一のファイルが存在します！別の名前を指定してください。"\r
                return\r
              end\r
            end\r
          \r
            db["logpath"] = cgi["logpath"]\r
            db["logdisplay"] = cgi["logdisplay"]\r
          \r
            if db["logpath"].blank? || db["logdisplay"].blank?\r
              params["action"] = ""\r
            end\r
          \r
          when "back"\r
          \r
          # 削除確認画面\r
          when "delconfirm"\r
            db["logdelindex"] = params["logdelindex"].to_i\r
          \r
            if db["logdelindex"] < 1\r
              session["error"] = "ログファイルの削除パラメタが不正です。"\r
              params["action"] = ""\r
            end\r
            \r
          # 削除処理\r
          when "delexec"\r
            if cgi["logdelindex"].to_i < 1\r
              params["action"] = ""\r
              params["mode"] = "error"\r
              session["error"] = "ログファイルの削除中に重大なエラーが発生しました。環境を見直してください。"\r
              return\r
            else\r
              # 記事ファイルを削除します\r
              File.delete(XMLPATH + File.basename(db["loglist"].path[db["logdelindex"]]))\r
              # ログリストから削除します\r
              db["loglist"].path.delete_at(cgi["logdelindex"].to_i)\r
              db["loglist"].display.delete_at(cgi["logdelindex"].to_i)\r
              db["loglist"].to_xml\r
              # 保持している情報を更新する\r
              db["loglist"] = LogList.readxml(LISTXMLPATH)\r
              db["entry"] = []\r
            \r
              session["info"] = "ログファイルの削除が完了しました。"\r
              \r
              # 現在編集中のデータを強制的に最上のファイルパスに変更\r
              session["filepath"] = db["loglist"].path[0]\r
              \r
              # 前月の時刻を作成します\r
              prevmonth = (DateTime.now << 1)\r
              \r
              # 前月の時刻を元に、ディフォルト書式を生成します\r
              db["logpath"] = FEEDXMLDIR + prevmonth.strftime("%Y%m") + ".xml"\r
              db["logdisplay"] = prevmonth.strftime("%Y年%m月").gsub("年0", "年")\r
            end\r
          \r
          # 編集画面\r
          when "edit"\r
            db["logeditindex"] = params["logdelindex"].to_i\r
          \r
            db["logpath"] = db["loglist"].path[db["logeditindex"]]\r
            db["logdisplay"] = db["loglist"].display[db["logeditindex"]]\r
          \r
            if db["logeditindex"] == 0\r
              session["error"] = "ログファイルの編集パラメタが不正です。"\r
              params["action"] = ""\r
            end\r
            \r
          # 編集確認画面\r
          when "editconfirm"\r
            checkflag = true\r
            db["loglist"].path.each_with_index do |val, i|\r
              if db["logeditindex"] != i\r
                if params["logpath"].to_s == db["loglist"].path[i].to_s\r
                  checkflag = false\r
                end\r
              end\r
            end\r
          \r
            if checkflag == false\r
              params["action"] = "edit"\r
              session["error"] = "同一のファイルが存在します！別の名前を指定してください。"\r
            else\r
              db["loginsertindex"] = params["loginsertindex"].to_i\r
            \r
              db["logpath"] = params["logpath"].to_s\r
              db["logdisplay"] = params["logdisplay"].to_s\r
            end\r
            \r
          # 編集実行\r
          when "editexec"\r
            checkflag = true\r
            db["loglist"].path.each_with_index do |val, i|\r
              if db["logeditindex"] != i\r
                if params["logpath"].to_s == db["loglist"].path[i].to_s\r
                  checkflag = false\r
                end\r
              end\r
            end\r
          \r
            if checkflag == false\r
              params["action"] = ""\r
              params["mode"] = "error"\r
              session["error"] = "ログファイルの編集中に重大なエラーが発生しました。環境を見直してください。"\r
              return\r
            else\r
              db["loginsertindex"] = params["loginsertindex"].to_i\r
            \r
              db["logpath"] = params["logpath"].to_s\r
              db["logdisplay"] = params["logdisplay"].to_s\r
            \r
              # ファイルを移動します\r
              if XMLPATH + File.basename(db["loglist"].path[db["logeditindex"]]) != XMLPATH + File.basename(db["logpath"])\r
                FileUtils.move(XMLPATH + File.basename(db["loglist"].path[db["logeditindex"]]), XMLPATH + File.basename(db["logpath"]))\r
                # ログリストを更新します\r
                db["loglist"].path.delete_at(db["logeditindex"])\r
                db["loglist"].display.delete_at(db["logeditindex"])\r
                db["loglist"].path.insert(db["loginsertindex"] + 1, db["logpath"])\r
                db["loglist"].display.insert(db["loginsertindex"] + 1, db["logdisplay"])\r
                db["loglist"].to_xml\r
              end\r
            \r
              session["info"] = "ログファイルの編集が完了しました。"\r
              \r
              # 現在編集中のデータを強制的に最上のファイルパスに変更\r
              session["filepath"] = db["loglist"].path[0]\r
              \r
              # 前月の時刻を作成します\r
              prevmonth = (DateTime.now << 1)\r
              \r
              # 前月の時刻を元に、ディフォルト書式を生成します\r
              db["logpath"] = FEEDXMLDIR + prevmonth.strftime("%Y%m") + ".xml"\r
              db["logdisplay"] = prevmonth.strftime("%Y年%m月").gsub("年0", "年")\r
            end\r
          \r
          # 初期表示画面\r
          else\r
            # 現在編集中のデータを強制的に最上のファイルパスに変更\r
            session["filepath"] = db["loglist"].path[0]\r
          \r
            # 前月の時刻を作成します\r
            prevmonth = (DateTime.now << 1)\r
          \r
            # 前月の時刻を元に、ディフォルト書式を生成します\r
            db["logpath"] = FEEDXMLDIR + prevmonth.strftime("%Y%m") + ".xml"\r
            db["logdisplay"] = prevmonth.strftime("%Y年%m月").gsub("年0", "年")\r
          end\r
        \r
        # インポートモードの場合の処理\r
        when "import"\r
        db["loglist"] = LogList.readxml(LISTXMLPATH)\r
        \r
        # リセットモードの場合の処理\r
        when "reset"\r
        case params["action"]\r
          # リセット実行時の処理\r
          when "exec"\r
          file = FileUploader.new\r
          file.filelist().each { |fname|\r
            file.delete(fname) if File.ftype(XMLPATH + fname) == "file"\r
          }\r
          \r
          # 全ファイルの初期化を実行する\r
          # loglist.xmlの初期化\r
          loglist = LogList.new(["最新の記事"], ["#{FEEDXMLDIR}#{INITIALXML}"], LISTXMLPATH)\r
          loglist.to_xml\r
          \r
          db["loglist"] = LogList.readxml(LISTXMLPATH)\r
          \r
          # diary.xmlの初期化\r
          Feed.to_xml(XMLPATH + db["loglist"].path[0].match(/[^\/]*?$/).to_a[0], Feed.new({}), [])\r
          \r
          # 初期の編集ファイルはloglist.xml上の最も上のファイル\r
          session["filepath"] = db["loglist"].path[0]\r
          db["feed"] = Feed.readxml(XMLPATH + File.basename(session["filepath"]))\r
          db["entry"] = Entry.readxml(XMLPATH + File.basename(session["filepath"]))\r
          \r
          # 画面の遷移先をトップページにする\r
          params["mode"] = ""\r
          params["action"] = ""\r
          # パラメタ無しの処理\r
        else\r
          # ファイル一覧を取得する\r
          filelist = FileUploader.new.filelist()\r
          \r
          # タイプがファイルのみリストとして取得する\r
          db["filelist"] = []\r
          filelist.each { |fname| db["filelist"] << fname if File.ftype(XMLPATH + fname) == "file"}\r
        end\r
        \r
        # ログイン時の画面\r
      else\r
        # loglist.xmlが存在するかチェック\r
        if File.exist?(LISTXMLPATH) == false\r
          # なかった場合はloglist.xmlを自動生成\r
          loglist = LogList.new(["最新の記事"], ["#{FEEDXMLDIR}#{INITIALXML}"], LISTXMLPATH)\r
          loglist.to_xml\r
          Feed.to_xml(XMLPATH + File.basename(loglist.path[0]), Feed.new({}), [])\r
        end\r
        \r
        db["loglist"] = LogList.readxml(LISTXMLPATH)\r
        \r
        # diary.xmlが存在するかチェック\r
        if File.exist?(XMLPATH + File.basename(db["loglist"].path[0])) == false\r
          # なかった場合はdiary.xmlを自動生成\r
          Feed.to_xml(XMLPATH + File.basename(db["loglist"].path[0]), Feed.new({}), [])\r
        end\r
        \r
        # 初期の編集ファイルはloglist.xml上の最も上のファイル\r
        session["filepath"] = db["loglist"].path[0] if session["filepath"] == nil\r
        db["feed"] = Feed.readxml(XMLPATH + File.basename(session["filepath"]))\r
        db["entry"] = Entry.readxml(XMLPATH + File.basename(session["filepath"]))\r
      end\r
    end\r
  end\r
  \r
  # マルチパートフォームの場合の処理です\r
  def Controller.MultiForm(cgi, session, params, db)\r
    db.transaction do\r
      # loglist.xmlをロードします\r
      db["loglist"] = LogList.readxml(LISTXMLPATH)\r
      case params["mode"]\r
        # 特定位置に挿入する場合の処理\r
        when "insert"\r
        case params["action"]\r
        when "exec"\r
          # この段階のエラーに対しては強度のエラーを発する\r
          checkflag = true\r
          db["logpath"] = Controller.get_mpart_value(cgi["logpath"])\r
          db["loglist"].path.each do |val|\r
            if val == db["logpath"]\r
              # 重複していた場合エラーメッセージを表示し、処理を行わない\r
              db["logpath"] = ""\r
              params["action"] = ""\r
              params["mode"] = "error"\r
              session["error"] = "ログファイルの追加中に重大なエラーが発生しました。"\r
              return\r
            end\r
          end\r
          \r
          db["loginsertindex"] = cgi["loginsertindex"].read.to_i\r
          db["logdisplay"] = Controller.get_mpart_value(cgi["logdisplay"])\r
          \r
          # 0位置への挿入防止\r
          if db["loginsertindex"] == 0\r
            params["action"] = ""\r
            params["mode"] = "error"\r
            session["error"] = "ログファイルの追加中に重大なエラーが発生しました。"\r
            return\r
          end\r
          \r
          if File.basename(db["logpath"]).blank? || db["logdisplay"].blank?\r
            params["action"] = ""\r
            params["mode"] = "error"\r
            session["error"] = "ログファイルの追加中に重大なエラーが発生しました。"\r
            return\r
          end\r
          \r
          # ファイルを実際にアップロードします\r
          file = FileUploader.new\r
          file.upload(db["logpath"], db["importxml"])\r
          \r
          # loglist.xmlを更新します\r
          db["loglist"].path[db["loginsertindex"], 0] = db["logpath"]\r
          db["loglist"].display[db["loginsertindex"], 0] = db["logdisplay"]\r
          db["loglist"].to_xml\r
          \r
          # 情報を更新します\r
          db["loglist"] = LogList.readxml(LISTXMLPATH)\r
          session["filepath"] = db["loglist"].path[0] if session["filepath"] == nil\r
          db["feed"] = Feed.readxml(XMLPATH + File.basename(session["filepath"]))\r
          db["entry"] = Entry.readxml(XMLPATH + File.basename(session["filepath"]))\r
          \r
          session["info"] = "ログファイルのインポート処理が完了しました。"\r
          \r
        when "confirm"\r
          # 入力されたログファイルパスが既に存在するかを確認\r
          checkflag = true\r
          db["logpath"] = Controller.get_mpart_value(cgi["logpath"])\r
          db["loglist"].path.each do |val|\r
            if val == db["logpath"]\r
              # 重複していた場合エラーメッセージを表示し、処理を行わない\r
              db["logpath"] = ""\r
              params["action"] = ""\r
              session["error"] = "同一のファイルが存在します！別の名前を指定してください。"\r
              checkflag = false\r
              return\r
            end\r
          end\r
          \r
          if checkflag\r
            db["loginsertindex"] = cgi["loginsertindex"].read.to_i\r
            db["logdisplay"] = Controller.get_mpart_value(cgi["logdisplay"])\r
            db["importxml"] = cgi["updata"].read\r
            \r
            # XMLの整合性をチェックします\r
            begin\r
              REXML::Document.new(Controller.fix_updata_enc(db["importxml"].to_s))\r
            rescue => exception\r
              session["error"] = "不正な整形のXMLです！ファイルを見直してください。<br>"\r
              session["error"] << CGI.escapeHTML(exception.to_s).gsub("\n", "<br>")\r
              params["action"] = ""\r
              return\r
            end\r
          end\r
          \r
          # 0位置への挿入防止\r
          if db["loginsertindex"] == 0\r
            params["action"] = ""\r
            session["error"] = "ラジオボックスでログの挿入位置を選択してください！"\r
            return\r
          end\r
          \r
          if db["logpath"] == FEEDXMLDIR || db["logdisplay"].blank?\r
            params["action"] = ""\r
            session["error"] = "インポートファイル、及び、ログの表示名は空欄にできません。"\r
            return\r
          end\r
          \r
        else\r
        end\r
        \r
        # diary.xmlを入れ替える処理\r
        when "replace"\r
        case params["action"]\r
        when "exec"\r
          # この段階のエラーに対しては強度のエラーを発する\r
          checkflag = true\r
          db["logpath"] = Controller.get_mpart_value(cgi["logpath"])\r
          db["loglist"].path.each do |val|\r
            if val == db["logpath"]\r
              # 重複していた場合エラーメッセージを表示し、処理を行わない\r
              params["action"] = ""\r
              params["mode"] = "error"\r
              session["error"] = "ログファイルの追加中に重大なエラーが発生しました。"\r
              return\r
            end\r
          end\r
          \r
          db["logdisplay"] = Controller.get_mpart_value(cgi["logdisplay"])\r
          \r
          if File.basename(db["logpath"]).blank? || db["logdisplay"].blank? || db["importxml"].blank?\r
            params["action"] = ""\r
            params["mode"] = "error"\r
            session["error"] = "ログファイルの追加中に重大なエラーが発生しました。"\r
            return\r
          end\r
          \r
          # diary.xmlを移動します\r
          FileUtils.move(XMLPATH + INITIALXML, XMLPATH + File.basename(db["logpath"]))\r
          # ファイルをアップロードします\r
          file = FileUploader.new\r
          file.upload(INITIALXML, db["importxml"])\r
          \r
          # loglist.xmlを更新します\r
          db["loglist"].path[1, 0] = db["logpath"]\r
          db["loglist"].display[1, 0] = db["logdisplay"]\r
          db["loglist"].to_xml\r
          \r
          # 情報を更新します\r
          db["loglist"] = LogList.readxml(LISTXMLPATH)\r
          session["filepath"] = db["loglist"].path[0] if session["filepath"] == nil\r
          db["feed"] = Feed.readxml(XMLPATH + File.basename(session["filepath"]))\r
          db["entry"] = Entry.readxml(XMLPATH + File.basename(session["filepath"]))\r
          \r
          session["info"] = "ログファイルのインポート処理が完了しました。"\r
          \r
        when "confirm"\r
          # 入力されたログファイルパスが既に存在するかを確認\r
          checkflag = true\r
          db["logpath"] = Controller.get_mpart_value(cgi["logpath"])\r
          db["loglist"].path.each do |val|\r
            if val == db["logpath"]\r
              # 重複していた場合エラーメッセージを表示し、処理を行わない\r
              params["action"] = ""\r
              session["error"] = "同一のファイルが存在します！別の名前を指定してください。"\r
              checkflag = false\r
              return\r
            end\r
          end\r
          \r
          if checkflag == true\r
            db["logdisplay"] = Controller.get_mpart_value(cgi["logdisplay"])\r
            db["importxml"] = cgi["updata"].read\r
            \r
            # XMLの整合性をチェックします\r
            begin\r
              REXML::Document.new(Controller.fix_updata_enc(db["importxml"].to_s))\r
            rescue => exception\r
              session["error"] = "不正な整形のXMLです！ファイルを見直してください。<br>"\r
              session["error"] << CGI.escapeHTML(exception.to_s).gsub("\n", "<br>")\r
              params["action"] = ""\r
              return\r
            end\r
          end\r
          \r
          if db["logpath"].blank? || db["logdisplay"].blank? || db["importxml"].blank?\r
            params["action"] = ""\r
            session["error"] = "インポートファイル、及び、ログの表示名、ログのパスは空欄にできません。"\r
            return\r
          end\r
          \r
        else\r
        end\r
        \r
      else\r
      end\r
    end\r
  end\r
  \r
  # Formのenctypeがmultypartだった場合、入力された値をrubyバージョンに左右されずに読み取るメソッドです。\r
  def Controller.get_mpart_value(cgi_param)\r
    if RUBY_VERSION >= "1.9.0"\r
      cgi_param[0..cgi_param.length].to_s\r
    else\r
      cgi_param.read.to_s\r
    end\r
  end\r
  \r
  # アップロードされたXMLをバージョンに左右されずに読み取るために、ruby-1.9.1以上ではエンコーディングを強制指定します\r
  def Controller.fix_updata_enc(file_to_s)\r
    if RUBY_VERSION >= "1.9.0"\r
      file_to_s.force_encoding("UTF-8")\r
    else\r
      file_to_s\r
    end\r
  end\r
  \r
end\r
\r
def main\r
  # SESSION変数、パラメータなどを取得します\r
  cgi = CGI.new\r
  session = CGI::Session.new(cgi)\r
  params = Hash[*cgi.params.to_a.map{|k, v| [k, v[0].to_s]}.flatten]\r
  \r
  # ロガーを作成する\r
  logger = WebLogger.get_logger(cgi.script_name, LOG_DIR, LOG_RELEASE_MODE)\r
  \r
  # コントローラー部分\r
  # セッション管理\r
  session["info"] = ""\r
  session["error"] = ""\r
  if session["login"] != "true"\r
    \r
    # ログイン情報を確認\r
    LOGININFO.each {|h|\r
      if (cgi["loginid"] == h[:id] && cgi["password"] == h[:password])\r
        session["login"] = "true"\r
        session["name"] = h[:name]\r
        \r
        # ログを記録\r
        logger.info "ログインユーザ：#{h[:id]}, IPアドレス：#{cgi.remote_addr}"\r
        \r
        break\r
      end\r
    }\r
    \r
    if (session["login"] == "true")   \r
      # ワークフォルダの中をクリーンアップします\r
      filelist = Dir::entries("./work")\r
      # 削除条件 : 最終変更日時から1日(60*60*24sec)かつ、ファイルタイプがファイルの場合\r
      filelist.each do |file|\r
        File.delete("./work/#{file}") if Time.now - File.ctime("./work/#{file}") > 86400 && File.ftype("./work/#{file}") == "file"\r
      end\r
    end\r
    \r
    # ログイン失敗ユーザを記録\r
    if (session["login"] != "true" and (cgi["loginid"] != "" or cgi["password"] != ""))\r
      logger.info "次のアクセスがログインに失敗しました。ログインユーザ：#{cgi["loginid"]}, IPアドレス：#{cgi.remote_addr}"\r
    end\r
  end\r
  \r
  # ログアウト処理\r
  if params["mode"] == "logout"\r
    session["login"] = nil\r
    session.delete\r
  end\r
  \r
  begin\r
    # メインコントローラー\r
    # セッションが有効な場合のも実行します\r
    if session["login"] == "true"\r
      # PStore破損チェック！\r
      begin\r
        db = PStore.new("./work/#{session.session_id}.dat")\r
        db.transaction do\r
          session["error"] = ""\r
        end\r
      rescue\r
        # PStoreファイルを破棄する\r
        File.delete("./work/#{session.session_id}.dat")\r
        # PStoreが破損していた場合はセッション情報を破棄する\r
        session["login"] = nil\r
        session.delete\r
      end\r
      \r
      # フォームによって挙動を変更します\r
      if cgi["mode"].respond_to?(:read) && cgi["action"].respond_to?(:read)\r
        params["mode"] = cgi["mode"].read\r
        params["action"] = cgi["action"].read\r
        Controller.MultiForm(cgi, session, params, db)\r
      else\r
        Controller.NormalForm(cgi, session, params, db)\r
      end\r
      \r
      # エラー画面移行時はセッション情報を破棄する\r
      if params["mode"] == "error"\r
        session["login"] = nil\r
        session.delete\r
      end\r
    end\r
    \r
    # ログイン失敗ユーザを記録\r
    if (session["login"] != "true" and (cgi["loginid"] != "" or cgi["password"] != ""))\r
      session["error"] = "ログインに失敗しました。ユーザIDまたはパスワードを確認して下さい。"\r
      logger.info "次のアクセスがログインに失敗しました。ログインID：#{cgi["loginid"]}, IPアドレス：#{cgi.remote_addr}"\r
    end\r
    \r
    # ビュー部分\r
    # modeとactionの相関図は以下のようになります。\r
    # [mode] + [action]\r
    #        + [action]\r
    #        + [action]\r
    #        + ... and more\r
    if session["login"] != "true"\r
      # セッションが存在しない場合は強制的にトップページに遷移\r
      htmlwriter = HtmlWriter.new("./erbtemp/index.html.erb", binding)\r
    else\r
      case params["mode"]\r
        when "selectlog"\r
        htmlwriter = HtmlWriter.new("./erbtemp/select.html.erb", binding)\r
        when "newentry"\r
        htmlwriter = HtmlWriter.new("./erbtemp/newentry.html.erb", binding)\r
        when "editentry"\r
        htmlwriter = HtmlWriter.new("./erbtemp/editentry.html.erb", binding)\r
        when "delentry"\r
        htmlwriter = HtmlWriter.new("./erbtemp/delentry.html.erb", binding)\r
        when "editfeed"\r
        htmlwriter = HtmlWriter.new("./erbtemp/editfeed.html.erb", binding)\r
        when "log"\r
        htmlwriter = HtmlWriter.new("./erbtemp/log.html.erb", binding)\r
        when "insert"\r
        htmlwriter = HtmlWriter.new("./erbtemp/insertfeed.html.erb", binding)\r
        when "replace"\r
        htmlwriter = HtmlWriter.new("./erbtemp/replacefeed.html.erb", binding)\r
        when "import"\r
        htmlwriter = HtmlWriter.new("./erbtemp/indeximport.html.erb", binding)\r
        when "reset"\r
        htmlwriter = HtmlWriter.new("./erbtemp/reset.html.erb", binding)\r
        when "error"\r
        htmlwriter = HtmlWriter.new("./erbtemp/error.html.erb", binding)\r
      else\r
        htmlwriter = HtmlWriter.new("./erbtemp/menu.html.erb", binding)\r
      end\r
    end\r
    \r
    # ビュー部分（インクルード用ファイル読み込み）\r
    htmlparts = {}\r
    # ヘッダタグ出力\r
    htmlparts['headtag'] = HtmlWriter.new("./erbtemp/parts_headtag.html.erb", binding).to_code\r
    htmlparts['headjs_switchpost'] = HtmlWriter.new("./erbtemp/parts_headjs_switchpost.html.erb", binding).to_code\r
    htmlparts['headjs_tag'] = HtmlWriter.new("./erbtemp/parts_headjs_tag.html.erb", binding).to_code\r
    htmlparts['menu'] = HtmlWriter.new("./erbtemp/parts_menu.html.erb", binding).to_code\r
    htmlparts['selectfile'] = HtmlWriter.new("./erbtemp/parts_selectfile.html.erb", binding).to_code\r
    # インフォメーションエリア\r
    htmlparts['infoarea'] = HtmlWriter.new("./erbtemp/parts_infoarea.html.erb", binding).to_code\r
    \r
    # 実際にHTMLを出力します\r
    cgi.out{htmlwriter.to_code}\r
    \r
  rescue => exception\r
    # ログに記録を実施します\r
    logger.error(exception.to_s)\r
    logger.error(exception.backtrace.join "\n")\r
    \r
    # エラーが発生した場合、それを画面に表示します\r
    htmlwriter = HtmlWriter.new("./erbtemp/exception.html.erb", binding)\r
    cgi.out{htmlwriter.to_code}\r
  end\r
end\r
\r
begin\r
  main\r
rescue => evar\r
  # エラーが発生した場合、それを画面に表示します\r
  detail = ("%s: %s (%s)\n" %\r
  [evar.backtrace[0], evar.message, evar.send('class')]) +\r
  evar.backtrace[1..-1].join("\n")\r
  puts "content-type: text/html\n\n<plaintext>\n" + detail\r
end\r