home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1999 January
/
pcwk_01_1999_B.iso
/
Lotus123
/
ITALIAN
/
INSTALL.DSK
/
SHARE.LSS
< prev
next >
Wrap
Text File
|
1996-03-04
|
35KB
|
818 lines
''/*********************************************************************
''
'' Module Name: share.lss
''
'' Module Code: TOOLKIT
''
'' Author: MZ
''
'' Creation Date: Aug 31, 1993
''
'' Copyright Lotus Development Corporation, (c) 1991
''
''
''
'' Description:
'' Lotus script file for common install
''
''
'' Additional authors:
''
'' Change History:
'' $Log: //CIT/VOL1/CFLOG/logfiles/cominst/toolkit/share__@.lss $
''
'' Rev 1.107 04 Mar 1996 08:32:20 jdonohue
'' Remove 16 bit shared component support -- pass 1 : eliminate LOTUSAPP
''
'' Rev 1.106 22 Dec 1995 10:13:28 jdonohue
'' Removed all references to SYM_PARENTDIR$ -- is now SYM_BASEDIR$ for all
''
'' Rev 1.105 08 Nov 1995 17:07:44 tveerapp
'' checked in mariana's fix
''
'' Rev 1.104 08 Nov 1995 16:57:58 tveerapp
'' Fixes fot SPR#RMOO2xQQDY
''
'' Rev 1.103 31 Oct 1995 16:13:04 tveerapp
'' Fixed spr#JHOH2XJLEU. In InitShare, for suite Long dir check was done with th
'' parentdir symbol instead of basedir symbol.
''
'' Rev 1.102 Oct 24 1995 16:56:02 cmoy
'' removed eof char
''
'' Rev 1.101 11 Oct 1995 17:15:32 jdonohue
'' Dialog editor folder under "Lotus Accessories"
''
'' Rev 1.100 10 Oct 1995 15:45:22 jdonohue
'' Fixed error in automation logic for LOTUSAPP symbol (SPR KHAN2WRPHC)
''
'' Rev 1.99 22 Sep 1995 17:03:14 glutz
'' Lot_WriteIniFiles does not create an ini ley for lotusapp unless the
'' directory exists.
''
'' Rev 1.98 22 Sep 1995 15:31:28 tveerapp
'' Added checks for UNC path/LongDir names for lotusapp. Part of the fix for
'' spr#LSCR2VZVGB
''
'' Rev 1.97 19 Sep 1995 16:33:00 glutz
'' Added checks for long dir names and UNC in ConsolidateLotusAppDirCb.
''
'' Rev 1.96 09 Sep 1995 16:39:18 tveerapp
'' Fixed a problem for the suite node fix. Set the SYM_NETLOTUSAPP if
'' a cleanpath is found with the mapped rive.
''
'' Rev 1.95 08 Sep 1995 16:11:24 glutz
'' SPR KHAN2SHNAN: Put GOTO EXIT_CONSOLIDATELOTUSAPPDIR statement in continue
'' case if path validation fails in CONSOLIDATELOTUSAPPDIRCB.
''
'' Rev 1.94 06 Sep 1995 09:27:32 tveerapp
'' Fixed suite node install problem.
''
'' Rev 1.93 31 Aug 1995 14:58:04 jdonohue
'' Take out print statement for Invalid Share Keyword
''
'' Rev 1.92 31 Aug 1995 14:17:00 jdonohue
'' Fixed share keys in SHARESUBDIR list
''
'' Rev 1.91 30 Aug 1995 11:31:46 jdonohue
'' Added LOTUSDIALOGSPROGRAM to share names
''
'' Rev 1.90 07 Aug 1995 17:35:10 jdonohue
'' Replaced Lot_GetLocalLotusappDest to fix bug in directory naming
''
'' Rev 1.89 03 Aug 1995 10:11:18 mmeth
'' Fix for SPR# KHAN2UJMFN:
'' Fix is in share.lss:InitSHARE
'' the problem was that under the automation else clause we were not checking
'' calling ValidatePath(AutoLotusApp$).
'' The fix is to call the validate and in case of a bad return code
'' put up an error message and quit.
''
'' Rev 1.88 02 Aug 1995 15:00:18 jdonohue
'' Remove SID_ERR_SHARE_CONSOLID1 resource
''
'' Rev 1.87 01 Aug 1995 16:29:26 jdonohue
'' Allow lotusapp dir to be on UNC volume
''
'' Rev 1.86 20 Jul 1995 10:56:16 glutz
'' GetFreeSpaceForDrive now returns K bytes so I made changes accordingly.
''
'' Rev 1.85 20 Jul 1995 08:37:52 jdonohue
'' CONSOLIDATELOTUSAPPDIRCB
'' was not setting directory if no changes were made
''
'' Rev 1.84 17 Jul 1995 17:09:08 amontalv
'' Commented out Register code for 16 bit.
''
'' Rev 1.83 17 Jul 1995 16:49:14 amontalv
'' Added some code for Greg Lutz. Also changed the code for registering dlgedit.
''
'' Rev 1.82 17 Jul 1995 16:36:40 amontalv
'' Added registration for dlg editor
''
'' Rev 1.81 17 Jul 1995 15:35:18 amontalv
'' Added Lot_AddLinkToFolder to add Dialog Editor in correct location.
''
'' Rev 1.80 30 Jun 1995 09:13:20 glutz
'' Added browse feature to CONSOLIDATELOTUSAPPDIRCB.
''
'' Rev 1.79 28 Jun 1995 12:35:30 mzgripce
'' change Lot_BackupLotusBcfFile() to trim the backslash of the lotusappdir
'' before adding the datalens subdir
''
'' Rev 1.78 26 Jun 1995 13:36:44 mzgripce
'' DoMsgBox returns a long in Win95 so I changed the yesno and and I compare
'' with CLNG(7) for NO on confirmation
''
'' Rev 1.77 19 Jun 1995 18:47:54 mzgripce
'' check if the shared tools are supported before executing any share operation
''
'' Rev 1.76 06 Jun 1995 15:58:54 amontalv
'' We are experiencing problems with LotusScript when we fill buffers with
'' nulls and then pass them to C routines. For the time being, it is suggested
'' that we fill our buffers with spaces. To this end (and to make it
'' easier to change back later) I have created a small LotusScript routine
'' named CreateBuffer. You use it any time you ordinarily would use
'' STRING$(num, 0). CreateBuffer() just needs the num, it decides what to
'' fill the buffer with (sorry about the grammer). Right now it fill the
'' buffer with spaces. Later we will change it back to nulls. Also look
'' at the routine NullTrim(). It will get rid of final nulls and spaces.
'' You can use this when getting a buffer that has been changed or filled
'' in a external C routine.
''
'' Rev 1.75 01 Jun 1995 15:39:34 mzgripce
'' enable share32 init and config and reintroduce bcf processing
''
'' Rev 1.74 22 May 1995 19:15:10 mzgripce
'' rewrite InitShare for SYM_LOTUSAPP
''
'' Rev 1.73 21 May 1995 17:24:10 mzgripce
'' redefine the init value for lotusapp
''
'' Rev 1.72 13 May 1995 16:56:24 mzgripce
'' separate Lot_SaveShareConfig from saving the 32share config
''
'' Rev 1.71 03 May 1995 18:15:26 mzgripce
'' move some functions to share32.lss
''
'' Rev 1.70 02 May 1995 12:53:08 cmoy
'' Merged c2 into cf build
''
'' Rev 1.70 28 Apr 1995 17:17:14 mzgripce
'' Comment out the call to FixODBCiniSources() because BCFMOD.DLL was not ported
'' to 32 bit.
'' Rev 1.69F 17 Apr 1995 16:46:06 mzgripce
'' change Lot_SaveShareConfigInInstallIni to record component directory
''
'' Rev 1.69 10 Apr 1995 17:57:16 amontalv
'' Had to change the definition of some callback functions so that they would
'' work correctly going from C to Script.
'' Rev 1.68F 13 Apr 1995 10:57:16 mzgripce
'' change InitSHARE() to call InitSHARE32()
''
'' Rev 1.68 07 Apr 1995 19:36:48 amontalv
'' LSS 32 bit port merge changes.
''
'' Rev 1.66 30 Mar 1995 14:47:06 mheerman
'' Removed remed out code blocks
''
'' Rev 1.65 18 Jan 1995 15:56:30 mzgripce
''
'' Fix the NODE over NODE bug by casting LCASE when commpating the result of a MID$ call with a strin
'' g in Refresh function.
'' Change the validation of the common directory to not check for the files in the spell
'' directory because a node creates that directory for the user path, but
'' if the user does not add any words to its private spell dictionary the
'' directory is empty.
''
'' Rev 1.64 12 Dec 1994 14:50:26 tveerapp
'' Check for trailing backslash in lotusapp section in the response file.
''
'' Rev 1.63 12 Dec 1994 12:14:22 mzgripce
''
'' added automation around the callbacks and read the needed setings in
'' initSHARE()
''
'' Rev 1.62 28 Nov 1994 15:33:16 jplump
'' No change.
''
'' Rev 1.61 13 Oct 1994 13:58:50 mzgripce
''
'' in validate the common dir do not trim an empty string
''
'' Rev 1.60 04 Oct 1994 15:37:28 mzgripce
'' fix Banyan vines bug already tested by CIT QE
''
'' Rev 1.59 04 Aug 1994 17:50:56 tveerapp
'' in Lot_refresh I replaced the call to Lot_LocalGetPathFromIni()
'' with a call to GetIniKeyString()-MZ.
''
'' Rev 1.58 14 Jul 1994 19:10:06 mzgripce
''
'' add LCASE$ to stringcompare in initSHARE
''
'' Rev 1.57 14 Jul 1994 18:18:14 mzgripce
''
'' fix the algorithm for flw node in initSHARE
'' Rev 1.56 14 Jul 1994 11:24:56 mzgripce
''
'' change in initSHARE for the conditions when I prompt to use the existing
'' common directory in a network and when to create a new one
''
'' Rev 1.55 11 Jul 1994 15:32:08 mzgripce
'' before moving and deleting lotusapp.ini I check if the source is the sameth
''
'' Rev 1.54 01 Jul 1994 17:13:58 mzgripce
''
'' create a function Lot_LocalGetPathFromIni() and replac
'' FromIni with the new call
''
'' Rev 1.53 30 Jun 1994 18:20:02 ptilton
'' Added Lot_ModifyDatalensIni function that updates a users DATALENS.INI
'' changing QODBF.DLL to LODBF04.DLL. The changes are only made when the
'' LODBF04 DataLens driver is installed.
''
'' Rev 1.52 24 Jun 1994 14:53:28 thangv
''
'' Changed NetLotusApp to use the server path in Lot_WriteOLEReg
'' line 5663.
''
'' Rev 1.51 24 Jun 1994 11:39:58 thangv
''
'' Added Lot_TrimEndSlash to args toFremoveDir to remove the trailing back
'' slash. This fixes spr#31431. there were 16 calls to FremoveDir in this
'' module.
''
'' Rev 1.50 21 Jun 1994 20:48:06 mzgripce
'' in Lot_UpdateWinIni() commented out the calls to Lot_IsTheFeatureInstalled(
'' lines 2626,2644,2645 and 2651.
''
'' Rev 1.49 19 Jun 1994 09:43:34 mzgripce
'' change in Lot_GetEntryFlag() from MAILINABLINGPROGRAM to MAILENABLINGPROGRA
''
'' Rev 1.48 17 Jun 1994 12:17:02 mzgripce
''
'' replace FatalErrorMessage() call with 3 calls: ErrorMsg(); set flag gEndSta
''
'' Rev 1.47 16 Jun 1994 18:12:40 mzgripce
'' in InitShare add check for writable lotus.ini and if failes quit.
''
'' Rev 1.46 15 Jun 1994 12:19:00 thangv
'' change function: Lot_IsExistingLotusappDirValid() to check for subdirectori
'' and strip last slash from the path entry in lotus.ini for LotusDialogs and
'' MailEnabling
''
'' Rev 1.45 14 Jun 1994 14:46:16 mzgripce
'' check the path and the space on default in consolidatelotusappdircb and cre
''
'' Rev 1.44 10 Jun 1994 17:11:28 mzgripce
''
'' take out comment
''
'' Rev 1.43 10 Jun 1994 16:53:40 mzgripce
'' do not check if directory is valid if the entry does not exist in lotus.ini
''
'' Rev 1.42 09 Jun 1994 15:07:50 mzgripce
'' fixed OLE reg for multimedia
''
'' Rev 1.41 08 Jun 1994 17:24:54 mzgripce
''
'' comment out Grammar checker, Thesaurus and Hyph. processing
''
'' Rev 1.40 08 Jun 1994 10:16:24 thangv
'' added createdir in Lot_WriteEntry for case SPELLCHECKERUSER path.
''
'' Rev 1.39 06 Jun 1994 18:41:40 mzgripce
''
'' added prompt and processing for DBM_ISTHISNETLOTUSAPP
''
'' Rev 1.38 05 Jun 1994 20:43:10 ptilton
''
'' Added calls to Set OracleHomeDir and NotesDataDir Symbols. Removed
'' Functions to determine symbol values and inserted them into TOOLKIT.LSS
''
'' Rev 1.37 03 Jun 1994 19:47:08 ptilton
'' Moved Modifying of ODBC.INI to only when dBASE DataLens Driver is installed
''
'' Rev 1.36 01 Jun 1994 14:45:06 mzgripce
'' correct the the misspeling for GRAMMERCHECKERPROGRAM
''
'' Rev 1.35 27 May 1994 16:25:54 mzgripce
'' check if the common dir is EQ with netcommondir
''
'' Rev 1.34 26 May 1994 15:45:40 thangv
'' Added LCASE$ for dirToChange in CONSOLIDATELOTUSAPPDIRCB to fix bug.
''
'' Rev 1.33 25 May 1994 17:52:58 ihachem
'' fixed spr 30227; do not write screencam config and make infobox work for
'' node (check-in for mzgripce).
''
''
'' Rev 1.32 24 May 1994 14:54:24 mzgripce
''
'' change consolidatelotusappdircb and write consolidatemovecopycb
''
'' Rev 1.31 19 May 1994 23:47:40 ptilton
''
'' Added Updating of ODBCINST.INI with Codepage Translation information
'' for ODBC SQL Server Driver.
''
'' Rev 1.30 13 May 1994 18:09:18 ptilton
'' Added ODBC 2.0 Subroutine and Substitue Oracle & Notes Directories
''
'' Rev 1.29 09 May 1994 15:16:56 mzgripce
''
'' fixed for spr # 29358
''
'' Rev 1.28 05 May 1994 14:11:18 ptilton
''
'' Fixed SPR 28491 Added IsSQLSelected
''
'' Rev 1.27 02 May 1994 18:13:42 mzgripce
'' add AddSHAREIcons() function
''
'' Rev 1.26 27 Apr 1994 18:12:50 mzgripce
'' fixed spr# 27621
''
'' Rev 1.25 26 Apr 1994 10:55:34 mzgripce
'' fixed SPR # 28669
''
'' Rev 1.24 21 Apr 1994 16:47:40 mzgripce
''
'' fix for SPR 27387
''
'' Rev 1.23 14 Apr 1994 15:25:36 mzgripce
'' set gDatalensInstalled in config
''
'' Rev 1.21 13 Apr 1994 16:53:44 mmeth
'' fixed datalens strings
''
'' Rev 1.20 13 Apr 1994 14:27:04 cmoy
''
'' Unbolded text in SQLSERVERNAMECB and PARADOXNETWORKINFOCB
''
'' Rev 1.19 13 Apr 1994 14:20:30 ptilton
'' Added Support for All DataLens and ODBC available drivers.
''
'' Rev 1.16 13 Apr 1994 13:34:58 mzgripce
'' changes made by Corinne
''
'' Rev 1.18 07 Apr 1994 17:56:46 mzgripce
'' add mail enabling and take out lotus mail
''
'' Rev 1.17 06 Apr 1994 10:48:30 mzgripce
'' put processing for Lotus Dialogs, LotusScript and LotusMail
''
'' Rev 1.16 05 Apr 1994 09:30:52 mzgripce
'' fixed SPR #27685
''
'' Rev 1.15 04 Apr 1994 18:40:12 mmeth
''
'' CheckIn for MMETH by vts
''
'' Rev 1.14 04 Apr 1994 14:58:32 mzgripce
'' update OLE registration on consolidation and refresh
''
'' Rev 1.13 31 Mar 1994 16:30:34 mzgripce
'' change initSHARE
''
'' Rev 1.12 31 Mar 1994 14:20:10 mzgripce
'' merge the raptor beta changes and fix 2 bugs: suppress share move prompt
'' when not needed and change the netcommon dir drive if node maps with
'' the network with different drive then the admin.
''
'' Rev 1.11 28 Mar 1994 16:55:50 mzgripce
'' overwrite the shared icons
''
'' Rev 1.10 28 Mar 1994 14:28:36 mmeth
'' Changes with Christopher, obsoleteing dialosg
''
'' Rev 1.9 26 Mar 1994 16:33:22 pjt
'' Datalens Install changes for ODBC driver
''
'' Rev 1.8 25 Mar 1994 14:53:06 mzgripce
'' change initShare to account for suit; change consolidate call back; write
'' function Lot_IsExistingLotusappDirValid(); change the lotusapp destination
''
'' Rev 1.7 24 Mar 1994 17:54:30 mmeth
'' Pete's datalens
''
'' Rev 1.6 22 Mar 1994 18:23:26 mzgripce
'' added notesSQL
''
'' Rev 1.5 22 Mar 1994 17:53:54 mzgripce
'' added help section and Help Program /Help Data path
''
'' Rev 1.4 21 Mar 1994 18:42:24 mzgripce
'' put the dialogeditor icon
''
'' Rev 1.3 15 Mar 1994 13:56:36 jbrodeur
'' Added French Canadian Dictionary
''
'' Rev 1.2 10 Mar 1994 21:02:44 amello
'' Added Shared Icon Palette
''
'' Rev 1.1 10 Mar 1994 17:31:30 mzgripce
'' add comments in Lot_AreShareToolsSupported() and remove seting of win and
'' winsys symbols from InitSHARE() (I move it in toolkit.lss and call it in
'' main.lss
''
'' Rev 1.0 11 Feb 1994 10:56:46 jbrodeur
'' Initial Revision
''----------------------------------------------------------------------
'' Date Vers. Pgmr SPR# Change
''----------------------------------------------------------------------
'' 02-07-94 0100 MZ Update win.ini only if the feature was installed
'' change Lot_WriteOLERegForShare()
''!
'' 02-07-94 0099 MZ Add replace isTheChapterInstalled call with
'' isTheFeature... in Lot_AddSectionToNodeList()
'' 02-07-94 0098 MZ move Lot_SaveFeaturesInstaledInInstallIni()
'' and Lot_GetLastFeatureNumber() to toolkit.lss
'' 02-03-94 0097 MMETH In Lot_SaveFeaturesInstaledInInstallIni()
'' save for gSTANDARD as well and call
'' Lot_SaveFeaturesInstaledInInstallIni() for std also
'' also moved Lot_IstheFeatureInstall to toolkit.lss
'' 02-01-94 0096 JMB Added return for Functions that return values
'' 01-28-94 0095 MZ set SYM_LOTUSAPPEXISTS$
'' 01-27-94 0094 MZ/DND Change all the paths in here
'' 01-26-94 0093 MZ Add the function Lot_DoMoveSHARE
'' Set "" in Lot_GetLocalHardDrive for the root
'' 01-25-94 0092 MZ Add the functions:
'' Lot_GetTheShareToolsSizeToMove
'' Lot_MakeAPathFromLotusappIni
'' Lot_GetInLotusappIniSizeOfFilesToMove
'' Lot_GetInLotusIniSizeOfFilesToMove
'' Lot_GetSharedIniPath
'' Lot_ChkLotusIniSizePath
'' 01-25-94 0091 MMETH add "\" wherever we are using gLOTUSAPP$
'' 01-25-94 0090 MMETH changed almost all CreateIniKeyValue:
'' Took off LCASE$ and where needed added
'' Lot_TrimEndSlash. Also removed double \\
'' between dir & filename in CreateIniKeyValues
'' 01-24-94 0089 MZ Change CONSOLIDATELOTUSAPPDIRCB
'' 01-24-94 0089 TQI Capture all function returns (lsi36)
'' 01-24-94 0088 MMETH Move GetTheReal Prod to Toolkit.lss &
'' changed the refernce to in to Lot_GetInstallDIr
'' 01-21-94 0087 MZ Set SYM_LOTUSAPPDIR+gNAME needed for UI
'' 01-20-94 0086 MZ Add processing in InitSHARE(),PreConfigSHARE()
'' ConfigSHARE(),Lot_RefreshLocalLotusapp() to
'' execute only if any registered product supports
'' share and add func. Lot_AreShareToolsSupported()
'' 01-19-94 0085 MZ Make it work again
'' 01-19-94 0084 TQI option declare
'' 01-18-94 0083 DND No longer call FCleanFatPath
'' 01-18-94 0082 JMB Added StatusBar to Lot_GetAllSharedInstalled()
'' 01-12-94 0081 TQI option declare DIMs (not done)
'' 01-10-94 0080 MZ Make all symbols Constants and put them
'' in GLOBALS.LSS
'' 01-07-94 0079 DND/MZ Use TOOLKIT
'' 12-27-93 0078 MZ Change Lot_RefreshLocalLotusapp; put the call
'' to DoesDirExist by itself in an IF
'' 12-22-93 0077 MZ Cleanup the commented code
'' 12-20-93 0076 TQI Changes for lsi34
'' 12-17-93 0075 MZ 25868 Backup lotus.bcf in node install; in standard
'' install the call into datalens DLL creates a backup
'' if there is a lotus.bcf in the destination.
'' 12-16-93 0074 MZ 25770 replace DoesDirExist with DoesFileExist
'' call in the switch for lotusapp.ini processing
'' 12-16-93 0073 MZ add to the copy list the files needed
'' for the datalens drivers
'' 12-13-93 0072 MZ put an extera IF/ELSE when commondir is ""
'' 12-10-93 0071 MZ 25819 check if the lotusapp.ini exist
'' 12-09-93 0070 MZ 25771 change Lot_IsConsolidationNeeded
'' 25660 add Lot_GetSizeOfFilesInLotusappIni and
'' 25768 Lot_DoConsolidateFilesInLotusappIni
'' 12-08-93 0069 MZ 25721 update win.ini after consolidation
'' 12-07-93 0068 MZ 25580 delete the old common dir after consolidation
'' and replace the removedir function
'' 12-03-93 0067 MZ add a box with SID_SHARE_INFO_TEXT
'' 12-03-93 0066 MZ Add SID_ERR_SHARE_CONSOLID0
'' 12-03-93 0065 MZ 25660 Correct the process for paths with filenames
'' 12-02-93 0064 MZ Take out \ from makepath call
'' 12-02-93 0064 DND 25449 Make sure all strings are resourced
'' 12-01-93 0036 MZ change combo3 to combo1 in consotidate box
'' 12-01-93 0035 DND/MZ 25446 Handle errors consistently and some cleanup
'' 12-01-93 0034 MZ 25652 verify if I am in the dir before remove it
'' 11-29-93 0033 MZ Write the lotus.ini for node
'' 11-24-93 0033 MMETH Moved GetTheReal123Dir to share.lss from 123.lss
'' and renamed it to GetTheRealProdDir
'' 11-24-93 0032 MZ Make Lot_IsTheFeatureInstalled() public
'' 11-22-93 0031 MZ Add Lot_IsTheFeatureInstalled(s$)
'' Lot_GetLastFeatureNumber() and
'' Lot_SaveFeaturesInstaledInInstallIni()
'' to record F_KEYWORD
'' 11-22-93 0030 MZ fixed spr 25310
'' 11-22-93 0029 MZ Change Graphic to graphics
'' 11-19-93 0028 MZ fixed 25568, 25580, 25594 and 25595
'' 11-17-93 0026 JKK FIXED SPR 25544 & 25545.
'' 11-17-93 0025 MZ fix 25434
'' 11-15-93 0024 MZ Change Lot_GetNetLotusappSource to use NETLOTUSAPP
'' symbol value and replace Dir$() call with Lot_Dir()
'' to fix 25531
'' 11-15-93 0024 JKK Called GetAbsPathFrom ini instead of GetIniKeyString.
'' 11-14-93 0023 MZ fix for spr# 25433
'' 11-12-93 0022 MZ fix spr 25268
'' 11-10-93 0021 MZ -disable the writing of lotusapp.ini because it is
'' not in lotus.ini database spr#25414
'' -reset the LOTUSAPP symbol if I found a valid one
'' change the init for consolidation dialog box spr# 25443
''
'' 11-10-93 0020 MZ put sid_err messages
'' 11-10-93 0019 MZ comment out OLE reg for multimedia and populate
'' NETLOTUSAPP symbol
'' 11-09-93 0018 MZ correction to the screen cam name
'' 11-08-93 0017 MZ add OLE reg for ScreenCamMovie and its entry in lotus.ini
'' 10-27-93 0016 MZ Correction in Lot_SaveShareConfigInInstallIni()
'' For server set lotus .bcf dest to 123DIR
'' add Lot_RefreshLocalLotusapp(),Lot_AddSectionToNodeList(),
'' Lot_IsTheChapterInstalled(),Lot_GetNetLotusappSource()
'' Lot_GetLocalLotusappDest()
'' 10-26-93 0015 MZ Initialize LOTUSAPP to \LOTUS\LOTUSAPP for
'' server install
'' 10-25-93 0014 MZ Fix Previous in consolidate prompt
'' 10-21-93 0013 MZ Add Confirm directory box in Consolidate prompt
'' 10-21-93 0012 MZ Add processing for DBM_CONSOLIDATE_LOTUSAPP
'' 19-20-93 0011 MZ Add a switch depending on the copyMode flag
'' and dBase,Informix and EEDM funcs
'' 10-19-93 0010 MZ Add the processing for SQL and PARADOX server
'' and set symbols:SQLSERVERNAME,PARADOXNETWORKINFO
'' 10-01-93 0002 MZ Add Lot_SaveShareConfigInInstallIni()
'' 9-29-93 0005 JKK/TV/DND Removed unneeded dialog code
'' 9-22-93 0004 MZ Add OLE registration
'' 9-10-93 0003 MZ Finish the consolidation
'' 9-09-93 0002 MZ Move the consolidation in preconfig
'' from init and debug
'' 9-08-93 0001 MZ Put the consolidation code in
'' 8-12-93 0000 Initial Check-In
''----------------------------------------------------------------------
''
''*********************************************************************/
USE "SHARE32"
OPTION DECLARE
'Global Functions
DECLARE PUBLIC FUNCTION InitSHARE () AS INTEGER
DECLARE PUBLIC FUNCTION ConfigSHARE () AS INTEGER
DECLARE PUBLIC FUNCTION PreConfigSHARE () AS INTEGER
DECLARE PUBLIC FUNCTION AddSHAREIcons () AS INTEGER
DECLARE PUBLIC FUNCTION Lot_IsDriverSelected (sid%) AS INTEGER
DECLARE PUBLIC FUNCTION Lot_IsSQLSelected() AS INTEGER
DECLARE PUBLIC FUNCTION Lot_IsParadoxSelected AS INTEGER
DECLARE PUBLIC FUNCTION Lot_IsdBaseSelected () AS INTEGER
DECLARE PUBLIC FUNCTION Lot_IsInformixSelected () AS INTEGER
DECLARE PUBLIC FUNCTION Lot_IsIBMdBaseManagerSelected () AS INTEGER
DECLARE PUBLIC FUNCTION Lot_IsNotesSQLSelected () AS INTEGER
DECLARE PUBLIC FUNCTION Lot_IsSpreadSheetSelected () AS INTEGER
DECLARE PUBLIC FUNCTION Lot_IsIBM_DB2Selected () AS INTEGER
DECLARE PUBLIC FUNCTION Lot_IsDB2_SQLDS_Selected () AS INTEGER
DECLARE PUBLIC FUNCTION Lot_IsDB2_SQL400_Selected () AS INTEGER
DECLARE PUBLIC FUNCTION Lot_IsIBM_DDCS2_Selected () AS INTEGER
DECLARE PUBLIC FUNCTION Lot_IsODBCDriverSelected () AS INTEGER
DECLARE PUBLIC FUNCTION Lot_IsODBCSpreadSheetSelected () AS INTEGER
DECLARE PUBLIC FUNCTION Lot_IsODBCTextDriverSelected () AS INTEGER
DECLARE PUBLIC FUNCTION Lot_IsOracleSelected () AS INTEGER
DECLARE PUBLIC FUNCTION Lot_IsODBCBtrieveSelected () AS INTEGER
DECLARE PUBLIC FUNCTION Lot_IsODBCDB2Selected () AS INTEGER
DECLARE PUBLIC FUNCTION Lot_IsODBCFoxbaseSelected () AS INTEGER
DECLARE PUBLIC FUNCTION Lot_IsODBCAccessSelected () AS INTEGER
DECLARE PUBLIC FUNCTION Lot_IsODBCParadoxSelected () AS INTEGER
DECLARE PUBLIC FUNCTION Lot_IsODBCOracleSelected () AS INTEGER
DECLARE PUBLIC FUNCTION Lot_IsODBCSQLServerSelected () AS INTEGER
DECLARE PUBLIC FUNCTION Lot_RefreshLocalLotusapp () AS INTEGER
DECLARE PUBLIC FUNCTION Lot_GetTheShareToolsSizeToMove (s$) AS LONG
DECLARE PUBLIC FUNCTION Lot_DoMoveSHARE (s$) AS INTEGER
'Local Functions
DECLARE FUNCTION Lot_UpdateWinIni(s1$,s2$) AS INTEGER
DECLARE FUNCTION Lot_TheEntryWasRefreshed(s$) AS INTEGER
DECLARE FUNCTION Lot_GetAllSharedInstalled () AS INTEGER
DECLARE FUNCTION Lot_WriteIniFiles () AS INTEGER
DECLARE FUNCTION Lot_WriteLotusBcfFile()AS INTEGER
DECLARE FUNCTION Lot_BackupLotusBcfFile()AS INTEGER
DECLARE FUNCTION Lot_WriteEntry (s$,i%) AS INTEGER
DECLARE FUNCTION Lot_WriteOLERegForShare(s$,i%) AS INTEGER
'DECLARE FUNCTION Lot_PutFilesInTheMoveList (s1$,s2$,s3$,s4$) AS INTEGER
DECLARE FUNCTION Lot_GetNetCommDirPath (s1$,s2$) AS STRING
DECLARE FUNCTION Lot_GetFileSize (s1$,s2$,s3$,i&) AS LONG
DECLARE FUNCTION Lot_MoveFiles(s1$,s2$,s3$,s4$) AS INTEGER
DECLARE FUNCTION Lot_IsConsolidationNeeded (s1$, s2$) AS LONG
DECLARE FUNCTION Lot_GetSizeOfFilesInLotusappIni(s1$,s2$,s3$,size&) AS LONG
DECLARE FUNCTION Lot_DoShareConsolidation(s1$, s2$, s3$) AS INTEGER
DECLARE FUNCTION Lot_DoConsolidateFilesInLotusappIni(s1$, s2$) AS INTEGER
DECLARE FUNCTION Lot_AddSectionToNodeList(s1$,s2$) AS INTEGER
DECLARE FUNCTION Lot_GetEntryFlag(s1$) AS STRING
DECLARE FUNCTION Lot_DoVerDateValidation(s1$,s2$,s3$,l&) AS INTEGER
DECLARE FUNCTION Lot_DoCopyDelete(s1$,s2$,s3$,l&) AS INTEGER
DECLARE FUNCTION Lot_DoDelete(s1$,s2$) AS INTEGER
DECLARE FUNCTION Lot_IsTheChapterInstalled(s1$) AS INTEGER
DECLARE SUB CONSOLIDATELOTUSAPPDIRCB (hDlg&, CtrlId%, Classes$, LInst&)
DECLARE SUB CONSOLIDATEMOVECOPYCB (hDlg&, CtrlId%, Classes$, Inst&)
DECLARE SUB ISTHISNETLOTUSAPPCB (hDlg&, CtrlId%, Classes$, Inst&)
DECLARE SUB SQLSERVERNAMECB (hDlg&, CtrlId%, Classes$, Inst&)
DECLARE SUB PARADOXNETWORKINFOCB (hDlg&, CtrlId%, Classes$, Inst&)
DECLARE FUNCTION Lot_GetNetLotusappSource(s1$) AS STRING
DECLARE FUNCTION Lot_GetLocalLotusappDest(s1$,s2$) AS STRING
DECLARE FUNCTION Lot_MakeAPathFromLotusappIni(s1$,s2$,s3$) AS STRING
DECLARE FUNCTION Lot_GetInLotusappIniSizeOfFilesToMove(s1$,s2$,s3$,s4$,l&) AS LONG
DECLARE FUNCTION Lot_GetInLotusIniSizeOfFilesToMove(s1$,s2$,l&) AS LONG
DECLARE FUNCTION Lot_ChkLotusIniSizePath(s1$,s2$,s3$,s4$) AS INTEGER
DECLARE FUNCTION Lot_WriteShareInProgMan(Network$) AS INTEGER
DECLARE FUNCTION Lot_IsExistingLotusappDirValid(BYVAL ExistingCommonDir$) AS INTEGER
DECLARE SUB WriteODBCINST ( DriverDesc$, DriverPath$, SetupPath$ )
DECLARE FUNCTION Lot_WriteODBCINST() AS INTEGER
DECLARE FUNCTION Lot_ModifyODBC() AS INTEGER
DECLARE FUNCTION Lot_ModifyDataLensIni() AS INTEGER
DECLARE SUB WriteODBC20INST ( Driver$, SQLLvl$, APILvl$, Usage$, Ext$, DrvVer$, Cnnct$ )
DECLARE FUNCTION Lot_SaveShareConfigInInstallIni() AS INTEGER
'Global variables
PUBLIC gNetCommDirPath AS STRING
PUBLIC gConsolidateSize AS LONG
PUBLIC gMoveSize AS LONG
'Local variables
PUBLIC ProgramPath$
PUBLIC DataPath$
PUBLIC UserPath$
PUBLIC FilterPath$
PUBLIC lDidAnyMove%
PUBLIC GraphicsFileFiltersProgPath$
PUBLIC DocFileFiltersProgPath$
PUBLIC gDataLensInstalled AS INTEGER
PUBLIC gODBCOnly AS INTEGER
PUBLIC gODBCSelected AS INTEGER
DECLARE SUB INITIALIZE
DIM ValidCommDir%
SUB INITIALIZE
ProgramPath$="Program Path"
DataPath$="Data Path"
UserPath$="User Path"
FilterPath$="Filter Path"
END SUB
PUBLIC FUNCTION InitSHARE () AS INTEGER
InitSHARE32
InitSHARE = TRUE
END FUNCTION
PUBLIC FUNCTION ConfigSHARE () AS INTEGER
ConfigSHARE32
ConfigSHARE = TRUE
END FUNCTION
PUBLIC FUNCTION PreConfigSHARE () AS INTEGER
PreConfigSHARE = FALSE
END FUNCTION
PUBLIC FUNCTION AddSHAREIcons () AS INTEGER
AddSHAREIcons = FALSE
END FUNCTION
PUBLIC FUNCTION Lot_RefreshLocalLotusapp () AS INTEGER
Lot_RefreshLocalLotusapp = FALSE
END FUNCTION
FUNCTION Lot_GetNetCommDirPath (gLotusIniPath$,gNetCommDirPath$) AS STRING
'** Purpose: This function investigates the users environment and
'** find if Lotus.ini exists and if it has [Lotus Applications]
'** Section and Net Common Directory entry
'** Author: MZ
'** Arguments: gLotusIniPath$,gNetCommDir$
'** Returns: gNetCommDirPath$
'*************************************************************************
DIM gLotusIniExist%
'print "8 share"
gNetCommDirPath$=""
gLotusIniExist% = DoesFileExist(gLotusIniPath$, femExists)
IF gLotusIniExist% <>0 THEN
gNetCommDirPath$=Lot_LocalGetPathFromIni(gLotusIniPath$, "Lotus Applications", "Net Common Directory",NULLSTROK,INVALIDSTROK)
END IF
Lot_GetNetCommDirPath = gNetCommDirPath$
END FUNCTION
'*************************************************************************
PUBLIC FUNCTION Lot_IsDriverSelected (sid%) AS INTEGER
'** Purpose: Read the copy list and determines if Driver was selected to
'** be installed
'** Author: JMD
'** Arguments: None
'** Returns: 1 if Driver was selected or
'** 0 if Driver was not selected
'*************************************************************************
DIM buf1$, CurrChpt$, ChapterName$
buf1$ = LdString(sid%)
Lot_IsDriverSelected=0
IF Lot_AreShareToolsSupported()=1 THEN
CurrChpt$ = Lot_GetFirst("", F_SHARE+F_INOROUT)
WHILE (CurrChpt$ <> "")
ChapterName$ = Lot_GetChapterValStr(CurrChpt$, F_NAME)
IF ChapterName$ = buf1$ THEN
Lot_IsDriverSelected=1
EXIT FUNCTION
END IF
CurrChpt$ = Lot_GetNext()
WEND
END IF
END FUNCTION
PUBLIC FUNCTION Lot_IsSQLSelected () AS INTEGER
Lot_IsSQLSelected = Lot_IsDriverSelected(SID_SHARED_DATA_LENS_SQL)
END FUNCTION
PUBLIC FUNCTION Lot_IsParadoxSelected () AS INTEGER
Lot_IsParadoxSelected = Lot_IsDriverSelected(SID_SHARED_DATA_LENS_PARADOX)
END FUNCTION
PUBLIC FUNCTION Lot_IsdBaseSelected () AS INTEGER
Lot_IsdBaseSelected = Lot_IsDriverSelected(SID_SHARED_DATA_LENS_DBASE)
END FUNCTION
PUBLIC FUNCTION Lot_IsInformixSelected () AS INTEGER
Lot_IsInformixSelected = Lot_IsDriverSelected(SID_SHARED_DATA_LENS_INFORMIX)
END FUNCTION
PUBLIC FUNCTION Lot_IsIBMdBaseManagerSelected () AS INTEGER
Lot_IsIBMdBaseManagerSelected = Lot_IsDriverSelected(SID_SHARED_DATA_LENS_IBM_DBM)
END FUNCTION
PUBLIC FUNCTION Lot_IsNotesSQLSelected () AS INTEGER
Lot_IsNotesSQLSelected = Lot_IsDriverSelected(SID_SHARED_DATA_LENS_NOTESSQL)
END FUNCTION
PUBLIC FUNCTION Lot_IsSpreadSheetSelected () AS INTEGER
Lot_IsSpreadSheetSelected = Lot_IsDriverSelected(SID_SHARED_DATA_LENS_SPREADSHEET)
END FUNCTION
PUBLIC FUNCTION Lot_IsIBM_DB2Selected () AS INTEGER
Lot_IsIBM_DB2Selected = Lot_IsDriverSelected(SID_SHARED_DATA_LENS_IBM_DB2)
END FUNCTION
PUBLIC FUNCTION Lot_IsDB2_SQLDS_Selected () AS INTEGER
Lot_IsDB2_SQLDS_Selected = Lot_IsDriverSelected(SID_SHARED_DATA_LENS_DB2_SQLDS)
END FUNCTION
PUBLIC FUNCTION Lot_IsDB2_SQL400_Selected () AS INTEGER
Lot_IsDB2_SQL400_Selected = Lot_IsDriverSelected(SID_SHARED_DATA_LENS_DB2_SQL400)
END FUNCTION
PUBLIC FUNCTION Lot_IsIBM_DDCS2_Selected () AS INTEGER
Lot_IsIBM_DDCS2_Selected = Lot_IsDriverSelected(SID_SHARED_DATA_LENS_IBM_DDCS_2)
END FUNCTION
PUBLIC FUNCTION Lot_IsODBCDriverSelected () AS INTEGER
Lot_IsODBCDriverSelected = Lot_IsDriverSelected(SID_SHARED_DATA_LENS_ODBCD)
END FUNCTION
PUBLIC FUNCTION Lot_IsODBCSpreadSheetSelected () AS INTEGER
Lot_IsODBCSpreadSheetSelected = Lot_IsDriverSelected(SID_SHARED_ODBC_SPREADSHEET)
END FUNCTION
PUBLIC FUNCTION Lot_IsODBCTextDriverSelected () AS INTEGER
Lot_IsODBCTextDriverSelected = Lot_IsDriverSelected(SID_SHARED_ODBC_TEXTDRVR)
END FUNCTION
PUBLIC FUNCTION Lot_IsOracleSelected () AS INTEGER
Lot_IsOracleSelected = Lot_IsDriverSelected(SID_SHARED_DATA_LENS_ORACLE)
END FUNCTION
PUBLIC FUNCTION Lot_IsODBCBtrieveSelected () AS INTEGER
Lot_IsODBCBtrieveSelected = Lot_IsDriverSelected(SID_SHARED_ODBC_Btrieve)
END FUNCTION
PUBLIC FUNCTION Lot_IsODBCDB2Selected () AS INTEGER
Lot_IsODBCDB2Selected = Lot_IsDriverSelected(SID_SHARED_ODBC_DB2)
END FUNCTION
PUBLIC FUNCTION Lot_IsODBCFoxbaseSelected () AS INTEGER
Lot_IsODBCFoxbaseSelected = Lot_IsDriverSelected(SID_SHARED_ODBC_FOXBASE)
END FUNCTION
PUBLIC FUNCTION Lot_IsODBCAccessSelected () AS INTEGER
Lot_IsODBCAccessSelected = Lot_IsDriverSelected(SID_SHARED_ODBC_ACCESS)
END FUNCTION
PUBLIC FUNCTION Lot_IsODBCParadoxSelected () AS INTEGER
Lot_IsODBCParadoxSelected = Lot_IsDriverSelected(SID_SHARED_ODBC_PARADOX)
END FUNCTION
PUBLIC FUNCTION Lot_IsODBCOracleSelected () AS INTEGER
Lot_IsODBCOracleSelected = Lot_IsDriverSelected(SID_SHARED_ODBC_Oracle)
END FUNCTION
PUBLIC FUNCTION Lot_IsODBCSQLServerSelected () AS INTEGER
Lot_IsODBCSQLServerSelected = Lot_IsDriverSelected(SID_SHARED_ODBC_SQLSERVER)
END FUNCTION