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 >
Text File  |  1996-03-04  |  35KB  |  818 lines

  1. ''/*********************************************************************
  2. ''
  3. ''   Module Name:    share.lss
  4. ''
  5. ''   Module Code:    TOOLKIT
  6. ''
  7. ''   Author:         MZ     
  8. ''
  9. ''   Creation Date:  Aug 31, 1993
  10. ''
  11. ''   Copyright Lotus Development Corporation, (c) 1991
  12. ''
  13. ''
  14. ''  
  15. ''   Description: 
  16. ''     Lotus script file for common install
  17. ''  
  18. ''
  19. ''   Additional authors:
  20. ''
  21. ''   Change History:
  22. ''   $Log:   //CIT/VOL1/CFLOG/logfiles/cominst/toolkit/share__@.lss  $
  23. '' 
  24. ''    Rev 1.107   04 Mar 1996 08:32:20   jdonohue
  25. '' Remove 16 bit shared component support -- pass 1 : eliminate LOTUSAPP
  26. '' 
  27. ''    Rev 1.106   22 Dec 1995 10:13:28   jdonohue
  28. '' Removed all references to SYM_PARENTDIR$ -- is now SYM_BASEDIR$ for all
  29. '' 
  30. ''    Rev 1.105   08 Nov 1995 17:07:44   tveerapp
  31. '' checked in mariana's fix
  32. '' 
  33. ''    Rev 1.104   08 Nov 1995 16:57:58   tveerapp
  34. '' Fixes fot SPR#RMOO2xQQDY
  35. '' 
  36. ''    Rev 1.103   31 Oct 1995 16:13:04   tveerapp
  37. '' Fixed spr#JHOH2XJLEU. In InitShare, for suite Long dir check was done with th
  38. '' parentdir symbol instead of basedir symbol.
  39. '' 
  40. ''    Rev 1.102   Oct 24 1995 16:56:02   cmoy
  41. '' removed eof char
  42. '' 
  43. ''    Rev 1.101   11 Oct 1995 17:15:32   jdonohue
  44. '' Dialog editor folder under "Lotus Accessories"
  45. '' 
  46. ''    Rev 1.100   10 Oct 1995 15:45:22   jdonohue
  47. '' Fixed error in automation logic for LOTUSAPP symbol (SPR KHAN2WRPHC)
  48. '' 
  49. ''    Rev 1.99   22 Sep 1995 17:03:14   glutz
  50. '' Lot_WriteIniFiles does not create an ini ley for lotusapp unless the 
  51. '' directory exists.
  52. '' 
  53. ''    Rev 1.98   22 Sep 1995 15:31:28   tveerapp
  54. '' Added checks for UNC path/LongDir names for lotusapp. Part of the fix for 
  55. '' spr#LSCR2VZVGB
  56. '' 
  57. ''    Rev 1.97   19 Sep 1995 16:33:00   glutz
  58. '' Added checks for long dir names and UNC in ConsolidateLotusAppDirCb.
  59. '' 
  60. ''    Rev 1.96   09 Sep 1995 16:39:18   tveerapp
  61. '' Fixed a problem for the suite node fix. Set the SYM_NETLOTUSAPP if
  62. '' a cleanpath is found with the mapped rive.
  63. '' 
  64. ''    Rev 1.95   08 Sep 1995 16:11:24   glutz
  65. '' SPR KHAN2SHNAN: Put GOTO EXIT_CONSOLIDATELOTUSAPPDIR statement in continue
  66. '' case if path validation fails in CONSOLIDATELOTUSAPPDIRCB.
  67. '' 
  68. ''    Rev 1.94   06 Sep 1995 09:27:32   tveerapp
  69. '' Fixed suite node install problem.
  70. '' 
  71. ''    Rev 1.93   31 Aug 1995 14:58:04   jdonohue
  72. '' Take out print statement for Invalid Share Keyword
  73. '' 
  74. ''    Rev 1.92   31 Aug 1995 14:17:00   jdonohue
  75. '' Fixed share keys in SHARESUBDIR list
  76. '' 
  77. ''    Rev 1.91   30 Aug 1995 11:31:46   jdonohue
  78. '' Added LOTUSDIALOGSPROGRAM to share names
  79. '' 
  80. ''    Rev 1.90   07 Aug 1995 17:35:10   jdonohue
  81. '' Replaced Lot_GetLocalLotusappDest to fix bug in directory naming
  82. '' 
  83. ''    Rev 1.89   03 Aug 1995 10:11:18   mmeth
  84. '' Fix for SPR#  KHAN2UJMFN:
  85. '' Fix is in share.lss:InitSHARE
  86. '' the problem was that under the automation else clause we were not checking
  87. '' calling ValidatePath(AutoLotusApp$).
  88. '' The fix is to call the validate and in case of a bad return code 
  89. '' put up an error message and quit.
  90. '' 
  91. ''    Rev 1.88   02 Aug 1995 15:00:18   jdonohue
  92. '' Remove SID_ERR_SHARE_CONSOLID1 resource
  93. '' 
  94. ''    Rev 1.87   01 Aug 1995 16:29:26   jdonohue
  95. '' Allow lotusapp dir to be on UNC volume
  96. '' 
  97. ''    Rev 1.86   20 Jul 1995 10:56:16   glutz
  98. '' GetFreeSpaceForDrive now returns K bytes so I made changes accordingly.
  99. '' 
  100. ''    Rev 1.85   20 Jul 1995 08:37:52   jdonohue
  101. '' CONSOLIDATELOTUSAPPDIRCB 
  102. '' was not setting directory if no changes were made
  103. '' 
  104. ''    Rev 1.84   17 Jul 1995 17:09:08   amontalv
  105. '' Commented out Register code for 16 bit.
  106. '' 
  107. ''    Rev 1.83   17 Jul 1995 16:49:14   amontalv
  108. '' Added some code for Greg Lutz.  Also changed the code for registering dlgedit.
  109. '' 
  110. ''    Rev 1.82   17 Jul 1995 16:36:40   amontalv
  111. '' Added registration for dlg editor
  112. '' 
  113. ''    Rev 1.81   17 Jul 1995 15:35:18   amontalv
  114. '' Added Lot_AddLinkToFolder to add Dialog Editor in correct location.
  115. '' 
  116. ''    Rev 1.80   30 Jun 1995 09:13:20   glutz
  117. '' Added browse feature to CONSOLIDATELOTUSAPPDIRCB.
  118. '' 
  119. ''    Rev 1.79   28 Jun 1995 12:35:30   mzgripce
  120. '' change Lot_BackupLotusBcfFile() to trim the backslash of the lotusappdir 
  121. '' before adding the datalens subdir
  122. '' 
  123. ''    Rev 1.78   26 Jun 1995 13:36:44   mzgripce
  124. '' DoMsgBox returns a long in Win95 so I changed the yesno and and I compare 
  125. '' with CLNG(7) for NO on confirmation
  126. '' 
  127. ''    Rev 1.77   19 Jun 1995 18:47:54   mzgripce
  128. '' check if the shared tools are supported before executing any share operation
  129. '' 
  130. ''    Rev 1.76   06 Jun 1995 15:58:54   amontalv
  131. '' We are experiencing problems with LotusScript when we fill buffers with
  132. '' nulls and then pass them to C routines.  For the time being, it is suggested
  133. '' that we fill our buffers with spaces.  To this end (and to make it
  134. '' easier to change back later) I have created a small LotusScript routine
  135. '' named CreateBuffer.  You use it any time you ordinarily would use
  136. '' STRING$(num, 0).  CreateBuffer() just needs the num, it decides what to
  137. '' fill the buffer with (sorry about the grammer).  Right now it fill the
  138. '' buffer with spaces.  Later we will change it back to nulls.  Also look
  139. '' at the routine NullTrim().  It will get rid of final nulls and spaces.
  140. '' You can use this when getting a buffer that has been changed or filled
  141. '' in a external C routine.
  142. '' 
  143. ''    Rev 1.75   01 Jun 1995 15:39:34   mzgripce
  144. '' enable share32 init and config and reintroduce bcf processing 
  145. '' 
  146. ''    Rev 1.74   22 May 1995 19:15:10   mzgripce
  147. '' rewrite InitShare for SYM_LOTUSAPP
  148. '' 
  149. ''    Rev 1.73   21 May 1995 17:24:10   mzgripce
  150. '' redefine the init value for lotusapp
  151. '' 
  152. ''    Rev 1.72   13 May 1995 16:56:24   mzgripce
  153. '' separate Lot_SaveShareConfig from saving the 32share config
  154. '' 
  155. ''    Rev 1.71   03 May 1995 18:15:26   mzgripce
  156. '' move some functions to share32.lss
  157. '' 
  158. ''    Rev 1.70   02 May 1995 12:53:08   cmoy
  159. '' Merged c2 into cf build
  160. '' 
  161. ''    Rev 1.70   28 Apr 1995 17:17:14   mzgripce
  162. '' Comment out the call to FixODBCiniSources() because BCFMOD.DLL was not ported
  163. '' to 32 bit.
  164. ''    Rev 1.69F  17 Apr 1995 16:46:06   mzgripce
  165. '' change Lot_SaveShareConfigInInstallIni to record component directory
  166. '' 
  167. ''    Rev 1.69   10 Apr 1995 17:57:16   amontalv
  168. '' Had to change the definition of some callback functions so that they would
  169. '' work correctly going from C to Script.
  170. ''    Rev 1.68F  13 Apr 1995 10:57:16   mzgripce
  171. '' change InitSHARE() to call InitSHARE32()
  172. '' 
  173. ''    Rev 1.68   07 Apr 1995 19:36:48   amontalv
  174. '' LSS 32 bit port merge changes.
  175. '' 
  176. ''    Rev 1.66   30 Mar 1995 14:47:06   mheerman
  177. '' Removed remed out code blocks
  178. '' 
  179. ''    Rev 1.65   18 Jan 1995 15:56:30   mzgripce
  180. '' 
  181. '' Fix the NODE over NODE bug by casting LCASE when commpating the result of a MID$ call with a strin
  182. '' g in Refresh function.
  183. '' Change the validation of the common directory to not check for the files in the spell
  184. '' directory because a node creates that directory for the user path, but 
  185. '' if the user does not add any words to its private spell dictionary the
  186. '' directory is empty.
  187. '' 
  188. ''    Rev 1.64   12 Dec 1994 14:50:26   tveerapp
  189. '' Check for trailing backslash in lotusapp section in the response file.
  190. '' 
  191. ''    Rev 1.63   12 Dec 1994 12:14:22   mzgripce
  192. '' 
  193. '' added automation around the callbacks and read the needed setings in 
  194. '' initSHARE() 
  195. '' 
  196. ''    Rev 1.62   28 Nov 1994 15:33:16   jplump
  197. '' No change.
  198. '' 
  199. ''    Rev 1.61   13 Oct 1994 13:58:50   mzgripce
  200. '' 
  201. '' in validate the common dir do not trim an empty string 
  202. '' 
  203. ''    Rev 1.60   04 Oct 1994 15:37:28   mzgripce
  204. '' fix Banyan vines bug already tested by CIT QE
  205. '' 
  206. ''    Rev 1.59   04 Aug 1994 17:50:56   tveerapp
  207. '' in Lot_refresh I replaced the call to Lot_LocalGetPathFromIni()
  208. '' with a call to GetIniKeyString()-MZ.
  209. '' 
  210. ''    Rev 1.58   14 Jul 1994 19:10:06   mzgripce
  211. '' 
  212. '' add LCASE$ to stringcompare in initSHARE
  213. '' 
  214. ''    Rev 1.57   14 Jul 1994 18:18:14   mzgripce
  215. '' 
  216. '' fix the algorithm  for flw node in initSHARE
  217. ''    Rev 1.56   14 Jul 1994 11:24:56   mzgripce
  218. '' 
  219. '' change in initSHARE for the conditions when I prompt to use the existing
  220. '' common directory in a network and when to create a new one
  221. '' 
  222. ''    Rev 1.55   11 Jul 1994 15:32:08   mzgripce
  223. '' before moving and deleting lotusapp.ini I check if the source is the sameth
  224. '' 
  225. ''    Rev 1.54   01 Jul 1994 17:13:58   mzgripce
  226. '' 
  227. '' create a function Lot_LocalGetPathFromIni() and replac
  228. '' FromIni with the new call 
  229. '' 
  230. ''    Rev 1.53   30 Jun 1994 18:20:02   ptilton
  231. '' Added Lot_ModifyDatalensIni function that updates a users DATALENS.INI
  232. '' changing QODBF.DLL to LODBF04.DLL.  The changes are only made when the
  233. '' LODBF04 DataLens driver is installed.
  234. '' 
  235. ''    Rev 1.52   24 Jun 1994 14:53:28   thangv
  236. '' 
  237. '' Changed NetLotusApp to use the server path in Lot_WriteOLEReg
  238. '' line 5663.
  239. '' 
  240. ''    Rev 1.51   24 Jun 1994 11:39:58   thangv
  241. '' 
  242. '' Added Lot_TrimEndSlash to args toFremoveDir to remove the trailing back
  243. '' slash. This fixes spr#31431. there were 16 calls to FremoveDir in this
  244. '' module.
  245. '' 
  246. ''    Rev 1.50   21 Jun 1994 20:48:06   mzgripce
  247. '' in Lot_UpdateWinIni() commented out the calls to Lot_IsTheFeatureInstalled(
  248. '' lines 2626,2644,2645 and 2651. 
  249. '' 
  250. ''    Rev 1.49   19 Jun 1994 09:43:34   mzgripce
  251. '' change in Lot_GetEntryFlag() from MAILINABLINGPROGRAM to MAILENABLINGPROGRA
  252. '' 
  253. ''    Rev 1.48   17 Jun 1994 12:17:02   mzgripce
  254. '' 
  255. '' replace FatalErrorMessage() call with 3 calls: ErrorMsg(); set flag gEndSta
  256. '' 
  257. ''    Rev 1.47   16 Jun 1994 18:12:40   mzgripce
  258. '' in InitShare add check for writable lotus.ini and if failes quit. 
  259. '' 
  260. ''    Rev 1.46   15 Jun 1994 12:19:00   thangv
  261. '' change function: Lot_IsExistingLotusappDirValid() to check for subdirectori
  262. '' and strip last slash from the path entry in lotus.ini for LotusDialogs and 
  263. '' MailEnabling
  264. '' 
  265. ''    Rev 1.45   14 Jun 1994 14:46:16   mzgripce
  266. '' check the path and the space on default in consolidatelotusappdircb and cre
  267. '' 
  268. ''    Rev 1.44   10 Jun 1994 17:11:28   mzgripce
  269. '' 
  270. '' take out comment
  271. '' 
  272. ''    Rev 1.43   10 Jun 1994 16:53:40   mzgripce
  273. '' do not check if directory is valid if the entry does not exist in lotus.ini
  274. '' 
  275. ''    Rev 1.42   09 Jun 1994 15:07:50   mzgripce
  276. '' fixed OLE reg for multimedia 
  277. '' 
  278. ''    Rev 1.41   08 Jun 1994 17:24:54   mzgripce
  279. '' 
  280. '' comment out Grammar checker, Thesaurus and Hyph. processing 
  281. '' 
  282. ''    Rev 1.40   08 Jun 1994 10:16:24   thangv
  283. '' added createdir in Lot_WriteEntry for case SPELLCHECKERUSER path.
  284. '' 
  285. ''    Rev 1.39   06 Jun 1994 18:41:40   mzgripce
  286. '' 
  287. '' added prompt and processing for DBM_ISTHISNETLOTUSAPP 
  288. '' 
  289. ''    Rev 1.38   05 Jun 1994 20:43:10   ptilton
  290. '' 
  291. '' Added calls to Set OracleHomeDir and NotesDataDir Symbols. Removed
  292. '' Functions to determine symbol values and inserted them into TOOLKIT.LSS
  293. '' 
  294. ''    Rev 1.37   03 Jun 1994 19:47:08   ptilton
  295. '' Moved Modifying of ODBC.INI to only when dBASE DataLens Driver is installed
  296. '' 
  297. ''    Rev 1.36   01 Jun 1994 14:45:06   mzgripce
  298. '' correct the the misspeling for GRAMMERCHECKERPROGRAM
  299. '' 
  300. ''    Rev 1.35   27 May 1994 16:25:54   mzgripce
  301. '' check if the common dir is EQ with netcommondir 
  302. '' 
  303. ''    Rev 1.34   26 May 1994 15:45:40   thangv
  304. '' Added LCASE$ for dirToChange in CONSOLIDATELOTUSAPPDIRCB to fix bug.
  305. '' 
  306. ''    Rev 1.33   25 May 1994 17:52:58   ihachem
  307. ''  fixed spr 30227; do not write screencam config and make infobox work for 
  308. ''  node (check-in for mzgripce).
  309. '' 
  310. '' 
  311. ''    Rev 1.32   24 May 1994 14:54:24   mzgripce
  312. '' 
  313. '' change consolidatelotusappdircb and write consolidatemovecopycb 
  314. '' 
  315. ''    Rev 1.31   19 May 1994 23:47:40   ptilton
  316. '' 
  317. '' Added Updating of ODBCINST.INI with Codepage Translation information
  318. '' for ODBC SQL Server Driver.
  319. '' 
  320. ''    Rev 1.30   13 May 1994 18:09:18   ptilton
  321. '' Added ODBC 2.0 Subroutine and Substitue Oracle & Notes Directories
  322. '' 
  323. ''    Rev 1.29   09 May 1994 15:16:56   mzgripce
  324. '' 
  325. '' fixed for spr # 29358
  326. '' 
  327. ''    Rev 1.28   05 May 1994 14:11:18   ptilton
  328. '' 
  329. '' Fixed SPR 28491 Added IsSQLSelected
  330. '' 
  331. ''    Rev 1.27   02 May 1994 18:13:42   mzgripce
  332. '' add AddSHAREIcons() function
  333. '' 
  334. ''    Rev 1.26   27 Apr 1994 18:12:50   mzgripce
  335. '' fixed spr# 27621
  336. '' 
  337. ''    Rev 1.25   26 Apr 1994 10:55:34   mzgripce
  338. '' fixed SPR # 28669
  339. '' 
  340. ''    Rev 1.24   21 Apr 1994 16:47:40   mzgripce
  341. '' 
  342. '' fix for SPR 27387
  343. '' 
  344. ''    Rev 1.23   14 Apr 1994 15:25:36   mzgripce
  345. '' set gDatalensInstalled in config
  346. '' 
  347. ''    Rev 1.21   13 Apr 1994 16:53:44   mmeth
  348. '' fixed datalens strings
  349. '' 
  350. ''    Rev 1.20   13 Apr 1994 14:27:04   cmoy
  351. '' 
  352. '' Unbolded text in SQLSERVERNAMECB and PARADOXNETWORKINFOCB
  353. '' 
  354. ''    Rev 1.19   13 Apr 1994 14:20:30   ptilton
  355. '' Added Support for All DataLens and ODBC available drivers.
  356. ''
  357. ''     Rev 1.16   13 Apr 1994 13:34:58   mzgripce
  358. '' changes made by Corinne
  359. '' 
  360. ''    Rev 1.18   07 Apr 1994 17:56:46   mzgripce
  361. '' add mail enabling and take out lotus mail
  362. '' 
  363. ''    Rev 1.17   06 Apr 1994 10:48:30   mzgripce
  364. '' put processing for Lotus Dialogs, LotusScript and LotusMail
  365. '' 
  366. ''    Rev 1.16   05 Apr 1994 09:30:52   mzgripce
  367. '' fixed SPR #27685
  368. '' 
  369. ''    Rev 1.15   04 Apr 1994 18:40:12   mmeth
  370. '' 
  371. '' CheckIn for MMETH by vts
  372. '' 
  373. ''    Rev 1.14   04 Apr 1994 14:58:32   mzgripce
  374. '' update OLE registration on consolidation and refresh
  375. '' 
  376. ''    Rev 1.13   31 Mar 1994 16:30:34   mzgripce
  377. '' change initSHARE 
  378. '' 
  379. ''    Rev 1.12   31 Mar 1994 14:20:10   mzgripce
  380. '' merge the raptor beta changes and fix 2 bugs: suppress share move prompt
  381. '' when not needed and change the netcommon dir drive if node maps with 
  382. '' the network with different drive then the admin.
  383. '' 
  384. ''    Rev 1.11   28 Mar 1994 16:55:50   mzgripce
  385. '' overwrite the shared icons
  386. '' 
  387. ''    Rev 1.10   28 Mar 1994 14:28:36   mmeth
  388. '' Changes with Christopher, obsoleteing dialosg
  389. '' 
  390. ''    Rev 1.9   26 Mar 1994 16:33:22   pjt
  391. '' Datalens Install changes for ODBC driver
  392. '' 
  393. ''    Rev 1.8   25 Mar 1994 14:53:06   mzgripce
  394. '' change initShare to account for suit; change consolidate call back; write
  395. '' function Lot_IsExistingLotusappDirValid(); change the lotusapp destination
  396. '' 
  397. ''    Rev 1.7   24 Mar 1994 17:54:30   mmeth
  398. '' Pete's datalens
  399. ''
  400. ''    Rev 1.6   22 Mar 1994 18:23:26   mzgripce
  401. '' added notesSQL
  402. '' 
  403. ''    Rev 1.5   22 Mar 1994 17:53:54   mzgripce
  404. '' added help section and Help Program /Help Data path
  405. '' 
  406. ''    Rev 1.4   21 Mar 1994 18:42:24   mzgripce
  407. '' put the dialogeditor icon
  408. '' 
  409. ''    Rev 1.3   15 Mar 1994 13:56:36   jbrodeur
  410. '' Added French Canadian Dictionary
  411. '' 
  412. ''    Rev 1.2   10 Mar 1994 21:02:44   amello
  413. '' Added Shared Icon Palette
  414. '' 
  415. ''    Rev 1.1   10 Mar 1994 17:31:30   mzgripce
  416. '' add comments in Lot_AreShareToolsSupported() and remove seting of win and 
  417. '' winsys symbols from InitSHARE()  (I move it in toolkit.lss and call it in 
  418. '' main.lss 
  419. '' 
  420. ''    Rev 1.0   11 Feb 1994 10:56:46   jbrodeur
  421. '' Initial Revision
  422. ''----------------------------------------------------------------------
  423. ''   Date     Vers. Pgmr  SPR#  Change
  424. ''----------------------------------------------------------------------
  425. '' 02-07-94   0100  MZ        Update win.ini only if the feature was installed
  426. ''                            change Lot_WriteOLERegForShare()  
  427. ''!
  428. '' 02-07-94   0099  MZ        Add replace isTheChapterInstalled call with 
  429. ''                            isTheFeature... in Lot_AddSectionToNodeList()
  430. '' 02-07-94   0098  MZ        move Lot_SaveFeaturesInstaledInInstallIni()
  431. ''                            and Lot_GetLastFeatureNumber() to toolkit.lss
  432. '' 02-03-94   0097  MMETH     In Lot_SaveFeaturesInstaledInInstallIni()
  433. ''                            save for gSTANDARD as well and call 
  434. ''                            Lot_SaveFeaturesInstaledInInstallIni() for std also
  435. ''                            also moved Lot_IstheFeatureInstall to toolkit.lss
  436. '' 02-01-94   0096  JMB         Added return for Functions that return values
  437. '' 01-28-94   0095  MZ        set SYM_LOTUSAPPEXISTS$
  438. '' 01-27-94   0094  MZ/DND    Change all the paths in here 
  439. '' 01-26-94   0093  MZ        Add the function Lot_DoMoveSHARE
  440. ''                            Set "" in Lot_GetLocalHardDrive for the root
  441. '' 01-25-94   0092  MZ        Add the functions:
  442. ''                            Lot_GetTheShareToolsSizeToMove
  443. ''                            Lot_MakeAPathFromLotusappIni
  444. ''                            Lot_GetInLotusappIniSizeOfFilesToMove
  445. ''                            Lot_GetInLotusIniSizeOfFilesToMove
  446. ''                            Lot_GetSharedIniPath
  447. ''                            Lot_ChkLotusIniSizePath
  448. '' 01-25-94   0091  MMETH     add "\" wherever we are using gLOTUSAPP$
  449. '' 01-25-94   0090  MMETH     changed almost all CreateIniKeyValue:
  450. ''                            Took off LCASE$ and where needed added
  451. ''                            Lot_TrimEndSlash. Also removed double \\
  452. ''                            between dir & filename in CreateIniKeyValues
  453. '' 01-24-94   0089  MZ         Change CONSOLIDATELOTUSAPPDIRCB
  454. '' 01-24-94   0089  TQI          Capture all function returns (lsi36)
  455. '' 01-24-94   0088  MMETH      Move GetTheReal Prod to Toolkit.lss &
  456. ''                             changed the refernce to in to Lot_GetInstallDIr
  457. '' 01-21-94   0087  MZ         Set SYM_LOTUSAPPDIR+gNAME needed for UI
  458. '' 01-20-94   0086  MZ         Add processing in InitSHARE(),PreConfigSHARE()
  459. ''                             ConfigSHARE(),Lot_RefreshLocalLotusapp() to
  460. ''                             execute only if any registered product supports
  461. ''                             share and add func. Lot_AreShareToolsSupported()
  462. '' 01-19-94   0085  MZ         Make it work again
  463. '' 01-19-94   0084  TQI        option declare
  464. '' 01-18-94   0083  DND        No longer call FCleanFatPath
  465. '' 01-18-94   0082  JMB        Added StatusBar to Lot_GetAllSharedInstalled()
  466. '' 01-12-94   0081  TQI        option declare DIMs (not done)
  467. '' 01-10-94   0080  MZ         Make all symbols Constants and put them
  468. ''                             in GLOBALS.LSS
  469. ''  01-07-94  0079  DND/MZ     Use TOOLKIT
  470. ''  12-27-93  0078  MZ         Change Lot_RefreshLocalLotusapp; put the call
  471. ''                             to DoesDirExist by itself in an IF     
  472. ''  12-22-93  0077  MZ         Cleanup the commented code
  473. ''  12-20-93  0076  TQI        Changes for lsi34
  474. ''  12-17-93  0075  MZ 25868   Backup lotus.bcf in node install; in standard
  475. ''                             install the call into datalens DLL creates a backup
  476. ''                             if there is a lotus.bcf in the destination.
  477. ''  12-16-93  0074  MZ 25770   replace DoesDirExist with DoesFileExist
  478. ''                             call in the switch for lotusapp.ini processing
  479. ''  12-16-93  0073  MZ         add to the copy list the files needed 
  480. ''                             for the datalens drivers
  481. ''  12-13-93  0072  MZ         put an extera IF/ELSE when commondir is ""
  482. ''  12-10-93  0071  MZ 25819   check if the lotusapp.ini exist
  483. ''  12-09-93  0070  MZ 25771   change Lot_IsConsolidationNeeded
  484. ''                     25660   add Lot_GetSizeOfFilesInLotusappIni and
  485. ''                     25768   Lot_DoConsolidateFilesInLotusappIni
  486. ''  12-08-93  0069  MZ 25721   update win.ini after consolidation
  487. ''  12-07-93  0068  MZ 25580   delete the old common dir after consolidation        
  488. ''                             and replace the removedir function
  489. ''  12-03-93  0067  MZ         add a box with SID_SHARE_INFO_TEXT
  490. ''  12-03-93  0066  MZ         Add SID_ERR_SHARE_CONSOLID0
  491. ''  12-03-93  0065  MZ   25660 Correct the process for paths with filenames      
  492. ''  12-02-93  0064  MZ         Take out \ from makepath call
  493. ''  12-02-93  0064  DND   25449 Make sure all strings are resourced
  494. ''  12-01-93  0036  MZ          change combo3 to combo1 in consotidate box
  495. ''  12-01-93  0035  DND/MZ 25446 Handle errors consistently and some cleanup
  496. ''  12-01-93  0034  MZ   25652 verify if I am in the dir before remove it
  497. ''  11-29-93  0033  MZ         Write the lotus.ini for node
  498. ''  11-24-93  0033  MMETH      Moved GetTheReal123Dir to share.lss from 123.lss
  499. ''                             and renamed it to GetTheRealProdDir
  500. ''  11-24-93  0032  MZ         Make Lot_IsTheFeatureInstalled() public
  501. ''  11-22-93  0031  MZ         Add Lot_IsTheFeatureInstalled(s$)
  502. ''                             Lot_GetLastFeatureNumber() and 
  503. ''                             Lot_SaveFeaturesInstaledInInstallIni()
  504. ''                             to record F_KEYWORD
  505. ''  11-22-93  0030  MZ         fixed spr 25310
  506. ''  11-22-93  0029  MZ         Change Graphic to graphics
  507. ''  11-19-93  0028  MZ         fixed 25568, 25580, 25594 and 25595
  508. ''  11-17-93  0026  JKK        FIXED SPR 25544 & 25545.
  509. ''  11-17-93  0025  MZ         fix  25434
  510. ''  11-15-93  0024  MZ         Change Lot_GetNetLotusappSource to use NETLOTUSAPP
  511. ''                             symbol value and replace Dir$() call with Lot_Dir()
  512. ''                             to fix 25531   
  513. ''  11-15-93  0024 JKK         Called GetAbsPathFrom ini instead of GetIniKeyString.
  514. ''  11-14-93  0023  MZ          fix for spr# 25433
  515. ''  11-12-93  0022  MZ          fix spr 25268
  516. ''  11-10-93  0021  MZ          -disable the writing of lotusapp.ini because it is
  517. ''                              not in lotus.ini database spr#25414
  518. ''                              -reset the LOTUSAPP symbol if I found a valid one
  519. ''                              change the init for consolidation dialog box spr# 25443
  520. ''
  521. ''  11-10-93  0020  MZ          put sid_err messages
  522. ''  11-10-93  0019  MZ          comment out OLE reg for multimedia and populate
  523. ''                              NETLOTUSAPP symbol
  524. ''  11-09-93  0018  MZ          correction to the screen cam name
  525. ''  11-08-93  0017  MZ          add OLE reg for ScreenCamMovie and its entry in lotus.ini
  526. ''  10-27-93  0016  MZ          Correction in Lot_SaveShareConfigInInstallIni()
  527. ''                              For server set lotus            .bcf dest to 123DIR
  528. ''                              add Lot_RefreshLocalLotusapp(),Lot_AddSectionToNodeList(),
  529. ''                              Lot_IsTheChapterInstalled(),Lot_GetNetLotusappSource()
  530. ''                              Lot_GetLocalLotusappDest()
  531. ''  10-26-93  0015  MZ          Initialize LOTUSAPP to \LOTUS\LOTUSAPP for
  532. ''                              server install
  533. ''  10-25-93  0014  MZ          Fix Previous in consolidate prompt
  534. ''  10-21-93  0013  MZ          Add Confirm directory box in Consolidate prompt
  535. ''  10-21-93  0012  MZ          Add processing for DBM_CONSOLIDATE_LOTUSAPP
  536. ''  19-20-93  0011  MZ          Add a switch depending on the copyMode flag
  537. ''                              and dBase,Informix and EEDM funcs    
  538. ''  10-19-93  0010  MZ          Add the processing for SQL and PARADOX server
  539. ''                              and set symbols:SQLSERVERNAME,PARADOXNETWORKINFO
  540. ''  10-01-93  0002   MZ         Add Lot_SaveShareConfigInInstallIni()
  541. ''  9-29-93   0005   JKK/TV/DND Removed unneeded dialog code
  542. ''  9-22-93   0004   MZ         Add OLE registration  
  543. ''  9-10-93   0003   MZ         Finish the consolidation
  544. ''  9-09-93   0002   MZ         Move the consolidation in preconfig
  545. ''                              from init and debug
  546. ''  9-08-93   0001   MZ         Put the consolidation code in
  547. ''  8-12-93   0000              Initial Check-In
  548. ''----------------------------------------------------------------------
  549. ''
  550. ''*********************************************************************/
  551.  
  552. USE "SHARE32"
  553. OPTION DECLARE
  554.  
  555. 'Global Functions
  556. DECLARE PUBLIC FUNCTION InitSHARE () AS INTEGER
  557. DECLARE PUBLIC FUNCTION ConfigSHARE () AS INTEGER
  558. DECLARE PUBLIC FUNCTION PreConfigSHARE () AS INTEGER
  559. DECLARE PUBLIC FUNCTION AddSHAREIcons () AS INTEGER
  560. DECLARE PUBLIC FUNCTION Lot_IsDriverSelected (sid%) AS INTEGER
  561. DECLARE PUBLIC FUNCTION Lot_IsSQLSelected() AS INTEGER
  562. DECLARE PUBLIC FUNCTION Lot_IsParadoxSelected AS INTEGER
  563. DECLARE PUBLIC FUNCTION Lot_IsdBaseSelected () AS INTEGER
  564. DECLARE PUBLIC FUNCTION Lot_IsInformixSelected () AS INTEGER
  565. DECLARE PUBLIC FUNCTION Lot_IsIBMdBaseManagerSelected () AS INTEGER
  566. DECLARE PUBLIC FUNCTION Lot_IsNotesSQLSelected () AS INTEGER
  567. DECLARE PUBLIC FUNCTION Lot_IsSpreadSheetSelected () AS INTEGER
  568. DECLARE PUBLIC FUNCTION Lot_IsIBM_DB2Selected () AS INTEGER
  569. DECLARE PUBLIC FUNCTION Lot_IsDB2_SQLDS_Selected () AS INTEGER
  570. DECLARE PUBLIC FUNCTION Lot_IsDB2_SQL400_Selected () AS INTEGER
  571. DECLARE PUBLIC FUNCTION Lot_IsIBM_DDCS2_Selected () AS INTEGER
  572. DECLARE PUBLIC FUNCTION Lot_IsODBCDriverSelected () AS INTEGER
  573. DECLARE PUBLIC FUNCTION Lot_IsODBCSpreadSheetSelected () AS INTEGER
  574. DECLARE PUBLIC FUNCTION Lot_IsODBCTextDriverSelected () AS INTEGER
  575. DECLARE PUBLIC FUNCTION Lot_IsOracleSelected () AS INTEGER
  576. DECLARE PUBLIC FUNCTION Lot_IsODBCBtrieveSelected () AS INTEGER
  577. DECLARE PUBLIC FUNCTION Lot_IsODBCDB2Selected () AS INTEGER
  578. DECLARE PUBLIC FUNCTION Lot_IsODBCFoxbaseSelected () AS INTEGER
  579. DECLARE PUBLIC FUNCTION Lot_IsODBCAccessSelected () AS INTEGER
  580. DECLARE PUBLIC FUNCTION Lot_IsODBCParadoxSelected () AS INTEGER
  581. DECLARE PUBLIC FUNCTION Lot_IsODBCOracleSelected () AS INTEGER
  582. DECLARE PUBLIC FUNCTION Lot_IsODBCSQLServerSelected () AS INTEGER
  583. DECLARE PUBLIC FUNCTION Lot_RefreshLocalLotusapp () AS INTEGER
  584. DECLARE PUBLIC FUNCTION Lot_GetTheShareToolsSizeToMove (s$) AS LONG
  585. DECLARE PUBLIC FUNCTION Lot_DoMoveSHARE (s$) AS INTEGER
  586.  
  587. 'Local Functions
  588. DECLARE FUNCTION Lot_UpdateWinIni(s1$,s2$) AS INTEGER
  589. DECLARE FUNCTION Lot_TheEntryWasRefreshed(s$) AS INTEGER
  590. DECLARE FUNCTION Lot_GetAllSharedInstalled () AS INTEGER
  591. DECLARE FUNCTION Lot_WriteIniFiles () AS INTEGER
  592. DECLARE FUNCTION Lot_WriteLotusBcfFile()AS INTEGER
  593. DECLARE FUNCTION Lot_BackupLotusBcfFile()AS INTEGER
  594. DECLARE FUNCTION Lot_WriteEntry (s$,i%) AS INTEGER
  595. DECLARE FUNCTION Lot_WriteOLERegForShare(s$,i%) AS INTEGER
  596. 'DECLARE FUNCTION Lot_PutFilesInTheMoveList (s1$,s2$,s3$,s4$) AS INTEGER
  597. DECLARE FUNCTION Lot_GetNetCommDirPath (s1$,s2$) AS STRING
  598. DECLARE FUNCTION Lot_GetFileSize (s1$,s2$,s3$,i&) AS LONG
  599. DECLARE FUNCTION Lot_MoveFiles(s1$,s2$,s3$,s4$) AS INTEGER
  600. DECLARE FUNCTION Lot_IsConsolidationNeeded (s1$, s2$) AS LONG
  601. DECLARE FUNCTION Lot_GetSizeOfFilesInLotusappIni(s1$,s2$,s3$,size&) AS LONG
  602. DECLARE FUNCTION Lot_DoShareConsolidation(s1$, s2$, s3$) AS INTEGER
  603. DECLARE FUNCTION Lot_DoConsolidateFilesInLotusappIni(s1$, s2$) AS INTEGER
  604. DECLARE FUNCTION Lot_AddSectionToNodeList(s1$,s2$) AS INTEGER
  605. DECLARE FUNCTION Lot_GetEntryFlag(s1$) AS STRING
  606. DECLARE FUNCTION Lot_DoVerDateValidation(s1$,s2$,s3$,l&) AS INTEGER
  607. DECLARE FUNCTION Lot_DoCopyDelete(s1$,s2$,s3$,l&) AS INTEGER
  608. DECLARE FUNCTION Lot_DoDelete(s1$,s2$) AS INTEGER
  609. DECLARE FUNCTION Lot_IsTheChapterInstalled(s1$) AS INTEGER
  610. DECLARE SUB CONSOLIDATELOTUSAPPDIRCB (hDlg&, CtrlId%, Classes$, LInst&)
  611. DECLARE SUB CONSOLIDATEMOVECOPYCB (hDlg&, CtrlId%, Classes$, Inst&)
  612. DECLARE SUB ISTHISNETLOTUSAPPCB (hDlg&, CtrlId%, Classes$, Inst&)
  613. DECLARE SUB SQLSERVERNAMECB (hDlg&, CtrlId%, Classes$, Inst&)
  614. DECLARE SUB PARADOXNETWORKINFOCB (hDlg&, CtrlId%, Classes$, Inst&)
  615. DECLARE FUNCTION Lot_GetNetLotusappSource(s1$) AS STRING
  616. DECLARE FUNCTION Lot_GetLocalLotusappDest(s1$,s2$) AS STRING
  617. DECLARE FUNCTION Lot_MakeAPathFromLotusappIni(s1$,s2$,s3$) AS STRING
  618. DECLARE FUNCTION Lot_GetInLotusappIniSizeOfFilesToMove(s1$,s2$,s3$,s4$,l&) AS LONG
  619. DECLARE FUNCTION Lot_GetInLotusIniSizeOfFilesToMove(s1$,s2$,l&) AS LONG
  620. DECLARE FUNCTION Lot_ChkLotusIniSizePath(s1$,s2$,s3$,s4$) AS INTEGER
  621. DECLARE FUNCTION Lot_WriteShareInProgMan(Network$) AS INTEGER
  622. DECLARE FUNCTION Lot_IsExistingLotusappDirValid(BYVAL ExistingCommonDir$) AS INTEGER
  623. DECLARE SUB WriteODBCINST ( DriverDesc$, DriverPath$, SetupPath$ )
  624. DECLARE FUNCTION Lot_WriteODBCINST() AS INTEGER
  625. DECLARE FUNCTION Lot_ModifyODBC() AS INTEGER
  626. DECLARE FUNCTION Lot_ModifyDataLensIni() AS INTEGER
  627. DECLARE SUB WriteODBC20INST ( Driver$, SQLLvl$, APILvl$,  Usage$, Ext$, DrvVer$, Cnnct$ )
  628. DECLARE FUNCTION Lot_SaveShareConfigInInstallIni() AS INTEGER
  629.  
  630.  
  631. 'Global variables
  632. PUBLIC gNetCommDirPath AS STRING
  633. PUBLIC gConsolidateSize AS LONG
  634. PUBLIC gMoveSize AS LONG
  635.  
  636. 'Local variables
  637. PUBLIC ProgramPath$
  638. PUBLIC DataPath$
  639. PUBLIC UserPath$
  640. PUBLIC FilterPath$
  641. PUBLIC lDidAnyMove%
  642. PUBLIC GraphicsFileFiltersProgPath$
  643. PUBLIC DocFileFiltersProgPath$
  644. PUBLIC gDataLensInstalled AS INTEGER
  645. PUBLIC gODBCOnly     AS INTEGER
  646. PUBLIC gODBCSelected AS INTEGER
  647. DECLARE SUB INITIALIZE 
  648.  
  649. DIM ValidCommDir%
  650.  
  651. SUB INITIALIZE
  652.   ProgramPath$="Program Path"
  653.   DataPath$="Data Path"
  654.   UserPath$="User Path"
  655.   FilterPath$="Filter Path"
  656. END SUB
  657.  
  658. PUBLIC FUNCTION InitSHARE () AS INTEGER
  659.    InitSHARE32
  660.     InitSHARE = TRUE
  661. END FUNCTION
  662.  
  663. PUBLIC FUNCTION ConfigSHARE () AS INTEGER
  664.    ConfigSHARE32
  665.     ConfigSHARE = TRUE
  666. END FUNCTION
  667.  
  668. PUBLIC FUNCTION PreConfigSHARE () AS INTEGER
  669.     PreConfigSHARE = FALSE
  670. END FUNCTION
  671.  
  672. PUBLIC FUNCTION AddSHAREIcons () AS INTEGER
  673.     AddSHAREIcons = FALSE
  674. END FUNCTION
  675.  
  676. PUBLIC FUNCTION Lot_RefreshLocalLotusapp () AS INTEGER
  677.     Lot_RefreshLocalLotusapp = FALSE
  678. END FUNCTION
  679.  
  680. FUNCTION Lot_GetNetCommDirPath (gLotusIniPath$,gNetCommDirPath$) AS STRING
  681. '** Purpose:   This function investigates the users environment and 
  682. '**            find if Lotus.ini exists and if it has [Lotus Applications]
  683. '**            Section and Net Common Directory entry
  684. '** Author:    MZ
  685. '** Arguments: gLotusIniPath$,gNetCommDir$
  686. '** Returns:   gNetCommDirPath$
  687. '*************************************************************************
  688.    DIM gLotusIniExist%
  689.    'print "8 share"
  690.  
  691.    gNetCommDirPath$=""
  692.    gLotusIniExist% =  DoesFileExist(gLotusIniPath$, femExists)
  693.    IF gLotusIniExist% <>0 THEN
  694.       gNetCommDirPath$=Lot_LocalGetPathFromIni(gLotusIniPath$, "Lotus Applications", "Net Common Directory",NULLSTROK,INVALIDSTROK)
  695.    END IF
  696.  
  697.    Lot_GetNetCommDirPath = gNetCommDirPath$
  698.  
  699. END FUNCTION
  700. '*************************************************************************
  701.  
  702. PUBLIC FUNCTION Lot_IsDriverSelected (sid%) AS INTEGER
  703. '** Purpose:    Read the copy list and determines if Driver was selected to 
  704. '**             be installed 
  705. '** Author:     JMD
  706. '** Arguments:  None
  707. '** Returns:    1  if Driver was selected or
  708. '**             0  if Driver was not selected
  709. '*************************************************************************
  710.      DIM buf1$, CurrChpt$, ChapterName$
  711.      buf1$ = LdString(sid%)
  712.  
  713.      Lot_IsDriverSelected=0
  714.  
  715.      IF Lot_AreShareToolsSupported()=1 THEN
  716.  
  717.     CurrChpt$ = Lot_GetFirst("", F_SHARE+F_INOROUT) 
  718.     WHILE (CurrChpt$ <> "")
  719.        ChapterName$ = Lot_GetChapterValStr(CurrChpt$, F_NAME)
  720.        IF ChapterName$ = buf1$ THEN
  721.           Lot_IsDriverSelected=1
  722.           EXIT FUNCTION
  723.        END IF
  724.        CurrChpt$ = Lot_GetNext() 
  725.     WEND
  726.      END IF
  727.  
  728. END FUNCTION
  729.  
  730. PUBLIC FUNCTION Lot_IsSQLSelected () AS INTEGER
  731.     Lot_IsSQLSelected = Lot_IsDriverSelected(SID_SHARED_DATA_LENS_SQL) 
  732. END FUNCTION
  733.  
  734. PUBLIC FUNCTION Lot_IsParadoxSelected () AS INTEGER
  735.     Lot_IsParadoxSelected = Lot_IsDriverSelected(SID_SHARED_DATA_LENS_PARADOX) 
  736. END FUNCTION
  737.  
  738. PUBLIC FUNCTION Lot_IsdBaseSelected () AS INTEGER
  739.     Lot_IsdBaseSelected = Lot_IsDriverSelected(SID_SHARED_DATA_LENS_DBASE) 
  740. END FUNCTION
  741.  
  742. PUBLIC FUNCTION Lot_IsInformixSelected () AS INTEGER
  743.     Lot_IsInformixSelected = Lot_IsDriverSelected(SID_SHARED_DATA_LENS_INFORMIX) 
  744. END FUNCTION
  745.  
  746. PUBLIC FUNCTION Lot_IsIBMdBaseManagerSelected () AS INTEGER
  747.     Lot_IsIBMdBaseManagerSelected = Lot_IsDriverSelected(SID_SHARED_DATA_LENS_IBM_DBM) 
  748. END FUNCTION
  749.  
  750. PUBLIC FUNCTION Lot_IsNotesSQLSelected () AS INTEGER
  751.     Lot_IsNotesSQLSelected = Lot_IsDriverSelected(SID_SHARED_DATA_LENS_NOTESSQL) 
  752. END FUNCTION
  753.  
  754. PUBLIC FUNCTION Lot_IsSpreadSheetSelected () AS INTEGER
  755.     Lot_IsSpreadSheetSelected = Lot_IsDriverSelected(SID_SHARED_DATA_LENS_SPREADSHEET)
  756. END FUNCTION
  757.  
  758. PUBLIC FUNCTION Lot_IsIBM_DB2Selected () AS INTEGER
  759.     Lot_IsIBM_DB2Selected = Lot_IsDriverSelected(SID_SHARED_DATA_LENS_IBM_DB2) 
  760. END FUNCTION
  761.  
  762. PUBLIC FUNCTION Lot_IsDB2_SQLDS_Selected () AS INTEGER
  763.     Lot_IsDB2_SQLDS_Selected = Lot_IsDriverSelected(SID_SHARED_DATA_LENS_DB2_SQLDS) 
  764. END FUNCTION
  765.  
  766. PUBLIC FUNCTION Lot_IsDB2_SQL400_Selected () AS INTEGER
  767.     Lot_IsDB2_SQL400_Selected = Lot_IsDriverSelected(SID_SHARED_DATA_LENS_DB2_SQL400) 
  768. END FUNCTION
  769.  
  770. PUBLIC FUNCTION Lot_IsIBM_DDCS2_Selected () AS INTEGER
  771.     Lot_IsIBM_DDCS2_Selected = Lot_IsDriverSelected(SID_SHARED_DATA_LENS_IBM_DDCS_2) 
  772. END FUNCTION
  773.  
  774. PUBLIC FUNCTION Lot_IsODBCDriverSelected () AS INTEGER
  775.     Lot_IsODBCDriverSelected = Lot_IsDriverSelected(SID_SHARED_DATA_LENS_ODBCD) 
  776. END FUNCTION
  777.  
  778. PUBLIC FUNCTION Lot_IsODBCSpreadSheetSelected () AS INTEGER
  779.     Lot_IsODBCSpreadSheetSelected = Lot_IsDriverSelected(SID_SHARED_ODBC_SPREADSHEET) 
  780. END FUNCTION
  781.  
  782. PUBLIC FUNCTION Lot_IsODBCTextDriverSelected () AS INTEGER
  783.     Lot_IsODBCTextDriverSelected = Lot_IsDriverSelected(SID_SHARED_ODBC_TEXTDRVR) 
  784. END FUNCTION
  785.  
  786. PUBLIC FUNCTION Lot_IsOracleSelected () AS INTEGER
  787.     Lot_IsOracleSelected = Lot_IsDriverSelected(SID_SHARED_DATA_LENS_ORACLE) 
  788. END FUNCTION
  789.  
  790. PUBLIC FUNCTION Lot_IsODBCBtrieveSelected () AS INTEGER
  791.     Lot_IsODBCBtrieveSelected = Lot_IsDriverSelected(SID_SHARED_ODBC_Btrieve) 
  792. END FUNCTION
  793.  
  794. PUBLIC FUNCTION Lot_IsODBCDB2Selected () AS INTEGER
  795.     Lot_IsODBCDB2Selected = Lot_IsDriverSelected(SID_SHARED_ODBC_DB2) 
  796. END FUNCTION
  797.  
  798. PUBLIC FUNCTION Lot_IsODBCFoxbaseSelected () AS INTEGER
  799.     Lot_IsODBCFoxbaseSelected = Lot_IsDriverSelected(SID_SHARED_ODBC_FOXBASE) 
  800. END FUNCTION
  801.  
  802. PUBLIC FUNCTION Lot_IsODBCAccessSelected () AS INTEGER
  803.     Lot_IsODBCAccessSelected = Lot_IsDriverSelected(SID_SHARED_ODBC_ACCESS) 
  804. END FUNCTION
  805.  
  806. PUBLIC FUNCTION Lot_IsODBCParadoxSelected () AS INTEGER
  807.     Lot_IsODBCParadoxSelected = Lot_IsDriverSelected(SID_SHARED_ODBC_PARADOX) 
  808. END FUNCTION
  809.  
  810. PUBLIC FUNCTION Lot_IsODBCOracleSelected () AS INTEGER
  811.     Lot_IsODBCOracleSelected = Lot_IsDriverSelected(SID_SHARED_ODBC_Oracle) 
  812. END FUNCTION
  813.  
  814. PUBLIC FUNCTION Lot_IsODBCSQLServerSelected () AS INTEGER
  815.     Lot_IsODBCSQLServerSelected = Lot_IsDriverSelected(SID_SHARED_ODBC_SQLSERVER) 
  816. END FUNCTION
  817.  
  818.