s3_cacher.rb 3.31 KB
Newer Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#
# Copyright:: Copyright (c) 2012 Opscode, Inc.
# License:: Apache License, Version 2.0
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
# 
#     http://www.apache.org/licenses/LICENSE-2.0
# 
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
#

18
19
20
21
22
23
require 'fileutils'
require 'omnibus/fetchers'

module Omnibus


Daniel DeLeo's avatar
Daniel DeLeo committed
24
  module SoftwareS3URLs
25
26
27
28

    class InsufficientSpecification < ArgumentError
    end

Daniel DeLeo's avatar
Daniel DeLeo committed
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
    def config
      Omnibus.config
    end

    def url_for(software)
      "http://#{config.s3_bucket}.s3.amazonaws.com/#{key_for_package(software)}"
    end

    private

    def key_for_package(package)
      package.name     or raise InsufficientSpecification, "Software must have a name to cache it in S3 (#{package.inspect})"
      package.version  or raise InsufficientSpecification, "Software must set a version to cache it in S3 (#{package.inspect})"
      package.checksum or raise InsufficientSpecification, "Software must specify a checksum (md5) to cache it in S3 (#{package.inspect})"
      "#{package.name}-#{package.version}-#{package.checksum}"
    end

  end

  class S3Cache

    include SoftwareS3URLs

52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
    def initialize
      @client = UberS3.new(
        :access_key         => config.s3_access_key,
        :secret_access_key  => config.s3_secret_key,
        :bucket             => config.s3_bucket,
        :adaper             => :net_http
      )
    end

    def log(msg)
      puts "[S3 Cacher] #{msg}"
    end

    def config
      Omnibus.config
    end

    def list
      existing_keys = list_by_key
      tarball_software.select {|s| existing_keys.include?(key_for_package(s))}
    end

    def list_by_key
      bucket.objects('/').map(&:key)
    end

    def missing
      already_cached = list_by_key
      tarball_software.delete_if {|s| already_cached.include?(key_for_package(s))}
    end

    def tarball_software
      Omnibus.library.select {|s| s.source && s.source.key?(:url)}
    end

    def populate
      missing.each do |software|
        fetch(software)

        key = key_for_package(software)
        content = IO.read(software.project_file)

        log "Uploading #{software.project_file} as #{config.s3_bucket}/#{key}"
        @client.store(key, content, :access => :public_read, :content_md5 => software.checksum)
      end
    end

    def fetch_missing
      missing.each do |software|
        fetch(software)
      end
    end

    private

    def ensure_cache_dir
      FileUtils.mkdir_p(config.cache_dir)
    end

    def fetch(software)
      log "Fetching #{software.name}"
Daniel DeLeo's avatar
Daniel DeLeo committed
113
      fetcher = Fetcher.without_caching_for(software)
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
      if fetcher.should_fetch?
        fetcher.download
        fetcher.verify_checksum!
      else
        log "Cached copy up to date, skipping."
      end
    end

    def bucket
      @bucket ||= begin
        b = UberS3::Bucket.new(@client, @client.bucket)
        # creating the bucket is idempotent, make sure it's created:
        @client.connection.put("/")
        b
      end
    end

  end
end