Modified: vcl/trunk/managementnode/lib/VCL/Module/Provisioning/libvirt.pm URL: http://svn.apache.org/viewvc/vcl/trunk/managementnode/lib/VCL/Module/Provisioning/libvirt.pm?rev=1793929&r1=1793928&r2=1793929&view=diff ============================================================================== --- vcl/trunk/managementnode/lib/VCL/Module/Provisioning/libvirt.pm (original) +++ vcl/trunk/managementnode/lib/VCL/Module/Provisioning/libvirt.pm Thu May 4 23:22:17 2017 @@ -35,7 +35,7 @@ VCL::Provisioning::libvirt - VCL provisi =cut -############################################################################## +############################################################################### package VCL::Module::Provisioning::libvirt; # Specify the lib path using FindBin @@ -59,13 +59,13 @@ use File::Basename; use VCL::utils; -############################################################################## +############################################################################### =head1 OBJECT METHODS =cut -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 initialize @@ -170,7 +170,7 @@ sub initialize { } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 unload @@ -197,7 +197,7 @@ sub unload { } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 load @@ -340,7 +340,7 @@ Call the domain guest OS module's 'post_ return 1; } ## end sub load -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 capture @@ -556,7 +556,7 @@ EOF return 1; } ## end sub capture -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 does_image_exist @@ -603,7 +603,7 @@ sub does_image_exist { return 0; } ## end sub does_image_exist -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_image_size @@ -628,7 +628,7 @@ sub get_image_size { return int($image_size_bytes / 1024 ** 2); } ## end sub get_image_size -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 power_status @@ -701,7 +701,7 @@ sub power_status { } ## end sub power_status -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 power_on @@ -743,7 +743,7 @@ sub power_on { } } ## end sub power_on -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 power_off @@ -785,7 +785,7 @@ sub power_off { } } ## end sub power_off -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 power_reset @@ -820,7 +820,7 @@ sub power_reset { return 1; } ## end sub power_reset -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 post_maintenance_action @@ -864,13 +864,13 @@ sub post_maintenance_action { return 1; } ## end sub post_maintenance_action -############################################################################## +############################################################################### =head1 PRIVATE METHODS =cut -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 driver @@ -897,7 +897,7 @@ sub driver { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_driver_name @@ -924,7 +924,7 @@ sub get_driver_name { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_domain_name @@ -1047,7 +1047,7 @@ sub get_domain_name { return $self->{domain_name}; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_active_domain_name @@ -1155,7 +1155,7 @@ sub get_active_domain_name { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_domain_file_base_name @@ -1182,7 +1182,7 @@ sub get_domain_file_base_name { return "$computer_short_name\_$image_id-v$image_revision"; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_domain_xml_directory_path @@ -1202,7 +1202,7 @@ sub get_domain_xml_directory_path { return "/tmp/vcl"; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_domain_xml_file_path @@ -1226,7 +1226,7 @@ sub get_domain_xml_file_path { return "$domain_xml_directory_path/$domain_file_name.xml"; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_master_image_base_directory_path @@ -1248,7 +1248,7 @@ sub get_master_image_base_directory_path return $datastore_path; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_master_image_directory_path @@ -1274,7 +1274,7 @@ sub get_master_image_directory_path { return $master_image_base_directory_path; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_master_image_file_path @@ -1318,7 +1318,7 @@ sub get_master_image_file_path { return $master_image_file_path; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_master_xml_file_path @@ -1345,7 +1345,7 @@ sub get_master_xml_file_path { return "$master_image_directory_path/$image_name.xml"; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_copy_on_write_file_path @@ -1371,7 +1371,7 @@ sub get_copy_on_write_file_path { return "$vmhost_vmpath/$domain_file_name.$datastore_imagetype"; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_repository_image_directory_path @@ -1403,7 +1403,7 @@ sub get_repository_image_directory_path } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_repository_image_file_path @@ -1436,7 +1436,7 @@ sub get_repository_image_file_path { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_repository_xml_file_path @@ -1463,7 +1463,7 @@ sub get_repository_xml_file_path { return "$repository_image_directory_path/$image_name.xml"; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_new_image_name @@ -1496,7 +1496,7 @@ sub get_new_image_name { return "$image_os_name\-$image_prettyname\-$image_id\-v$imagerevision_revision"; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 define_domain @@ -1565,7 +1565,7 @@ sub define_domain { return 1; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 delete_existing_domains @@ -1613,7 +1613,7 @@ sub delete_existing_domains { return 1; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 delete_domain @@ -1704,7 +1704,7 @@ sub delete_domain { return 1; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 generate_domain_xml @@ -1913,7 +1913,7 @@ EOF return hash_to_xml_string($xml_hashref, 'domain'); } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_domain_info @@ -1983,7 +1983,7 @@ sub get_domain_info { return $defined_domains; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_domain_xml_string @@ -2023,7 +2023,7 @@ sub get_domain_xml_string { return join("\n", @$output); } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_domain_xml @@ -2061,7 +2061,7 @@ sub get_domain_xml { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_domain_disk_file_paths @@ -2115,7 +2115,7 @@ sub get_domain_disk_file_paths { return @disk_file_paths; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_domain_mac_addresses @@ -2155,7 +2155,7 @@ sub get_domain_mac_addresses { return @mac_addresses; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 domain_exists @@ -2200,7 +2200,7 @@ sub domain_exists { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_snapshot_info @@ -2263,7 +2263,7 @@ sub get_snapshot_info { return $shapshot_info; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 create_snapshot @@ -2307,7 +2307,7 @@ sub create_snapshot { return 1; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 delete_snapshot @@ -2351,7 +2351,7 @@ sub delete_snapshot { return 1; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_image_size_bytes @@ -2411,7 +2411,7 @@ sub get_image_size_bytes { return $image_size_bytes; } ## end sub get_image_size_bytes -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 find_repository_image_file_paths @@ -2510,7 +2510,7 @@ sub find_repository_image_file_paths { return @virtual_disk_repository_file_paths } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_master_image_semaphore @@ -2543,7 +2543,7 @@ sub get_master_image_semaphore { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_repository_image_semaphore @@ -2576,7 +2576,7 @@ sub get_repository_image_semaphore { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_node_network_info @@ -2643,7 +2643,7 @@ sub get_node_network_info { return $info; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_node_network_xml_string @@ -2685,7 +2685,7 @@ sub get_node_network_xml_string { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_node_interface_info @@ -2753,7 +2753,7 @@ sub get_node_interface_info { return $info; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_node_interface_xml_string @@ -2795,7 +2795,7 @@ sub get_node_interface_xml_string { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_master_xml_info @@ -2845,7 +2845,7 @@ sub get_master_xml_info { return $self->{master_xml_info}; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_master_xml_device_info @@ -2920,7 +2920,7 @@ sub get_master_xml_device_info { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_master_xml_disk_bus_type @@ -2966,7 +2966,7 @@ sub get_master_xml_disk_bus_type { $self->{master_xml_disk_bus_type}; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_master_xml_interface_model_type @@ -3006,7 +3006,7 @@ sub get_master_xml_interface_model_type } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// 1; __END__
Modified: vcl/trunk/managementnode/lib/VCL/Module/Provisioning/libvirt/KVM.pm URL: http://svn.apache.org/viewvc/vcl/trunk/managementnode/lib/VCL/Module/Provisioning/libvirt/KVM.pm?rev=1793929&r1=1793928&r2=1793929&view=diff ============================================================================== --- vcl/trunk/managementnode/lib/VCL/Module/Provisioning/libvirt/KVM.pm (original) +++ vcl/trunk/managementnode/lib/VCL/Module/Provisioning/libvirt/KVM.pm Thu May 4 23:22:17 2017 @@ -31,7 +31,7 @@ support for the KVM hypervisor =cut -############################################################################## +############################################################################### package VCL::Module::Provisioning::libvirt::KVM; # Specify the lib path using FindBin @@ -55,13 +55,13 @@ use File::Basename; use VCL::utils; -############################################################################## +############################################################################### =head1 OBJECT METHODS =cut -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 initialize @@ -115,7 +115,7 @@ sub initialize { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_domain_type @@ -137,7 +137,7 @@ sub get_domain_type { return 'kvm'; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_disk_driver_name @@ -161,7 +161,7 @@ sub get_disk_driver_name { return 'qemu'; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 pre_define @@ -250,13 +250,13 @@ sub pre_define { return 1; } -############################################################################## +############################################################################### =head1 PRIVATE METHODS =cut -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_virtual_disk_file_info @@ -404,7 +404,7 @@ sub get_virtual_disk_file_info { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_virtual_disk_size_bytes @@ -459,7 +459,7 @@ sub get_virtual_disk_size_bytes { return $virtual_disk_size_bytes; } ## end sub get_virtual_disk_size_bytes -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 copy_virtual_disk @@ -660,7 +660,7 @@ sub copy_virtual_disk { return 1; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 create_copy_on_write_image @@ -711,7 +711,7 @@ sub create_copy_on_write_image { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 update_windows_image @@ -963,7 +963,7 @@ EOF return 1; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 query_windows_image_registry @@ -1037,7 +1037,7 @@ sub query_windows_image_registry { return $registry_data; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// 1; __END__ Modified: vcl/trunk/managementnode/lib/VCL/Module/Provisioning/one.pm URL: http://svn.apache.org/viewvc/vcl/trunk/managementnode/lib/VCL/Module/Provisioning/one.pm?rev=1793929&r1=1793928&r2=1793929&view=diff ============================================================================== --- vcl/trunk/managementnode/lib/VCL/Module/Provisioning/one.pm (original) +++ vcl/trunk/managementnode/lib/VCL/Module/Provisioning/one.pm Thu May 4 23:22:17 2017 @@ -32,7 +32,7 @@ VCL::Provisioning::one - VCL module to s =cut -############################################################################## +############################################################################### package VCL::Module::Provisioning::one; # Specify the lib path using FindBin @@ -100,7 +100,7 @@ sub initialize { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 provision @@ -239,7 +239,7 @@ sub load { } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 does_image_exist @@ -275,11 +275,11 @@ sub does_image_exist { return 0; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 capture @@ -544,7 +544,7 @@ sub power_reset() { -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 power_status @@ -604,7 +604,7 @@ sub power_on { return 1; } ## end sub power_on -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 new @@ -708,7 +708,7 @@ sub _one_get_template_id { -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 _one_get_virtio Parameters : imagename @@ -736,7 +736,7 @@ sub _one_get_virtio { return ''; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 one_wait_for_vm_status @@ -925,7 +925,7 @@ sub _one_get_object_id { return 0; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 _one_delete_vm Modified: vcl/trunk/managementnode/lib/VCL/Module/Provisioning/openstack.pm URL: http://svn.apache.org/viewvc/vcl/trunk/managementnode/lib/VCL/Module/Provisioning/openstack.pm?rev=1793929&r1=1793928&r2=1793929&view=diff ============================================================================== --- vcl/trunk/managementnode/lib/VCL/Module/Provisioning/openstack.pm (original) +++ vcl/trunk/managementnode/lib/VCL/Module/Provisioning/openstack.pm Thu May 4 23:22:17 2017 @@ -32,7 +32,7 @@ This module provides VCL support for Ope =cut -############################################################################## +############################################################################### package VCL::Module::Provisioning::openstack; # Include File Copying for Perl @@ -63,7 +63,7 @@ use VCL::utils; use JSON qw(from_json to_json); use LWP::UserAgent; -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 initialize @@ -89,7 +89,7 @@ sub initialize { } ## end sub initialize -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 unload @@ -128,7 +128,7 @@ sub unload { } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 provision @@ -201,7 +201,7 @@ sub load { } ## end sub load -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 capture @@ -276,7 +276,7 @@ sub capture { return 1; } ## end sub capture -#///////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 does_image_exist @@ -339,7 +339,7 @@ sub does_image_exist { } ## end sub does_image_exist -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_image_size @@ -399,7 +399,7 @@ sub get_image_size { return round($os_image_size_bytes / 1024 / 1024); } ## end sub get_image_size -#///////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 node_status @@ -583,7 +583,7 @@ sub node_status { } ## end sub node_status -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 _delete_os_computer_mapping @@ -636,7 +636,7 @@ EOF return 1; } ## end sub _delete_os_computer_mapping -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 _get_os_flavor_id @@ -683,7 +683,7 @@ EOF return $os_flavor_id; } ## end sub _get_os_flavor_id -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 _get_os_image_id @@ -732,7 +732,7 @@ EOF return $os_image_id; } ## end sub _get_os_image_id -#///////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 _get_os_instance_id @@ -775,7 +775,7 @@ EOF return $os_instance_id; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 _get_os_token_computer_url @@ -856,7 +856,7 @@ sub _get_os_token_compute_url { return ($os_token, $os_compute_url); } ## end sub get_os_token_compute_url -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 _insert_os_image_id @@ -942,7 +942,7 @@ EOF return 1; } ## end sub _insert_os_image_id -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 _insert_os_instance_id @@ -982,7 +982,7 @@ EOF return 1; } ## end sub_insert_os_instance_id -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 _post_os_create_image @@ -1060,7 +1060,7 @@ sub _post_os_create_image{ return $os_image_id; } ## end sub _post_os_create_image -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 _post_os_create_instance @@ -1148,7 +1148,7 @@ sub _post_os_create_instance { return $os_instance_id; } ## end sub _post_os_create_instance -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 _prepare_capture @@ -1191,7 +1191,7 @@ sub _prepare_capture { return 1; } ## end sub _prepare_capture -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 _set_os_auth_conf @@ -1242,7 +1242,7 @@ sub _set_os_auth_conf { return 1; }# end sub _set_os_auth_conf -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 _terminate_os_instance @@ -1279,7 +1279,7 @@ sub _terminate_os_instance { return 1; } ## end sub _terminate_os_instance -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 _update_os_instance @@ -1345,7 +1345,7 @@ sub _update_private_ip { return 0; } ## end sub _update_private_ip -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 _wait_for_copying_image @@ -1412,6 +1412,6 @@ sub power_reset { } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// 1; __END__ Modified: vcl/trunk/managementnode/lib/VCL/Module/Provisioning/vbox.pm URL: http://svn.apache.org/viewvc/vcl/trunk/managementnode/lib/VCL/Module/Provisioning/vbox.pm?rev=1793929&r1=1793928&r2=1793929&view=diff ============================================================================== --- vcl/trunk/managementnode/lib/VCL/Module/Provisioning/vbox.pm (original) +++ vcl/trunk/managementnode/lib/VCL/Module/Provisioning/vbox.pm Thu May 4 23:22:17 2017 @@ -32,7 +32,7 @@ VCL::Provisioning::vbox - VCL module to =cut -############################################################################## +############################################################################### package VCL::Module::Provisioning::vbox; # Specify the lib path using FindBin @@ -56,13 +56,13 @@ use English qw(-no_match_vars); use VCL::utils; use Fcntl qw(:DEFAULT :flock); -############################################################################## +############################################################################### =head1 OBJECT METHODS =cut -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 provision @@ -442,7 +442,7 @@ sub load { } ## end sub load -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 capture @@ -603,7 +603,7 @@ sub capture { ## This is going to need t } ## end sub capture -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 remove_snapshots @@ -662,7 +662,7 @@ sub remove_snapshots { } } ## end sub remove_snapshots -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 controlVM @@ -763,7 +763,7 @@ sub control_vm { return $ret; } ## end sub control_vm -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_image_size @@ -814,7 +814,7 @@ sub get_image_size { return 0; } ## end sub get_image_size -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 does_image_exist @@ -884,7 +884,7 @@ sub does_image_exist { } } ## end sub does_image_exist -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 retrieve_image @@ -1036,7 +1036,7 @@ sub retrieve_image { return 1; } ## end sub retrieve_image -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 _get_image_repository_path @@ -1058,7 +1058,7 @@ sub _get_image_repository_path { return $return_path; } ## end sub _get_image_repository_path -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 post_maintenance_action @@ -1105,7 +1105,7 @@ sub post_maintenance_action { } ## end sub post_maintenance_action -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 power_on @@ -1144,7 +1144,7 @@ sub power_on { return 1; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 power_off @@ -1183,7 +1183,7 @@ sub power_off { return 1; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 power_reset @@ -1223,7 +1223,7 @@ sub power_reset { return 1; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 power_status @@ -1272,7 +1272,7 @@ sub power_status { return $vm_status; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// 1; __END__ Modified: vcl/trunk/managementnode/lib/VCL/Module/Provisioning/xCAT.pm URL: http://svn.apache.org/viewvc/vcl/trunk/managementnode/lib/VCL/Module/Provisioning/xCAT.pm?rev=1793929&r1=1793928&r2=1793929&view=diff ============================================================================== --- vcl/trunk/managementnode/lib/VCL/Module/Provisioning/xCAT.pm (original) +++ vcl/trunk/managementnode/lib/VCL/Module/Provisioning/xCAT.pm Thu May 4 23:22:17 2017 @@ -39,7 +39,7 @@ VCL::Provisioning::xCAT - VCL module to =cut -############################################################################## +############################################################################### package VCL::Module::Provisioning::xCAT; # Specify the lib path using FindBin @@ -67,7 +67,7 @@ use IO::Seekable; use Socket; use version; -############################################################################## +############################################################################### =head1 CLASS ATTRIBUTES @@ -85,13 +85,13 @@ use version; # Class attributes to store xCAT configuration details my $XCAT_ROOT; -############################################################################## +############################################################################### =head1 OBJECT METHODS =cut -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 initialize @@ -143,7 +143,7 @@ sub initialize { return 1; } ## end sub initialize -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 unload @@ -168,7 +168,7 @@ sub unload { } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 load @@ -453,7 +453,7 @@ sub load { return 1; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 capture @@ -627,7 +627,7 @@ sub capture { notify($ERRORS{'OK'}, 0, "successfully captured $image_name on $computer_node_name"); return 1; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 does_image_exist @@ -784,7 +784,7 @@ sub does_image_exist { } ## end sub does_image_exist -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_image_size @@ -848,7 +848,7 @@ sub get_image_size { } ## end sub get_image_size -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_nodetype_image_os_name @@ -1050,7 +1050,7 @@ sub get_nodetype_image_os_name { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_image_repository_directory_path @@ -1137,7 +1137,7 @@ sub get_image_repository_directory_path return $self->{xcat_image_repository_directory_path}{$image_name}{$management_node_hostname}; } ## end sub get_image_repository_directory_path -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_image_repository_search_paths @@ -1189,7 +1189,7 @@ sub get_image_repository_search_paths { return @repository_search_paths; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 power_reset @@ -1239,7 +1239,7 @@ sub power_reset { return 1; } ## end sub power_reset -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 power_on @@ -1285,7 +1285,7 @@ sub power_on { return 1; } ## end sub power_on -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 power_off @@ -1339,7 +1339,7 @@ sub power_off { return 1; } ## end sub power_off -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 power_status @@ -1380,7 +1380,7 @@ sub power_status { } } ## end sub power_status -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 _edit_nodelist @@ -1461,7 +1461,7 @@ sub _edit_nodelist { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 _edit_nodetype @@ -1537,7 +1537,7 @@ sub _edit_nodetype { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 _lsdef @@ -1596,7 +1596,7 @@ sub _lsdef { return $node_info; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 _nodestat @@ -1642,7 +1642,7 @@ sub _nodestat { return; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 _nodeset @@ -1714,7 +1714,7 @@ sub _nodeset { return; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 _get_nodeset_all_stat_info @@ -1758,7 +1758,7 @@ sub _get_nodeset_all_stat_info { return $nodeset_stat_info; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 _wait_for_on @@ -1793,7 +1793,7 @@ sub _wait_for_on { ); } ## end sub _wait_for_on -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 _wait_for_off @@ -1828,7 +1828,7 @@ sub _wait_for_off { ); } ## end sub _wait_for_off -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 _rpower @@ -1979,7 +1979,7 @@ sub _rpower { return; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 _rinv @@ -2055,7 +2055,7 @@ sub _rinv { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 _get_tmpl_directory_path @@ -2122,7 +2122,7 @@ sub _get_tmpl_directory_path { return $image_template_path; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 _create_template @@ -2206,7 +2206,7 @@ sub _create_template { return 1; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 _delete_template @@ -2272,7 +2272,7 @@ sub _delete_template { return 1; } ## end sub _delete_template -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 _is_throttle_limit_reached @@ -2381,7 +2381,7 @@ sub _is_throttle_limit_reached { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 _get_install_status @@ -2441,7 +2441,7 @@ sub _get_install_status { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 check_image_os @@ -2531,7 +2531,7 @@ EOF return 1; } ## end sub check_image_os -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 DESTROY @@ -2578,11 +2578,11 @@ sub DESTROY { $self->SUPER::DESTROY if $self->can("SUPER::DESTROY"); } ## end sub DESTROY -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// initialize() if (!$XCAT_ROOT); -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// 1; __END__ Modified: vcl/trunk/managementnode/lib/VCL/Module/Semaphore.pm URL: http://svn.apache.org/viewvc/vcl/trunk/managementnode/lib/VCL/Module/Semaphore.pm?rev=1793929&r1=1793928&r2=1793929&view=diff ============================================================================== --- vcl/trunk/managementnode/lib/VCL/Module/Semaphore.pm (original) +++ vcl/trunk/managementnode/lib/VCL/Module/Semaphore.pm Thu May 4 23:22:17 2017 @@ -39,7 +39,7 @@ VCL::Module::Semaphore - VCL module to c =cut -############################################################################## +############################################################################### package VCL::Module::Semaphore; # Specify the lib path using FindBin @@ -65,13 +65,13 @@ use Fcntl qw(:flock); use VCL::utils; -############################################################################## +############################################################################### =head1 OBJECT METHODS =cut -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 obtain @@ -120,7 +120,7 @@ sub obtain { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 _obtain @@ -186,7 +186,7 @@ sub _obtain { return 0; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 DESTROY @@ -211,7 +211,7 @@ sub DESTROY { notify($ERRORS{'DEBUG'}, 0, "destroyed Semaphore object, memory address: $address"); } ## end sub DESTROY -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// 1; __END__ Modified: vcl/trunk/managementnode/lib/VCL/Module/State.pm URL: http://svn.apache.org/viewvc/vcl/trunk/managementnode/lib/VCL/Module/State.pm?rev=1793929&r1=1793928&r2=1793929&view=diff ============================================================================== --- vcl/trunk/managementnode/lib/VCL/Module/State.pm (original) +++ vcl/trunk/managementnode/lib/VCL/Module/State.pm Thu May 4 23:22:17 2017 @@ -33,7 +33,7 @@ VCL::Core::State - VCL state base module =cut -############################################################################## +############################################################################### package VCL::Module::State; # Specify the lib path using FindBin @@ -58,13 +58,13 @@ use POSIX qw(floor); use VCL::utils; use VCL::DataStructure; -############################################################################## +############################################################################### =head1 OBJECT METHODS =cut -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 initialize @@ -236,7 +236,7 @@ sub initialize { return 1; } ## end sub initialize -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 user_connected @@ -315,7 +315,7 @@ sub user_connected { return 0; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 request_state_changed @@ -357,7 +357,7 @@ sub request_state_changed { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 reservation_failed @@ -511,7 +511,7 @@ sub reservation_failed { $self->state_exit($new_request_state_name, $new_computer_state_name, $request_log_ending); } ## end sub reservation_failed -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 does_loadstate_exist_all_reservations @@ -588,7 +588,7 @@ sub does_loadstate_exist_all_reservation } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 does_loadstate_exist_any_reservation @@ -658,7 +658,7 @@ sub does_loadstate_exist_any_reservation return (wantarray) ? @exists : scalar(@exists); } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 wait_for_all_reservations_to_begin @@ -736,7 +736,7 @@ sub wait_for_all_reservations_to_begin { return $result; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 wait_for_reservation_loadstate @@ -791,7 +791,7 @@ sub wait_for_reservation_loadstate { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 wait_for_child_reservations_to_exit @@ -860,7 +860,7 @@ sub wait_for_child_reservations_to_exit ); } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 state_exit @@ -1051,7 +1051,7 @@ sub state_exit { exit; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 DESTROY @@ -1126,7 +1126,7 @@ sub DESTROY { } } ## end sub DESTROY -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// 1; __END__ Modified: vcl/trunk/managementnode/lib/VCL/blockrequest.pm URL: http://svn.apache.org/viewvc/vcl/trunk/managementnode/lib/VCL/blockrequest.pm?rev=1793929&r1=1793928&r2=1793929&view=diff ============================================================================== --- vcl/trunk/managementnode/lib/VCL/blockrequest.pm (original) +++ vcl/trunk/managementnode/lib/VCL/blockrequest.pm Thu May 4 23:22:17 2017 @@ -32,7 +32,7 @@ VCL::blockrequest =cut -############################################################################## +############################################################################### package VCL::blockrequest; # Specify the lib path using FindBin @@ -56,13 +56,13 @@ use English '-no_match_vars'; use VCL::utils; use DBI; -############################################################################## +############################################################################### =head1 OBJECT METHODS =cut -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 initialize @@ -342,7 +342,7 @@ EOF } ## end sub process -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 process_block_time @@ -392,7 +392,7 @@ sub process_block_time { return \%info; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 update_block_times_processing @@ -437,7 +437,7 @@ sub update_block_times_processing { } } ## end sub update_block_times_processing -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 delete_block_request @@ -475,7 +475,7 @@ sub delete_block_request { } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 udpate_block_request_status @@ -517,7 +517,7 @@ sub udpate_block_request_status { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 clear_block_times @@ -557,7 +557,7 @@ sub clear_block_times { } } ## end sub clear_block_times -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 clear_block_computers @@ -625,7 +625,7 @@ sub pauseprocessing { return 1; } ## end sub pauseprocessing -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// 1; __END__ Modified: vcl/trunk/managementnode/lib/VCL/healthcheck.pm URL: http://svn.apache.org/viewvc/vcl/trunk/managementnode/lib/VCL/healthcheck.pm?rev=1793929&r1=1793928&r2=1793929&view=diff ============================================================================== --- vcl/trunk/managementnode/lib/VCL/healthcheck.pm (original) +++ vcl/trunk/managementnode/lib/VCL/healthcheck.pm Thu May 4 23:22:17 2017 @@ -32,7 +32,7 @@ VCL::healthcheck =cut -############################################################################## +############################################################################### package VCL::healthcheck; # Specify the lib path using FindBin @@ -58,20 +58,20 @@ use VCL::DataStructure; #use VCL::Module::Provisioning::xCAT2; use DBI; -############################################################################## +############################################################################### =head1 OBJECT METHODS =cut -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// #----------GLOBALS-------------- our $LOG = "/var/log/healthcheckvcl.log"; our $MYDBH; set_logfile_path($LOG); -#//////////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 new @@ -89,7 +89,7 @@ sub new { return $obj_ref; } -#//////////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 _initialize @@ -128,7 +128,7 @@ sub _initialize { } ### end sub _initialize -#//////////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 process @@ -423,7 +423,7 @@ sub process { return 1; } ## end sub process -#//////////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 blade_investigator @@ -465,7 +465,7 @@ sub _blade_investigator { } ## end sub _blade_investigator -#//////////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 powerdown_event @@ -518,7 +518,7 @@ sub powerdown_event { } } -#//////////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 virtualmachine_investigator @@ -562,7 +562,7 @@ sub _virtualmachine_investigator { return $retval; } ## end sub _virtualmachine_investigator -#//////////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 _image_revision_check @@ -600,7 +600,7 @@ sub _image_revision_check { } ## end sub _image_revision_check -#//////////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 send_report @@ -656,7 +656,7 @@ sub send_report { mail($sysadmin_email, "VCL node monitoring report", "$hck->{globalmsg}->{body}"); } ## end sub send_report -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// 1; __END__ Modified: vcl/trunk/managementnode/lib/VCL/image.pm URL: http://svn.apache.org/viewvc/vcl/trunk/managementnode/lib/VCL/image.pm?rev=1793929&r1=1793928&r2=1793929&view=diff ============================================================================== --- vcl/trunk/managementnode/lib/VCL/image.pm (original) +++ vcl/trunk/managementnode/lib/VCL/image.pm Thu May 4 23:22:17 2017 @@ -46,7 +46,7 @@ VCL::image - Perl module for the VCL ima =cut -############################################################################## +############################################################################### package VCL::image; # Specify the lib path using FindBin @@ -69,13 +69,13 @@ use English '-no_match_vars'; use VCL::utils; -############################################################################## +############################################################################### =head1 OBJECT METHODS =cut -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 process @@ -236,7 +236,7 @@ EOF $self->reservation_successful($image_size); } ## end sub process -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 reservation_successful @@ -302,7 +302,7 @@ sub reservation_successful { exit; } ## end sub reservation_successful -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 reservation_failed @@ -383,7 +383,7 @@ sub reservation_failed { exit; } ## end sub reservation_failed -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 setup_get_menu @@ -401,7 +401,7 @@ sub setup_get_menu { }; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 setup_capture_base_image @@ -892,7 +892,7 @@ EOF exit; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// 1; __END__ Modified: vcl/trunk/managementnode/lib/VCL/inuse.pm URL: http://svn.apache.org/viewvc/vcl/trunk/managementnode/lib/VCL/inuse.pm?rev=1793929&r1=1793928&r2=1793929&view=diff ============================================================================== --- vcl/trunk/managementnode/lib/VCL/inuse.pm (original) +++ vcl/trunk/managementnode/lib/VCL/inuse.pm Thu May 4 23:22:17 2017 @@ -60,7 +60,7 @@ VCL::inuse - Perl module for the VCL inu =cut -############################################################################## +############################################################################### package VCL::inuse; # Specify the lib path using FindBin @@ -83,13 +83,13 @@ use diagnostics; use POSIX qw(ceil floor strftime); use VCL::utils; -############################################################################## +############################################################################### =head1 OBJECT METHODS =cut -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 process @@ -339,7 +339,7 @@ sub process { $self->state_exit('inuse', 'inuse'); } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 notify_user_future_endtime @@ -404,7 +404,7 @@ sub notify_user_future_endtime { return 1; } ## end sub notify_user_future_endtime -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 notify_user_endtime_imminent @@ -477,7 +477,7 @@ sub notify_user_endtime_imminent { return 1; } ## end sub notify_user_endtime_imminent -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 notify_user_timeout_inactivity @@ -516,7 +516,7 @@ sub notify_user_timeout_inactivity { return 1; } ## end sub notify_user_timeout_inactivity -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 notify_user_endtime_reached @@ -564,7 +564,7 @@ sub notify_user_endtime_reached { return 1; } ## end sub notify_user_endtime_reached -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 start_imaging_request @@ -601,7 +601,7 @@ sub start_imaging_request { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// 1; __END__ Modified: vcl/trunk/managementnode/lib/VCL/makeproduction.pm URL: http://svn.apache.org/viewvc/vcl/trunk/managementnode/lib/VCL/makeproduction.pm?rev=1793929&r1=1793928&r2=1793929&view=diff ============================================================================== --- vcl/trunk/managementnode/lib/VCL/makeproduction.pm (original) +++ vcl/trunk/managementnode/lib/VCL/makeproduction.pm Thu May 4 23:22:17 2017 @@ -46,7 +46,7 @@ VCL::makeproduction - Perl module for th =cut -############################################################################## +############################################################################### package VCL::makeproduction; # Specify the lib path using FindBin @@ -68,13 +68,13 @@ use diagnostics; use VCL::utils; -############################################################################## +############################################################################### =head1 OBJECT METHODS =cut -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 process @@ -112,7 +112,7 @@ sub process { $self->state_exit('deleted', $computer_state, $log_ending); } ## end sub process -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 notify_production_imagerevision @@ -138,7 +138,7 @@ sub notify_production_imagerevision { return 1; } ## end sub _notify_owner -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// 1; __END__ Modified: vcl/trunk/managementnode/lib/VCL/new.pm URL: http://svn.apache.org/viewvc/vcl/trunk/managementnode/lib/VCL/new.pm?rev=1793929&r1=1793928&r2=1793929&view=diff ============================================================================== --- vcl/trunk/managementnode/lib/VCL/new.pm (original) +++ vcl/trunk/managementnode/lib/VCL/new.pm Thu May 4 23:22:17 2017 @@ -46,7 +46,7 @@ VCL::new - Perl module for the VCL new s =cut -############################################################################## +############################################################################### package VCL::new; # Specify the lib path using FindBin @@ -69,13 +69,13 @@ use English '-no_match_vars'; use VCL::utils; -############################################################################## +############################################################################### =head1 OBJECT METHODS =cut -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 process @@ -441,7 +441,7 @@ sub process { exit; } ## end sub process -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 reload_image @@ -626,7 +626,7 @@ sub reload_image { return 1; } ## end sub reload_image -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 computer_not_being_used @@ -851,7 +851,7 @@ sub computer_not_being_used { return 0; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 reserve_computer @@ -903,7 +903,7 @@ sub reserve_computer { return 1; } ## end sub reserve_computer -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 wait_for_child_reservations @@ -1057,7 +1057,7 @@ sub wait_for_child_reservations { return; } ## end sub wait_for_child_reservations -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// 1; __END__ Modified: vcl/trunk/managementnode/lib/VCL/reclaim.pm URL: http://svn.apache.org/viewvc/vcl/trunk/managementnode/lib/VCL/reclaim.pm?rev=1793929&r1=1793928&r2=1793929&view=diff ============================================================================== --- vcl/trunk/managementnode/lib/VCL/reclaim.pm (original) +++ vcl/trunk/managementnode/lib/VCL/reclaim.pm Thu May 4 23:22:17 2017 @@ -46,7 +46,7 @@ VCL::reclaim - Perl module for the VCL r =cut -############################################################################## +############################################################################### package VCL::reclaim; # Specify the lib path using FindBin @@ -68,13 +68,13 @@ use diagnostics; use VCL::utils; -############################################################################## +############################################################################### =head1 OBJECT METHODS =cut -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 process @@ -229,7 +229,7 @@ sub process { } ## end sub process -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 insert_reload_and_exit @@ -298,7 +298,7 @@ sub insert_reload_and_exit { exit; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 call_os_sanitize @@ -344,7 +344,7 @@ sub call_os_sanitize { return 1; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// 1; __END__ Modified: vcl/trunk/managementnode/lib/VCL/reserved.pm URL: http://svn.apache.org/viewvc/vcl/trunk/managementnode/lib/VCL/reserved.pm?rev=1793929&r1=1793928&r2=1793929&view=diff ============================================================================== --- vcl/trunk/managementnode/lib/VCL/reserved.pm (original) +++ vcl/trunk/managementnode/lib/VCL/reserved.pm Thu May 4 23:22:17 2017 @@ -50,7 +50,7 @@ VCL::reserved - Perl module for the VCL =cut -############################################################################## +############################################################################### package VCL::reserved; # Specify the lib path using FindBin @@ -73,13 +73,13 @@ use diagnostics; use VCL::utils; use POSIX qw(strftime); -############################################################################## +############################################################################### =head1 OBJECT METHODS =cut -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 process @@ -299,7 +299,7 @@ sub process { $self->state_exit('inuse', 'inuse'); } ## end sub process -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 wait_for_child_reservations @@ -361,7 +361,7 @@ sub wait_for_child_reservations { return 1; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 user_acknowledged @@ -400,7 +400,7 @@ sub user_acknowledged { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 notify_user_ready @@ -448,7 +448,7 @@ sub notify_user_ready { return 1; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 notify_user_timeout_no_initial_connection @@ -486,7 +486,7 @@ sub notify_user_timeout_no_initial_conne return 1; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 notify_user_timeout_no_acknowledgement @@ -524,7 +524,7 @@ sub notify_user_timeout_no_acknowledgeme return 1; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// 1; __END__
