Added quotes stats page

3 files changed, 118 insertions, 0 deletions

@@ -47,6 +47,82 @@ class QuotesController < ApplicationController
     end
   end
 
+  def stats
+    @months = []
+    0.upto(11) do |i|
+      month = i.months.ago.month
+      year = i.months.ago.year
+      beginning = i.months.ago.beginning_of_month.beginning_of_day
+      endtime = i.months.ago.end_of_month.end_of_day
+      quotes = Quote.where("created_at >= :start_date AND created_at <= :end_date", { :start_date => beginning, :end_date => endtime }).all
+      @months[11-i] = { :name => Date::MONTHNAMES[month], :number => quotes.count }
+    end
+
+    #@months2 = []
+    #i = 0
+    #while true
+    #  month = i.months.ago.month
+    #  year = i.months.ago.year
+    #  beginning = i.months.ago.beginning_of_month.beginning_of_day
+    #  endtime = i.months.ago.end_of_month.end_of_day
+    #  quotes = Quote.where("created_at <= :end_date", { :end_date => endtime }).all
+    #  @months2[i] = { :name => i.months.ago.strftime("%Y-%m"), :number => quotes.count }
+    #
+    #  break if month == 4 and year == 2008
+    #
+    #  i=i+1
+    #end
+    #
+    #@months2.reverse!
+    #
+    #@upvotes = Vote.where(upvote: 1, votable_type: :quote).count
+    #@downvotes = Vote.where(upvote: 0, votable_type: :quote).count
+
+    hardcoded_aliases = {
+      "hatkirby": "Hatkirby",
+      "Gryphic": "Drifty",
+      "DriftyBeyond": "Drifty",
+      "Starla": "Hatkirby",
+      "BleuM937": "Bluemonkey",
+      "BlueM937": "Bluemonkey",
+      "Drifty1": "Drifty",
+      "Starla Insigna": "Hatkirby",
+      "Starla Alice Insigna": "Hatkirby",
+      "tamasys": "Tamasys",
+      "Student 2": "Student",
+      "Старла Эппрет": "Hatkirby",
+      "Girl Without Slipper": "Hatkirby",
+      "Actias": "Drifty",
+      "Salaboy123": "Tamasys",
+      "TaMACsys": "Tamasys",
+      "RealityCheck": "Drifty",
+      "Student 3": "Student"
+    }
+
+    person_count = {}
+    Quote.all.each do |quote|
+      person_in_quote = {}
+
+      quote.content.split("\n").each do |line|
+        check = line.chomp
+        hi = /([\(\[][^\]\)]*[\]\)] )?([^:]*): /.match(check)
+        if hi and hi[2] then
+          person = hi[2]
+          if hardcoded_aliases.has_key? person.intern
+            person = hardcoded_aliases[person.intern]
+          end
+          unless person_in_quote.has_key? person
+            person_count[person] ||= 0
+            person_count[person] += 1
+            person_in_quote[person] = 1
+          end
+        end
+      end
+    end
+
+    @by_speaker = person_count.to_a.sort_by {|hi| hi[1]}.reverse.take(20)
+  end
+
   def show
     @quote = Quote.published.find(params[:id])
 
@@ -23,6 +23,7 @@
           - if user_signed_in?
             %li= link_to_unless_current "Submit", new_quote_url
           %li= link_to_unless_current "Tags", tags_quotes_url
+          %li= link_to_unless_current "Stats", stats_quotes_url
           %li= link_to_unless_current "Feed", latest_quotes_url(:atom)
         .cleardiv
       #page-body
@@ -0,0 +1,41 @@
+%script{ :type => "text/javascript", :src => "https://www.gstatic.com/charts/loader.js" }
+%script{ :type => "text/javascript" }
+    google.charts.load('visualization', '1.0', {'packages':['corechart']});
+    google.charts.setOnLoadCallback(drawChart);
+    function drawChart()
+    {
+    var data = new google.visualization.DataTable();
+    data.addColumn('string', 'Month');
+    data.addColumn('number', 'Quotes Submitted');
+    data.addRows([
+    - @months.each do |month|
+        ['#{month[:name]}', #{month[:number]}],
+    ]);
+    var options = {'title':'Quotes Submitted in the Last 12 Months', 'width':1000, 'height':500, 'legend':'none', 'hAxis.maxAlternation':1};
+    var chart = new google.visualization.ColumnChart(document.getElementById('chart_div'));
+    chart.draw(data, options);
+    //var data2 = new google.visualization.DataTable();
+    //data2.addColumn('string', 'Month');
+    //data2.addColumn('number', 'Quotes');
+    //data2.addRows([
+    //- @months2.each do |month|
+    //    ['\#{month[:name]}', \#{month[:number]}],
+    //]);
+    //var options2 = {'title':'Number of Quotes', 'width':1000, 'height':500, 'legend':'none', 'hAxis.maxAlternation':1};
+    //var chart2 = new google.visualization.AreaChart(document.getElementById('chart2_div'));
+    //chart2.draw(data2, options2);
+    var data3 = new google.visualization.DataTable();
+    data3.addColumn('string', 'Speaker');
+    data3.addColumn('number', 'Quotes');
+    data3.addRows([
+    - @by_speaker.each do |speaker|
+        ['#{speaker[0]}', #{speaker[1]}],
+    ]);
+    var options3 = {'title':'Number of Quotes per Speaker', 'width':1000, 'height':500};
+    var chart3 = new google.visualization.ColumnChart(document.getElementById('chart3_div'));
+    chart3.draw(data3, options3);
+    }
+%p.normal Because charts are fun, we've compiled a few charts here containing statistics about the Four Island Quotes DB.
+#chart2_div
+#chart_div
+#chart3_div