Merge pull request sous-chefs#7 from gwaldo/master

Adding Windows support to the Perl cookbook (COOK-1765)

Author: Joshua Timberman

README.md

@@ -12,6 +12,7 @@ Requirements
 * Debian/Ubuntu/Mint
 * RHEL/CentOS/Scientific/Oracle/Fedora
 * ArchLinux
+* Windows
 
 Attributes
 ==========

attributes/default.rb

@@ -30,10 +30,25 @@
   default['perl']['packages'] = %w{ perl libperl-dev }
 when "arch"
   default['perl']['packages'] = %w{ perl perl-libwww }
+when "windows"
+  default['perl']['maj_version'] = '5'
+  default['perl']['min_version'] = '16'
+  default['perl']['sub_version'] = '1.1'
+  case node['kernel']['machine'].to_s
+  when "x86_64"
+	default['perl']['bitness'] = '64bit'
+  else
+    default['perl']['bitness'] = '32bit'
+  end
 else
   default['perl']['packages'] = %w{ perl libperl-dev }
 end
 
 default['perl']['cpanm']['url'] = 'https://raw.github.com/miyagawa/cpanminus/1.5015/cpanm'
 default['perl']['cpanm']['checksum'] = '8cb7b62b55a3043c4ccb'
 default['perl']['cpanm']['path'] = '/usr/local/bin/cpanm'
+
+default['perl']['install_dir'] = 'C:\\perl\\'
+
+
+

recipes/default.rb

@@ -17,16 +17,66 @@
 # limitations under the License.
 #
 
-node['perl']['packages'].each do |perl_pkg|
-  package perl_pkg
-end
+unless node['platform'] == 'windows'
+	node['perl']['packages'].each do |perl_pkg|
+	  package perl_pkg
+	end
+
+	cpanm = node['perl']['cpanm'].to_hash
+	root_group = (node[:platform] == "mac_os_x") ? "admin" : "root"
+	remote_file cpanm['path'] do
+	  source cpanm['url']
+	  checksum cpanm['checksum']
+	  owner "root"
+	  group root_group
+	  mode 0755
+	end
+else
+	installer = "strawberry-perl-#{node['perl']['maj_version']}.#{node['perl']['min_version']}.#{node['perl']['sub_version']}-#{node['perl']['bitness']}.msi"
+		
+	tempdir = "#{ENV['TEMP']}"
+	
+	if tempdir.nil? || tempdir == ''
+		tempdir = 'C:\\temp\\'
 
-cpanm = node['perl']['cpanm'].to_hash
-root_group = (node[:platform] == "mac_os_x") ? "admin" : "root"
-remote_file cpanm['path'] do
-  source cpanm['url']
-  checksum cpanm['checksum']
-  owner "root"
-  group root_group
-  mode 0755
+		#directory 'C:\\temp\\' do
+		directory "#{tempdir}" do
+	 		action :create
+	 		inherits true
+	 		owner "administrator"
+	 		group "administrators"
+	 	end
+	end
+		
+	directory node['perl']['install_dir'] do
+		action :create
+		recursive true
+		inherits true
+		owner "administrator"
+		group "administrators"
+	end
+	
+	remote_file "#{tempdir}\\#{installer}" do
+		source "https://strawberry-perl.googlecode.com/files/#{installer}"
+		action :create
+		owner "administrator"
+		group "administrators"
+		mode 0774
+	end
+	
+	execute "Install StrawberryPerl" do
+		command "msiexec /qn /i #{tempdir}\\#{installer} INSTALLDIR=#{node['perl']['install_dir']} PERL_PATH=YES"
+		not_if { File.exists?("#{node['perl']['install_dir']}\\perl\\bin\\perl.exe") }
+	end
+	
+	execute "Add Perl to PATH" do
+		command "setx /M path \"#{node['perl']['install_dir']}perl\\bin;%path%\""
+	end
+	
+	## Going to try the windows_path primitive
+	## This appears to only Append to %PATH%, when I want it to Prepend
+	#windows_path "#{node['perl']['install_dir']}perl\\bin" do
+	#	action :add
+	#end	
+	
 end