Modified: vcl/trunk/managementnode/lib/VCL/utils.pm URL: http://svn.apache.org/viewvc/vcl/trunk/managementnode/lib/VCL/utils.pm?rev=1793929&r1=1793928&r2=1793929&view=diff ============================================================================== --- vcl/trunk/managementnode/lib/VCL/utils.pm (original) +++ vcl/trunk/managementnode/lib/VCL/utils.pm Thu May 4 23:22:17 2017 @@ -32,7 +32,7 @@ VCL::utils =cut -############################################################################## +############################################################################### package VCL::utils; # Specify the lib path using FindBin @@ -532,7 +532,7 @@ INIT { } } ## end INIT -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 help @@ -563,7 +563,7 @@ END exit 1; } ## end sub help -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 preplogfile @@ -602,7 +602,7 @@ EOF } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 notify @@ -820,7 +820,7 @@ END } } ## end sub notify -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 makedatestring @@ -838,7 +838,7 @@ sub makedatestring { return $datestring; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 convert_to_datetime @@ -864,7 +864,7 @@ sub convert_to_datetime { } ## end sub convert_to_datetime -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 convert_to_epoch_seconds @@ -895,7 +895,7 @@ sub convert_to_epoch_seconds { } ## end sub convert_to_epoch_seconds -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 check_endtimenotice_interval @@ -966,7 +966,7 @@ sub check_endtimenotice_interval { return 0; } ## end sub check_endtimenotice_interval -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 check_blockrequest_time @@ -1045,7 +1045,7 @@ sub check_blockrequest_time { } ## end sub check_blockrequest_time -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 check_time @@ -1238,7 +1238,7 @@ sub check_time { } ## end sub check_time -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 mail @@ -1313,7 +1313,7 @@ sub mail { } ## end else [ if ($shared_mail_box) } ## end sub mail -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 update_preload_fla @@ -1352,7 +1352,7 @@ sub update_preload_flag { } } ## end sub update_preload_flag -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 update_request_state @@ -1451,7 +1451,7 @@ EOF } } ## end sub update_request_state -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 update_computer_state @@ -1493,7 +1493,7 @@ sub update_computer_state { } } ## end sub update_computer_state -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 update_computer_lastcheck @@ -1537,7 +1537,7 @@ sub update_computer_lastcheck { } } ## end -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 update_computer_procnumber @@ -1575,7 +1575,7 @@ EOF } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 update_computer_procspeed @@ -1615,7 +1615,7 @@ EOF } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 update_computer_ram @@ -1655,7 +1655,7 @@ EOF } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 update_reservation_password @@ -1691,7 +1691,7 @@ sub update_reservation_password { } } ## end sub update_reservation_password -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 is_request_deleted @@ -1724,7 +1724,7 @@ sub is_request_deleted { } } ## end sub is_request_deleted -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 is_request_imaging @@ -1791,7 +1791,7 @@ sub is_request_imaging { } } ## end sub is_request_imaging -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_reservation_accounts @@ -1842,7 +1842,7 @@ EOF return $reservation_accounts; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_current_reservation_lastcheck @@ -1899,7 +1899,7 @@ EOF } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 add_reservation_account @@ -1953,7 +1953,7 @@ EOF return 1; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 delete_reservation_account @@ -1990,7 +1990,7 @@ EOF return 1; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_next_image_default @@ -2099,7 +2099,7 @@ sub get_next_image_default { } ## end sub get_next_image -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 setnextimage @@ -2127,7 +2127,7 @@ sub setnextimage { } } ## end sub setnextimage -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 check_ssh @@ -2164,7 +2164,7 @@ sub check_ssh { return 0; } ## end sub check_ssh -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 nmap_port @@ -2212,7 +2212,7 @@ sub nmap_port { } } ## end sub nmap_port -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 _pingnode @@ -2257,7 +2257,7 @@ sub _pingnode { } } ## end sub _pingnode -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 getnewdbh @@ -2374,7 +2374,7 @@ sub getnewdbh { return 0; } ## end sub getnewdbh -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 notify_via_oascript @@ -2410,7 +2410,7 @@ sub notify_via_oascript { } ## end sub notify_via_oascript -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 getpw @@ -2452,7 +2452,7 @@ sub getpw { } ## end sub getpw -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 known_hosts @@ -2530,7 +2530,7 @@ sub known_hosts { } } ## end sub known_hosts -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 getusergroupmembers @@ -2590,7 +2590,7 @@ sub getusergroupmembers { -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_user_group_member_info @@ -2639,7 +2639,7 @@ EOF return $user_group_member_info; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 notifyviaIM @@ -2732,7 +2732,7 @@ sub notify_via_im { return 1; } ## end sub notify_via_im -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 insertloadlog @@ -2793,7 +2793,7 @@ EOF } } ## end sub insertloadlog -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 database_select @@ -2861,7 +2861,7 @@ sub database_select { return @return_rows; } ## end sub database_select -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 database_execute @@ -2936,7 +2936,7 @@ sub database_execute { } ## end sub database_execute -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_request_info @@ -3173,7 +3173,7 @@ EOF return $request_info; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_request_log_info @@ -3300,7 +3300,7 @@ EOF return $log_info; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 set_managementnode_state @@ -3354,7 +3354,7 @@ sub set_managementnode_state { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_management_node_requests @@ -3469,7 +3469,7 @@ sub get_management_node_requests { } ## end sub get_management_node_requests -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_image_info @@ -3623,7 +3623,7 @@ EOF return $ENV{image_info}{$image_identifier}; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_imagerevision_info @@ -3703,7 +3703,7 @@ EOF return $ENV{imagerevision_info}{$imagerevision_identifier}; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_production_imagerevision_info @@ -3770,7 +3770,7 @@ EOF } ## end sub get_production_imagerevision_info -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 set_production_imagerevision @@ -3822,7 +3822,7 @@ EOF } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_imagemeta_info @@ -3882,7 +3882,7 @@ EOF return $ENV{imagemeta_info}{$imagemeta_id}; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_default_imagemeta_info @@ -3930,7 +3930,7 @@ sub get_default_imagemeta_info { } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_vmhost_info @@ -4129,7 +4129,7 @@ EOF return $ENV{vmhost_info}{$vmhost_identifier}; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 run_ssh_command @@ -4492,7 +4492,7 @@ sub run_ssh_command { } ## end sub run_ssh_command -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 run_scp_command @@ -4665,7 +4665,7 @@ sub run_scp_command { return 0; } ## end sub run_scp_command -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_management_node_info @@ -4869,7 +4869,7 @@ AND managementnode.id != $management_nod return $management_node_info; } ## end sub get_management_node_info -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 update_computer_imagename @@ -4919,7 +4919,7 @@ sub update_computer_imagename { } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 update_currentimage @@ -4987,7 +4987,7 @@ sub update_currentimage { } } ## end sub update_currentimage -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 is_inblockrequest @@ -5032,7 +5032,7 @@ sub is_inblockrequest { } } ## end sub is_inblockrequest -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 update_lastcheckin @@ -5078,7 +5078,7 @@ sub update_lastcheckin { } } ## end sub update_lastcheckin -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 update_computer_private_ip_address @@ -5156,7 +5156,7 @@ EOF } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 update_computer_public_ip_address @@ -5200,7 +5200,7 @@ EOF } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 update_computer_vmhost_id @@ -5244,7 +5244,7 @@ EOF } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_request_end @@ -5303,7 +5303,7 @@ sub get_request_end { } } ## end sub get_request_end -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_request_by_computerid @@ -5386,7 +5386,7 @@ EOF return $computer_request_info; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_request_current_state_name @@ -5443,7 +5443,7 @@ EOF } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_computer_current_state_name @@ -5489,7 +5489,7 @@ EOF return $state_name; } ## end sub get_computer_current_state_name -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 update_log_ending @@ -5541,7 +5541,7 @@ sub update_log_ending { } } ## end sub update_log_ending -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 update_reservation_lastcheck @@ -5588,7 +5588,7 @@ EOF } } ## end sub update_reservation_lastcheck -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 set_reservation_lastcheck @@ -5651,7 +5651,7 @@ EOF } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 update_log_loaded_time @@ -5695,7 +5695,7 @@ sub update_log_loaded_time { } } ## end sub update_log_loaded_time -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 update_image_name @@ -5748,7 +5748,7 @@ EOF } } ## end sub update_image_name -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 update_image_type @@ -5799,7 +5799,7 @@ EOF } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 delete_computerloadlog_reservation @@ -5881,7 +5881,7 @@ EOF } } ## end sub delete_computerloadlog_reservation -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 delete_request @@ -5948,7 +5948,7 @@ sub delete_request { } } ## end sub delete_request -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 update_blockrequest_processing @@ -5995,7 +5995,7 @@ sub update_blockrequest_processing { -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 clear_next_image_id @@ -6036,7 +6036,7 @@ sub clear_next_image_id { } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 clearfromblockrequest @@ -6076,7 +6076,7 @@ sub clearfromblockrequest { } } ## end sub clearfromblockrequest -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 update_sublog_ipaddress @@ -6119,7 +6119,7 @@ EOF } } ## end sub update_sublog_ipaddress -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 set_hash_process_id @@ -6160,7 +6160,7 @@ sub set_hash_process_id { return 1; } ## end sub set_hash_process_id -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 rename_vcld_process @@ -6276,7 +6276,7 @@ sub rename_vcld_process { notify($ERRORS{'OK'}, 0, "renamed process to \'$0\'"); } ## end sub rename_vcld_process -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 round @@ -6297,7 +6297,7 @@ sub round { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 set_logfile_path @@ -6315,7 +6315,7 @@ sub set_logfile_path { #print STDOUT "log file path changed to \'$LOGFILE\'\n"; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 switch_state @@ -6475,7 +6475,7 @@ sub switch_state { } ## end sub switch_state -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_management_node_blockrequests @@ -6621,7 +6621,7 @@ sub get_management_node_blockrequests { } ## end sub get_management_node_blockrequests -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_computers_controlled_by_mn @@ -6693,7 +6693,7 @@ sub get_computers_controlled_by_mn { } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_resource_groups @@ -6746,7 +6746,7 @@ sub get_resource_groups { } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_managable_resource_groups @@ -6797,7 +6797,7 @@ sub get_managable_resource_groups { } return \%return_hash; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_computer_grp_members @@ -6851,7 +6851,7 @@ sub get_computer_grp_members { } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_user_info @@ -7040,7 +7040,7 @@ EOF return $ENV{user_info}{$user_identifier}; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_local_user_info @@ -7082,7 +7082,7 @@ EOF return $local_user_info; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_group_name @@ -7138,7 +7138,7 @@ EOF } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_computer_info @@ -7374,7 +7374,7 @@ EOF return $ENV{computer_info}{$computer_identifier}; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_computer_nathost_info @@ -7535,7 +7535,7 @@ EOF return $ENV{nathost_info}{$computer_identifier}; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_nathost_assigned_public_ports @@ -7569,7 +7569,7 @@ sub get_nathost_assigned_public_ports { return @ports; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_natport_ranges @@ -7610,7 +7610,7 @@ sub get_natport_ranges { return @natport_ranges; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 populate_reservation_natport @@ -7747,7 +7747,7 @@ sub populate_reservation_natport { return 1; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 insert_natport @@ -7806,7 +7806,7 @@ EOF } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 insert_nathost @@ -7880,7 +7880,7 @@ EOF } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 update_reservation_natlog @@ -7950,7 +7950,7 @@ EOF } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_vcld_semaphore_info @@ -7990,7 +7990,7 @@ sub get_vcld_semaphore_info { return $vcld_semaphore_info; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 insert_vcld_semaphore @@ -8072,7 +8072,7 @@ EOF } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 delete_vcld_semaphore @@ -8131,7 +8131,7 @@ EOF } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_reservation_management_node_hostname @@ -8178,7 +8178,7 @@ EOF return $hostname; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_reservation_request_id @@ -8213,7 +8213,7 @@ sub get_reservation_request_id { return $request_id; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_reservation_request_info @@ -8239,7 +8239,7 @@ sub get_reservation_request_info { return get_request_info($request_id, $no_cache); } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_computer_ids @@ -8520,7 +8520,7 @@ EOF # } #} -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 insert_request @@ -8649,7 +8649,7 @@ sub insert_request { return ($request_id, $reservation_id); } ## end sub insert_request -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 insert_reload_request @@ -8725,7 +8725,7 @@ sub insert_reload_request { return 1; } ## end sub insert_reload_request -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 format_data @@ -8766,7 +8766,7 @@ sub format_data { return join("\n", @formatted_lines); } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 format_hash_keys @@ -8836,7 +8836,7 @@ sub format_hash_keys { return $return_string; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 format_array_reference @@ -8905,7 +8905,7 @@ sub format_array_reference { return $return_string; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_caller_trace @@ -8966,7 +8966,7 @@ sub get_caller_trace { return $caller_trace; } ## end sub get_caller_trace -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_calling_subroutine @@ -9003,7 +9003,7 @@ sub get_calling_subroutine { return ''; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_management_node_id @@ -9040,7 +9040,7 @@ sub get_management_node_id { return 0; } ## end sub get_management_node_id -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_database_names @@ -9080,7 +9080,7 @@ SCHEMATA return @{$ENV{database_names}}; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_database_table_names @@ -9116,7 +9116,7 @@ EOF return sort { lc($a) cmp lc($b) } @database_columns; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_database_table_columns @@ -9184,7 +9184,7 @@ TABLES.TABLE_NAME = COLUMNS.TABLE_NAME return $ENV{database_table_columns}; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// sub switch_vmhost_id { my ($computer_id, $host_id) = @_; @@ -9228,7 +9228,7 @@ sub switch_vmhost_id { } } ## end sub switch_vmhost_id -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_reservation_computerloadlog_entries @@ -9306,7 +9306,7 @@ EOF return @computerloadlog_info; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_reservation_computerloadlog_time @@ -9358,7 +9358,7 @@ sub get_reservation_computerloadlog_time } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_request_loadstate_names @@ -9428,7 +9428,7 @@ EOF return $computerloadlog_info; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 reservation_being_processed @@ -9542,7 +9542,7 @@ EOF } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 run_command @@ -9613,7 +9613,7 @@ sub run_command { return ($exit_status, \@output); } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 string_to_ascii @@ -9711,7 +9711,7 @@ sub string_to_ascii { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 character_to_ascii_value @@ -9781,7 +9781,7 @@ sub character_to_ascii_value { return $values->{$numeral_system}; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 add_imageid_to_newimages @@ -9844,7 +9844,7 @@ sub add_imageid_to_newimages { return 0; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 xmlrpc_call @@ -9937,7 +9937,7 @@ sub xmlrpc_call { } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 is_management_node_process_running @@ -10043,7 +10043,7 @@ sub is_management_node_process_running { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_reservation_vcld_process_name_regex @@ -10065,7 +10065,7 @@ sub get_reservation_vcld_process_name_re return "$PROCESSNAME .\\|[0-9]+\\|[0-9]+\\|$reservation_id\\|"; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 read_file_to_array @@ -10095,7 +10095,7 @@ sub read_file_to_array { return @file_contents; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 is_valid_ip_address @@ -10139,7 +10139,7 @@ sub is_valid_ip_address { return 1; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 is_valid_dns_host_name @@ -10191,7 +10191,7 @@ sub is_valid_dns_host_name { return 1; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 is_public_ip_address @@ -10286,7 +10286,7 @@ sub is_public_ip_address { return 1; } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_block_request_image_info @@ -10295,7 +10295,7 @@ sub is_public_ip_address { Description : Checks the blockcomputers table matching computer id =cut -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// sub get_block_request_image_info { my ($computerid) = @_; @@ -10347,7 +10347,7 @@ sub get_block_request_image_info { return; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_module_info @@ -10416,7 +10416,7 @@ sub get_module_info { return \%module_info_hash; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_current_package_name @@ -10432,7 +10432,7 @@ sub get_current_package_name { return $package_name; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_current_file_name @@ -10452,7 +10452,7 @@ sub get_current_file_name { return $file_name; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_current_subroutine_name @@ -10472,7 +10472,7 @@ sub get_current_subroutine_name { return $subroutine_name; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_affiliation_info @@ -10575,7 +10575,7 @@ EOF } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 format_number @@ -10598,7 +10598,7 @@ sub format_number { return scalar reverse $number; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_file_size_info_string @@ -10626,7 +10626,7 @@ sub get_file_size_info_string { return $size_info; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_copy_speed_info_string @@ -10704,7 +10704,7 @@ sub get_copy_speed_info_string { return $info_string; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 create_management_node_directory @@ -10748,7 +10748,7 @@ sub create_management_node_directory { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 normalize_file_path @@ -10780,7 +10780,7 @@ sub normalize_file_path { return $path; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 escape_file_path @@ -10811,7 +10811,7 @@ sub escape_file_path { return $path; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 parent_directory_path @@ -10838,7 +10838,7 @@ sub parent_directory_path { return $path; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 setup_get_menu_choice @@ -10901,7 +10901,7 @@ sub setup_get_menu_choice { return @$choices[$choice_index]; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 setup_get_hash_choice @@ -10958,7 +10958,7 @@ sub setup_get_hash_choice { return $choices{$choice_name}; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 setup_get_hash_multiple_choice @@ -11218,7 +11218,7 @@ sub setup_get_hash_multiple_choice { return @selected_keys; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 setup_get_array_choice @@ -11273,7 +11273,7 @@ sub setup_get_array_choice { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 setup_get_choice @@ -11312,7 +11312,7 @@ sub setup_get_choice { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 setup_get_input_string @@ -11351,7 +11351,7 @@ sub setup_get_input_string { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 setup_get_input_file_path @@ -11449,7 +11449,7 @@ sub _term_readline_complete_file_path { return @return_files; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 setup_confirm @@ -11501,7 +11501,7 @@ sub setup_confirm { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 setup_print_break @@ -11520,7 +11520,7 @@ sub setup_print_break { return 1; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 setup_print_wrap @@ -11559,7 +11559,7 @@ sub setup_print_wrap { return 1; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 setup_print_ok @@ -11581,7 +11581,7 @@ sub setup_print_ok { return 1; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 setup_print_error @@ -11605,7 +11605,7 @@ sub setup_print_error { return 1; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 setup_print_warning @@ -11627,7 +11627,7 @@ sub setup_print_warning { return 1; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_os_info @@ -11679,7 +11679,7 @@ EOF return \%info; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 kill_child_processes @@ -11740,7 +11740,7 @@ sub kill_child_processes { return 1; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_reservation_connect_method_info @@ -11917,7 +11917,7 @@ EOF return $ENV{connect_method_info}{$reservation_id}; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_random_mac_address @@ -11963,7 +11963,7 @@ sub get_random_mac_address { return $mac_address; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 xml_string_to_hash @@ -12018,7 +12018,7 @@ sub xml_string_to_hash { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 hash_to_xml_string @@ -12064,7 +12064,7 @@ sub hash_to_xml_string { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 sort_by_file_name @@ -12125,7 +12125,7 @@ sub sort_by_file_name { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_current_image_contents_no_data_structure @@ -12161,7 +12161,7 @@ sub get_current_image_contents_no_data_s return @{$cat_output}; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 is_ip_assigned_query @@ -12211,7 +12211,7 @@ EOF } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 stopwatch @@ -12273,7 +12273,7 @@ sub stopwatch { push @{$ENV{stopwatch}}, $info; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_management_node_computer_ids @@ -12344,7 +12344,7 @@ EOF return @computer_ids; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_management_node_vmhost_ids @@ -12431,7 +12431,7 @@ EOF return @{$ENV{management_node_vmhost_ids}{$management_node_identifier}}; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_management_node_vmhost_info @@ -12459,7 +12459,7 @@ sub get_management_node_vmhost_info { return $ENV{management_node_vmhost_info}{$management_node_identifier}; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_vmhost_assigned_vm_info @@ -12504,7 +12504,7 @@ EOF return $assigned_computer_info; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_vmhost_assigned_vm_provisioning_info @@ -12597,7 +12597,7 @@ sub get_vmhost_assigned_vm_provisioning_ return $vmhost_assigned_vm_provisioning_info; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 sleep_uninterrupted @@ -12636,7 +12636,7 @@ sub sleep_uninterrupted { return 1; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_imagerevision_cleanup_info @@ -12712,7 +12712,7 @@ EOF return $ENV{imagerevision_cleanup_info}; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_imagerevision_reservation_info @@ -12825,7 +12825,7 @@ EOF return $imagerevision_reservation_info; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_imagerevision_loaded_info @@ -12914,7 +12914,7 @@ EOF return $imagerevision_loaded_info; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_imagerevision_names @@ -12937,7 +12937,7 @@ sub get_imagerevision_names { return @{$ENV{imagerevision_names}}; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_imagerevision_names_recently_reserved @@ -12981,7 +12981,7 @@ EOF return @imagerevision_names; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_array_intersection @@ -13014,7 +13014,7 @@ sub get_array_intersection { return sort @intersection; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_code_ref_package_name @@ -13037,7 +13037,7 @@ sub get_code_ref_package_name { return $st->NAME; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_code_ref_subroutine_name @@ -13060,7 +13060,7 @@ sub get_code_ref_subroutine_name { } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 is_variable_set @@ -13125,7 +13125,7 @@ EOF } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_variable @@ -13223,7 +13223,7 @@ EOF return $deserialized_value; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 yaml_deserialize @@ -13258,7 +13258,7 @@ sub yaml_deserialize { return $deserialized_value; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 set_variable @@ -13376,7 +13376,7 @@ EOF return 1; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 delete_variable @@ -13422,7 +13422,7 @@ EOF return 1; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 yaml_serialize @@ -13464,7 +13464,7 @@ sub yaml_serialize { return $serialized_data; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 remove_array_duplicates @@ -13493,7 +13493,7 @@ sub remove_array_duplicates { return @pruned } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_changelog_info @@ -13610,7 +13610,7 @@ EOF return $changelog_info; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_changelog_remote_ip_address_info @@ -13667,7 +13667,7 @@ sub get_changelog_remote_ip_address_info return $changelog_remote_ip_info; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 update_changelog_reservation_remote_ip @@ -13726,7 +13726,7 @@ EOF return 1; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 update_changelog_reservation_user_remote_ip @@ -13791,7 +13791,7 @@ EOF return 1; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 update_changelog_request_user_remote_ip @@ -13848,7 +13848,7 @@ EOF return 1; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_connectlog_info @@ -13918,7 +13918,7 @@ EOF return $connectlog_info; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_connectlog_remote_ip_address_info @@ -13976,7 +13976,7 @@ sub get_connectlog_remote_ip_address_inf return $connectlog_remote_ip_info; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 update_connectlog @@ -14061,7 +14061,7 @@ EOF return 1; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_computer_private_ip_address_info @@ -14119,7 +14119,7 @@ EOF return $private_ip_address_info; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_computer_current_private_ip_address @@ -14197,7 +14197,7 @@ EOF } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 hostname_to_ip_address @@ -14225,7 +14225,7 @@ sub hostname_to_ip_address { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 ip_address_to_hostname @@ -14252,7 +14252,7 @@ sub ip_address_to_hostname { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 update_request_checkuser @@ -14294,7 +14294,7 @@ EOF } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_provisioning_osinstalltype_info @@ -14392,7 +14392,7 @@ EOF return $info; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_provisioning_table_info @@ -14509,7 +14509,7 @@ EOF return $provisioning_table_info; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 ip_address_to_network_address @@ -14548,7 +14548,7 @@ sub ip_address_to_network_address { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 determine_remote_connection_target @@ -14632,7 +14632,7 @@ sub determine_remote_connection_target { } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 wrap_string @@ -14661,7 +14661,7 @@ sub wrap_string { return $wrapped_string; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 prune_hash_reference @@ -14722,7 +14722,7 @@ sub prune_hash_reference { return $result; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 prune_array_reference @@ -14777,7 +14777,7 @@ sub prune_array_reference { return $result; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 prune_hash_child_references @@ -14814,7 +14814,7 @@ sub prune_hash_child_references { return $result; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 update_reservation_addomain @@ -14863,7 +14863,7 @@ EOF } } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_image_active_directory_domain_info @@ -14951,7 +14951,7 @@ EOF return $info; } ## end sub get_image_active_directory_domain_info -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_active_directory_domain_credentials @@ -15006,7 +15006,7 @@ EOF return @{$ENV{active_directory_domain_credentials}{$domain_dns_name}}; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// =head2 get_collapsed_hash_reference @@ -15079,7 +15079,7 @@ sub get_collapsed_hash_reference { return \%collapsed_hash; } -#///////////////////////////////////////////////////////////////////////////// +#////////////////////////////////////////////////////////////////////////////// 1;
