Modified: incubator/vcl/trunk/managementnode/lib/VCL/Module/OS/Windows_mod/Version_6/Vista_mod.pm URL: http://svn.apache.org/viewvc/incubator/vcl/trunk/managementnode/lib/VCL/Module/OS/Windows_mod/Version_6/Vista_mod.pm?rev=794310&r1=794309&r2=794310&view=diff ============================================================================== --- incubator/vcl/trunk/managementnode/lib/VCL/Module/OS/Windows_mod/Version_6/Vista_mod.pm (original) +++ incubator/vcl/trunk/managementnode/lib/VCL/Module/OS/Windows_mod/Version_6/Vista_mod.pm Wed Jul 15 15:52:44 2009 @@ -1,144 +1,144 @@ -#!/usr/bin/perl -w -############################################################################### -# $Id: XP_mod.pm 774457 2009-05-13 18:12:08Z arkurth $ -############################################################################### -# 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::Windows_mod::Version_6::Vista_mod.pm - VCL module to support Windows Vista operating system - -=head1 SYNOPSIS - - Needs to be written - -=head1 DESCRIPTION - - This module provides VCL support for Windows Vista. - -=cut - -############################################################################## -package VCL::Module::OS::Windows_mod::Version_6::Vista_mod; - -# Specify the lib path using FindBin -use FindBin; -use lib "$FindBin::Bin/../../../../.."; - -# Configure inheritance -use base qw(VCL::Module::OS::Windows_mod::Version_6); - -# 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; -use File::Basename; - -############################################################################## - -=head1 CLASS VARIABLES - -=cut - -=head2 $SOURCE_CONFIGURATION_DIRECTORY - - Data type : Scalar - Description : Location on management node of script/utilty/configuration - files needed to configure the OS. This is normally the - directory under the 'tools' directory specific to this OS. - -=cut - -our $SOURCE_CONFIGURATION_DIRECTORY = "$TOOLS/Windows_Vista"; - -############################################################################## - -=head1 OBJECT METHODS - -=cut - -#///////////////////////////////////////////////////////////////////////////// - -=head2 pre_capture - - Parameters : - Returns : - Description : - -=cut - -sub pre_capture { - my $self = shift; - my $args = shift; - if (ref($self) !~ /windows/i) { - notify($ERRORS{'CRITICAL'}, 0, "subroutine was called as a function, it must be called as a class method"); - return; - } - - notify($ERRORS{'OK'}, 0, "beginning Windows Vista image capture preparation tasks"); - - # Call parent class's pre_capture() subroutine - notify($ERRORS{'OK'}, 0, "calling parent class pre_capture() subroutine"); - if ($self->SUPER::pre_capture($args)) { - notify($ERRORS{'OK'}, 0, "successfully executed parent class pre_capture() subroutine"); - } - else { - notify($ERRORS{'WARNING'}, 0, "failed to execute parent class pre_capture() subroutine"); - return 0; - } - - # Prepare the computer for newsid.exe to be run - # This shuts down the computer - if (!$self->prepare_newsid()) { - notify($ERRORS{'WARNING'}, 0, "failed to prepare the computer for newsid.exe to be run"); - return 0; - } - - notify($ERRORS{'OK'}, 0, "returning 1"); - return 1; -} ## end sub pre_capture - -#///////////////////////////////////////////////////////////////////////////// - -1; -__END__ - -=head1 AUTHOR - - Aaron Peeler <aaron_pee...@ncsu.edu> - Andy Kurth <andy_ku...@ncsu.edu> - -=head1 COPYRIGHT - - Apache VCL incubator project - Copyright 2009 The Apache Software Foundation - - This product includes software developed at - The Apache Software Foundation (http://www.apache.org/). - -=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::Windows::Version_6::Vista.pm - VCL module to support Windows Vista operating system + +=head1 SYNOPSIS + + Needs to be written + +=head1 DESCRIPTION + + This module provides VCL support for Windows Vista. + +=cut + +############################################################################## +package VCL::Module::OS::Windows::Version_6::Vista; + +# Specify the lib path using FindBin +use FindBin; +use lib "$FindBin::Bin/../../../../.."; + +# Configure inheritance +use base qw(VCL::Module::OS::Windows::Version_6); + +# 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; +use File::Basename; + +############################################################################## + +=head1 CLASS VARIABLES + +=cut + +=head2 $SOURCE_CONFIGURATION_DIRECTORY + + Data type : Scalar + Description : Location on management node of script/utilty/configuration + files needed to configure the OS. This is normally the + directory under the 'tools' directory specific to this OS. + +=cut + +our $SOURCE_CONFIGURATION_DIRECTORY = "$TOOLS/Windows_Vista"; + +############################################################################## + +=head1 OBJECT METHODS + +=cut + +#///////////////////////////////////////////////////////////////////////////// + +=head2 pre_capture + + Parameters : + Returns : + Description : + +=cut + +sub pre_capture { + my $self = shift; + my $args = shift; + if (ref($self) !~ /windows/i) { + notify($ERRORS{'CRITICAL'}, 0, "subroutine was called as a function, it must be called as a class method"); + return; + } + + notify($ERRORS{'OK'}, 0, "beginning Windows Vista image capture preparation tasks"); + + # Call parent class's pre_capture() subroutine + notify($ERRORS{'OK'}, 0, "calling parent class pre_capture() subroutine"); + if ($self->SUPER::pre_capture($args)) { + notify($ERRORS{'OK'}, 0, "successfully executed parent class pre_capture() subroutine"); + } + else { + notify($ERRORS{'WARNING'}, 0, "failed to execute parent class pre_capture() subroutine"); + return 0; + } + + # Prepare the computer for newsid.exe to be run + # This shuts down the computer + if (!$self->prepare_newsid()) { + notify($ERRORS{'WARNING'}, 0, "failed to prepare the computer for newsid.exe to be run"); + return 0; + } + + notify($ERRORS{'OK'}, 0, "returning 1"); + return 1; +} ## end sub pre_capture + +#///////////////////////////////////////////////////////////////////////////// + +1; +__END__ + +=head1 AUTHOR + + Aaron Peeler <aaron_pee...@ncsu.edu> + Andy Kurth <andy_ku...@ncsu.edu> + +=head1 COPYRIGHT + + Apache VCL incubator project + Copyright 2009 The Apache Software Foundation + + This product includes software developed at + The Apache Software Foundation (http://www.apache.org/). + +=head1 SEE ALSO + +L<http://cwiki.apache.org/VCL/> + +=cut
Propchange: incubator/vcl/trunk/managementnode/lib/VCL/Module/OS/Windows_mod/Version_6/Vista_mod.pm ------------------------------------------------------------------------------ svn:eol-style = native Propchange: incubator/vcl/trunk/managementnode/lib/VCL/Module/OS/Windows_mod/Version_6/Vista_mod.pm ------------------------------------------------------------------------------ svn:keywords = Date Revision Author HeadURL Id