2798: Merged branch with code to read environment variables with branch working on...
[arvados.git] / apps / workbench / app / controllers / keep_disks_controller.rb
1 class KeepDisksController < ApplicationController
2   def create
3     defaults = { is_readable: true, is_writable: true }
4     @object = KeepDisk.new defaults.merge(params[:keep_disk] || {})
5     super
6   end
7
8   def index
9     # Retrieve cache age histogram info from logs.
10
11     # In the logs we expect to find it in an ordered list with entries
12     # of the form (mtime, disk proportion free).
13
14     # An entry of the form (1388747781, 0.52) means that if we deleted
15     # the oldest non-presisted blocks until we had 52% of the disk
16     # free, then all blocks with an mtime greater than 1388747781
17     # would be preserved.
18
19     # The chart we want to produce, will tell us how much of the disk
20     # will be free if we use a cache age of x days. Therefore we will
21     # produce output specifying the age, cache and persisted. age is
22     # specified in milliseconds. cache is the size of the cache if we
23     # delete all blocks older than age. persistent is the size of the
24     # persisted blocks. It is constant regardless of age, but it lets
25     # us show a stacked graph.
26
27     # Finally each entry in cache_age_histogram is a dictionary,
28     # because that's what our charting package wats.
29
30     @cache_age_histogram = []
31     @histogram_pretty_date = nil
32     histogram_log = Log.
33       filter([[:event_type, '=', 'block-age-free-space-histogram']]).
34       order(:created_at => :desc).
35       limit(1)
36     histogram_log.each do |log_entry|
37       # We expect this block to only execute at most once since we
38       # specified limit(1)
39       @cache_age_histogram = log_entry['properties'][:histogram]
40       # Javascript wants dates in milliseconds.
41       histogram_date_ms = log_entry['event_at'].to_i * 1000
42       @histogram_pretty_date = log_entry['event_at'].strftime('%b %-d, %Y')
43
44       total_free_cache = @cache_age_histogram[-1][1]
45       persisted_storage = 1 - total_free_cache
46       @cache_age_histogram.map! { |x| {:age => histogram_date_ms - x[0]*1000,
47           :cache => total_free_cache - x[1],
48           :persisted => persisted_storage} }
49     end
50
51     # Do the regular control work needed.
52     super
53   end
54 end