inetmgr 0.4.0

data/inetmgr.gemspec

@@ -0,0 +1,21 @@
+require 'rubygems'
+require 'rake/gempackagetask'
+
+spec = Gem::Specification.new do |s|
+
+    s.name       = "inetmgr"
+    s.version    = "0.4.0"
+    s.summary    = "A library for managing IIS configuration settings."
+    s.description = "inetmgr allows you to inspect/configure IIS configuration sections and elements."
+
+	s.required_ruby_version     = '>= 1.9.2'
+	s.required_rubygems_version = ">= 1.3.6"
+	
+	s.author     = "Gino Heyman"
+    s.email      = "gino.heyman@gmail.com"
+    s.homepage   = "http://typesafe.be/inetmgr/"
+
+    s.files      = FileList["**/**/*"].to_a
+    s.require_path      = "lib"
+    
+end

data/lib/inetmgr.rb

@@ -0,0 +1,30 @@
+require 'win32ole'
+
+path = File.expand_path(File.dirname(__FILE__))
+
+require File.join(path, 'string.rb')
+
+requires = 
+[
+  'inetmgr/iis_object_collection.rb',
+  'inetmgr/iis_object.rb'
+]
+
+requires.each do |file|
+	require File.join(path, file)
+end
+
+requires =
+[
+  'inetmgr/configuration.rb',
+  'inetmgr/iis_configuration.rb',
+  'inetmgr/site_configuration.rb'
+]
+
+requires.each do |file|
+	require File.join(path, file)
+end
+
+Dir.glob(File.join(path, 'inetmgr/iis_object/*.rb')).each do |f|
+	require f unless requires.include?(f)
+end

data/lib/inetmgr/configuration.rb

@@ -0,0 +1,23 @@
+
+class Configuration
+
+	def initialize(path)
+		@admin_manager = WIN32OLE.new "Microsoft.ApplicationHost.WritableAdminManager"
+		@admin_manager.CommitPath = path;
+	end
+
+	# applies/commits all changes made since the creation of the
+	# IisConfiguration instance or the last time this method was called.
+    def apply_changes
+	    @admin_manager.CommitChanges
+    end
+
+private
+
+	def get_admin_section section_name
+		@admin_manager.GetAdminSection(section_name, @admin_manager.CommitPath)
+	end
+
+
+	
+end

data/lib/inetmgr/iis_configuration.rb

@@ -0,0 +1,36 @@
+require File.join(File.expand_path(File.dirname(__FILE__)), 'iis_object/site.rb')
+require File.join(File.expand_path(File.dirname(__FILE__)), 'iis_object/application_pool.rb')
+require File.join(File.expand_path(File.dirname(__FILE__)), 'iis_object/auto_start_provider.rb')
+
+# Represents the local IIS configuration settings (meta base).
+class IisConfiguration < Configuration
+
+	def initialize
+		super "MACHINE/WEBROOT/APPHOST"
+	end
+
+	def self.configure
+		cfg = IisConfiguration.new
+		yield cfg
+		cfg.apply_changes
+	end
+	
+	# Gets all configured web sites.
+    def get_sites
+		s = get_admin_section "system.applicationHost/sites"
+	    IisObjectCollection.new s.Collection, :site, Site, lambda { |site| site.id = s.Collection.Count + 1 }
+    end
+
+	# Gets all configure application pools.
+    def get_application_pools
+		s = get_admin_section "system.applicationHost/applicationPools"
+		IisObjectCollection.new s.Collection, :add, ApplicationPool
+    end
+
+	# Gets all configured service auto start providers.
+	def get_auto_start_providers
+		s = get_admin_section "system.applicationHost/serviceAutoStartProviders"
+		IisObjectCollection.new s.Collection, :add, AutoStartProvider
+	end
+
+end

data/lib/inetmgr/iis_object.rb

@@ -0,0 +1,85 @@
+# Represents an IIS configuration element. Serves as the base class for all
+# IIS artifacts like Site, Application and VirtualDirectory.
+class IisObject
+
+	def initialize element
+		@element = element
+	end
+
+	# Creates a property with the specified name.
+	#
+	# ==== Parameters
+	# * <tt>name</tt> - The name of the property to create
+	# * <tt>actual_name</tt> - Optional, The actual name of the attribute or
+	# element in the IIS configuration schema.
+	# * <tt>setter</tt> - Optional, a lambda or proc to convert the property
+	# value to a value in the IIS configuration schema.
+	# * <tt>reader</tt> - Optional, a lambda or proc to convert the IIS
+	# configuration value to the desired property value.
+	def self.prop name, actual_name, setter = lambda { |v| v }, reader = lambda { |v| v }
+		define_method(name.to_s) do
+		  reader.call(@element.Properties.Item(actual_name.to_s).Value)
+		end
+
+		define_method("#{name.to_s}=") do |val|
+		  @element.Properties.Item(actual_name.to_s).Value = setter.call(val)
+		end
+	end
+
+	# Creates a collection property with the specified name.
+	#
+	# ==== Parameters
+	# * <tt>name</tt> - The name of the property to create
+	# * <tt>type</tt> - The collection's item type.
+	def self.collection name, item_name, type
+		define_method(name.to_s) do
+			IisObjectCollection.new @element.Collection, item_name.to_s, type
+		end
+	end
+
+	# Creates a collection property with the specified name.
+	#
+	# ==== Parameters
+	# * <tt>name</tt> - The name of the property to create
+	# * <tt>item_name</tt> - The name of the element in the configuration schema.
+	# * <tt>type</tt> - The collection's item type.
+	def self.children name, item_name, type
+		define_method(name.to_s) do
+			IisObjectCollection.new @element.ChildElements.Item(name.to_s).Collection, item_name.to_s, type
+		end
+	end
+
+	def self.child name, element_name, type
+		define_method(name.to_s) do
+			type.new @element.ChildElements.Item(element_name.to_s)
+		end
+	end
+
+	def invoke_method name
+		method = @element.Methods.Item(name.to_s).CreateInstance()
+		
+		# TODO: if block_given? change method_missing to change this:
+		# method.Input.Properties.Item("key").Value = value
+		# in to this:
+		# method.key = value
+
+		yield method if block_given?
+		method.Execute()
+	end
+
+private
+
+	def method_missing(symbol, *args)
+		name = symbol.to_s.to_camel_case
+		if (/=$/.match(name))
+			
+			@element.Properties.Item(name.sub(/=$/, '')).Value = args[0]
+		else
+			@element.Properties.Item(name).Value
+		end
+	rescue WIN32OLERuntimeError
+		raise "property '#{symbol}' -> #{$!}"
+	end
+
+end
+

data/lib/inetmgr/iis_object/application.rb

@@ -0,0 +1,11 @@
+require File.join(File.expand_path(File.dirname(__FILE__)), 'virtual_directory.rb')
+
+class Application  < IisObject
+
+  prop :auto_start, "serviceAutoStartEnabled"
+  prop :auto_start_provider, "serviceAutoStartProvider"
+  prop :application_pool, :applicationPool
+  
+  collection :virtual_directories, :virtualDirectory, VirtualDirectory
+ 
+end

data/lib/inetmgr/iis_object/application_pool.rb

@@ -0,0 +1,19 @@
+require File.join(File.expand_path(File.dirname(__FILE__)), 'process_model.rb')
+require File.join(File.expand_path(File.dirname(__FILE__)), 'recycling.rb')
+
+class ApplicationPool < IisObject
+
+	# prop :managed_runtime_version,   :managedRuntimeVersion
+	# prop :pass_anonymous_token, :passAnonymousToken
+	# prop :queue_length, :queueLength
+
+	prop :auto_start,        :autoStart,              lambda { |a| a == true ? "true" : "false" },            lambda {|value| value == "true" }
+	prop :classic_pipeline,  :managedPipelineMode,    lambda { |a| a == true ? 1 : 0 },                       lambda {|value| value.to_i == 1 }
+	prop :enable_32bit,      :enable32BitAppOnWin64
+	prop :always_running,    :startMode,              lambda { |a| a == true ? "AlwaysRunning" : "OnDemand" },lambda {|value| value.to_i == 1 }
+	
+    child :process_model, :processModel, ProcessModel
+    child :recycling, :recycling, Recycling 
+
+end
+

data/lib/inetmgr/iis_object/auto_start_provider.rb

@@ -0,0 +1,3 @@
+class AutoStartProvider < IisObject
+
+end

data/lib/inetmgr/iis_object/binding_information.rb

@@ -0,0 +1,26 @@
+
+class BindingInformation < IisObject
+
+	prop :protocol, :protocol
+	prop :binding_information, :bindingInformation
+	prop :ds_mapper_enabled?, :isDsMapperEnabled
+
+	def add_ssl_certificate thumprint, store
+		invoke_method("AddSslCertificate") do |method|
+			method.Input.Properties.Item("certificateHash").Value = thumprint
+			method.Input.Properties.Item("certificateStoreName").Value = store
+		end
+	end
+
+	def remove_ssl_certificate
+		invoke_method("RemoveSslCertificate")
+	end
+
+	def enable_ds_mapper
+		invoke_method("EnableDsMapper")
+	end
+
+	def disable_ds_mapper
+		invoke_method("DisableDsMapper")
+	end
+end

data/lib/inetmgr/iis_object/periodic_restart.rb

@@ -0,0 +1,3 @@
+class PeriodicRestart < IisObject
+	children :schedule, :schedule, IisObject
+end

data/lib/inetmgr/iis_object/process_model.rb

@@ -0,0 +1,18 @@
+# Specifies security, performance, health, and reliability features of application pools.
+class ProcessModel < IisObject
+
+	Identity_type_map = [:system, :local_service, :network_service, :specific_user, :application_pool_identity]
+
+	##
+	# Specifies the logon type for the process identity.
+	# - :batch indicates that the application pool identity should logon as a batch user.
+	# - :service indicates that the application pool identity should logon as a service.
+
+	prop :logon_type, :logonType, lambda {|value| value == :batch ? 0 : 1 }, lambda { |a| a == 0 ? :batch : :service }
+
+	prop :identity_type, :identityType, lambda {|value| Identity_type_map.index(value)}, lambda { |a| Identity_type_map[a] }
+	prop :user_name, :userName
+	#prop :password
+	prop :load_user_profile, :loadUserProfile
+
+end

data/lib/inetmgr/iis_object/recycling.rb

@@ -0,0 +1,5 @@
+require File.join(File.expand_path(File.dirname(__FILE__)), 'periodic_restart.rb')
+
+class Recycling < IisObject
+	child :periodic_restart, :periodicRestart, PeriodicRestart
+end

data/lib/inetmgr/iis_object/site.rb

@@ -0,0 +1,24 @@
+require File.join(File.expand_path(File.dirname(__FILE__)), 'site_limit.rb')
+require File.join(File.expand_path(File.dirname(__FILE__)), 'binding_information.rb')
+require File.join(File.expand_path(File.dirname(__FILE__)), 'application.rb')
+
+class Site < IisObject
+
+	# name
+	# id
+
+	prop :auto_start, :serverAutoStart
+
+	collection :applications, :application, Application
+
+    children :bindings, :binding, BindingInformation
+
+	child :limits, :limits, SiteLimit
+
+	def configure
+		cfg = SiteConfiguration.new name
+		yield cfg
+		cfg.apply_changes
+	end
+
+end

data/lib/inetmgr/iis_object/site_limit.rb

@@ -0,0 +1,7 @@
+class SiteLimit < IisObject
+
+	prop :max_bandwidth, :maxBandwidth
+	prop :max_connections, :maxConnections
+	prop :connection_timeout, :connectionTimeout
+
+end

data/lib/inetmgr/iis_object/virtual_directory.rb

@@ -0,0 +1,5 @@
+class VirtualDirectory < IisObject
+
+	prop :path, "path"
+	prop :physical_path, :physicalPath
+end

data/lib/inetmgr/iis_object_collection.rb

@@ -0,0 +1,51 @@
+# Represents a collection of IIS configuration objects.
+class IisObjectCollection
+
+	def initialize element, item_name, type, add_callback = nil
+		@collection_element = element
+		@item_name = item_name
+	    @type = type
+		@add_callback = add_callback
+	end
+
+    def size
+	    @collection_element.Count
+    end
+
+	def count
+		size
+	end
+	
+    def [](index)
+		return @type.new @collection_element.Item index
+    end
+
+    def each
+		size.times { |i| yield self[i] }
+    end
+
+    def add
+		e = @collection_element.CreateNewElement @item_name.to_s
+	    added = @type.new e
+		@add_callback.call added unless @add_callback.nil?
+	    yield added
+        @collection_element.AddElement e
+		added
+    end
+
+	def find 
+		size.times do |i|
+			instance = self[i]
+			return instance if yield(instance)
+		end
+		nil
+	end
+	
+	def exists(name)
+		!(find {|s| s.name == name}).nil?
+	end
+
+    def remove(index)
+	    @collection_element.DeleteElement index
+    end
+end

data/lib/inetmgr/site_configuration.rb

@@ -0,0 +1,34 @@
+
+class SiteConfiguration < Configuration
+
+	def initialize(name)
+		super "MACHINE/WEBROOT/APPHOST/#{name}"
+	end
+
+	def get_app_settings
+		get_collection "appSettings"
+	end
+
+	def get_connection_strings
+		get_collection "connectionStrings"
+	end
+
+	def get_validation_settings
+		IisObject.new get_admin_section("system.webServer/validation")
+	end
+
+	def get_static_content_settings
+		IisObject.new get_admin_section("system.webServer/staticContent")
+	end
+
+	def get_service_model_settings
+		IisObject.new get_admin_section("system.serviceModel")
+	end
+	
+private
+
+	def get_collection(name)
+		IisObjectCollection.new get_admin_section(name).Collection, :add, IisObject
+	end
+
+end

data/lib/rake/inetmgrtask.rb

@@ -0,0 +1,74 @@
+require 'rake/tasklib'
+
+module Inetmgr
+
+  class InetmgrTask < ::Rake::TaskLib
+    attr_accessor :name
+
+    def initialize(name, *args, &block)
+      @block = block
+      args = args.insert(0, name)
+      define name, args
+    end
+
+    def define(name, args)
+      task *args do |task, task_args|
+      	@task_args = task_args
+        execute name.to_s
+      end
+    end
+
+    def call_task_block(obj)
+      if !@block.nil?
+      	if @block.arity == 1
+      	  @block.call(obj)
+        else
+      	  @block.call(obj, @task_args)
+  	    end
+  	  end
+    end
+  end
+end
+
+def create_task(taskname, task_object_proc, &execute_body)
+  taskclass = :"Inetmgr_TaskFor_#{taskname}"
+  taskmethod = taskname.to_s.downcase.to_sym
+
+  Object.class_eval(<<-EOF, __FILE__, __LINE__)
+    def #{taskmethod}(name=:#{taskname}, *args, &block)
+      Inetmgr.const_get("#{taskclass}").new(name, *args, &block)
+    end
+  EOF
+
+  Inetmgr.class_eval do
+    const_set(taskclass, Class.new(Inetmgr::InetmgrTask) do
+      define_method :execute do |name|
+        task_object = task_object_proc.call
+
+        call_task_block(task_object)
+      	execute_body.call(task_object) unless execute_body.nil?
+      end
+    end)
+  end
+end
+
+
+create_task :application_pool, Proc.new { ApplicationPool.new } do |pool|
+  pool.create
+end
+
+create_task :application, Proc.new { Application.new } do |pool|
+  pool.create
+end
+
+create_task :site, Proc.new { Site.new } do |site|
+  site.create
+end
+
+create_task :auto_start_provider, Proc.new { AutoStartProvider.new } do |p|
+  p.create
+end
+
+create_task :virtual_directory, Proc.new { VirtualDirectory.new } do |dir|
+  dir.create
+end