nuri 0.5.1

data/modules/machine/machine.sfp

@@ -0,0 +1,9 @@
+include "../node/node.sfp"
+include "../os/os.sfp"
+
+schema Machine extends Node {
+	created is true
+	hypervisor : String
+
+	os isa OS
+}

data/modules/mockcloud/mockcloud.rb

@@ -0,0 +1,20 @@
+class Sfp::Module::MockCloud
+	include Sfp::Resource
+
+	def update_state
+		@state['running'] = @model['running']
+		@state['description'] = @model['description']
+		@state['vms'] = {}
+	end
+
+	def create_vm(p={})
+		Sfp::Agent.logger.info p.inspect
+		model = resolve_model(p['vm'])
+		Sfp::Agent.logger.info "cpu=#{model['cpu']} memory=#{model['memory']}"
+		false
+	end
+
+	def delete_vm(p={})
+		false
+	end
+end

data/modules/mockcloud/mockcloud.sfp

@@ -0,0 +1,6 @@
+include "../cloud/cloud.sfp"
+
+schema MockCloud extends Cloud {
+	running is true
+	final description is "Mock cloud for testing"
+}

data/modules/mysql/mysql.rb

@@ -0,0 +1,118 @@
+require 'augeas'
+
+require File.expand_path(File.dirname(__FILE__)) + '/../service/service.rb'
+
+class Sfp::Module::Mysql < Sfp::Module::Service
+	include Sfp::Resource
+
+	def update_state
+		# call superclass update_state method
+		self.class.superclass.instance_method(:update_state).bind(self).call
+
+		# port
+		data = (File.file?("/etc/mysql/my.cnf") ? `/bin/grep -e "^port" /etc/mysql/my.cnf` : "")
+		@state['port'] = (data.length > 0 ? data.split('=')[1].strip.to_i : 3306)
+
+		# root password
+		if File.file?('/etc/mysql/nuri.cnf')
+			@state["root_password"] = `cat /etc/mysql/nuri.cnf 2>/dev/null`.to_s.sub(/\n$/,'')
+		else
+			@state['root_password'] = 'mysql'
+		end
+
+		# can be accessed from outside?
+		if @state['installed']
+			data = `grep '^bind-address' /etc/mysql/my.cnf 2>/dev/null`
+			@state['public'] = (data.length <= 0)
+		else
+			@state['public'] = false
+		end
+	end
+
+	def exec_seq(*commands)
+		commands.each { |c| raise Exception, "Cannot execute: #{c}" if !system(c) }
+	end
+
+	def install(params={})
+		begin
+			system('timeout 20s dpkg --configure -a')
+			system('apt-get -y --purge autoremove')
+			system('apt-get -y update')
+			exec_seq 'echo mysql-server mysql-server/root_password select mysql | debconf-set-selections',
+				'echo mysql-server mysql-server/root_password_again select mysql | debconf-set-selections',
+				"apt-get -y install #{@model['package_name']}",
+				'echo "\n[mysqld]\nmax_connect_errors = 10000" >> /etc/mysql/my.cnf',
+				'service mysql stop',
+				'/bin/echo mysql > /etc/mysql/nuri.cnf',
+				'/bin/chmod 0400 /etc/mysql/nuri.cnf'
+			return true
+		rescue Exception => e
+			Sfp::Agent.logger.error "#{e}\n#{e.backtrace.join("\n")}"
+		end
+		false
+	end
+	
+	def uninstall(params={})
+		system('/bin/rm -f /etc/mysql/nuri.cnf') if File.exist?('/etc/mysql/nuri.cnf')
+		system('timeout 20s dpkg --configure -a')
+		exec_seq 'apt-get remove --purge -y mysql-server*',
+			'apt-get autoremove --purge -y',
+			'apt-get autoremove --purge -y'
+
+		#if Sfp::Module::Package.uninstall('mysql-server*')
+		#result = self.class.superclass.instance_method(:uninstall).bind(self).call
+		#if result == false
+		#	system('apt-get remove -y mysql*; apt-get autoremove -y; apt-get autoremove -y')
+		#end
+			system('/bin/rm -rf /etc/mysql') if File.exist?('/etc/mysql')
+			true
+		#else
+		#	false
+		#end
+		#return result
+		#false
+	end
+	
+	def set_port(params={})
+		p = params['target']
+		Augeas::open do |aug|
+			paths = aug.match("/files/etc/mysql/my.cnf/*/port")
+			paths.each { |path|
+				aug.set(path, p.to_s)
+			}
+			return aug.save
+		end
+		false
+	end
+
+	def set_public(params={})
+		if params['pub']
+			cmd = '/bin/sed -i "s/^bind\-address/#bind\-address/g" /etc/mysql/my.cnf'
+		else
+			cmd = '/bin/sed -i "s/^#bind\-address/bind\-address/g" /etc/mysql/my.cnf'
+		end
+		return false if not system(cmd)
+		if Sfp::Module::Service.running?(@model['service_name'])
+			return (self.stop and self.start)
+		end
+		true
+	end
+	
+	def set_root_password(params={})
+		passwd = params['passwd'].to_s
+		system('/bin/chmod 0600 /etc/mysql/nuri.cnf')
+		oldpass = `cat /etc/mysql/nuri.cnf`.to_s.sub(/\n$/,'').sub(/"/,'\"')
+		passwd.sub!(/"/,'\"')
+		return (system("mysqladmin -u root -p\"#{oldpass}\" password \"#{passwd}\"") and
+			system("/bin/echo \"#{passwd}\" > /etc/mysql/nuri.cnf") and
+			system('/bin/chmod 0400 /etc/mysql/nuri.cnf'))
+	end
+
+	def set_service_name(p={})
+		true
+	end
+
+	def set_package_name(p={})
+		true
+	end
+end

data/modules/mysql/mysql.sfp

@@ -0,0 +1,38 @@
+include "../service/service.sfp"
+
+schema Mysql extends Service {
+	package_name = "mysql-server"
+	service_name = "mysql"
+	port : Int
+	root_password : String
+	public : Bool
+
+	sub set_root_password (passwd isref String) {
+		condition {
+			this.running = true
+		}
+		effect {
+			this.root_password = passwd
+		}
+	}
+
+	sub set_public (pub isref Boolean) {
+		condition {
+			this.installed = true
+			this.running = false
+		}
+		effect {
+			this.public = pub
+		}
+	}
+
+	sub set_port (target isref Integer) {
+		condition {
+			this.installed = true
+			this.running = false
+		}
+		effect {
+			this.port = target
+		}
+	}
+}

data/modules/mysql/test.sfp

@@ -0,0 +1,3 @@
+include "mysql.sfp"
+
+mysql isa Mysql

data/modules/node/node.rb

@@ -0,0 +1,8 @@
+class Sfp::Module::Node
+	include Sfp::Resource
+
+	def update_state
+		@state['sfpAddress'] = @model['sfpAddress']
+		@state['sfpPort'] = @model['sfpPort']
+	end
+end

data/modules/node/node.sfp

@@ -0,0 +1,7 @@
+include "../os/os.sfp"
+include "../cloud/cloud.sfp"
+
+schema Node {
+	final sfpAddress is ""
+	final sfpPort is 1314
+}

data/modules/object/object.rb

@@ -0,0 +1,7 @@
+class Sfp::Module::Object
+	include Sfp::Resource
+
+	def update_state
+		to_model
+	end
+end

data/modules/object/object.sfp

@@ -0,0 +1 @@
+schema Object { }

data/modules/os/os.rb

@@ -0,0 +1,38 @@
+require 'rubygems'
+require 'json'
+
+class Sfp::Module::OS
+	include Sfp::Resource
+
+	def update_state
+		@state['running'] = true
+		#@state['auto_upgrade'] = @model['auto_upgrade']
+
+		# get memory info
+		if `which free`.strip != ''
+			mem = `free`.split("\n")[1].split(" ")
+			@state["memory_total"] = mem[1].to_i
+			@state["memory_free"] = mem[3].to_i
+		else
+			@state["memory_total"] = @state["memory_free"] = -1
+		end
+
+		# get platform, architecture, kernel version
+		@state["type"] = `uname -s`.strip
+		@state["version"] = `uname -r`.strip
+		@state["arch"] = `uname -p`.strip
+		@state["platform"] = (File.exist?('/etc/issue') ? `cat /etc/issue`.strip : '')
+	end
+
+	def apply(p={})
+		self.upgrade if @model['auto_upgrade']
+	end
+
+	def upgrade(p={})
+		return !!system('apt-get update; apt-get upgrade -y')
+	end
+
+	def stop(p={})
+		return !!system('/sbin/shutdown -h now')
+	end
+end

data/modules/os/os.sfp

@@ -0,0 +1,11 @@
+schema OS {
+	running : Bool
+	//auto_upgrade : Bool
+
+	sub shutdown {
+		condition { }
+		effect {
+			this.running = false
+		}
+	}
+}

data/modules/package/package.rb

@@ -0,0 +1,26 @@
+class Sfp::Module::Package
+	include Sfp::Resource
+
+	def update_state
+		to_model
+
+		@state['installed'] = installed?
+		@state['version'] = version?
+	end
+
+	def installed?
+		false
+	end
+
+	def version?
+		""
+	end
+
+	def install(p={})
+		false
+	end
+
+	def uninstall(p={})
+		false
+	end
+end

data/modules/package/package.sfp

@@ -0,0 +1,22 @@
+schema Package {
+	installed : Bool
+
+	final package_name = ""
+	final version : String
+	final source = ""
+
+	synchronized sub install {
+		effect {
+			this.installed = true
+		}
+	}
+
+	synchronized sub uninstall {
+		condition {
+			this.installed = true
+		}
+		effect {
+			this.installed = false
+		}
+	}
+}

data/modules/package/test.sfp

@@ -0,0 +1,6 @@
+include "package.sfp"
+
+apache isa Package {
+	package_name = "apache2"
+	installed = true
+}

data/modules/service/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":"object","_isa":"$.Service","_is_array":false,"service_name":"apache2","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":"apache2","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}}},"_classes":["$.Object","$.Package","$.Service"]}}

data/modules/service/service.rb

@@ -0,0 +1,50 @@
+require File.expand_path(File.dirname(__FILE__)) + "/../aptpackage/aptpackage.rb"
+
+class Sfp::Module::Service < Sfp::Module::AptPackage
+	def update_state
+		to_model
+		if @model.is_a?(Hash)
+			@state['installed'] = installed?
+			@state['version'] = version?
+			@state['running'] = Sfp::Module::Service.running?(@model['service_name'])
+		end
+	end
+
+	##############################
+	#
+	# Action methods (see TarPackage.sfp)
+	#
+	##############################
+
+	def start(p={})
+		service = @model['service_name'].to_s.strip
+		return false if service.length <= 0
+		return true if Sfp::Module::Service.running?(service)
+		system("sudo service #{service} start")
+		sleep 1
+		return Sfp::Module::Service.running?(service)
+	end
+
+	def stop(p={})
+		service = @model['service_name'].to_s.strip
+		return false if service.length <= 0
+		return true if not Sfp::Module::Service.running?(service)
+		system("sudo service #{service} stop")
+		sleep 1
+		return !Sfp::Module::Service.running?(service)
+	end
+
+
+	##############################
+	#
+	# Helper methods
+	#
+	##############################
+
+	def self.running?(service)
+		service = service.to_s
+		return false if service.length <= 0
+		data = `service #{service} status 2>/dev/null`.to_s.downcase
+		return !!(data =~ /is running/ or data =~ /start\/running/ or data =~ /uptime/)
+	end
+end

data/modules/service/service.sfp

@@ -0,0 +1,46 @@
+include "../aptpackage/aptpackage.sfp"
+
+schema Service extends AptPackage {
+	running : Bool
+
+	final service_name = ""
+
+	synchronized sub install {
+		condition {
+			this.installed != true
+		}
+		effect {
+			this.installed = true
+			this.running = false
+		}
+	}
+	
+	synchronized sub uninstall {
+		condition {
+			this.running = false
+			this.installed = true
+		}
+		effect {
+			this.installed = false
+		}
+	}
+
+	sub start {
+		condition {
+			this.running != true
+			this.installed = true
+		}
+		effect {
+			this.running = true
+		}
+	}
+
+	sub stop {
+		condition {
+			this.running = true
+		}
+		effect {
+			this.running = false
+		}
+	}
+}