Author: arkurth Date: Thu Feb 24 19:41:05 2011 New Revision: 1074269 URL: http://svn.apache.org/viewvc?rev=1074269&view=rev Log: VCL-435 Set svn properties on ESXi.pm.
Modified: incubator/vcl/trunk/managementnode/lib/VCL/Module/OS/Linux/ESXi.pm (contents, props changed) Modified: incubator/vcl/trunk/managementnode/lib/VCL/Module/OS/Linux/ESXi.pm URL: http://svn.apache.org/viewvc/incubator/vcl/trunk/managementnode/lib/VCL/Module/OS/Linux/ESXi.pm?rev=1074269&r1=1074268&r2=1074269&view=diff ============================================================================== --- incubator/vcl/trunk/managementnode/lib/VCL/Module/OS/Linux/ESXi.pm (original) +++ incubator/vcl/trunk/managementnode/lib/VCL/Module/OS/Linux/ESXi.pm Thu Feb 24 19:41:05 2011 @@ -1,110 +1,110 @@ -#!/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 - -VCL::Module::OS::Linux::ESXi.pm - -=head1 SYNOPSIS - - Needs to be written - -=head1 DESCRIPTION - - This module provides VCL support for the Linux-based VMware ESXi operating - system. - -=cut - -############################################################################## -package VCL::Module::OS::Linux::ESXi; - -# Specify the lib path using FindBin -use FindBin; -use lib "$FindBin::Bin/../../../.."; - -# Configure inheritance -use base qw(VCL::Module::OS::Linux); - -# Specify the version of this module -our $VERSION = '2.00'; - -# Specify the version of Perl to use -use 5.008000; - -use strict; -use warnings; -use diagnostics; - -use VCL::utils; - -############################################################################## - -=head1 OBJECT METHODS - -=cut - -#///////////////////////////////////////////////////////////////////////////// - -=head2 post_load - - Parameters : - Returns : - Description : - -=cut - -sub post_load { - my $self = shift; - if (ref($self) !~ /VCL::Module/i) { - notify($ERRORS{'CRITICAL'}, 0, "subroutine was called as a function, it must be called as a class method"); - return 0; - } - - my $computer_short_name = $self->data->get_computer_short_name(); - - # Wait for computer to respond to SSH - if (!$self->wait_for_response(60, 600)) { - notify($ERRORS{'WARNING'}, 0, "$computer_short_name never responded to SSH"); - return 0; - } - - if (write_currentimage_txt($self->data)){ - notify($ERRORS{'OK'}, 0, "wrote current_image.txt on $computer_short_name"); - } - else { - notify($ERRORS{'WARNING'}, 0, "failed to write current_image.txt on $computer_short_name"); - } - - $self->set_vcld_post_load_status(); - - return 1; -} - -#///////////////////////////////////////////////////////////////////////////// - -1; -__END__ - -=head1 SEE ALSO - -L<http://cwiki.apache.org/VCL/> - -=cut +#!/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 + +VCL::Module::OS::Linux::ESXi.pm + +=head1 SYNOPSIS + + Needs to be written + +=head1 DESCRIPTION + + This module provides VCL support for the Linux-based VMware ESXi operating + system. + +=cut + +############################################################################## +package VCL::Module::OS::Linux::ESXi; + +# Specify the lib path using FindBin +use FindBin; +use lib "$FindBin::Bin/../../../.."; + +# Configure inheritance +use base qw(VCL::Module::OS::Linux); + +# Specify the version of this module +our $VERSION = '2.00'; + +# Specify the version of Perl to use +use 5.008000; + +use strict; +use warnings; +use diagnostics; + +use VCL::utils; + +############################################################################## + +=head1 OBJECT METHODS + +=cut + +#///////////////////////////////////////////////////////////////////////////// + +=head2 post_load + + Parameters : + Returns : + Description : + +=cut + +sub post_load { + my $self = shift; + if (ref($self) !~ /VCL::Module/i) { + notify($ERRORS{'CRITICAL'}, 0, "subroutine was called as a function, it must be called as a class method"); + return 0; + } + + my $computer_short_name = $self->data->get_computer_short_name(); + + # Wait for computer to respond to SSH + if (!$self->wait_for_response(60, 600)) { + notify($ERRORS{'WARNING'}, 0, "$computer_short_name never responded to SSH"); + return 0; + } + + if (write_currentimage_txt($self->data)){ + notify($ERRORS{'OK'}, 0, "wrote current_image.txt on $computer_short_name"); + } + else { + notify($ERRORS{'WARNING'}, 0, "failed to write current_image.txt on $computer_short_name"); + } + + $self->set_vcld_post_load_status(); + + return 1; +} + +#///////////////////////////////////////////////////////////////////////////// + +1; +__END__ + +=head1 SEE ALSO + +L<http://cwiki.apache.org/VCL/> + +=cut Propchange: incubator/vcl/trunk/managementnode/lib/VCL/Module/OS/Linux/ESXi.pm ------------------------------------------------------------------------------ svn:eol-style = native Propchange: incubator/vcl/trunk/managementnode/lib/VCL/Module/OS/Linux/ESXi.pm ------------------------------------------------------------------------------ svn:keywords = Date Revision Author HeadURL Id