fix s3 to play nice with eu zone

lib/fog/aws/s3.rb

@@ -105,9 +105,8 @@ DATA
         string_to_sign << "#{canonical_amz_headers}"
 
         canonical_resource  = "/"
-        # [0..-18] is anything prior to .s3.amazonaws.com
-        subdomain = params[:host][0..-18]
-        unless subdomain.empty?
+        subdomain = params[:host].split(".#{@host}").first
+        unless subdomain == @host
           canonical_resource << "#{subdomain}/"
         end
         canonical_resource << "#{params[:path]}"

spec/aws/s3/get_bucket_location_spec.rb

@@ -1,13 +1,13 @@
 require File.dirname(__FILE__) + '/../../spec_helper'
 
-describe 'S3.get_location' do
+describe 'S3.get_bucket_location' do
 
   before(:all) do
     s3.put_bucket('foggetlocation', :location_constraint => 'EU')
   end
 
   after(:all) do
-    s3.delete_bucket('foggetlocation')
+    eu_s3.delete_bucket('foggetlocation')
   end
 
   it 'should return proper attributes' do

spec/spec_helper.rb

@@ -38,6 +38,15 @@ def s3
     )
   end
 end
+def eu_s3
+  @eu_s3 ||= begin
+    Fog::AWS::S3.new(
+      :aws_access_key_id => credentials['aws_access_key_id'],
+      :aws_secret_access_key => credentials['aws_secret_access_key'],
+      :host => 's3-external-3.amazonaws.com'
+    )
+  end
+end
 
 def eventually(&block)
   [0,2,4,8,16].each do |delay|