Merge pull request #3066 from rolandwalker/snapshot_caskfiles

Store metadata with installed Casks.

lib/cask.rb

@@ -96,9 +96,10 @@ def self.nowstamp_metadata_path(container_path)
     end
   end
 
-  attr_reader :token
-  def initialize(token=self.class.token)
-    @token = token
+  attr_reader :token, :sourcefile_path
+  def initialize(sourcefile_path=nil)
+    @sourcefile_path = sourcefile_path
+    @token = self.class.token
   end
 
   def caskroom_path

lib/cask/installer.rb

@@ -59,6 +59,7 @@ def install(force=false)
       download
       extract_primary_container
       install_artifacts
+      save_caskfile force
       enable_accessibility_access
     rescue StandardError => e
       purge_versioned_files
@@ -217,6 +218,22 @@ def disable_accessibility_access
     end
   end
 
+  def save_caskfile(force=false)
+    timestamp = :now
+    create    = true
+    savedir   = @cask.metadata_subdir('Casks', timestamp, create)
+    if Dir.entries(savedir).size > 2
+      # should not happen
+      if force
+        savedir.rmtree
+        FileUtils.mkdir_p savedir
+      else
+        raise CaskAlreadyInstalledError.new(@cask)
+      end
+    end
+    FileUtils.copy(@cask.sourcefile_path, savedir) if @cask.sourcefile_path
+  end
+
   def uninstall(force=false)
     odebug "Cask::Installer.uninstall"
     disable_accessibility_access

lib/cask/source/path_base.rb

@@ -78,7 +78,7 @@ def load
       raise e
     end
     begin
-      Object.const_get(cask_class_name).new
+      Object.const_get(cask_class_name).new(path)
     rescue CaskError, StandardError, ScriptError => e
       # bug: e.message.concat doesn't work with CaskError exceptions
       e.message.concat(" while instantiating '#{cask_class_name}' from '#{path}'")

lib/cask/without_source.rb

@@ -3,6 +3,11 @@ def staged_path
     caskroom_path.children.first
   end
 
+  def initialize(sourcefile_path=nil)
+    @sourcefile_path = sourcefile_path
+    @token = sourcefile_path
+  end
+
   def to_s
     "#{token} (!)"
   end