gfdnavi 1.3.0.0

data/app/controllers/search_controller.rb

@@ -0,0 +1,341 @@
+class SearchController < ApplicationController
+  layout "gfdnavi"
+
+  def index
+    mapsearch
+    return
+  end
+
+
+  def msearch
+    debug="**debug**"
+    @query = Query.new(params[:query])
+    if(query_points = @query.querystring("points"))
+      @varpoints = Node.find_by_sql( [query_points.gsub(/%/,'%%')] )
+      @results = true
+    else
+      @varpoints = nil
+    end
+
+    if @query.spatial_region
+      lon_len = @query.start_lon - @query.end_lon if @query.start_lon >= @query.end_lon
+      lon_len = @query.end_lon - @query.start_lon if @query.start_lon < @query.end_lon
+      lat_len = @query.start_lat - @query.end_lat if @query.start_lat >= @query.end_lat
+      lat_len = @query.end_lat - @query.start_lat if @query.start_lat < @query.end_lat
+  
+      #e = lon_len / 5.0 if lon_len >= lat_len
+      #e = lat_len / 5.0 if lat_len > lon_len
+      # 
+      #if ((@query.zoomlevel).to_i) < ((@query.oldzoomlevel).to_i)
+      #   e = e * 2.0*(((@query.oldzoomlevel).to_f) - ((@query.zoomlevel).to_f))
+      #elsif ((@query.zoomlevel).to_i) > ((@query.oldzoomlevel).to_i)
+      #   e = e / 2.0 / (((@query.zoomlevel).to_f)-((@query.oldzoomlevel).to_f))
+      #end
+      e = params[:query][:span].to_f/15
+    else
+      e = 30.0
+    end
+
+    
+    if @varpoints 
+      all_points_group=Hash.new
+      pg_count=0
+      @varpoints.each { |v|
+	SpatialAndTimeAttribute.find(:all, :conditions=>{:node_id=>v.id}).each { |s| 
+           if (all_points_group.keys.length==0)
+             all_points_group["point_group0"]=Array.new
+             all_points_group["point_group0"].push s
+             pg_count=1
+           else 
+             i=0
+             while i <= pg_count do
+               points_group = all_points_group["point_group#{i}"]
+               if (i==pg_count)
+                  all_points_group["point_group#{pg_count}"]=Array.new
+                  all_points_group["point_group#{pg_count}"].push s
+                  pg_count=pg_count+1
+                  break               
+               elsif (points_group[0].latitude_lb+e >= s.latitude_lb && points_group[0].latitude_lb-e <= s.latitude_lb && points_group[0].longitude_lb+e >= s.longitude_lb && points_group[0].longitude_lb-e <= s.longitude_lb)
+                  all_points_group["point_group#{i}"].push s
+                  break
+               end
+               i=i+1
+             end #while 
+           end #if
+         }#SpatialAttributes
+       } #@verpoints.each
+      @all_points_group=all_points_group
+    end #@verpoints
+    
+    if(query_partial = @query.querystring("partial"))
+      debug+=query_partial
+      @varpartial = Node.find_by_sql( [query_partial.gsub(/%/,'%%')] )
+      @results = true
+    else
+      @varpartial = nil
+    end
+
+    if @varpartial
+      pag_count=0
+      all_partial_group=Hash.new
+      
+      @varpartial.each do |v| 
+        SpatialAndTimeAttribute.find(:all, :conditions=>{:node_id=>v.id}).each{ |s|
+         if (all_partial_group.keys.length==0)
+           all_partial_group["partial_group0"]=Array.new
+           all_partial_group["partial_group0"].push s
+           pag_count=1
+         else  
+            i=0 
+            while i<=pag_count do
+              if (i==pag_count)
+                all_partial_group["partial_group#{pag_count}"]=Array.new
+                all_partial_group["partial_group#{pag_count}"].push s
+                pag_count=pag_count+1
+                break
+              else
+                partial_group=all_partial_group["partial_group#{i}"]
+                if(partial_group[0].latitude_lb+e >= s.latitude_lb && partial_group[0].latitude_lb-e <= s.latitude_lb && partial_group[0].longitude_lb+e >= s.longitude_lb && partial_group[0].longitude_lb-e <= s.longitude_lb)
+                 all_partial_group["partial_group#{i}"].push s
+                 break
+                end
+              end
+              i=i+1
+            end #while 
+          end #if 
+        }#SpatialAttribute
+      end 
+      @all_partial_group=all_partial_group
+    end 
+    
+    if(query_global = @query.querystring("global"))
+      debug+=query_partial
+      @varglobal = Node.find_by_sql( [query_global.gsub(/%/,'%%')] )
+      @results = true
+    else
+      @varglobal = nil
+    end
+
+    if (query_no_region = @query.querystring("no_region"))
+      debug += query_no_region
+      @varno_region = Node.find_by_sql( [query_no_region.gsub(/%/,'%%')] )
+      @resutls = true
+    else
+      @varno_region = nil
+    end
+
+    res=Hash.new
+    res["debug"]=debug
+    res["points"]=@all_points_group
+    res["partial"]=@all_partial_group
+    res["global"] = @varglobal
+    res["no_region"] = @varnoapatialattribute
+    res["radius"]=e
+    return res
+  end
+
+  def re_search
+    res = msearch
+    session[:query]=@query
+    session[:all_partial_group]=@all_partial_group
+    session[:all_points_group]=@all_points_group
+
+    return res
+  end
+
+  def mapsearch
+    @google_map_key = GFDNAVI_GOOGLE_MAP_KEY
+    @page_title = 'search by google-map'
+
+    if request.post?
+      res = msearch
+    else
+      @query=Query.new();
+    end
+
+    session[:varglobal]=@varglobal
+    session[:varpartial]=@varpartial
+    session[:varpoints]=@varpoints
+    session[:varno_region] = @varno_region
+    session[:query]=@query
+    session[:results]=@results
+    session[:all_partial_group]=@all_partial_group
+    session[:all_points_group]=@all_points_group
+
+    @variables = Array.new
+    [@varpoints, @varpartial, @varglobal, @varno_region].each{|ary|
+      @variables += ary if Array === ary
+    }
+    render :action => "mapsearch"
+  end
+
+  def remapsearch
+    r=re_search
+    @objs = Array.new
+    if @all_points_group!=nil then
+      @all_points_group.keys.each{ |key|
+        group = @all_points_group[key]
+        size = group.length if group.length > 30
+        size = 30 if group.length <= 30 
+        if group.length!=0 then
+          @objs.push( {:gid=>key, :radius=>r["radius"],:posx=>group[0].latitude_lb, :posy=>group[0].longitude_lb, :size=>size, :num=>group.length, :mode=>"points"} )
+        end
+      }
+    end
+    if @all_partial_group!=nil then
+      @all_partial_group.keys.each{ |key|
+        group = @all_partial_group[key]
+        size = group.length if group.length > 30
+        size = 30 if group.length <= 30 
+        if group.length!=0 then
+          @objs.push( {:gid=>key, :radius=>r["radius"], :posx=>group[0].latitude_lb, :posy=>group[0].longitude_lb, :size=>size, :num=>group.length, :mode=>"partial"} )
+        end
+      }
+    end
+    @debug = r["debug"]
+    @queryregion = {:start_lon=>@query.start_lon,:start_lat=>@query.start_lat,:end_lon=>@query.end_lon,:end_lat=>@query.end_lat}
+    @windowregion = {:window_start_lon=>@query.window_start_lon,:window_start_lat=>@query.window_start_lat,:window_end_lon=>@query.window_end_lon,:window_end_lat=>@query.window_end_lat}
+  end
+
+  def listvariables
+    @all_group = session[:all_points_group]
+    @mode = params[:mode]
+    
+    if @mode=="points"
+      @all_group = session[:all_points_group]
+    elsif @mode=="partial"
+      @all_group = session[:all_partial_group]
+    end
+    @points_group = @all_group[params[:gid]]
+    @gid=params[:gid]
+    render(:partial=>"show_variablelist")
+  end
+
+
+  def change_results
+    @varpoints = session[:varpoints] || []
+    @varpartial = session[:varpartial] || []
+    @varglobal = session[:varglobal] || []
+    @varno_region = session[:varno_region] || []
+    @mode = params[:show][:list]
+    case @mode
+    when "points"
+      @no="p"
+      @variables = @varpoints
+    when "partial"
+      @no="p"
+      @variables = @varpartial
+    when "global"
+      @no="g"
+      @variables = @varglobal
+    when "no_region"
+      @no=""
+      @variables = @varno_region
+    else
+      @no=""
+      @variables = @varpoints + @varpartial + @varglobal + @varno_region
+    end
+    render(:partial =>"show_results")
+  end
+
+
+  def change_points_listmode
+    @varpoints=session[:varpoints]
+    if params[:mode][:list]=="groupbyfiles"
+       render(:partial =>"show_results_points_groupbyfile", :object => @varpoints)
+    else
+       render(:partial =>"show_results_points", :object => @varpoints)
+    end
+  end
+
+
+  def change_partial_listmode
+    @varpartial=session[:varpartial]
+    if params[:mode][:list]=="groupbyfiles"
+       render(:partial =>"show_results_partial_groupbyfile", :object => @varpartial)
+    else
+       render(:partial =>"show_results_partial", :object => @varpartial)
+    end
+  end
+
+  def change_global_listmode
+    @varglobal=session[:varglobal]
+    if params[:mode][:list]=="groupbyfiles"
+       render(:partial =>"show_results_global_groupbyfile", :object => @varglobal)
+    else
+       render(:partial =>"show_results_global", :object => @varglobal)
+    end
+  end
+
+
+
+  private
+
+  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.path)
+        render :nothing => true
+        return false
+      end
+    end
+    render :update do |page|
+      closes.each{|dir|
+        page << "tree.dirChange('#{dir.path}');"
+      }
+      parents.each{|dir|
+        path = dir.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].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(user)
+      var = Variable.find(:first, :conditions=>["path=?",path,], :user=>user )
+    end
+    if var
+      session[:variables_list] ||= Array.new
+      session[:variables_list].push var unless session[:variables_list].include?(var)
+    end
+  end
+
+  def add_node_to_list(node)
+    user = (login=session[:user]) && User.find_by_login(user)
+    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
+
+
+end

data/app/controllers/user_controller.rb

@@ -0,0 +1,337 @@
+class UserController < ApplicationController
+  # for OpenID
+  require 'ostruct'
+  
+  # === Proxy���g�p����OpenID�F�؃T�[�o�ƒʐM���邽�߂ɕK�v
+  OpenID.fetcher_use_env_http_proxy if GFDNAVI_USING_PROXY
+
+  layout  'gfdnavi'
+
+  before_filter :login_required, :except => [:login, :signup, :openid_signup, :openid_login, :openid_logout, :authenticate, :root_url]
+
+  def index
+    @user = User.find_by_login(session[:user])
+  end
+
+  def login
+
+    case request.method
+    when :post
+      user = User.authenticate(params[:user][:login], params[:user][:password])
+      if user
+=begin
+!!! have to reset session, but this is not valid under rails 1.2
+        data = session.instance_variable_get(:@data)
+        data ||= session.instance_variable_get(:@attributes)
+        request.reset_session
+        for key, val in data
+          session[key] = val
+        end
+=end
+        session[:user] = user.login
+        flash['notice']  = "Login successful"
+        redirect_back_or_default :action => "index"
+      else
+        flash.now['notice']  = "Login unsuccessful"
+        @login = params[:user_login]
+      end
+    end
+  end
+
+  def add_user
+    user = (login=session[:user]) && User.find_by_login(login)
+    unless user && User.super_user?(user)
+      redirect_back_or_default :action => "index"
+    end
+    case request.method
+    when :post
+      @user = User.new(params['user'])
+      @user.internal_user = true
+      if @user.save
+        flash['notice']  = "Signup successful"
+        redirect_back_or_default :action => "index"
+      end
+    when :get
+      @user = User.new
+    end
+  end
+
+  def signup
+    logout
+    case request.method
+    when :post
+      @sign_up_user = SignUpUser.new(params['sign_up_user'])
+      if @sign_up_user.save
+        if GFDNAVI_ENABLE_EMAIL
+          UserMailer.deliver_signup_confirm(@sign_up_user, uri_prefix)
+          UserMailer.deliver_signup_inform(@sign_up_user, uri_prefix)
+        end
+        render :action => "signup_succeeded"
+        return
+      end
+    when :get
+      @sign_up_user = SignUpUser.new
+    end
+  end
+
+  def change_password
+    @user = (login=session[:user]) && User.find_by_login(login)
+    if @user && @user.super_user?
+      if (name=params[:name]) && (user=User.find(:first,:conditions=>["login=?",name]))
+        @user = user
+      end
+      @super = true
+    end
+    case request.method
+    when :post
+      password = params['current_password']
+      if @super || User.authenticate(@user.login, password) == @user
+        if @user.change_password(params['new_password'], params['new_password_confirmation'])
+          flash['notice']  = "Change successful"
+          redirect_to :action => "index"
+        end
+      end
+      flash['notice']  = "Change unsuccessful"
+    end
+  end
+
+  def edit
+    user_login = (login=session[:user]) && User.find_by_login(login)
+    @user = user_login
+    if @user && @user.super_user?
+      if (name=params[:name]) && (user=User.find(:first,:conditions=>["login=?",name]))
+        @user = user
+      end
+      @super = true
+    end
+    case request.method
+    when :post
+      password = params[:password]
+      if user_login.super_user? || User.authenticate(@user.login, password) == @user
+        @user.update_attributes(params[:user])
+        if @user.save
+          flash[:notice] = "Change successful"
+          redirect_to :action => "index"
+          return
+        end
+      end
+      flash[:notice]  = "Change unsuccessful"
+    end
+  end
+
+  def delete
+    if (name = params[:name]) and (user = (login=session[:user])&&User.find_by_login(login))
+      user_to_delete = User.find(:first, :conditions=>["login = ?",name])
+      if user.super_user? || user == user_to_delete
+        user_to_delete.destroy
+      end
+    end
+    redirect_to :action => "index"
+  end
+
+  def logout
+    session[:user] = nil
+    request.reset_session
+    session = request.session
+  end
+
+  def set_super_user
+    if (name = params[:name]) and User.find_by_login(session[:user]).super_user
+      user = User.find(:first, :conditions=>["login = ?",name])
+      user.super_user = true
+      user.save!
+    end
+    redirect_to :action => "index"
+  end
+
+  def unset_super_user
+    if (name = params[:name]) and (login=session[:user]) && (user=User.find_by_login(login)) && user.super_user?
+      user = User.find(:first,:conditions=>["login=?",name])
+      user.super_user = false
+      user.save!
+    end
+    redirect_to :action => "index"
+  end
+
+  def accept_signup
+    suser = (login=session[:user]) && User.find_by_login(login)
+    unless User.super_user?(suser)
+      redirect_to :action => "index"
+    end
+    user = SignUpUser.find(params['id'])
+    new_user = User.new
+    %w(login full_name email_address affiliation).each{|attr|
+      new_user.send("#{attr}=", user.send(attr))
+    }
+    new_user.password = "dummy"
+    new_user.password_confirmation = "dummy"
+    if new_user.save
+      new_user.password = user.password
+      new_user.save!
+      user.destroy
+      flash[:notice] = "authorization of #{user.login} was succeeded"
+      @uri = uri_prefix
+      if GFDNAVI_ENABLE_EMAIL
+        UserMailer.deliver_signup_accepted(new_user, uri_prefix)
+        UserMailer.deliver_authorization_inform(new_user, uri_prefix, suser, "accept")
+      end
+    else
+      flash[:notice] = "authorization of #{user.login} was failed"
+    end
+    redirect_to :action => "index"
+  end
+
+  def reject_signup
+    suser = (login=session[:user]) && User.find_by_login(user)
+    unless User.super_user?(suser)
+      redirect_to :action => "index"
+    end
+    user = SignUpUser.find(params['id'])
+    @uri = uri_prefix
+    if GFDNAVI_ENABLE_EMAIL
+      UserMailer.deliver_signup_rejected(user, uri_prefix)
+      UserMailer.deliver_authorization_inform(user, uri_prefix, suser, "reject")
+    end
+    user.destroy
+    redirect_to :action => "index"
+  end
+
+=begin
+  # == for OpenID
+  # * gfdnavi.yml�� allow_any_openid ��ݒ�B false �Ȃ����ꂽOpenID���[�U�ɂ������‚��Ȃ����[�h�ɂȂ�B
+  # * params[:open_id_complete]�́A�F�؃T�[�o����߂��Ă����Ƃ��ɒl������B����܂ł� nil�B  
+  #
+  # (1) ���[�U��OpenID�����
+  # (2) using_open_id�̔���ŁA�󂶂�Ȃ���Ύ葱�����s�B��Ȃ� index �Ƀ��_�C���N�g�B
+  # (3) �S�Ă�OpenID���������[�h���A�܂������łȂ��Ă��o�^�ς݂�OpenID�ł����authenticate.
+  #     �����łȂ���΁AOpenID���\���̃y�[�W�ւƔ�΂�(openid_signup �փ��_�C���N�g)�B
+  def openid_login
+    unless respond_to?("using_open_id?")
+      flash[:notice] = "Please install Rails plugin \"open_id_authentication plugin\".\n"
+      redirect_to :action => "index"
+    end
+
+    if using_open_id?
+      if GFDNAVI_ALLOW_ANY_OPENID || User.find_by_login(User.normalization(params[:openid]))
+        authenticate
+      else
+        flash[:notice] = "In this Gfdnavi server, login is permitted only to admitted OpenID.\nDo you want to signup?"
+        @openid = params[:openid]
+        redirect_to :action => "openid_signup"
+      end
+    else
+      flash[:error] = "Authentication failed. Your input was empty, or wrong OpenID.\nPlease retry.\n"
+      redirect_to :action => "index"
+    end
+  end
+
+  def openid_logout
+    session[:user_id] = nil
+    redirect_to :action => "index"
+  end
+  
+  # == OpenID���[�U�� signup �Ɏg���B
+  # ���̃��\�b�h���Ă΂ꂽ�Ƃ��́AOpenID�F�؃T�[�o�ɂ͂܂��A�N�Z�X���Ă��Ȃ��̂ŁA
+  # signup�̂��߂ɔF�؂�������B
+  # ������
+  def openid_signup
+    logout
+    openid_logout
+    case request.method
+    when :post
+      authenticate_with_open_id(params[:openid],:required=>[:fullname, :email]) do |result, identity_url, registration|
+        unless result.successful?
+          flash[:error] = result.message + "Please confirm your OpenID URL.\n"
+          redirect_to :action => "index"
+          return
+        else
+          # === �F�ؐ���
+          @sign_up_openid_user = SignUpUser.new
+          @sign_up_openid_user.login = identity_url
+          @sign_up_openid_user.full_name = registration["fullname"]
+          @sign_up_openid_user.email_address = registration["email"]
+          @sign_up_openid_user.affiliation = ""
+          @sign_up_openid_user.password = "dummy"
+          
+          if @sign_up_user.save
+            if GFDNAVI_ENABLE_EMAIL
+              UserMailer.deliver_signup_confirm(@sign_up_user, uri_prefix)
+              UserMailer.deliver_signup_inform(@sign_up_user, uri_prefix)
+            end
+            render :action => "signup_succeeded"
+            return
+          end
+        end
+      end
+    when :get
+      @sign_up_user = SignUpUser.new
+    end
+  end
+
+  protected
+  # == OpenID�ɂ�郍�O�C���̔F�؂��s��
+  # * �F�؂̐��ۂ͂����Ŕ��肵�Ă���B
+  def authenticate(identity_url = "")
+    print "authenticate!\n"
+    
+    authenticate_with_open_id(params[:openid],:required=>[:fullname, :email]) do |result, identity_url, registration|
+      # * �F�؎��s�Ȃ�AUser�̃C���f�b�N�X�y�[�W�ւƃ��_�C���N�g
+      # * �F�ؐ����Ȃ�AOpenStruct�I�u�W�F�N�g�����A�Z�b�V�����ɓ����B
+      unless result.successful?
+        flash[:error] = result.message + "Please confirm your OpenID URL.\n"
+        # redirect_to :controller => "user", :action => "index"
+        jumpto = session[:jumpto] || {:controller => "user"}
+      else
+        openid_user = OpenStruct.new
+        openid_user.identity_url = identity_url
+        openid_user.fullname = registration["fullname"]
+        openid_user.email = registration["email"]
+        session[:user_id] = openid_user
+
+        jumpto = session[:jumpto] || {:controller => "user"}
+        session[:jumpto] = nil
+        
+        # ���͂��ꂽOpenID��Gfdnavi�̃f�[�^�x�[�X�ɂ��邩�ǂ����T���B
+        # * ���͂��ꂽOpenID�����ɓo�^����Ă���ꍇ�Afull_name��email_address���X�V���ă��O�C���B
+        # * OpenID�����o�^�̏ꍇ�A�V�K�o�^����B
+        if external_user = User.find_by_login(identity_url)
+          external_user.full_name = registration["fullname"]
+          external_user.email_address = registration["email"]
+          external_user.save
+          session[:user] = external_user.login
+          flash[:notice] = "authorization of #{identity_url} is succeeded"
+        else
+          new_user = User.new
+          new_user.login = identity_url
+          new_user.password = "dummy"
+          new_user.password_confirmation = "dummy"
+          new_user.full_name = registration["fullname"]
+          new_user.email_address = registration["email"]
+          new_user.affiliation = "external user"
+          new_user.internal_user = false
+          new_user.openid = true
+          
+          require 'pp'
+          print "new_user = "
+          pp new_user
+          
+          if new_user.save
+            print "successfully login.\n"
+            flash[:notice] = "creation of #{identity_url} user is succeeded"
+            session[:user] = new_user.login
+          else
+            print "failed to save.\n"
+            flash[:notice] = "creation of #{identity_url} user is failed"
+          end
+        end
+      end
+      redirect_to(jumpto)
+    end
+  end
+
+  def root_url
+    openid_url
+  end
+=end  
+
+end