svn commit: r786194 - /incubator/vcl/trunk/managementnode/bin/install_perl_libs.pl

[ar...@apache.org]

Author: arkurth
Date: Thu Jun 18 18:19:47 2009
New Revision: 786194

URL: http://svn.apache.org/viewvc?rev=786194&view=rev
Log:
VCL-164
Added bin/install_perl_libs.pl script. It attempts to download and install the Perl modules required for vcld to run.

Added:
    incubator/vcl/trunk/managementnode/bin/install_perl_libs.pl

Added: incubator/vcl/trunk/managementnode/bin/install_perl_libs.pl
URL: http://svn.apache.org/viewvc/incubator/vcl/trunk/managementnode/bin/install_perl_libs.pl?rev=786194&view=auto
==============================================================================
--- incubator/vcl/trunk/managementnode/bin/install_perl_libs.pl (added)
+++ incubator/vcl/trunk/managementnode/bin/install_perl_libs.pl Thu Jun 18 18:19:47 2009
@@ -0,0 +1,147 @@
+#!/usr/bin/perl -w
+##############################################################################
+# $Id: $
+##############################################################################
+# 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.
+###############################################################################
+
+=head1 NAME
+
+install_perl_libs.pl - Script to install VCL Perl module dependencies
+
+=head1 SYNOPSIS
+
+ perl install_perl_libs.pl
+
+=head1 DESCRIPTION
+
+ This script downloads and installs the Perl modules which are required for the
+ VCL management node code to run.
+ 
+ Module source packages (.tar.gz files) are downloaded to /tmp/perl-modules.
+
+=cut
+
+##############################################################################
+use strict;
+use warnings;
+use diagnostics;
+
+my $download_directory= '/tmp/perl-modules';
+if (-e $download_directory) {
+	#unlink $download_directory;
+}
+mkdir $download_directory;
+
+my @module_urls = (
+	'http://search.cpan.org/CPAN/authors/id/M/MA/MARKOV/MailTools-2.04.tar.gz',
+	
+	'http://search.cpan.org/CPAN/authors/id/T/TM/TMTM/Class-Data-Inheritable-0.08.tar.gz',
+	'http://search.cpan.org/CPAN/authors/id/D/DR/DROLSKY/Devel-StackTrace-1.20.tar.gz',
+	'http://search.cpan.org/CPAN/authors/id/D/DR/DROLSKY/Exception-Class-1.26.tar.gz',
+	'http://search.cpan.org/CPAN/authors/id/J/JD/JDHEDDEN/Object-InsideOut-3.52.tar.gz',
+	
+	'http://search.cpan.org/CPAN/authors/id/K/KW/KWILLIAMS/Module-Build-0.30.tar.gz',
+	'http://search.cpan.org/CPAN/authors/id/H/HA/HACKER/Net-XMPP-1.02.tar.gz',
+	'http://search.cpan.org/CPAN/authors/id/A/AG/AGROLMS/GSSAPI-0.26.tar.gz',
+	'http://search.cpan.org/CPAN/authors/id/G/GA/GAAS/Digest-SHA1-2.12.tar.gz',
+	'http://search.cpan.org/CPAN/authors/id/G/GA/GAAS/Digest-HMAC-1.01.tar.gz',
+	'http://search.cpan.org/CPAN/authors/id/G/GB/GBARR/Authen-SASL-2.12.tar.gz',
+	'http://search.cpan.org/CPAN/authors/id/R/RE/REATMON/XML-Stream-1.22.tar.gz',
+	'http://search.cpan.org/CPAN/authors/id/R/RE/REATMON/Net-Jabber-2.0.tar.gz',
+	
+	'http://search.cpan.org/CPAN/authors/id/I/IN/INGY/YAML-0.68.tar.gz',
+	
+	'http://search.cpan.org/CPAN/authors/id/R/RJ/RJRAY/RPC-XML-0.64.tar.gz',
+	'http://www.cpan.org/modules/by-module/XML/XML-Parser-2.36.tar.gz',
+	'http://www.cpan.org/modules/by-module/Crypt/Crypt-SSLeay-0.57.tar.gz',
+	
+	'http://search.cpan.org/CPAN/authors/id/T/TI/TIMB/DBI-1.609.tar.gz',
+	
+	'http://search.cpan.org/CPAN/authors/id/G/GA/GAAS/libwww-perl-5.827.tar.gz',
+);
+
+# Loop through each URL
+for my $url (@module_urls) {
+	print "URL: $url\n";
+	
+	my ($module_filename) = $url =~ /([^\/]+)$/;
+	print "Module filename: $module_filename\n";
+	
+	my ($module_name) = $url =~ /([^\/]+)\.tar\.gz$/;
+	print "Module name: $module_name\n";
+	
+	my ($module_package) = $module_name =~ /([^\/]+)-[\d\.]+$/;
+	$module_package =~ s/-/::/g;
+	
+	# Fix module package names
+	if ($module_name =~ /libwww-perl/) {
+		$module_package = "Bundle::LWP";
+	}
+	elsif ($module_name =~ /MailTools/) {
+		$module_package = "Mail::Mailer";
+	}
+	elsif ($module_name =~ /TimeDate/) {
+		$module_package = "Date::Parse";
+	}
+	print "Module package: $module_package\n";
+	
+	if (!module_installed($module_package)) {
+		run_command("rm -rf $download_directory/*$module_name*");
+		run_command("wget --directory-prefix=$download_directory $url");
+		run_command("tar -xzf $download_directory/$module_filename -C $download_directory");
+		run_command("cd $download_directory/$module_name && perl Makefile.PL");
+		run_command("cd $download_directory/$module_name && make");
+		##run_command("cd $download_directory/$module_name && make test");
+		my $install_exit_status = run_command("cd $download_directory/$module_name && make install");
+		if ($install_exit_status ne '0') {
+			print "$module_name: installation failed, make install exit status is $install_exit_status\n";
+			exit 1;
+		}
+	}
+	
+	print "==============================================================================\n";
+}
+
+exit  0;
+
+sub module_installed {
+	my $module_package = shift;
+	
+	print "Checking if $module_package is installed\n";
+	
+	my $output = `perl -M$module_package -e '' 2>&1`;
+	my $exit_status = $? >> 8;
+	
+	if ($output !~ /Can't locate/i) {
+		print "Module is already installed: $module_package\n";
+		return 1;
+	}
+	else {
+		print "Module is NOT already installed: $module_package\n";
+		return 0;
+	}
+}
+
+sub run_command {
+	my $command = shift;
+	
+	#print "--------------------------------------------------\n";
+	print "running command: $command\n";
+	system $command; 
+	my $exit_status = $? >> 8;
+	return $exit_status;
+}