capistrano-cluster 0.0.10

data/files/solr/conf/schema.xml

@@ -0,0 +1,111 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+
+<schema name="sunspot" version="2.0">
+  <types>
+    <fieldType name="string" class="solr.StrField" omitNorms="true"/>
+    <fieldType name="location" class="solr.LatLonType" subFieldSuffix="_coordinate"/>
+    <fieldType name="tdouble" class="solr.TrieDoubleField" omitNorms="true"/>
+    <fieldType name="rand" class="solr.RandomSortField" omitNorms="true"/>
+    <fieldType name="boolean" class="solr.BoolField" omitNorms="true"/>
+    <fieldType name="date" class="solr.DateField" omitNorms="true"/>
+    <fieldType name="sdouble" class="solr.SortableDoubleField" omitNorms="true"/>
+    <fieldType name="sfloat" class="solr.SortableFloatField" omitNorms="true"/>
+    <fieldType name="sint" class="solr.SortableIntField" omitNorms="true"/>
+    <fieldType name="slong" class="solr.SortableLongField" omitNorms="true"/>
+    <fieldType name="tint" class="solr.TrieIntField" omitNorms="true"/>
+    <fieldType name="tfloat" class="solr.TrieFloatField" omitNorms="true"/>
+    <fieldType name="tdate" class="solr.TrieDateField" omitNorms="true"/>
+    <fieldType name="int" class="solr.TrieIntField" precisionStep="0" positionIncrementGap="0"/>
+    <fieldType name="float" class="solr.TrieFloatField" precisionStep="0" positionIncrementGap="0"/>
+    <fieldType name="long" class="solr.TrieLongField" precisionStep="0" positionIncrementGap="0"/>
+    <fieldType name="double" class="solr.TrieDoubleField" precisionStep="0" positionIncrementGap="0"/>
+    <fieldType name="text" class="solr.TextField" omitNorms="false">
+      <analyzer type="index">
+        <charFilter class="solr.HTMLStripCharFilterFactory"/>
+        <charFilter class="solr.MappingCharFilterFactory" mapping="mapping-FoldToASCII.txt"/>
+        <tokenizer class="solr.StandardTokenizerFactory"/>
+        <filter class="solr.LowerCaseFilterFactory"/>
+        <filter class="solr.EdgeNGramFilterFactory" minGramSize="1" maxGramSize="20" side="front"/>
+      </analyzer>
+      <analyzer type="query">
+        <charFilter class="solr.MappingCharFilterFactory" mapping="mapping-FoldToASCII.txt"/>
+        <tokenizer class="solr.StandardTokenizerFactory"/>
+        <filter class="solr.LowerCaseFilterFactory"/>
+      </analyzer>
+    </fieldType>
+  </types>
+
+  <fields>
+    <field name="id" stored="true" type="string" multiValued="false" indexed="true"/>
+    <field name="_version_" type="long"     indexed="true"  stored="true"/>
+    <field name="_root_" type="string" indexed="true" stored="false"/>
+    <field name="type" stored="false" type="string" multiValued="true" indexed="true"/>
+    <field name="class_name" stored="false" type="string" multiValued="false" indexed="true"/>
+    <field name="text" stored="false" type="string" multiValued="true" indexed="true"/>
+    <field name="location" type="location" indexed="true" stored="true" multiValued="false" />
+    <field name="lat" stored="true" type="tdouble" multiValued="false" indexed="true"/>
+    <field name="lng" stored="true" type="tdouble" multiValued="false" indexed="true"/>
+    <dynamicField name="random_*" stored="false" type="rand" multiValued="false" indexed="true"/>
+    <dynamicField name="*_coordinate"  type="tdouble" indexed="true"  stored="false" multiValued="false"/>
+    <dynamicField name="*_coordinates"  type="location" indexed="true"  stored="true" multiValued="false"/>
+    <dynamicField name="*_p"  type="location" indexed="true" stored="true"/>
+    <dynamicField name="_local*" stored="false" type="tdouble" multiValued="false" indexed="true"/>
+    <dynamicField name="*_text" stored="false" type="text" multiValued="true" indexed="true" omitNorms="false"/>
+    <dynamicField name="*_texts" stored="true" type="text" multiValued="true" indexed="true" omitNorms="false"/>
+    <dynamicField name="*_b" stored="false" type="boolean" multiValued="false" indexed="true"/>
+    <dynamicField name="*_bm" stored="false" type="boolean" multiValued="true" indexed="true"/>
+    <dynamicField name="*_bs" stored="true" type="boolean" multiValued="false" indexed="true"/>
+    <dynamicField name="*_bms" stored="true" type="boolean" multiValued="true" indexed="true"/>
+    <dynamicField name="*_d" stored="false" type="date" multiValued="false" indexed="true"/>
+    <dynamicField name="*_dm" stored="false" type="date" multiValued="true" indexed="true"/>
+    <dynamicField name="*_ds" stored="true" type="date" multiValued="false" indexed="true"/>
+    <dynamicField name="*_dms" stored="true" type="date" multiValued="true" indexed="true"/>
+    <dynamicField name="*_e" stored="false" type="sdouble" multiValued="false" indexed="true"/>
+    <dynamicField name="*_em" stored="false" type="sdouble" multiValued="true" indexed="true"/>
+    <dynamicField name="*_es" stored="true" type="sdouble" multiValued="false" indexed="true"/>
+    <dynamicField name="*_ems" stored="true" type="sdouble" multiValued="true" indexed="true"/>
+    <dynamicField name="*_f" stored="false" type="sfloat" multiValued="false" indexed="true"/>
+    <dynamicField name="*_fm" stored="false" type="sfloat" multiValued="true" indexed="true"/>
+    <dynamicField name="*_fs" stored="true" type="sfloat" multiValued="false" indexed="true"/>
+    <dynamicField name="*_fms" stored="true" type="sfloat" multiValued="true" indexed="true"/>
+    <dynamicField name="*_i" stored="false" type="sint" multiValued="false" indexed="true"/>
+    <dynamicField name="*_im" stored="false" type="sint" multiValued="true" indexed="true"/>
+    <dynamicField name="*_is" stored="true" type="sint" multiValued="false" indexed="true"/>
+    <dynamicField name="*_ims" stored="true" type="sint" multiValued="true" indexed="true"/>
+    <dynamicField name="*_l" stored="false" type="slong" multiValued="false" indexed="true"/>
+    <dynamicField name="*_lm" stored="false" type="slong" multiValued="true" indexed="true"/>
+    <dynamicField name="*_ls" stored="true" type="slong" multiValued="false" indexed="true"/>
+    <dynamicField name="*_lms" stored="true" type="slong" multiValued="true" indexed="true"/>
+    <dynamicField name="*_s" stored="false" type="string" multiValued="false" indexed="true"/>
+    <dynamicField name="*_sm" stored="false" type="string" multiValued="true" indexed="true"/>
+    <dynamicField name="*_ss" stored="true" type="string" multiValued="false" indexed="true"/>
+    <dynamicField name="*_sms" stored="true" type="string" multiValued="true" indexed="true"/>
+    <dynamicField name="*_it" stored="false" type="tint" multiValued="false" indexed="true"/>
+    <dynamicField name="*_itm" stored="false" type="tint" multiValued="true" indexed="true"/>
+    <dynamicField name="*_its" stored="true" type="tint" multiValued="false" indexed="true"/>
+    <dynamicField name="*_itms" stored="true" type="tint" multiValued="true" indexed="true"/>
+    <dynamicField name="*_ft" stored="false" type="tfloat" multiValued="false" indexed="true"/>
+    <dynamicField name="*_ftm" stored="false" type="tfloat" multiValued="true" indexed="true"/>
+    <dynamicField name="*_fts" stored="true" type="tfloat" multiValued="false" indexed="true"/>
+    <dynamicField name="*_ftms" stored="true" type="tfloat" multiValued="true" indexed="true"/>
+    <dynamicField name="*_dt" stored="false" type="tdate" multiValued="false" indexed="true"/>
+    <dynamicField name="*_dtm" stored="false" type="tdate" multiValued="true" indexed="true"/>
+    <dynamicField name="*_dts" stored="true" type="tdate" multiValued="false" indexed="true"/>
+    <dynamicField name="*_dtms" stored="true" type="tdate" multiValued="true" indexed="true"/>
+    <dynamicField name="*_textv" stored="false" termVectors="true" type="text" multiValued="true" indexed="true"/>
+    <dynamicField name="*_textsv" stored="true" termVectors="true" type="text" multiValued="true" indexed="true"/>
+    <dynamicField name="*_et" stored="false" termVectors="true" type="tdouble" multiValued="false" indexed="true"/>
+    <dynamicField name="*_etm" stored="false" termVectors="true" type="tdouble" multiValued="true" indexed="true"/>
+    <dynamicField name="*_ets" stored="true" termVectors="true" type="tdouble" multiValued="false" indexed="true"/>
+    <dynamicField name="*_etms" stored="true" termVectors="true" type="tdouble" multiValued="true" indexed="true"/>
+    <dynamicField name="*_ll" stored="false" type="location" multiValued="false" indexed="true"/>
+    <dynamicField name="*_llm" stored="false" type="location" multiValued="true" indexed="true"/>
+    <dynamicField name="*_lls" stored="true" type="location" multiValued="false" indexed="true"/>
+    <dynamicField name="*_llms" stored="true" type="location" multiValued="true" indexed="true"/>
+  </fields>
+
+  <uniqueKey>id</uniqueKey>
+
+  <defaultSearchField>text</defaultSearchField>
+  <solrQueryParser defaultOperator="AND"/>
+</schema>

data/files/solr/conf/solrconfig.xml

@@ -0,0 +1,59 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<config>
+  <luceneMatchVersion>LUCENE_40</luceneMatchVersion>
+  <directoryFactory name="DirectoryFactory" class="${solr.directoryFactory:solr.StandardDirectoryFactory}"/>
+
+  <indexConfig>
+
+    <mergeFactor>10</mergeFactor>
+    <maxBufferedDocs>10000</maxBufferedDocs>
+
+  </indexConfig>
+  <dataDir>${solr.core0.data.dir:}</dataDir>
+  <lib dir="./lib"></lib>
+  <updateHandler class="solr.DirectUpdateHandler2">
+    <updateLog>
+      <str name="dir">${solr.core0.data.dir:}</str>
+    </updateLog>
+
+    <autoCommit>
+        <maxDocs>10000</maxDocs> <!-- maximum uncommited docs before autocommit triggered -->
+        <maxTime>1500</maxTime> <!-- maximum time (in MS) after adding a doc before an autocommit is triggered -->
+        <openSearcher>true</openSearcher> <!-- SOLR 4.0.  Optionally don't open a searcher on hard commit.  This is useful to minimize the size of transaction logs that keep track of uncommitted updates. -->
+    </autoCommit>
+
+  </updateHandler>
+
+  <requestHandler name="/get" class="solr.RealTimeGetHandler">
+    <lst name="defaults">
+      <str name="omitHeader">true</str>
+    </lst>
+  </requestHandler>
+
+  <requestHandler name="/replication" class="solr.ReplicationHandler" startup="lazy" />
+
+  <requestDispatcher handleSelect="true" >
+    <requestParsers enableRemoteStreaming="false" multipartUploadLimitInKB="2048" />
+  </requestDispatcher>
+
+  <requestHandler name="standard" class="solr.StandardRequestHandler" default="true" />
+  <requestHandler name="/analysis/field" startup="lazy" class="solr.FieldAnalysisRequestHandler" />
+  <requestHandler name="/update" class="solr.UpdateRequestHandler"  />
+  <requestHandler name="/admin/" class="org.apache.solr.handler.admin.AdminHandlers" />
+
+  <requestHandler name="/admin/ping" class="solr.PingRequestHandler">
+    <lst name="invariants">
+      <str name="q">solrpingquery</str>
+    </lst>
+    <lst name="defaults">
+      <str name="echoParams">all</str>
+    </lst>
+  </requestHandler>
+
+  <!-- config for the admin interface -->
+  <admin>
+    <defaultQuery>solr</defaultQuery>
+  </admin>
+
+</config>
+

data/files/solr/conf/stopwords.txt

@@ -0,0 +1,14 @@
+# Licensed to the Apache Software Foundation (ASF) under one or more
+# contributor license agreements.  See the NOTICE file distributed with
+# this work for additional information regarding copyright ownership.
+# The ASF licenses this file to You 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.

data/files/solr/solr.xml

@@ -0,0 +1,45 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<!--
+ Licensed to the Apache Software Foundation (ASF) under one or more
+ contributor license agreements.  See the NOTICE file distributed with
+ this work for additional information regarding copyright ownership.
+ The ASF licenses this file to You 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.
+-->
+
+<!--
+   This is an example of a simple "solr.xml" file for configuring one or
+   more Solr Cores, as well as allowing Cores to be added, removed, and
+   reloaded via HTTP requests.
+
+   More information about options available in this configuration file,
+   and Solr Core administration can be found online:
+   http://wiki.apache.org/solr/CoreAdmin
+-->
+
+<solr>
+
+  <solrcloud>
+    <str name="host">${host:}</str>
+    <int name="hostPort">${jetty.port:8983}</int>
+    <str name="hostContext">${hostContext:solr}</str>
+    <int name="zkClientTimeout">${zkClientTimeout:15000}</int>
+    <bool name="genericCoreNodeNames">${genericCoreNodeNames:true}</bool>
+  </solrcloud>
+
+  <shardHandlerFactory name="shardHandlerFactory"
+    class="HttpShardHandlerFactory">
+    <int name="socketTimeout">${socketTimeout:0}</int>
+    <int name="connTimeout">${connTimeout:0}</int>
+  </shardHandlerFactory>
+
+</solr>

data/files/ssh/authorized_keys.erb

@@ -0,0 +1,4 @@
+#THIS FILE IS GENERATED. DO NOT CHANGE IT
+<% keys.each do |key| %>
+<%= key %>
+<% end %>

data/files/ssh/config

@@ -0,0 +1,3 @@
+Host gitlab.voucherry.com
+  UserKnownHostsFile /dev/null
+  StrictHostKeyChecking no

data/files/sshd_config

@@ -0,0 +1,40 @@
+Port 22
+Protocol 2
+HostKey /etc/ssh/ssh_host_rsa_key
+HostKey /etc/ssh/ssh_host_dsa_key
+HostKey /etc/ssh/ssh_host_ecdsa_key
+UsePrivilegeSeparation yes
+
+
+KeyRegenerationInterval 3600
+ServerKeyBits 768
+
+
+SyslogFacility AUTH
+LogLevel INFO
+
+LoginGraceTime 120
+PermitRootLogin yes
+StrictModes yes
+
+PubkeyAuthentication yes
+
+
+
+IgnoreRhosts yes
+PermitEmptyPasswords no
+ChallengeResponseAuthentication no
+PasswordAuthentication no
+
+X11Forwarding no
+PrintMotd no
+PrintLastLog yes
+TCPKeepAlive yes
+UseDNS no
+
+Banner /etc/issue.net
+
+Subsystem sftp /usr/lib/openssh/sftp-server
+
+UsePAM yes
+

data/files/tmux.conf

@@ -0,0 +1,136 @@
+# ~/.tmux.conf
+# By Tyler Mulligan. Public domain.
+#
+# This configuration file binds many of the common GNU screen key bindings to
+# appropriate tmux key bindings. Note that for some key bindings there is no
+# tmux analogue and also that this set omits binding some commands available in
+# tmux but not in screen.
+#
+# Note this is a good starting point but you should check out the man page for more
+# configuration options if you really want to get more out of tmux
+ 
+### Unbind existing tmux key bindings (except 0-9).
+ 
+# Set the prefix to ^A.
+unbind C-b
+set -g prefix ^A
+bind a send-prefix
+ 
+# Bind appropriate commands similar to screen.
+# lockscreen ^X x
+unbind ^X
+bind ^X lock-server
+unbind x
+bind x lock-server
+ 
+# screen ^C c
+unbind ^C
+bind ^C new-window
+#bind c
+#bind c new-window
+ 
+# detach ^D d
+unbind ^D
+bind ^D detach
+ 
+# displays *
+unbind *
+bind * list-clients
+ 
+# next ^@ ^N sp n
+unbind ^@
+bind ^@ next-window
+unbind ^N
+bind ^N next-window
+unbind " "
+bind " " next-window
+unbind n
+bind n next-window
+ 
+# title A
+unbind A
+bind A command-prompt "rename-window %%"
+ 
+# other ^A
+unbind ^A
+bind ^A last-window
+ 
+# prev ^H ^P p ^?
+unbind ^H
+bind ^H previous-window
+unbind ^P
+bind ^P previous-window
+unbind p
+bind p previous-window
+unbind BSpace
+bind BSpace previous-window
+ 
+# windows ^W w
+unbind ^W
+bind ^W list-windows
+unbind w
+bind w list-windows
+ 
+# quit \
+unbind \
+bind \ confirm-before "kill-server"
+ 
+# kill K k
+unbind K
+bind K confirm-before "kill-window"
+unbind k
+bind k confirm-before "kill-window"
+ 
+# redisplay ^L l
+unbind ^L
+bind ^L refresh-client
+unbind l
+bind l refresh-client
+ 
+# More straight forward key bindings for splitting
+unbind %
+bind | split-window -h
+bind v split-window -h
+unbind '"'
+bind - split-window -v
+bind h split-window -v
+ 
+# History
+set -g history-limit 1000
+ 
+# Pane
+#unbind o
+#bind C-s down-pane
+ 
+# Terminal emulator window title
+set -g set-titles on
+set -g set-titles-string '#S:#I.#P #W'
+ 
+# Status Bar
+set -g status-bg black
+set -g status-fg white
+set -g status-interval 1
+set -g status-left '#[fg=green]#H#[default]'
+set -g status-right '#[fg=yellow]#(cut -d " " -f 1-4 /proc/loadavg)#[default] #[fg=cyan,bold]%Y-%m-%d %H:%M:%S#[default]'
+ 
+# Notifying if other windows has activities
+setw -g monitor-activity on
+set -g visual-activity on
+ 
+# Highlighting the active window in status bar
+setw -g window-status-current-bg red
+ 
+# Clock
+setw -g clock-mode-colour green
+setw -g clock-mode-style 24
+ 
+# :kB: focus up
+unbind Tab
+#bind Tab down-pane
+#unbind BTab
+#bind BTab up-pane
+ 
+# " windowlist -b
+unbind '"'
+bind '"' choose-window
+set -g default-terminal "screen-256color"

data/files/ufw

@@ -0,0 +1,44 @@
+# /etc/default/ufw
+#
+
+# Set to yes to apply rules to support IPv6 (no means only IPv6 on loopback
+# accepted). You will need to 'disable' and then 'enable' the firewall for
+# the changes to take affect.
+IPV6=no
+
+# Set the default input policy to ACCEPT, DROP, or REJECT. Please note that if
+# you change this you will most likely want to adjust your rules.
+DEFAULT_INPUT_POLICY="DROP"
+
+# Set the default output policy to ACCEPT, DROP, or REJECT. Please note that if
+# you change this you will most likely want to adjust your rules.
+DEFAULT_OUTPUT_POLICY="ACCEPT"
+
+# Set the default forward policy to ACCEPT, DROP or REJECT.  Please note that
+# if you change this you will most likely want to adjust your rules
+DEFAULT_FORWARD_POLICY="DROP"
+
+# Set the default application policy to ACCEPT, DROP, REJECT or SKIP. Please
+# note that setting this to ACCEPT may be a security risk. See 'man ufw' for
+# details
+DEFAULT_APPLICATION_POLICY="SKIP"
+
+# By default, ufw only touches its own chains. Set this to 'yes' to have ufw
+# manage the built-in chains too. Warning: setting this to 'yes' will break
+# non-ufw managed firewall rules
+MANAGE_BUILTINS=no
+
+#
+# IPT backend
+#
+# only enable if using iptables backend
+IPT_SYSCTL=/etc/ufw/sysctl.conf
+
+# Extra connection tracking modules to load. Complete list can be found in
+# net/netfilter/Kconfig of your kernel source. Some common modules:
+# nf_conntrack_irc, nf_nat_irc: DCC (Direct Client to Client) support
+# nf_conntrack_netbios_ns: NetBIOS (samba) client support
+# nf_conntrack_pptp, nf_nat_pptp: PPTP over stateful firewall/NAT
+# nf_conntrack_ftp, nf_nat_ftp: active FTP support
+# nf_conntrack_tftp, nf_nat_tftp: TFTP support (server side)
+IPT_MODULES="nf_conntrack_ftp nf_nat_ftp nf_conntrack_netbios_ns"

data/files/unicorn.rb.erb

@@ -0,0 +1,63 @@
+
+ def processor_count
+    case RbConfig::CONFIG['host_os']
+    when /darwin9/
+      `hwprefs cpu_count`.to_i
+    when /darwin/
+      ((`which hwprefs` != '') ? `hwprefs thread_count` : `sysctl -n hw.ncpu`).to_i
+    when /linux/
+      `cat /proc/cpuinfo | grep processor | wc -l`.to_i
+    when /freebsd/
+      `sysctl -n hw.ncpu`.to_i
+    when /mswin|mingw/
+      require 'win32ole'
+      wmi = WIN32OLE.connect("winmgmts://")
+      cpu = wmi.ExecQuery("select NumberOfCores from Win32_Processor") # TODO count hyper-threaded in this
+      cpu.to_enum.first.NumberOfCores
+    end
+  end
+
+
+working_directory "<%= current_path %>"
+
+<% if instances %>
+worker_processes <%= instances %>
+<% else %>
+worker_processes processor_count * 2
+<% end %>
+preload_app true
+timeout 180
+
+
+stderr_path "<%= shared_path.join("log/unicorn-error.log") %>"
+stdout_path "<%= shared_path.join("log/unicorn.log") %>"
+
+
+pid "<%= shared_path.join("tmp/pids/unicorn.pid") %>"
+
+if GC.respond_to?(:copy_on_write_friendly=)
+  GC.copy_on_write_friendly = true
+end
+
+before_exec do |server|
+  ENV["BUNDLE_GEMFILE"] = "<%=current_path%>/Gemfile"
+  Unicorn::HttpServer::START_CTX[0] = "<%=shared_path%>/bin/unicorn"
+end
+
+before_fork do |server, worker|
+  defined?(ActiveRecord) && ActiveRecord::Base.connection.disconnect!
+
+  old_pid = "#{server.config[:pid]}.oldbin"
+  if File.exists?(old_pid) && server.pid != old_pid
+    begin
+      Process.kill("QUIT", File.read(old_pid).to_i)
+    rescue Errno::ENOENT, Errno::ESRCH
+      # someone else did our job for us
+    end
+  end
+end
+
+after_fork do |server, worker|
+  defined?(ActiveRecord) && ActiveRecord::Base.establish_connection
+  defined?(Rails) and Rails.cache.respond_to?(:reconnect) and Rails.cache.reconnect
+end

data/lib/capistrano/cluster/application.rb

@@ -0,0 +1,75 @@
+require 'securerandom'
+set :applications, []
+
+
+module Capistrano
+  module Cluster
+    class Application
+
+      def initialize(&configurator)
+        @configurator = configurator
+      end
+
+      def configure!
+        @configurator.call
+      end
+
+    end
+
+
+    module DSL
+
+      def application(&block)
+        fetch(:applications) << Application.new(&block)
+      end
+
+      def configure_application(application)
+        original_env = Capistrano::Configuration.env
+        Capistrano::Configuration.env = original_env.copy
+        application.configure!
+        original_env
+      end
+
+      def login_as(user, on: nil, &block)
+        if on
+          old_user,on.user = on.user, user
+        end
+        yield
+      ensure
+        on.user = old_user if on
+      end
+
+      def with_application(application, &block)
+        original_env = configure_application(application)
+        yield
+      ensure
+        Capistrano::Configuration.env = original_env
+      end
+
+      def applications(*names, &block)
+        names.compact!
+        fetch(:applications).map do |application|
+          with_application application do
+            if names.include? "#{fetch(:application)}" or names.empty?
+              yield if block_given?
+              application
+            end
+          end
+        end.compact
+      end
+
+    end
+  end
+end
+
+
+include Capistrano::Cluster::DSL
+
+
+Capistrano::Configuration.class_eval do
+
+  def self.env=(value)
+    @env = value
+  end
+
+end

data/lib/capistrano/cluster/core_ext/object.rb

@@ -0,0 +1,17 @@
+class Object
+  def copy
+    copy = dup
+    copy.make_independent!
+    copy
+  end
+
+  def make_independent!
+    instance_variables.each do |var|
+      value = instance_variable_get(var)
+
+      if (value.respond_to?(:dup))
+        instance_variable_set(var, value.dup)
+      end
+    end
+  end
+end