nuri 0.5.1

data/modules/apache/apache.sfp.future

@@ -0,0 +1,100 @@
+schema ServiceState
+uninstalled isa ServiceState { }
+installed isa ServiceState { }
+running isa ServiceState { }
+
+schema VHost {
+	serverName = ""
+	port = 80
+	documentRoot = ""
+	serverAdmin = ""
+}
+
+schema Apache {
+	state = uninstalled
+	version = "latest"
+	module_php = false
+	module_php_mysql = false
+
+	default isa VHost {
+		serverName = "*"
+		port = 80
+		document = "/var/www"
+		serverAdmin = "webmaster@localhost"
+	}
+
+	sub install {
+		condition {
+			this.state = uninstalled
+		}
+		effect {
+			this.state = installed
+		}
+	}
+
+	sub uninstall {
+		condition {
+			this.state = installed
+		}
+		effect {
+			this.state = uninstalled
+		}
+	}
+
+	sub start {
+		condition {
+			this.state = installed
+		}
+		effect {
+			this.state = running
+		}
+	}
+
+	sub stop {
+		condition {
+			this.state = running
+		}
+		effect {
+			this.state = uninstalled
+		}
+	}
+
+	sub install_module_php {
+		condition {
+			this.installed = true
+			this.running = false
+		}
+		effect {
+			this.module_php = true
+		}
+	}
+
+	sub uninstall_module_php {
+		condition {
+			this.running = false
+		}
+		effect {
+			this.php_module = false
+		}
+	}
+
+	sub install_module_php_mysql {
+		condition {
+			this.module_php = true
+			this.installed = true
+			this.running = false
+		}
+		effect {
+			this.module_php_mysql = true
+		}
+	}
+
+	sub uninstall_module_php_mysql {
+		condition {
+			this.running = false
+		}
+		effect {
+			this.module_php_mysql = false
+		}
+	}
+}

data/modules/apache/load_balancer

@@ -0,0 +1,20 @@
+<VirtualHost *:80>
+   ProxyRequests off
+   ServerName <server_name>
+
+   <Proxy balancer://nuricluster>
+		### Balancer Members ###
+      Order Deny,Allow
+      Deny from none
+      Allow from all
+      ProxySet lbmethod=byrequests
+   </Proxy>
+   <Location /balancer-manager>
+      SetHandler balancer-manager
+      Order Deny,Allow
+      Allow from all
+   </Location>
+   ProxyPass /balancer-manager !
+   ProxyPass / balancer://nuricluster/
+</VirtualHost>
+

data/modules/apache/model.json

@@ -0,0 +1 @@
+{"Object":{"_self":"Object","_context":"class"},"Package":{"_self":"Package","_context":"class","package_name":"","installed":false,"version":"","install":{"_self":"install","_context":"procedure","_cost":1,"_condition":{"_context":"constraint","_type":"and","$.installed":{"_context":"constraint","_type":"equals","_value":false}},"_effect":{"_context":"effect","_type":"and","$.installed":{"_context":"mutation","_type":"equals","_value":true}}},"uninstall":{"_self":"uninstall","_context":"procedure","_cost":1,"_condition":{"_context":"constraint","_type":"and","$.installed":{"_context":"constraint","_type":"equals","_value":true}},"_effect":{"_context":"effect","_type":"and","$.installed":{"_context":"mutation","_type":"equals","_value":false}}},"_extends":"$.Object","_super":["$.Object"]},"Service":{"_self":"Service","_context":"class","_extends":"$.Package","service_name":"","running":false,"uninstall":{"_self":"uninstall","_context":"procedure","_cost":1,"_condition":{"_context":"constraint","_type":"and","$.this.running":{"_context":"constraint","_type":"equals","_value":false},"$.this.installed":{"_context":"constraint","_type":"equals","_value":true}},"_effect":{"_context":"effect","_type":"and","$.this.installed":{"_context":"mutation","_type":"equals","_value":false}}},"start":{"_self":"start","_context":"procedure","_cost":1,"_condition":{"_context":"constraint","_type":"and","$.this.installed":{"_context":"constraint","_type":"equals","_value":true},"$.this.running":{"_context":"constraint","_type":"equals","_value":false}},"_effect":{"_context":"effect","_type":"and","$.this.running":{"_context":"mutation","_type":"equals","_value":true}}},"stop":{"_self":"stop","_context":"procedure","_cost":1,"_condition":{"_context":"constraint","_type":"and","$.this.running":{"_context":"constraint","_type":"equals","_value":true}},"_effect":{"_context":"effect","_type":"and","$.this.running":{"_context":"mutation","_type":"equals","_value":false}}},"package_name":"","installed":false,"version":"","install":{"_self":"install","_context":"procedure","_cost":1,"_condition":{"_context":"constraint","_type":"and","$.installed":{"_context":"constraint","_type":"equals","_value":false}},"_effect":{"_context":"effect","_type":"and","$.installed":{"_context":"mutation","_type":"equals","_value":true}}},"_super":["$.Object","$.Package"]},"Apache":{"_self":"Apache","_context":"class","_extends":"$.Service","package_name":"apache2","service_name":"apache2","port":80,"document_root":"/var/www","php_module":false,"php_mysql_module":false,"server_name":"","libaugeas_ruby":{"_self":"libaugeas_ruby","_context":"object","_isa":"$.Package","_is_array":false,"package_name":"libaugeas-ruby","installed":true,"version":"","install":{"_self":"install","_context":"procedure","_cost":1,"_condition":{"_context":"constraint","_type":"and","$.installed":{"_context":"constraint","_type":"equals","_value":false}},"_effect":{"_context":"effect","_type":"and","$.installed":{"_context":"mutation","_type":"equals","_value":true}}},"uninstall":{"_self":"uninstall","_context":"procedure","_cost":1,"_condition":{"_context":"constraint","_type":"and","$.installed":{"_context":"constraint","_type":"equals","_value":true}},"_effect":{"_context":"effect","_type":"and","$.installed":{"_context":"mutation","_type":"equals","_value":false}}},"_classes":["$.Object","$.Package"]},"install":{"_self":"install","_context":"procedure","_cost":1,"_condition":{"_context":"constraint","_type":"and","$.this.installed":{"_context":"constraint","_type":"equals","_value":false},"$.this.libaugeas.installed":{"_context":"constraint","_type":"equals","_value":true}},"_effect":{"_context":"effect","_type":"and","$.this.installed":{"_context":"mutation","_type":"equals","_value":true}}},"uninstall":{"_self":"uninstall","_context":"procedure","_cost":1,"_condition":{"_context":"constraint","_type":"and","$.this.installed":{"_context":"constraint","_type":"equals","_value":true},"$.this.running":{"_context":"constraint","_type":"equals","_value":false},"$.this.php_module":{"_context":"constraint","_type":"equals","_value":false},"$.this.php_mysql_module":{"_context":"constraint","_type":"equals","_value":false}},"_effect":{"_context":"effect","_type":"and","$.this.installed":{"_context":"mutation","_type":"equals","_value":false}}},"set_document_root":{"_self":"set_document_root","_context":"procedure","_cost":1,"_condition":{"_context":"constraint","_type":"and","$.this.running":{"_context":"constraint","_type":"equals","_value":false},"$.this.installed":{"_context":"constraint","_type":"equals","_value":true}},"_effect":{"_context":"effect","_type":"and","$.this.document_root":{"_context":"mutation","_type":"equals","_value":"$.target"}},"target":{"_context":"null","_isa":"$.String"}},"set_server_name":{"_self":"set_server_name","_context":"procedure","_cost":1,"_condition":{"_context":"constraint","_type":"and","$.this.running":{"_context":"constraint","_type":"equals","_value":false},"$.this.installed":{"_context":"constraint","_type":"equals","_value":true}},"_effect":{"_context":"effect","_type":"and","$.this.server_name":{"_context":"mutation","_type":"equals","_value":"$.target"}},"target":{"_context":"null","_isa":"$.String"}},"install_php_module":{"_self":"install_php_module","_context":"procedure","_cost":1,"_condition":{"_context":"constraint","_type":"and","$.this.installed":{"_context":"constraint","_type":"equals","_value":true},"$.this.running":{"_context":"constraint","_type":"equals","_value":false}},"_effect":{"_context":"effect","_type":"and","$.this.php_module":{"_context":"mutation","_type":"equals","_value":true}}},"uninstall_php_module":{"_self":"uninstall_php_module","_context":"procedure","_cost":1,"_condition":{"_context":"constraint","_type":"and","$.this.running":{"_context":"constraint","_type":"equals","_value":false}},"_effect":{"_context":"effect","_type":"and","$.this.php_module":{"_context":"mutation","_type":"equals","_value":false}}},"install_php_mysql_module":{"_self":"install_php_mysql_module","_context":"procedure","_cost":1,"_condition":{"_context":"constraint","_type":"and","$.this.php_module":{"_context":"constraint","_type":"equals","_value":true},"$.this.installed":{"_context":"constraint","_type":"equals","_value":true},"$.this.running":{"_context":"constraint","_type":"equals","_value":false}},"_effect":{"_context":"effect","_type":"and","$.this.php_mysql_module":{"_context":"mutation","_type":"equals","_value":true}}},"uninstall_php_mysql_module":{"_self":"uninstall_php_mysql_module","_context":"procedure","_cost":1,"_condition":{"_context":"constraint","_type":"and","$.this.running":{"_context":"constraint","_type":"equals","_value":false}},"_effect":{"_context":"effect","_type":"and","$.this.php_mysql_module":{"_context":"mutation","_type":"equals","_value":false}}},"running":false,"start":{"_self":"start","_context":"procedure","_cost":1,"_condition":{"_context":"constraint","_type":"and","$.this.installed":{"_context":"constraint","_type":"equals","_value":true},"$.this.running":{"_context":"constraint","_type":"equals","_value":false}},"_effect":{"_context":"effect","_type":"and","$.this.running":{"_context":"mutation","_type":"equals","_value":true}}},"stop":{"_self":"stop","_context":"procedure","_cost":1,"_condition":{"_context":"constraint","_type":"and","$.this.running":{"_context":"constraint","_type":"equals","_value":true}},"_effect":{"_context":"effect","_type":"and","$.this.running":{"_context":"mutation","_type":"equals","_value":false}}},"installed":false,"version":"","_super":["$.Object","$.Package","$.Service"]},"apache":{"_self":"apache","_context":"object","_isa":"$.Apache","_is_array":false,"package_name":"apache2","service_name":"apache2","port":80,"document_root":"/var/www","php_module":false,"php_mysql_module":false,"server_name":"","libaugeas_ruby":{"_self":"libaugeas_ruby","_context":"object","_isa":"$.Package","_is_array":false,"package_name":"libaugeas-ruby","installed":true,"version":"","install":{"_self":"install","_context":"procedure","_cost":1,"_condition":{"_context":"constraint","_type":"and","$.installed":{"_context":"constraint","_type":"equals","_value":false}},"_effect":{"_context":"effect","_type":"and","$.installed":{"_context":"mutation","_type":"equals","_value":true}}},"uninstall":{"_self":"uninstall","_context":"procedure","_cost":1,"_condition":{"_context":"constraint","_type":"and","$.installed":{"_context":"constraint","_type":"equals","_value":true}},"_effect":{"_context":"effect","_type":"and","$.installed":{"_context":"mutation","_type":"equals","_value":false}}},"_classes":["$.Object","$.Package"]},"install":{"_self":"install","_context":"procedure","_cost":1,"_condition":{"_context":"constraint","_type":"and","$.this.installed":{"_context":"constraint","_type":"equals","_value":false},"$.this.libaugeas.installed":{"_context":"constraint","_type":"equals","_value":true}},"_effect":{"_context":"effect","_type":"and","$.this.installed":{"_context":"mutation","_type":"equals","_value":true}}},"uninstall":{"_self":"uninstall","_context":"procedure","_cost":1,"_condition":{"_context":"constraint","_type":"and","$.this.installed":{"_context":"constraint","_type":"equals","_value":true},"$.this.running":{"_context":"constraint","_type":"equals","_value":false},"$.this.php_module":{"_context":"constraint","_type":"equals","_value":false},"$.this.php_mysql_module":{"_context":"constraint","_type":"equals","_value":false}},"_effect":{"_context":"effect","_type":"and","$.this.installed":{"_context":"mutation","_type":"equals","_value":false}}},"set_document_root":{"_self":"set_document_root","_context":"procedure","_cost":1,"_condition":{"_context":"constraint","_type":"and","$.this.running":{"_context":"constraint","_type":"equals","_value":false},"$.this.installed":{"_context":"constraint","_type":"equals","_value":true}},"_effect":{"_context":"effect","_type":"and","$.this.document_root":{"_context":"mutation","_type":"equals","_value":"$.target"}},"target":{"_context":"null","_isa":"$.String"}},"set_server_name":{"_self":"set_server_name","_context":"procedure","_cost":1,"_condition":{"_context":"constraint","_type":"and","$.this.running":{"_context":"constraint","_type":"equals","_value":false},"$.this.installed":{"_context":"constraint","_type":"equals","_value":true}},"_effect":{"_context":"effect","_type":"and","$.this.server_name":{"_context":"mutation","_type":"equals","_value":"$.target"}},"target":{"_context":"null","_isa":"$.String"}},"install_php_module":{"_self":"install_php_module","_context":"procedure","_cost":1,"_condition":{"_context":"constraint","_type":"and","$.this.installed":{"_context":"constraint","_type":"equals","_value":true},"$.this.running":{"_context":"constraint","_type":"equals","_value":false}},"_effect":{"_context":"effect","_type":"and","$.this.php_module":{"_context":"mutation","_type":"equals","_value":true}}},"uninstall_php_module":{"_self":"uninstall_php_module","_context":"procedure","_cost":1,"_condition":{"_context":"constraint","_type":"and","$.this.running":{"_context":"constraint","_type":"equals","_value":false}},"_effect":{"_context":"effect","_type":"and","$.this.php_module":{"_context":"mutation","_type":"equals","_value":false}}},"install_php_mysql_module":{"_self":"install_php_mysql_module","_context":"procedure","_cost":1,"_condition":{"_context":"constraint","_type":"and","$.this.php_module":{"_context":"constraint","_type":"equals","_value":true},"$.this.installed":{"_context":"constraint","_type":"equals","_value":true},"$.this.running":{"_context":"constraint","_type":"equals","_value":false}},"_effect":{"_context":"effect","_type":"and","$.this.php_mysql_module":{"_context":"mutation","_type":"equals","_value":true}}},"uninstall_php_mysql_module":{"_self":"uninstall_php_mysql_module","_context":"procedure","_cost":1,"_condition":{"_context":"constraint","_type":"and","$.this.running":{"_context":"constraint","_type":"equals","_value":false}},"_effect":{"_context":"effect","_type":"and","$.this.php_mysql_module":{"_context":"mutation","_type":"equals","_value":false}}},"running":false,"start":{"_self":"start","_context":"procedure","_cost":1,"_condition":{"_context":"constraint","_type":"and","$.this.installed":{"_context":"constraint","_type":"equals","_value":true},"$.this.running":{"_context":"constraint","_type":"equals","_value":false}},"_effect":{"_context":"effect","_type":"and","$.this.running":{"_context":"mutation","_type":"equals","_value":true}}},"stop":{"_self":"stop","_context":"procedure","_cost":1,"_condition":{"_context":"constraint","_type":"and","$.this.running":{"_context":"constraint","_type":"equals","_value":true}},"_effect":{"_context":"effect","_type":"and","$.this.running":{"_context":"mutation","_type":"equals","_value":false}}},"installed":false,"version":"","_classes":["$.Object","$.Package","$.Service","$.Apache"]}}

data/modules/apache/test.sfp

@@ -0,0 +1,8 @@
+include "apache.sfp"
+
+apache isa Apache
+
+/*augeas isa Package {
+	package_name = "libaugeas-ruby"
+	installed = true
+}*/

data/modules/aptpackage/aptpackage.rb

@@ -0,0 +1,82 @@
+class Sfp::Module::AptPackage
+	include Sfp::Resource
+
+	def update_state
+		to_model
+
+		@state['installed'] = installed?
+		@state['version'] = version?
+	end
+
+	##############################
+	#
+	# Action methods (see TarPackage.sfp)
+	#
+	##############################
+
+	def install(p={})
+		Sfp::Module::AptPackage.install(@model['package_name'].to_s.strip)
+	end
+
+	def uninstall(p={})
+		Sfp::Module::AptPackage.uninstall(@model['package_name'].to_s.strip)
+	end
+
+	##############################
+	#
+	# Helper methods
+	#
+	##############################
+
+	def self.installed?(package)
+		package = package.to_s.strip
+		return false if package.length <= 0
+		data = `/usr/bin/dpkg-query -W #{package} 2> /dev/null`.strip.chop.split(' ')
+		return true if data[0].to_s == package
+		false
+	end
+
+	def self.version?(package)
+		package = package.to_s.strip
+		return nil if package.length <= 0
+		data = `/usr/bin/dpkg-query -W #{package} 2> /dev/null`.strip.chop.split(' ')
+		return data[1] if data[0].to_s == package
+		nil
+	end
+
+	def self.install(package)
+		return false if not package.is_a?(String) or package.length <= 0
+		return true if Sfp::Module::Package.installed?(package)
+		system("dpkg --configure -a")
+		system("apt-get -y --purge autoremove")
+		return true if system("apt-get -y install #{package}")
+		system("dpkg --configure -a")
+		system("apt-get -y update")
+		!!system("apt-get -y install #{package}")
+	end
+
+	def self.uninstall(package)
+		return false if not package.is_a?(String) or package.length <= 0
+		return true if not Sfp::Module::Package.installed?(package)
+		system("dpkg --configure -a")
+		system("apt-get -y --purge autoremove")
+		return (!!system("sudo apt-get -y --purge remove #{package}") and
+			!!system("sudo apt-get -y --purge autoremove") and
+			!!system("sudo apt-get -y --purge autoremove"))
+	end
+
+	protected
+	def installed?
+		Sfp::Module::AptPackage.installed?(@model['package_name'].to_s.strip)
+	end
+
+	def version?
+		package = @model['package_name'].to_s.strip
+		return nil if package.length <= 0
+		installed = `apt-cache policy #{package} | grep Installed`.strip.split(' ', 2)[1].to_s.strip
+		return "" if installed.length <= 0
+		candidate = `apt-cache policy #{package} | grep Candidate`.strip.split(' ', 2)[1].to_s.strip
+		return "latest" if candidate == installed
+		installed
+	end
+end

data/modules/aptpackage/aptpackage.sfp

@@ -0,0 +1,5 @@
+include "../package/package.sfp"
+
+schema AptPackage extends Package {
+	final source = "default"
+}

data/modules/bonfire/.gitignore

@@ -0,0 +1,2 @@
+*.pem
+model.json

data/modules/bonfire/README.md

@@ -0,0 +1,12 @@
+BonFIRE Module
+==============
+
+Required Gems
+-------------
+- restfully
+- restfully-addons
+
+Additional Files
+----------------
+- bonfire.pem : A private key file to access your BonFIRE account. This file should be put in module's directory.
+- config.yml : The username and password of your BonFIRE account should be defined in this file.

data/modules/bonfire/bonfire.rb

@@ -0,0 +1,60 @@
+require 'restfully'
+require 'restfully/addons/bonfire'
+
+load File.expand_path(File.dirname(__FILE__)) + "/helper.rb"
+
+class Sfp::Module::Bonfire
+	include Sfp::Resource
+
+	def initialize
+		@home_dir = File.expand_path(File.dirname(__FILE__))
+		@session = @experiment = @location = nil
+	end
+
+	def update_state
+		to_model
+		@state['running'] = self.open_connection
+		@state['vms'] = self.get_vms
+	end
+
+	def create_vm(p={})
+		name = p['vm'].to_s.strip
+		return false if name == ''
+		
+		begin
+			name.sub!(/^\$\./, '')
+			server = self.create_server({
+				:name => name,
+				:image => @model['image_name'],
+				:wan => @model['wan_name'],
+			})
+			if !server.nil?
+				if !self.install_agent(server)
+					delete_vm(p)
+					return false
+				end
+				return true
+			end
+		rescue Exception => e
+			Sfp::Agent.logger.error "Delete VM [Failed] #{e}\n#{e.backtrace.join("\n")}"
+		end
+		false
+	end
+
+	def delete_vm(p={})
+		name = p['vm'].to_s.strip
+		return false if name == ''
+
+		begin
+			name.sub!(/^\$\./, '')
+			return self.delete_server({
+				:name => name
+			})
+		rescue Exception => e
+			Sfp::Agent.logger.error "Delete VM [Failed] #{e}\n#{e.backtrace.join("\n")}"
+		end
+		false
+	end
+
+	include Sfp::Module::BonfireHelper
+end

data/modules/bonfire/bonfire.sfp

@@ -0,0 +1,9 @@
+include "../cloud/cloud.sfp"
+
+schema Bonfire extends Cloud {
+	final gateway is "ssh.bonfire.grid5000.fr"
+	final experiment is ""
+	final location is "uk-epcc"
+	final image_name is "BonFIRE Debian Squeeze 10G v5"
+	final wan_name is "BonFIRE WAN"
+}

data/modules/bonfire/config.yml

@@ -0,0 +1,4 @@
+uri: https://api.bonfire-project.eu/
+username: 
+password: 
+require: ['ApplicationVndBonfireXml']

data/modules/bonfire/helper.rb

@@ -0,0 +1,149 @@
+require 'rubygems'
+require 'restfully'
+require 'restfully/addons/bonfire'
+
+module Sfp::Module::BonfireHelper
+	def open_connection
+		return true if not @session.nil?
+
+		begin
+			@session = Restfully::Session.new(
+				:configuration_file => @home_dir + '/config.yml',
+				:gateway => @model['gateway'],
+				:keys => @home_dir + '/bonfire.pem',
+				:cache => false,
+				:logger => Sfp::Agent.logger
+			) if @session.nil?
+
+			@experiment = (@session.root.experiments.find { |e|
+				e['name'] == @model['experiment'] && e['status'] == 'running'
+			} || false) if @experiment.nil? and !@session.nil?
+
+			@location = @session.root.locations[@model['location'].to_sym] if
+				@location.nil? and !@session.nil?
+
+			return (!@session.nil? and !@experiment.nil? and !@location.nil?)
+		rescue Exception => e
+			Sfp::Agent.logger.warn "Cannot open connection! #{e}\n#{e.backtrace.join("\n")}"
+		end
+		false
+	end
+
+	def running?(vm)
+		(vm.reload['state'] == 'ACTIVE' || vm.reload['state'] == 'RUNNING' ||
+		 vm.reload['state'] == 'up')
+	end
+
+	def create_server(p={})
+		open_connection
+
+		name = p[:name]
+		image_name = p[:image]
+		wan_name = p[:wan]
+
+		@session.logger.info "Launching #{name} in #{@location['name']}..."
+		server = @experiment.computes.find { |vm|
+			vm['name'] == name
+		} || @experiment.computes.submit(
+			:name => name,
+			:instance_type => "small",
+			:disk => [{
+				:storage => @location.storages.find { |s|
+					s['name'] == image_name
+				},
+				:type => "OS"
+			}],
+			:nic => [
+				{:network => @location.networks.find { |n| n['name'] == wan_name }}
+			],
+			:location => @location
+		)
+		server_ip = server['nic'][0]['ip']
+		@session.logger.info "#{name} IP=#{server_ip}"
+	
+		@experiment.update(:status => "running")
+
+		@session.logger.info "#{name} is not ready. Waiting..."
+		wait_time = 3600 # 1-hour
+		tries = wait_time # 30 # 10 minutes
+		until [server].all? { |vm|
+			tries <= 0 || (running?(vm) && vm.ssh.accessible?)
+		} do
+			fail "#{name} has failed" if [server].any? { |vm|
+				vm['state'] == "FAILED"
+			}
+			sleep 1 #20
+			tries -= 1
+		end
+		fail "Cannot create #{name}: too long waiting!" if !running?(server)
+
+		server.ssh do |ssh|
+			@session.logger.info "Setting hostname..."
+			output = ssh.exec! "hostname"
+			if output.chop != name
+				ssh.exec! "/bin/echo #{name} > /etc/hostname"
+				ssh.exec! "/etc/init.d/hostname.sh start"
+				ssh.exec! "/bin/sed -i 's/#{name}.*/#{name}/g' /etc/hosts"
+				ssh.exec! "/bin/echo '127.0.0.1 #{name}' >> /etc/hosts"
+			end
+		end
+
+		@session.logger.info "VM:#{server['name']} is READY! IP: #{server['nic'][0]['ip']}"
+
+		server
+	end
+
+	def install_agent(server)
+		begin
+			@session.logger.info "Installing agent to #{server['name']}:#{server['nic'][0]['ip']}"
+			server.ssh do |ssh|
+				ssh.exec! 'apt-get update; apt-get -y install sudo ruby1.9.1 ruby1.9.1-dev libz-dev libaugeas-ruby1.9.1 make gcc libxml2-dev libxslt-dev libreadline-dev'
+				ssh.exec! 'ln -sf /usr/bin/ruby1.9.1 /usr/bin/ruby'
+				ssh.exec! 'ln -sf /usr/bin/gem1.9.1 /usr/bin/gem'
+				ssh.exec! 'gem install sfp sfpagent fog restfully restfully-addons --no-ri --no-rdoc'
+				ssh.exec! 'ln -sf /var/lib/gems/1.9.1/bin/sfpagent /usr/local/bin/sfpagent'
+				ssh.exec! 'sfpagent -t ; sfpagent -s'
+			end
+			return true
+		rescue Exception => e
+			Sfp::Agent.logger.error "Cannot install the agent. #{e}\n#{e.backtrace.join("\n")}"
+		end
+		false
+	end
+
+	def delete_server(p={})
+		open_connection
+		name = p[:name]
+
+		server = @experiment.computes.find { |vm|
+			vm['name'] == name
+		} || (return true)
+		@session.logger.info "Deleting #{name} ..."
+		server.delete
+		tries = 30
+		until [server].all? { |vm|
+			tries > 0 && !running?(vm)
+		} do
+			@session.logger.info "#{name} is not deleted. Waiting..."
+			sleep 10
+			tries -= 1
+		end
+		!running?(server)
+	end
+
+	def get_vms(p={})
+		open_connection
+
+		vms = {}
+		@experiment.computes.each { |server|
+			if server.uri.to_s =~ /\/locations\/#{@model['location']}\/computes\//
+				vms[ server['name'] ] = {
+					'running' => running?(server),
+					'ip' => server['nic'][0]['ip'],
+					'uri' => server.uri,
+				}
+			end
+		} if @experiment
+		vms
+	end
+end