dolphindeploy 0.0.1

data/lib/deploymentconfig.rb

@@ -0,0 +1,15 @@
+require 'caesars'
+
+class Environment < Caesars
+end
+
+class DeploymentConfig  < Caesars::Config
+  dsl Environment::DSL
+end
+
+class Deployment
+  def self.load
+    conf = File.join(File.dirname(__FILE__), '..\deploy.conf')
+    @deployment = DeploymentConfig.new(conf)
+  end
+end

data/lib/directory_cleanup.rb

@@ -0,0 +1,16 @@
+class DirectoryCleanup
+  def remove_last(directory_to_clean, keep_last=10)
+    dir_to_remove = get_directories_to_remove(directory_to_clean, keep_last)
+    dir_to_remove.each do |d|
+      puts "Removing " + d
+      FileUtils.rm_r d, :force => true
+    end
+  end
+  
+  def get_directories_to_remove(directory_to_clean, keep_last)
+    Dir.chdir directory_to_clean   
+    ordered = Dir.glob('**').sort_by {|d| File.mtime(d)}
+    dir_to_keep = ordered[ordered.length-keep_last..ordered.length]
+    ordered - dir_to_keep
+  end
+end

data/lib/dolphindeploy.rb

@@ -0,0 +1,12 @@
+raise Exception, "Dolphin Deploy is only supported on IronRuby" unless Object.const_defined?(:RUBY_ENGINE) && RUBY_ENGINE == 'ironruby'
+
+$: << 'lib\configured_as'
+$: << 'lib\IIS'
+require 'rubygems'  #FIX: Apprantly this is bad practice
+require 'digest'
+require 'deploymentconfig'
+require 'deploycommandcreator'
+require 'IIS'
+require 'unzip'
+require 'file_manager'
+require 'directory_cleanup'

data/lib/dolphindeploy_rake.rb

@@ -0,0 +1,36 @@
+$: << 'lib'
+require 'dolphindeploy'
+
+# rake dolphin:deploy [env, server]
+# rake deploy['local', 'localhost']
+
+namespace :dolphin do
+  desc "Dolphin Deployment"
+  task :deploy, :env, :server  do |t, args|
+    deployment = Deployment.load()    
+    creator = DeployCommandCreator.new()
+    
+    env = args.env.to_sym
+    server = args.server
+    
+    mvc = creator.convert_from_config(deployment, env)
+    mvc.deploy server
+    
+  end
+  
+  desc "Clean up output directory"
+  task :cleanup, :env, :server  do |t, args|
+    deployment = Deployment.load()    
+    creator = DeployCommandCreator.new()
+    
+    env = args.env.to_sym
+    server = args.server
+    
+    mvc = creator.convert_from_config(deployment, env)
+    directory_to_clean = mvc.get_location(server)
+    
+    dir = DirectoryCleanup.new
+    dir.remove_last(directory_to_clean, 10)
+  end
+end
+ 

data/lib/file_manager.rb

@@ -0,0 +1,30 @@
+class FileManager
+  def extract(location, zip_path, env)
+    UnZip.unzip(zip_path, location)
+    swap_configs(location, env)
+  end
+  
+  def get_latest_version(location, site_name)
+    dirs = Dir.glob("#{location}/**").grep(/#{site_name}/)
+    
+    new_version = find_next_release_version(dirs, site_name)
+    
+    File.join(location, site_name + "-" + "%02d" % new_version)
+  end
+  
+  def find_next_release_version(dirs, site_name)
+    release_numbers = [0]
+    
+    dirs.each do |dir|
+      s = /#{site_name}-(\d+)/.match(dir)
+      release_numbers << s[1].to_i unless s.nil?
+    end
+    
+    new_version = release_numbers.max + 1
+  end
+  
+  def swap_configs(location, env)    
+    FileUtils.cp File.join(location, 'web.config'), File.join(location, 'web.original.config')
+    FileUtils.mv File.join(location, "web.#{env.to_s}.config"), File.join(location, 'web.config')
+  end
+end

data/lib/unzip.rb

@@ -0,0 +1,11 @@
+$: << 'external'
+require 'TinySharpZip'
+include System::IO
+
+class UnZip  
+  def self.unzip (file, destination)
+    FileUtils.mkdir_p destination
+    puts file + " to >> " + destination
+    TinySharpZip::ZipArchive.Extract(FileStream.new(file, FileMode.Open), destination)
+  end
+end

data/spec/IIS/IIS6_spec.rb

@@ -0,0 +1,24 @@
+require File.join(File.dirname(__FILE__), '../', 'support', 'spec_helper')
+require 'lib/configured_as/mvc_deployment'
+require 'lib/IIS/IIS6'
+
+describe IIS6, "executing against adsutil" do
+  context "Adding additional bindings" do
+    it "should get the website id based on the deployment name"
+  
+    it "should be able to add additional headers via adsutil" do
+      pending "Need to hook up CLR mocking"
+      
+      mvc = MvcDeployment.new
+      mvc.site_name = 'test'
+      
+      IIS6.any_instance.expects(:`).with("cscript external\\adsutil.vbs set w3svc/5/ServerBindings \":80:test.host.header\"").once
+      iis = IIS6.new
+      iis.set_extra_header ':80:test.host.header', mvc
+    end
+    
+    it "should supports multiple additional headers being defined"
+    
+    it "should get a list of the existing binding and append to list when setting server bindings" 
+  end
+end

data/spec/IIS/IIS_spec.rb

@@ -0,0 +1,18 @@
+require File.join(File.dirname(__FILE__), '../', 'support', 'spec_helper')
+require 'lib/configured_as/mvc_deployment'
+require 'lib/IIS/IIS'
+require 'lib/IIS/IIS6'
+require 'lib/IIS/IISVersion'
+
+describe IIS do
+  it "should executing IIS6 deployment if server is v6" do
+    pending "This doesn't work as I expect. Something really simple I'm guessing but keeps failing to mock objects"
+    mvc = MvcDeployment.new
+    mvc.site_name = 'test'
+    
+    IISVersion.expects(:current_version).returns("6.0.0.0")
+    IIS6.any_instance.expects(:deploy).with("", "", mvc).returns(false)
+    iis = IIS.new
+    iis.deploy("", "", mvc)
+  end
+end

data/spec/config_spec.rb

@@ -0,0 +1,170 @@
+require File.join(File.dirname(__FILE__), 'support', 'spec_helper')
+
+describe "Configuration loading" do
+  File.stubs(:exists?).returns(true)
+  
+  it "should execute dsl after being required which modifies properties on the object" do
+    File.stubs(:read).returns("environment do 
+   tester true
+end")
+    require 'deploymentconfig'
+    
+    @deployment = Deployment.load()    
+    @deployment.environment.tester.should be_true
+  end
+end
+
+describe "Configuration with multiple properties" do
+  File.stubs(:exists?).returns(true)
+  
+  it "should return correct host for multiple named environments" do
+    File.stubs(:read).returns("environment do 
+  env :systest do
+    host \"www.test.systest\"
+  end
+
+  env :uat do
+    host \"www.test.uat\"
+  end
+end")
+    require 'deploymentconfig'
+    
+    @deployment = Deployment.load()    
+    @deployment.environment.systest.host.should == "www.test.systest"
+    @deployment.environment.uat.host.should == "www.test.uat"
+  end
+  
+  it "should return array of to variables when defining" do
+    File.stubs(:read).returns("environment do 
+  env :systest do
+    to \"abc\", \"xxx\"
+  end
+end")
+    require 'deploymentconfig'
+    
+    @deployment = Deployment.load()    
+    @deployment.environment.systest.to.should == ['abc', 'xxx']
+  end
+  
+  it "should return array concated together when calling it multiple times" do
+    File.stubs(:read).returns("environment do 
+  env :systest do
+    to \"abc\", \"xxx\"
+    to \"xyz\", \"123\"
+  end
+end")
+    require 'deploymentconfig'
+    
+    @deployment = Deployment.load()    
+    @deployment.environment.systest.to.should == ['abc', 'xxx', 'xyz', '123']
+  end  
+end
+
+describe "Configuration with top level properties and sub details" do
+  File.stubs(:exists?).returns(true)
+  
+  it "should return correct host for multiple named environments" do
+    File.stubs(:read).returns("environment do 
+    desc \"Deployment 123\"
+    setting :test
+  env :systest do
+    host \"www.test.systest\"
+  end
+
+  env :uat do
+    host \"www.test.uat\"
+  end
+end")
+    require 'deploymentconfig'
+    
+    @deployment = Deployment.load()    
+    @deployment.environment.desc.should == "Deployment 123"
+    @deployment.environment.setting.should == :test
+  end
+end
+
+
+describe "Before and After blocks" do
+  File.stubs(:exists?).returns(true)
+  
+  before(:each) do
+    File.stubs(:read).returns("environment do 
+      desc \"Deployment 123\"
+      setting :test
+      env :systest do
+          host \"www.test.systest\"
+          before do
+            value \"xyz\"
+          end
+        end
+      end")
+    require 'deploymentconfig'
+  end
+  
+  it "should return set of keys defined in the before block" do    
+    @deployment = Deployment.load()    
+    @deployment.environment[:systest].before[:value].should == 'xyz'
+  end
+  
+  it "should support accessing values as properties" do
+    @deployment = Deployment.load()    
+    @deployment.environment[:systest].before.value.should == 'xyz'    
+  end
+end
+
+
+describe "Host Headers" do
+  File.stubs(:exists?).returns(true)
+    
+  it "should support a single additional host header" do    
+    File.stubs(:read).returns("environment do 
+      desc \"Deployment 123\"
+      setting :test
+      env :systest do
+          host \"www.test.systest\"
+          after do
+            extra_header 'extra.host.header'
+          end
+        end
+      end")
+    require 'deploymentconfig'
+    
+    @deployment = Deployment.load()    
+    @deployment.environment[:systest].after.extra_header.should == 'extra.host.header'
+  end
+  
+  it "should support multiple additional host header" do     
+    File.stubs(:read).returns("environment do 
+      desc \"Deployment 123\"
+      setting :test
+      env :systest do
+          host \"www.test.systest\"
+          after do
+            extra_header 'extra.host.header'
+            extra_header 'extra2.host.header'
+          end
+        end
+      end")
+    require 'deploymentconfig'
+    
+    @deployment = Deployment.load()    
+    @deployment.environment[:systest].after.extra_header.should == ['extra.host.header', 'extra2.host.header']
+  end  
+  
+  it "should support dynamically creating additional host header" do     
+    File.stubs(:read).returns("environment do 
+      desc \"Deployment 123\"
+      setting :test
+      env :systest do
+          host \"www.test.systest\"
+          after do
+            ['extra', 'extra2'].each {|h| extra_header h + '.host.header'}
+          end
+        end
+      end")
+    require 'deploymentconfig'
+    
+    @deployment = Deployment.load()    
+    @deployment.environment[:systest].after.extra_header.should == ['extra.host.header', 'extra2.host.header']
+  end  
+end

data/spec/configured_as/mvc_deployment_spec.rb

@@ -0,0 +1,103 @@
+require File.join(File.dirname(__FILE__), '../', 'support', 'spec_helper')
+$: << 'lib/configured_as'
+require 'mvc_deployment'
+
+
+describe MvcDeployment, "defaults"  do
+  before do
+    @mvc = MvcDeployment.new
+  end
+  
+  it "should have a default description" do
+    @mvc.description.should == "MvcDeployment"
+  end
+  
+  it "should have a default port number" do
+    @mvc.port.should == 80
+  end  
+end
+
+describe MvcDeployment, "deployment"  do
+  before do
+    @mvc = MvcDeployment.new
+  end
+  
+  it "should call out to IIS6"  do
+    pending "Not sure how to test this"
+    @mvc.deploy()
+  end
+  
+  it "should get the location based on the environment" do
+    @mvc.set_to ['server', 'C:/some_location']
+    path = @mvc.get_location('server')
+    path.should == 'C:/some_location'
+  end
+end
+
+describe MvcDeployment, "when executing" do
+  before(:each) do
+    FileManager.any_instance.expects(:get_latest_version).returns('')
+    FileManager.any_instance.expects(:extract).returns('')
+    IIS.any_instance.expects(:deploy).returns('')
+    
+    @mvc = MvcDeployment.new
+    @mvc.set_to ['server', 'test']
+    @mvc.set_before({:set_host => 'ABC'})
+    @mvc.set_after({:set_port => 99})
+  end
+  
+  it "should call all the methods specified in the before block" do        
+    @mvc.deploy('server')
+    @mvc.host.should == 'ABC'      
+  end
+  
+  it "should call all the methods specified in the before block" do    
+    @mvc.deploy('server')
+    @mvc.port.should == 99      
+  end
+end
+
+describe MvcDeployment, "Executing custom extensions"  do    
+  before(:each) do    
+    FileManager.any_instance.expects(:get_latest_version).returns('')
+    FileManager.any_instance.expects(:extract).returns('')
+    IIS.any_instance.expects(:deploy).returns('')
+    
+    MvcDeployment.module_eval do
+      attr_accessor :custom_prop
+      
+      def custom(val)
+        self.custom_prop = val
+      end
+    end
+    
+    @mvc = MvcDeployment.new
+    @mvc.set_to ['server', 'test']
+    @mvc.set_before({:custom => 'Random Value'})
+  end
+  
+  it "should call custom methods"  do
+    @mvc.deploy('server')
+    @mvc.custom_prop.should == 'Random Value'
+  end
+end
+
+describe MvcDeployment, "Executing custom additional host headers"   do
+  before(:each) do    
+    FileManager.any_instance.expects(:get_latest_version).returns('')
+    FileManager.any_instance.expects(:extract).returns('')
+    IIS6.any_instance.expects(:deploy).returns('')    
+    IIS6.any_instance.expects(:set_extra_header).returns('')    
+  end
+  
+  it "should call add_header on IIS instance" do
+    pending "Again... not mocking?"
+    mvc = MvcDeployment.new  
+    IIS.any_instance.expects(:set_extra_header).returns(nil).once
+
+    mvc.set_to ['server', 'test']
+    mvc.set_after({:extra_header => 'abc.header'})
+    
+    mvc.deploy('server')
+  end
+end