Mailing-List: contact deltacloud-dev-help@incubator.apache.org; run by ezmlm
Precedence: bulk
Reply-To: deltacloud-dev@incubator.apache.org
Received-SPF: pass (nike.apache.org: domain of sang-min.park@eucalyptus.com
 designates 74.125.149.75 as permitted sender)
From: sang-min.park@eucalyptus.com
To: deltacloud-dev@incubator.apache.org
Cc: Sang-Min Park <spark@eucalyptus.com>
Subject: [PATCH] Eucalyptus driver support
Date: Thu, 24 Mar 2011 01:00:51 -0700
Message-Id: <1300953651-31921-2-git-send-email-sang-min.park@eucalyptus.com>
In-Reply-To: <1300953651-31921-1-git-send-email-sang-min.park@eucalyptus.com>
References: <1300953651-31921-1-git-send-email-sang-min.park@eucalyptus.com>

From: Sang-Min Park <spark@eucalyptus.com>

---
 server/config/drivers.yaml                         |    4 +
 .../drivers/eucalyptus/eucalyptus_driver.rb        |  147 ++++++++++++++++++++
 2 files changed, 151 insertions(+), 0 deletions(-)
 create mode 100644 server/lib/deltacloud/drivers/eucalyptus/eucalyptus_driver.rb

diff --git a/server/config/drivers.yaml b/server/config/drivers.yaml
index d028ca0..8248e05 100644
--- a/server/config/drivers.yaml
+++ b/server/config/drivers.yaml
@@ -21,6 +21,10 @@
   :name: Rackspace
 :azure: 
   :name: Azure
+:eucalyptus:
+  :name: Eucalyptus
+  :username: Access Key ID
+  :password: Secret Access Key
 :ec2: 
   :entrypoints: 
     s3: 
diff --git a/server/lib/deltacloud/drivers/eucalyptus/eucalyptus_driver.rb b/server/lib/deltacloud/drivers/eucalyptus/eucalyptus_driver.rb
new file mode 100644
index 0000000..a13dc01
--- /dev/null
+++ b/server/lib/deltacloud/drivers/eucalyptus/eucalyptus_driver.rb
@@ -0,0 +1,147 @@
+# Copyright (C) 2009, 2010  Red Hat, Inc.
+#
+# 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.
+#
+
+require 'deltacloud/drivers/ec2/ec2_driver.rb'
+
+module Deltacloud
+  module Drivers
+    module Eucalyptus
+      class EucalyptusDriver < EC2::EC2Driver
+	
+	def supported_collections
+	  DEFAULT_COLLECTIONS + [ :keys, :buckets ]
+	end
+	
+	feature :instances, :user_data
+        feature :instances, :authentication_key
+        feature :instances, :security_group
+        feature :instances, :instance_count
+        feature :images, :owner_id
+ 
+  	define_hardware_profile('m1.small') do
+          cpu                1
+          memory             128
+          storage            2
+          architecture       'x86_64'
+        end
+
+        define_hardware_profile('c1.medium') do
+          cpu                1
+          memory             256
+          storage            5
+          architecture       'x86_64'
+        end
+  	 
+	define_hardware_profile('m1.large') do
+          cpu                2
+          memory             512
+          storage            10
+          architecture       'x86_64'
+        end
+
+        define_hardware_profile('m1.xlarge') do
+          cpu                2
+          memory             1024
+          storage            20
+          architecture       'x86_64'
+        end
+
+        define_hardware_profile('c1.xlarge') do
+          cpu                4
+          memory             2048
+          storage            20
+          architecture       'x86_64'
+        end
+   
+        def self.instance_state_machine
+	   EC2::EC2Driver.instance_state_machine
+        end
+
+        def instance_state_machine
+	   self.class.instance_state_machine
+        end
+ 
+   	def default_image_owner
+	  "self"
+	end
+	 
+	def default_image_type
+	   nil
+	end 
+	 
+	def tagging?
+	   false
+	end
+   	
+        def tag_instance(credentials, instance, name)
+	  # dummy
+	end
+	  
+	def untag_instance(credentials, instance_id)
+	  # dummy
+        end
+	 
+        # because load balancer is not on the supported_collections, 
+	# the following methods shouldn't be called. 
+	def load_balancer(credentials, opts={})
+          raise Deltacloud::BackendError.new(500, "Loadbalancer", "Loadbalancer not supported in Eucalyptus", "")
+        end
+        
+	def load_balancers(credentials, opts=nil)
+          raise Deltacloud::BackendError.new(500, "Loadbalancer", "Loadbalancer not supported in Eucalyptus", "")
+        end
+        
+	def create_load_balancer(credentials, opts={})
+	  raise Deltacloud::BackendError.new(500, "Loadbalancer", "Loadbalancer not supported in Eucalyptus", "")
+        end
+        
+	def destroy_load_balancer(credentials, id)
+	  raise Deltacloud::BackendError.new(500, "Loadbalancer", "Loadbalancer not supported in Eucalyptus", "")
+        end
+        
+	def lb_register_instance(credentials, opts={})
+	  raise Deltacloud::BackendError.new(500, "Loadbalancer", "Loadbalancer not supported in Eucalyptus", "")
+        end
+        
+	def lb_unregister_instance(credentials, opts={})
+          raise Deltacloud::BackendError.new(500, "Loadbalancer", "Loadbalancer not supported in Eucalyptus", "")
+        end
+
+        def new_client(credentials, type = :ec2)
+          klass = case type
+                    when :ec2 then Aws::Ec2
+                    when :s3 then Aws::S3
+		    when :elb then raise Deltacloud::BackendError.new(500, "Loadbalancer", "Loadbalancer not supported in Eucalyptus", "")
+                  end
+          klass.new(credentials.user, credentials.password, eucalyptus_endpoint)
+        end
+
+  	def eucalyptus_endpoint
+          endpoint = (Thread.current[:provider] || ENV['API_PROVIDER'])
+          #parse endpoint string into server, port, service, and protocol
+          if endpoint
+            {:server => URI.parse(endpoint).host, :port => URI.parse(endpoint).port, :service => URI.parse(endpoint).path, :protocol => URI.parse(endpoint).scheme, :connection_mode => :per_thread}
+	  else
+            {:connection_mode => :per_thread} #EC2_URL/S3_URL env variable will be used by AWS
+          end
+        end
+      end
+    end
+  end
+end
+
-- 
1.7.1