gfdnavi 1.3.0.0

data/app/controllers/application.rb

@@ -0,0 +1,41 @@
+# Filters added to this controller will be run for all controllers in the application.
+# Likewise, all the methods added will be available for all controllers.
+
+require_dependency "login_system"
+require_dependency "basic_authorization"
+
+class ApplicationController < ActionController::Base
+  include LoginSystem
+  include BasicAuthorization
+  before_filter :session_expires
+  
+  filter_parameter_logging :password
+
+
+  protected
+  def session_expires
+    ::ActionController::CgiRequest::DEFAULT_SESSION_OPTIONS.update(
+      :session_expires => GFDNAVI_SESSION_DURATION.minute.from_now
+    )
+  end
+
+  def user_path
+    GFDNAVI_USER_PATH + "/" + session[:user]
+  end
+
+  def uri_prefix
+    prot = request.ssl? ? "https" : "http"
+    "#{prot}://#{request.host_with_port}#{relative_url_root}/"
+  end
+
+  def relative_url_root
+    if request.respond_to?(:relative_url_root)
+      # for < 2.2.2
+      request.relative_url_root
+    else
+      # for >= 2.2.2
+      super || ""
+    end
+  end
+
+end

data/app/controllers/draw_method_controller.rb

@@ -0,0 +1,172 @@
+class DrawMethodController < ApplicationController
+  layout "gfdnavi"
+
+  before_filter :login_required
+
+  def index
+    redirect_to :action => "list"
+  end
+
+  def create
+    user = (login=session[:user]) && User.find_by_login(login)
+    @directory = "/usr/#{user.login}/draw_methods"
+    case request.method
+    when :post
+      @draw_method = DrawMethod.new
+      @draw_method.attributes = params[:draw_method]
+      @draw_method.owner = user
+      @draw_method.path = "#{@directory}/#{@draw_method.name}"
+      attribute_num = params[:attribute_num].to_i
+      attribute_num.times{|i|
+        param = params[:attribute][i.to_s]
+        value_type = param.delete(:value_type)
+        dma = @draw_method.draw_method_attributes.create(param)
+        dma.value_type = ValueType.find(:first,:conditions=>["name=?",value_type])
+      }
+      Node.make_user_directory(@directory, user, 0)
+      groups = params[:groups]
+      groups.shift if groups[0] == 'only me'
+      @draw_method.other_mode = 0
+      @draw_method.set_rgroups(groups) if groups.length > 0
+      if check_erb(@draw_method) && check_srcipt(@draw_method)
+        if @draw_method.save
+          flash[:notice] = "create successful"
+          redirect_back_or_default :action => "list"
+        else
+          flash[:notice] = "create unsuccessful"
+        end
+      end
+    when :get
+      @draw_method = DrawMethod.new
+    end
+    @groups = user.own_groups + user.belonging_groups
+    @user = user
+  end
+
+  def edit
+    user = (login=session[:user]) && User.find_by_login(login)
+    @draw_method = DrawMethod.find(:first, :conditions=>["name=?",params[:id]], :user=>user)
+    unless @draw_method && @draw_method.owner==user
+      redirect_back_or_default :action => "list"
+      return
+    end
+    @directory = "/usr/#{user.login}/draw_methods"
+    case request.method
+    when :post
+      @draw_method.attributes = params[:draw_method]
+      attribute_num = params[:attribute_num].to_i
+      dmas = @draw_method.draw_method_attributes
+      attribute_num.times{|i|
+        param = params[:attribute][i.to_s]
+        value_type = param.delete(:value_type)
+        if dmas[i]
+          dma = dmas[i]
+          dma.attributes = param
+        else
+          dma = dmas.create(param)
+        end
+        dma.value_type = ValueType.find(:first,:conditions=>["name=?",value_type])
+        dma.update
+      }
+      for i in attribute_num...dmas.length
+        dmas[i].destroy
+      end
+      groups = params[:groups]
+      groups.shift if groups[0] == 'only me'
+      @draw_method.other_mode = 0
+      @draw_method.set_rgroups(groups) if groups.length > 0
+      if check_erb(@draw_method) && check_srcipt(@draw_method)
+        if @draw_method.update
+          flash[:notice] = "edit successful"
+          redirect_back_or_default :action => "list"
+        else
+          flash[:notice] = "edit unsuccessful"
+        end
+      end
+    end
+    @groups = user.own_groups + user.belonging_groups
+    @user = user
+  end
+
+  def list
+    user = (login=session[:user]) && User.find_by_login(login)
+    dms = DrawMethod.find(:all, :user => user)
+    @own_dms = Array.new
+    @other_dms = Array.new
+    dms.each{|dm|
+      if dm.owner == user
+        @own_dms.push dm
+      else
+        @other_dms.push dm
+      end
+    }
+    @super_user = user.super_user
+ end
+
+  def details
+    name = params[:id]
+    user = (login=session[:user]) && User.find_by_login(login)
+    dm = DrawMethod.find(:first, :conditions=>["name=?",name], :user=>user)
+    if dm
+      @draw_method = dm
+      @user = user
+    else
+      redirect_back_or_default :action => "list"
+      return
+    end
+  end
+
+  def create_setting_html
+    unless request.xhr?
+      render :nothing => true
+      return
+    end
+    name = params[:name]
+    nattr = params[:nattr].to_i
+    attrs = params[:attribute]
+    html = ""
+    if nattr > 0
+      html += "<table>\n"
+      nattr.times{|n|
+        html += "  <tr>\n"
+        attr = attrs[n.to_s]
+        html +=<<-"EOS"
+    <td>#{attr["name"]}</td>
+    <td>(#{attr["value_type"]})</td>
+    <td><input type="text" size="5" value="#{attr["default"]}" name="analysis[#{name}_#{attr["name"]}][#{n}]"/></td>
+        EOS
+        html += "  </tr>\n"
+      }
+      html += "</table>\n"
+    end
+    render :update do |page|
+      page << "$('draw_method_setting_html').value='#{escape_javascript(html)}'"
+    end
+  end
+
+
+  private
+
+  def check_script(function)
+    script = function.script
+    ggraph = function.ggraph
+    if script =~ /retry/ || ggraph =~ /retry/
+      flash[:notice] = "you cannot use retry in script"
+      return false
+    end
+    return true
+  end
+
+  def check_erb(draw_method)
+    html = draw_method.setting_html
+    begin
+      ERB.new(html).run
+      return true
+    rescue SyntaxError
+      flash[:notice] = "html is invalid"
+      return false
+    end
+  end
+
+
+end

data/app/controllers/explorer_controller.rb

@@ -0,0 +1,197 @@
+#require "rdb_concat"
+
+class ExplorerController < ApplicationController 
+  layout "gfdnavi"
+ 
+ 
+ def index 
+   session[:previd]=nil
+   @previd=nil
+   @qargs=nil
+   @results=ExplorerResult.new(0)
+   @queryconditions=Array.new
+   session[:results]=@results
+    session[:result]=@results
+   session[:qsetid]=1
+   session[:queryconditions]=@queryconditions
+   session[:qcond_selection]=Array.new
+   session[:nodetype_selection]=Array.new
+   session[:qcno]=0
+ end
+ 
+ def add_keyname
+     @results=session[:results]
+     @results.keynames.push(params[:keyname])
+     @results.keynames.uniq!
+     session[:results]=@results
+     valuelist=@results.get_keyvalue_list(params[:keyname])
+     if valuelist.size>0 then
+       render :update do |page|
+        valuelist.each{ |v|
+          page.insert_html(:bottom,"kw_#{params[:keyname]}","<li><a href=\"/explorer/search_kw?keyname=#{params[:keyname]}&keyvalue=#{v.value}\">#{v.value}(#{v.cnt})</a></li>")
+        }
+       page.show("kw_#{params[:keyname]}_close")       
+       end
+     end     
+ end
+ 
+ def del_keyname
+     @results=session[:results]
+     @results.keynames.delete(params[:keyname])
+     session[:results]=@results
+     render :update do |page|
+       page.replace_html("kw_#{params[:keyname]}","")
+       page.hide("kw_#{params[:keyname]}_close")
+     end
+ end
+ def get_keyvalue
+      @results=ExplorerResult.new(0)
+ 
+    # @results=session[:result]
+     @results.keynames.push(params["keyname"])
+    @results.keynames.uniq!
+ 
+	session[:result]=@results
+	@valuelist=@results.get_keyvalue_list(params["keyname"])
+	
+
+render :xml=>@valuelist
+end
+
+ def search_path
+   desc="[P]#{params[:path]}"
+   search("path",desc)
+ end
+
+ def search_freeword
+   desc="[F]#{params[:freeword]}"
+   search("freeword",desc)
+ end
+
+ 
+ def search_kw 
+   desc="[K]#{params[:keyname]}=#{params[:keyvalue]}"
+   search("keyword",desc)
+ end
+ 
+  
+ def search_kname
+   desc="[K]#{params[:keyname]}"
+   search("keyname",desc) 
+ end
+ 
+  def search_space    
+    desc = "[S](#{params[:start_lon]},#{params[:start_lat]})-(#{params[:end_lon]},#{params[:end_lat]})"
+    search("space",desc)
+ end
+
+  def search_time
+   desc="[T]#{params[:starttime]}~#{params[:endtime]}"
+   search("time",desc)
+ end
+ 
+ def queryconditions_selection
+   num=0
+   for i in 0..session[:qcno].to_i-1
+     if params["qcond_selection_#{i}"]=="1" then
+       session[:qcond_selection][i]=1
+       num=num+1
+     else
+       session[:qcond_selection][i]=0
+     end
+   end
+   if num==0 then
+     redirect_to :action=>"index"
+   else
+     search("qcond_selection",params[:queryset_id].to_i)
+   end
+ end
+ 
+ def nodetype_selection
+   num=0
+   types=Array.new
+   @nodetypes=Hash.new
+   ntypes=["data","knowledge","function","draw_method"]
+   ntypes.each{ |nt|
+     value=params["nodetype_#{nt}"]
+     if value then
+       if params["nodetype_#{nt}"]=="1" then
+         types.push(nt)
+         num=num+1
+         @nodetypes[nt]=1
+       else
+         @nodetypes[nt]=0
+       end
+     else
+       @nodetypes[nt]=0
+     end
+   }
+   if num==0 then
+     redirect_to :action=>"index"
+   else
+     types_str=types.join(",")
+     search("nodetype","[N]#{types_str}")
+   end
+ end
+ 
+ def search(querytype,desc)
+   if session[:queryconditions] then
+     @queryconditions=session[:queryconditions]
+     if querytype!="qcond_selection" then
+       @queryconditions.push(desc)
+     end
+   end
+   
+   user = (login=session[:user]) && User.find_by_login(login)
+
+   eq=ExplorerQuery.new
+   qstr = eq.make_query(@queryconditions,user)
+   if qstr!="" then
+     @results=ExplorerResult.new(@qsetid)
+     @results.put_results(Node.find_by_sql(qstr))
+   end
+   session[:results]=@results
+   render :action=>"index.rhtml"
+ end
+ 
+ 
+ def categorized_search
+
+   descriptions=Array.new
+   queries=params[:query]
+   queries.keys.each{|k|
+    if queries[k]!=nil then
+      descriptions.push(queries[k])
+    end
+   }
+   options=Hash.new
+   if params["show_kwfacets"] then
+     options["show_kwfacets"]=params["show_kwfacets"]
+   else
+     options["show_kwfacets"]=0   
+   end
+   if params["show_kwvalues"] then
+     options["show_kwvalues"]=params["show_kwvalues"]
+   else
+     options["show_kwvalue"]=0   
+   end
+   if params["show_spfacets"] then
+     options["show_spfacets"]=params["show_spfacets"]
+   else
+     options["show_spfacets"]=0   
+   end
+
+   user = (login=session[:user]) && User.find_by_login(login)
+
+   eq=ExplorerQuery.new
+   qstr = eq.make_query(descriptions,user)
+   rnodes=Node.find_by_sql(qstr)
+   expres=ExplorerResult.new(-1)
+   expres.put_results(rnodes)
+   session[:result]=expres   
+   results=eq.generate_results(rnodes,expres,options)
+   render :xml => results
+ end
+ 
+ 
+end

data/app/controllers/finder_controller.rb

@@ -0,0 +1,331 @@
+#require "create_activeresources"
+
+class FinderController < ApplicationController
+
+  layout "gfdnavi"
+
+
+  def index
+    @path = params[:path]
+  end
+
+  def clear_tree
+    session[:dir_tree] = nil
+    session[:dir_tree_closed] = nil
+    session[:dir_tree_selected] = nil
+    redirect_to :action => :index
+  end
+
+  def create_tree
+    if (path = params[:path])
+      dir = open_tree(path)
+      @selected_dir = session[:dir_tree_selected] = dir
+    end
+    @user = (login=session[:user]) && User.find_by_login(login)
+    @parent = nil
+    @dirs = Node.top_directory_nodes
+    if GFDNAVI_OTHER_GFDNAVI_SERVERS
+      GFDNAVI_OTHER_GFDNAVI_SERVERS.each{|gs|
+      }
+    end
+=begin
+   Node_Remote.each{|nr|
+      @dirs += nr.find(:all, :from => :top_directory_nodes)
+    }
+=end
+    @opened_dirs = (session[:dir_tree] ||= Array.new)
+    @closed_dirs = (session[:dir_tree_closed] ||= Array.new)
+    @selected_dir = session[:dir_tree_selected]
+    if @dirs.length == 1
+      path = @dirs[0].full_path
+      @opened_dirs.push(path) unless @opened_dirs.include?(path)
+      @closed_dirs.delete(path)
+    end
+    render :layout => false
+  end
+
+  def children
+    user = (login=session[:user]) && User.find_by_login(login)
+    unless (path = params[:path]) && (parent = find_node(path,user) )
+      head :not_found
+      return
+    end
+
+    unless request.xhr?
+      redirect_to :action => :index
+      return
+    end
+    
+    selected = params[:selected]
+
+    session[:dir_tree] ||= Array.new
+    open_dir([], [parent], session, selected)
+  end
+
+  def add_to_list
+    path = params[:path]
+    add_node_to_list(path)
+    redirect_to(:controller => "analysis")
+  end
+
+  def items_selected
+    button = String.new
+    params.keys.each { |key|
+      case key
+      when /^anal_viz/
+        button = "Anal/Viz checked items"
+        break
+      when /^show/
+        button = "Show checked items"
+        break
+      when /^dl/
+        button = "Download checked items"
+        break
+      end
+    }
+    case button
+      when "Anal/Viz checked items" then anal_viz_checked_items
+      when "Show checked items"     then show_checked_items
+      when "Download checked items" then download_checked_items
+      else                          raise "error.\n"
+    end
+  end
+
+  def dir_status
+    unless request.xhr?
+      redirect_to :action => :index
+      return
+    end
+    session[:dir_tree_closed] ||= Array.new
+    user = (login=session[:user]) && User.find_by_login(login)
+    if (path = params["opened"])
+      session[:dir_tree_closed].delete path
+      if params["selected"]
+        dir = Node.find(:first, :conditions=>["path=?",path], :user=>user)
+        session[:dir_tree_selected] = dir
+      end
+    elsif (path = params["closed"])
+      dir = Node.find(:first, :conditions=>["path=?",path], :user=>user)
+      if dir
+        session[:dir_tree_closed].push(path) unless session[:dir_tree_closed].include?(path)
+        if (dir_selected = session[:dir_tree_selected])
+          dir_selected_path = dir_selected.path
+          if /^#{path}/ =~ dir_selected_path && path != dir_selected_path
+            render :update do |page|
+              session[:dir_tree_selected] = dir
+              page << "tree.dirSelected('#{path}', true);"
+            end
+            return
+          end
+        end
+      end
+    end
+    render :nothing => true
+  end
+
+  def show_details
+    if GFDNAVI_DATA_URL_PREFIX
+      @url_prefix = (respond_to?(:relative_url_root) ? (relative_url_root || "") : request.respond_to?(:relative_url_root) ? request.relative_url_root : raise("bug") ) + GFDNAVI_DATA_URL_PREFIX
+    end
+    user = (login=session[:user]) && User.find_by_login(login)
+    if path = params[:path]
+      dir = find_node(path,user)
+    else
+      dir = session[:dir_tree_selected]
+    end
+    if dir
+      session[:dir_tree_selected] = dir
+      order = params[:order]
+      @user = user
+      @path = dir.path
+      @dirs = dir.directory_nodes(:user=>@user, :order=>order)
+      @dirs.delete_if {|d| d.name =~ /^[.]/}
+      @vars = dir.variable_nodes(:user=>@user, :order=>order)
+      @imgs = dir.image_nodes(:user=>@user, :order=>order)
+      @klgs = dir.knowledge_nodes(:user=>@user, :order=>order)
+      render :layout => false
+    else
+      render :nothing => true
+    end
+  end
+
+  def open_tree(path)
+    if path
+      flag = true
+    else
+      unless request.xhr?
+        redirect_to :action => :index
+        return
+      end
+      path = params[:path]
+      flag = false
+    end
+    user = (login=session[:user]) && User.find_by_login(login)
+    unless path && dir = find_node(path,user)
+      render(:nothing => true) unless flag
+      return
+    end
+    tree = ( session[:dir_tree] ||= Array.new )
+    closed = ( session[:dir_tree_closed] ||= Array.new )
+    ancestors = Array.new
+    closes = Array.new unless flag
+    parent = dir
+    while (parent = parent.parent)
+      pa = parent.full_path
+      if tree.include?(pa)
+        if closed.include?(pa)
+          if flag
+            closed.delete parent.path
+          else
+            closes.unshift parent
+          end
+        end
+      else
+        ancestors.unshift parent
+      end
+    end
+    if flag
+      ancestors.each{|an| tree.push an.full_path}
+      return dir
+    else
+      closes.push(dir) if tree.include?(path) && !closed.include?(path)
+      open_dir(closes, ancestors, session, false)
+    end
+  end
+
+  def show_images
+    if path = params[:path]
+      list = [[path, "1"]]
+    else
+      list = params[:list]
+    end
+    @images = Array.new
+    if list
+      list.each{|path,v|
+        if v == "1"
+          user = (login=session[:user]) && User.find_by_login(login)
+          node = Node.find(:first, :conditions => ["path=?", path], :user => user)
+          @images << path if node.image?
+        end
+      }
+    end
+    render :layout => !request.xhr?
+  end
+
+
+  def flex
+    @uri_prefix = uri_prefix.sub(/^http:\/\//,"")
+    render :layout => false
+  end
+
+  protected
+
+
+  def anal_viz_checked_items
+    list = params[:list]
+    if list
+      list.each{|path,v|
+        add_node_to_list(path) if v == "1"
+      }
+    end
+    redirect_to(:controller => "analysis")
+  end
+
+  def download_checked_items
+    redirect_to :action => "index"
+  end
+
+  
+  def open_dir(closes, parents, session, selected)
+    dir_tree = session[:dir_tree]
+    user = (login=session[:user]) && User.find_by_login(login)
+    if parents[0]
+      grand_parent = parents[0].parent
+      if grand_parent && !dir_tree.include?(grand_parent.full_path)
+        render :nothing => true
+        return false
+      end
+    end
+    render :update do |page|
+      closes.each{|dir|
+        page << "tree.dirChange('#{dir.full_path}');"
+      }
+      parents.each{|dir|
+        path = dir.full_path
+        @dirs = dir.directory_nodes(:user=>user)
+        if !(dir_tree.include?(path)) && @dirs.length > 0
+          @user = user
+          @parent = dir
+          session[:dir_tree].push path
+          page.replace "dir#{path}", render(:partial => "children")
+        end
+      }
+      if selected
+        page << "tree.dirSelected('#{parents[-1].full_path}');"
+      end
+    end
+    session[:dir_tree_selected] = parents[-1] if selected
+  end
+
+  def add_var_to_list(var)
+    if Node === var
+      var = var.entity
+    elsif String === var
+      user = (login=session[:user]) && User.find_by_login(login)
+      var = Variable.find(:first, :conditions=>["path=?",path,], :user=>user )
+    end
+    if var
+      session[:variables_list] ||= Array.new
+      path = var.path
+      session[:variables_list].push path unless session[:variables_list].include?(path)
+    end
+  end
+
+  def add_node_to_list(node)
+    user = (login=session[:user]) && User.find_by_login(login)
+    if String === node
+      begin
+        node = Node.find(:first, :conditions=>["path=?",node], :user=>user)
+        return nil unless node
+      end
+    end
+
+    if node.variable?
+      add_var_to_list(node)
+      return
+    elsif node.directory?
+      node.variable_nodes(:user=>user).each{|var|
+        add_var_to_list(var)
+      }
+      node.directory_nodes(:user=>user).each{|dir|
+        add_dir_to_list(dir)
+      }
+    end
+  end
+
+
+  protected
+  def find_node(path,user)
+    if /^([^@]+)@(.+)$/ =~ path
+      site = $1
+      path = $2
+    else
+      site = "localhost"
+    end
+    if site == "localhost"
+      return Node.find(:first, :conditions => ["path=?",path], :user => user)
+    else
+=begin
+      Node_Remote.each{|nr|
+        if nr.site.to_s == site
+          return nr.find(:one, :from => "/nodes/show.xml?path=#{path}")
+        end
+      }
+=end
+    end
+    return nil
+  end
+
+
+
+end