diff --git a/app/controllers/report_controller.rb b/app/controllers/report_controller.rb
new file mode 100644
--- /dev/null
+++ b/app/controllers/report_controller.rb
@@ -0,0 +1,178 @@
+class ReportController < ApplicationController
+
+  before_filter :admin_authorization, only: [:login_stat,:submission_stat]
+
+  def login_stat
+    @logins = Array.new
+
+    date_and_time = '%Y-%m-%d %H:%M'
+    begin
+      @since_time = DateTime.strptime(params[:since_datetime],date_and_time)
+    rescue
+      @since_time = DateTime.new(1000,1,1)
+    end
+    begin
+      @until_time = DateTime.strptime(params[:until_datetime],date_and_time)
+    rescue
+      @until_time = DateTime.new(3000,1,1)
+    end
+    
+    User.all.each do |user|
+      @logins << { login: user.login, 
+                   full_name: user.full_name, 
+                   count: Login.where("user_id = ? AND created_at >= ? AND created_at <= ?",
+                                      user.id,@since_time,@until_time)
+                          .count(:id),
+                   min: Login.where("user_id = ? AND created_at >= ? AND created_at <= ?",
+                                      user.id,@since_time,@until_time)
+                          .minimum(:created_at),
+                   max: Login.where("user_id = ? AND created_at >= ? AND created_at <= ?",
+                                      user.id,@since_time,@until_time)
+                          .maximum(:created_at)
+                 }
+    end
+  end
+
+  def submission_stat
+
+    date_and_time = '%Y-%m-%d %H:%M'
+    begin
+      @since_time = DateTime.strptime(params[:since_datetime],date_and_time)
+    rescue
+      @since_time = DateTime.new(1000,1,1)
+    end
+    begin
+      @until_time = DateTime.strptime(params[:until_datetime],date_and_time)
+    rescue
+      @until_time = DateTime.new(3000,1,1)
+    end
+
+    @submissions = {}
+
+    User.find_each do |user|
+      @submissions[user.id] = { login: user.login, full_name: user.full_name, count: 0, sub: { } }
+    end
+
+    Submission.where("submitted_at >= ? AND submitted_at <= ?",@since_time,@until_time).find_each do |s|
+      if @submissions[s.user_id]
+        if not @submissions[s.user_id][:sub].has_key?(s.problem_id)
+          a = nil
+          begin
+            a = Problem.find(s.problem_id)
+          rescue
+            a = nil
+          end
+          @submissions[s.user_id][:sub][s.problem_id] = 
+            { prob_name: (a ? a.full_name : '(NULL)'),
+              sub_ids: [s.id] } 
+        else
+          @submissions[s.user_id][:sub][s.problem_id][:sub_ids] << s.id
+        end
+        @submissions[s.user_id][:count] += 1
+      end
+    end
+  end
+
+  def problem_hof
+    # gen problem list
+    @user = User.find(session[:user_id])
+    @problems = @user.available_problems
+
+    # get selected problems or the default
+    if params[:id]
+      begin
+        @problem = Problem.available.find(params[:id])
+      rescue
+        redirect_to action: :problem_hof
+        flash[:notice] = 'Error: submissions for that problem are not viewable.'
+        return
+      end
+    end
+
+    if @problem
+      #aggregrate by language
+      @by_lang = {}
+      Submission.where(problem_id: @problem.id).find_each do |sub|
+        lang = Language.find_by_id(sub.language_id)
+        next unless lang
+        next unless sub.points >= @problem.full_score
+
+        #initialize
+        unless @by_lang.has_key?(lang.pretty_name)
+          @by_lang[lang.pretty_name] = {
+            runtime: { avail: false, value: 2**30-1 },
+            memory: { avail: false, value: 2**30-1 },
+            length: { avail: false, value: 2**30-1 },
+            first: { avail: false, value: DateTime.new(3000,1,1) }
+          }
+        end
+
+        if sub.max_runtime and sub.max_runtime < @by_lang[lang.pretty_name][:runtime][:value]
+          @by_lang[lang.pretty_name][:runtime] = {
+            avail: true,
+            user_id: sub.user_id,
+            value: sub.max_runtime,
+            sub_id: sub.id
+          }
+        end
+
+        if sub.peak_memory and sub.peak_memory < @by_lang[lang.pretty_name][:memory][:value]
+          @by_lang[lang.pretty_name][:memory] = {
+            avail: true,
+            user_id: sub.user_id,
+            value: sub.peak_memory,
+            sub_id: sub.id
+          }
+        end
+
+        if sub.submitted_at and sub.submitted_at < @by_lang[lang.pretty_name][:first][:value]
+          @by_lang[lang.pretty_name][:first] = {
+            avail: true,
+            user_id: sub.user_id,
+            value: sub.submitted_at,
+            sub_id: sub.id
+          }
+        end
+
+        if @by_lang[lang.pretty_name][:length][:value] > sub.effective_code_length
+          @by_lang[lang.pretty_name][:length] = {
+            avail: true,
+            user_id: sub.user_id,
+            value: sub.effective_code_length,
+            sub_id: sub.id
+          }
+        end
+      end
+      
+      #process user_id
+      @by_lang.each do |lang,prop|
+        prop.each do |k,v|
+          v[:user] = User.exists?(v[:user_id]) ? User.find(v[:user_id]).login : "(NULL)"
+        end
+      end
+
+      #sum into best
+      if @by_lang and @by_lang.first
+        @best = @by_lang.first[1]
+        @by_lang.each do |lang,prop|
+          if @best[:runtime][:value] > prop[:runtime][:value]
+            @best[:runtime] = prop[:runtime]
+            @best[:runtime][:lang] = lang
+          end
+          if @best[:memory][:value] > prop[:memory][:value]
+            @best[:memory] = prop[:memory]
+            @best[:memory][:lang] = lang
+          end
+          if @best[:length][:value] > prop[:length][:value]
+            @best[:length] = prop[:length]
+            @best[:length][:lang] = lang
+          end
+          if @best[:first][:value] > prop[:first][:value]
+            @best[:first] = prop[:first]
+            @best[:first][:lang] = lang
+          end
+        end
+      end
+    end
+  end
+end
diff --git a/app/views/report/_report_menu.html.haml b/app/views/report/_report_menu.html.haml
new file mode 100644
--- /dev/null
+++ b/app/views/report/_report_menu.html.haml
@@ -0,0 +1,7 @@
+
+.task-menu
+  Reports
+  %br/
+  = link_to '[Hall of Fame]', :action => 'problem_hof'
+  = link_to '[Submission]', :action => 'submission_stat'
+  = link_to '[Login]', :action => 'login_stat'
diff --git a/app/views/report/problem_hof.html.haml b/app/views/report/problem_hof.html.haml
new file mode 100644
--- /dev/null
+++ b/app/views/report/problem_hof.html.haml
@@ -0,0 +1,65 @@
+%h1 Tasks Hall of Fame
+
+.task-menu
+  Tasks
+  %br/
+  - @problems.each do |prob|
+    = link_to( "[#{prob.name}]", {id: prob.id})
+
+
+
+
+%h2 Overall
+
+- if @best
+  %b Best Runtime:
+  = " by #{@best[:runtime][:user]} with #{@best[:runtime][:value] * 1000} milliseconds at submission " \
+  = link_to("#" + @best[:runtime][:sub_id].to_s, controller: 'graders', action: 'submission', id:@best[:runtime][:sub_id])
+  %br/
+  %b Best Memory Usage:
+  = " by #{@best[:memory][:user]} with #{@best[:memory][:value]} kbytes at submission "
+  = link_to("#" + @best[:memory][:sub_id].to_s, controller: 'graders' , action: 'submission', id:@best[:memory][:sub_id])
+  %br/
+  %b Shortest Code: 
+  = " by #{@best[:length][:user]} with #{@best[:length][:value]} at submission "
+  = link_to("#" + @best[:length][:sub_id].to_s, controller: 'graders' , action: 'submission', id: @best[:length][:sub_id])
+  %br/
+  %b First solver: 
+  = " by #{@best[:first][:user]} is the first solver on #{@best[:first][:value]} at submission " 
+  = link_to("#" + @best[:first][:sub_id].to_s, controller: 'graders' , action: 'submission', id: @best[:first][:sub_id])
+  %br/
+
+
+  %p
+    This counts only for submission with 100% score <br/>
+    Right now, java is excluded from memory usage competition. (Because it always uses 2GB memory...)
+
+  %h2 By language
+
+  %table.info
+    %thead
+      %tr.info-head
+        %th Language
+        %th Best runtime (ms)
+        %th Best memory (kbytes)
+        %th Shortest Code (bytes)
+        %th First solver
+    %tbody
+      - @by_lang.each do |lang,value|
+        %tr{class: cycle('info-even','info-odd')}
+          %td= lang
+          %td
+            = "#{value[:runtime][:user]} (#{(value[:runtime][:value] * 1000).to_i} @"
+            = "#{link_to("#" + value[:runtime][:sub_id].to_s, controller: 'graders' , action: 'submission', id: value[:runtime][:sub_id])} )".html_safe
+          %td
+            = "#{value[:memory][:user]} (#{value[:memory][:value]} @"
+            = "#{link_to("#" + value[:memory][:sub_id].to_s, controller: 'graders' , action: 'submission', id: value[:memory][:sub_id])} )".html_safe
+          %td
+            = "#{value[:length][:user]} (#{value[:length][:value]} @"
+            = "#{link_to("#" + value[:length][:sub_id].to_s, controller: 'graders' , action: 'submission', id: value[:length][:sub_id])} )".html_safe
+          %td
+            = "#{value[:first][:user]} (#{value[:first][:value]} @"
+            = "#{link_to("#" + value[:first][:sub_id].to_s, controller: 'graders' , action: 'submission', id: value[:first][:sub_id])} )".html_safe
+
+- else
+  %h3 No submissions