diff options
Diffstat (limited to 'testautomation/global/tools/includes/optional/t_server_info.inc')
-rw-r--r-- | testautomation/global/tools/includes/optional/t_server_info.inc | 148 |
1 files changed, 0 insertions, 148 deletions
diff --git a/testautomation/global/tools/includes/optional/t_server_info.inc b/testautomation/global/tools/includes/optional/t_server_info.inc deleted file mode 100644 index 75ff6ab8a8b4..000000000000 --- a/testautomation/global/tools/includes/optional/t_server_info.inc +++ /dev/null @@ -1,148 +0,0 @@ -'encoding UTF-8 Do not remove or change this line! -'************************************************************************** -' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -' -' Copyright 2000, 2010 Oracle and/or its affiliates. -' -' OpenOffice.org - a multi-platform office productivity suite -' -' This file is part of OpenOffice.org. -' -' OpenOffice.org is free software: you can redistribute it and/or modify -' it under the terms of the GNU Lesser General Public License version 3 -' only, as published by the Free Software Foundation. -' -' OpenOffice.org is distributed in the hope that it will be useful, -' but WITHOUT ANY WARRANTY; without even the implied warranty of -' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -' GNU Lesser General Public License version 3 for more details -' (a copy is included in the LICENSE file that accompanied this code). -' -' You should have received a copy of the GNU Lesser General Public License -' version 3 along with OpenOffice.org. If not, see -' <http://www.openoffice.org/license.html> -' for a copy of the LGPLv3 License. -' -'/****************************************************************************** -'* -'* owner : joerg.skottke@sun.com -'* -'* short description : Tools to retrieve information about available servers -'* -'******************************************************************************* -'** -' #1 hGetServerInfo ' Retrieve names and services of some servers -' #0 hPrintServerInstructions ' print instructions to the log -'** -'\****************************************************************************** - -function hGetServerInfo( sType as string, sItem as string ) as string - - - '///<h3>Retrieve names and services of some servers</h3> - '///<i>This function retrieves some information about available - '///+ servers within the LAN. These services can be anything like - '///+ http-server, ftp etc.<br> - '///+ Please make sure you read the comments in the configuration - '///+ file to fully understand what this thing does.</i><br><br> - - '///<u>Input values:</u><br> - '///<ol> - - '///+<li>Type (string). Valid options:</li> - '///<ul> - '///+<li>"http_internal"</li> - '///+<li>"http_external"</li> - '///+<li>"ftp_internal"</li> - '///+<li>"ftp_external"</li> - '///</ul> - - '///+<li>Item (string). Valid options:</li> - '///<ul> - '///+<li>"Name" to get a name for the server</li> - '///+<li>"Port" to get the server's port</li> - '///+<li>"Protocol" to get the supported protocol</li> - '///+<li>"URL" to get the url (e.g. www.heise.de)</li> - '///+<li>"UseProxy" to find out whether proxies are needed or not</li> - '///+<li>"User" to get a loginname</li> - '///+<li>"Pass" to get a password</li> - '///</ul> - - '///</ol> - - - '///<u>Return Value:</u><br> - '///<ol> - '///+<li>Name, port or other info of an item (string)</li> - '///<ul> - '///+<li>Empty String on error</li> - '///+<li>Unique name for a server (can be NIS name)</li> - '///+<li>Port (optional, e.g. 80 for http, 21 for ftp ...)</li> - '///+<li>Protocol (e.g. "http://" or "ftp://"</li> - '///+<li>URL like www.mydomain.de</li> - '///+<li>UseProxy ("yes"/"no")</li> - '///+<li>User (some username)</li> - '///+<li>Password (some password, plain text!) - '///</ul> - '///</ol> - - const CFN = "hGetServerInfo::" - - dim irc as integer ' some integer returnvalue - dim crc as string ' some string returnvalue - - ' This is the workfile. Make sure it exists and contains valid data - dim cFile as string - cFile = gTesttoolPath & "sun_global\input\servers.txt" - ' cFile = gTesttoolPath & "global\input\servers.txt" - cFile = convertpath ( cFile ) - - ' this is a temporary list that holds the workfile - dim acList( 50 ) as string - - '///<u>Description:</u> - '///<ul> - '///+<li>Open the file, read the section, abort on error</li> - irc = hGetDataFileSection( cFile, acList(), sType , "" , "" ) - if ( irc = 0 ) then - qaerrorlog( CFN & "File or section not found" ) - hGetServerInfo() = "" - hPrintServerInstructions() - exit function - endif - - '///+<li>Isolate the key</li> - crc = hGetValueForKeyAsString( acList(), sItem ) - if ( instr( crc , "Error:" ) > 0 ) then - qaerrorlog( CFN & "The requested item could not be found" ) - hGetServerInfo() = "" - hPrintServerInstructions() - exit function - endif - - '///+<li>Return the requested item</li> - - '///</ul> - - hGetServerInfo() = crc - -end function - -'******************************************************************************* - -function hPrintServerInstructions() - - printlog( "" ) - printlog( "How to configure server settings for your local network" ) - printlog( "" ) - printlog( "1. Edit the sample configuration file" ) - printlog( " Location: global/input/servers.txt" ) - printlog( " Replace servernames, ports etc. with valid entries" ) - printlog( "" ) - printlog( "2. Edit the function hGetServerInfo" ) - printlog( " Make the first line with cFile = ... a comment" - printlog( " Make the second line with cFile = ... active" - printlog( " Save the file" ) - printlog( "" ) - -end function |