home *** CD-ROM | disk | FTP | other *** search
/ ftp.uv.es / 2014.11.ftp.uv.es.tar / ftp.uv.es / pub / windows / network / wsock / Netscape / n16e122.exe / setup.mst < prev    next >
Text File  |  1995-09-26  |  11KB  |  328 lines
  1. '**************************************************************************
  2. '*                              Netscape Setup
  3. '**************************************************************************
  4.  
  5. '$DEFINE DEBUG  ''Define for script development/debugging
  6.  
  7. '$INCLUDE 'setupapi.inc'
  8. '$INCLUDE 'msdetect.inc'
  9.  
  10. ''Dialog ID's
  11. CONST WELCOME       = 100
  12. CONST ASKQUIT       = 200
  13. CONST PROGROUP      = 260
  14. CONST DESTPATH      = 300
  15. CONST EXITFAILURE   = 400
  16. CONST EXITQUIT      = 600
  17. CONST EXITSUCCESS   = 700
  18. CONST OPTIONS       = 800
  19. CONST APPHELP       = 900
  20. CONST BADPATH       = 6400
  21.  
  22. ''Bitmap ID
  23. CONST LOGO = 1
  24.  
  25. GLOBAL DEST$        ''Default destination directory.
  26.  
  27. CONST SW_MINIMIZE   = 6
  28. CONST SW_RESTORE    = 9
  29. CONST SW_SHOW       = 5
  30.  
  31. CONST IDYES         = 6
  32.  
  33. DECLARE FUNCTION FindWindow LIB "user" (szClassName$, szWindow$) AS INTEGER
  34. DECLARE SUB      ShowWindow LIB "user" (hwnd%, nCmdShow%)
  35. DECLARE SUB      WinExec LIB "kernel" (szCmdLine$, nCmdShow%)
  36.  
  37. DECLARE SUB      UpdateNetscapeIni LIB "mscuistf.dll" (szIniPath$)
  38.  
  39. DECLARE FUNCTION IsBadWin32s LIB "mscuistf.dll" () AS INTEGER
  40.  
  41. DECLARE SUB      Install
  42. DECLARE SUB      CreateNewsDir (szNetscapeIni$, szNewsDir$)
  43. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  44.  
  45. INIT:
  46.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  47.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  48.  
  49.     SetBitmap CUIDLL$, LOGO
  50.     SetTitle "Netscape Setup"
  51.  
  52.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  53.     IF szInf$ = "" THEN
  54.         szInf$ = GetSymbolValue("STF_CWDDIR") + "SETUP.INF"
  55.     END IF
  56.     ReadInfFile szInf$
  57.  
  58.     ' See if the user is running a version of Win32s less than 1.2
  59.     IF IsBadWin32s() THEN
  60.         szErrText$ = "Version 1.1 of the Netscape Navigator uses OLE 2.02, which is not compatible with this version of Win32s."
  61.         szErrText$ = szErrText + " You must upgrade to Win32s version 1.2 before installing the Netscape Navigator."
  62.         szErrText$ = szErrText + "\nFor more information, please read the Netscape Navigator README.TXT file."
  63.         i% = DoMsgBox(szErrText$, "Netscape Setup", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  64.         END
  65.     END IF
  66.  
  67.     ' If there is an existing Netscape installation then use the current
  68.     ' directory as the default location; otherwise use \NETSCAPE
  69.     DEST$ = GetIniKeyString("WIN.INI", "Netscape", "ini")
  70.     IF DEST$ = "" THEN
  71.         DEST$ = MID$(GetWindowsDir, 1, 1) + ":\NETSCAPE"
  72.     ELSE
  73.         SPLITPATH DEST$, drv$, dir$, filename$, ext$
  74.         DEST$ = drv$ + MID$(dir$, 1, LEN(dir$) - 1)
  75.     END IF
  76.  
  77. WELCOME:
  78.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  79.     IF sz$ = "CONTINUE" THEN
  80.         UIPop 1
  81.     ELSE
  82.         GOSUB ASKQUIT
  83.         GOTO WELCOME
  84.     END IF
  85.  
  86. GETPATH:
  87.     SetSymbolValue "EditTextIn", DEST$
  88. GETPATHL1:
  89.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FGetPathDlgProc", APPHELP, HELPPROC$)
  90.     DEST$ = GetSymbolValue("EditTextOut")
  91.  
  92.     IF sz$ = "CONTINUE" THEN
  93.         IF IsDirWritable(DEST$) = 0 THEN
  94.             GOSUB BADPATH
  95.             GOTO GETPATHL1
  96.         END IF
  97.         UIPop 1
  98.     ELSEIF sz$ = "REACTIVATE" THEN
  99.         GOTO GETPATHL1
  100.     ELSE
  101.         GOSUB ASKQUIT
  102.         GOTO GETPATH
  103.     END IF
  104.  
  105. CHOOSEGROUP:
  106.     SetSymbolValue "ProgramGroup", "Netscape"
  107. CHOOSEGROUP1:
  108.     sz$ = UIStartDlg(CUIDLL$, PROGROUP, "FProgramGroupDlgProc", APPHELP, HELPPROC$)
  109.  
  110.     IF sz$ = "CONTINUE" THEN
  111.         UIPop 1
  112.     ELSEIF sz$ = "REACTIVATE" THEN
  113.         GOTO CHOOSEGROUP1
  114.     ELSE
  115.         GOSUB ASKQUIT
  116.         GOTO CHOOSEGROUP1
  117.     END IF
  118.  
  119.     Install
  120.  
  121. QUIT:
  122.     ON ERROR GOTO ERRQUIT
  123.  
  124.     IF ERR = 0 THEN
  125.         IF DoMsgBox("Installation is complete. Would you like to read the README file now?", "Netscape Setup", MB_YESNO) = IDYES THEN
  126.             WinExec "NOTEPAD " + MakePath(DEST$, "README.TXT"), SW_SHOW
  127.         END IF
  128.         END
  129.     ELSEIF ERR = STFQUIT THEN
  130.         dlg% = EXITQUIT
  131.     ELSE
  132.         dlg% = EXITFAILURE
  133.     END IF
  134. QUITL1:
  135.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  136.     IF sz$ = "REACTIVATE" THEN
  137.         GOTO QUITL1
  138.     END IF
  139.     UIPop 1
  140.  
  141.     END
  142.  
  143. ERRQUIT:
  144.     i% = DoMsgBox("Setup sources were corrupted!", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  145.     END
  146.  
  147. BADPATH:
  148.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  149.     IF sz$ = "REACTIVATE" THEN
  150.         GOTO BADPATH
  151.     END IF
  152.     UIPop 1
  153.     RETURN
  154.  
  155. ASKQUIT:
  156.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  157.  
  158.     IF sz$ = "EXIT" THEN
  159.         UIPopAll
  160.         ERROR STFQUIT
  161.     ELSEIF sz$ = "REACTIVATE" THEN
  162.         GOTO ASKQUIT
  163.     ELSE
  164.         UIPop 1
  165.     END IF
  166.     RETURN
  167.  
  168. '**
  169. '** Purpose:
  170. '**     Creates specified news directory
  171. '** Arguments:
  172. '**     Path to Netscape INI file and directory to create.
  173. '** Returns:
  174. '**     none.
  175. '*************************************************************************
  176. SUB CreateNewsDir (szNetscapeIni$, szNewsDir$) STATIC
  177.     ' Check for a file with the same name as the directory we are trying to create
  178.     IF DoesFileExist(szNewsDir$, femExists) THEN
  179.         ' Try using MOZNEWS as the directory name
  180.         IF DoesFileExist(MakePath(DEST$, "MOZNEWS"), fmExists) = 0 THEN
  181.             CreateDir MakePath(DEST$, "MOZNEWS"), cmoNone
  182.  
  183.             ' Add a line to the Netscape INI file pointing to the news directory
  184.             CreateIniKeyValue szNetscapeIni$, "News", "News Directory", MakePath(DEST$, "MOZNEWS"), cmoOverwrite
  185.         END IF
  186.     ELSE
  187.         CreateDir szNewsDir$, cmoNone
  188.  
  189.         ' Add a line to the Netscape INI file pointing to the news directory
  190.         CreateIniKeyValue szNetscapeIni$, "News", "News Directory", szNewsDir$, cmoOverwrite
  191.     END IF
  192. END SUB
  193.  
  194.  
  195. '**
  196. '** Purpose:
  197. '**     Builds the copy list and performs all installation operations.
  198. '** Arguments:
  199. '**     none.
  200. '** Returns:
  201. '**     none.
  202. '*************************************************************************
  203. SUB Install STATIC
  204.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  205.     ' Create user specified directory and CACHE sub-directory
  206.     CreateDir DEST$, cmoNone
  207.     CreateDir MakePath(DEST$, "CACHE"), cmoNone
  208.  
  209.     AddSectionFilesToCopyList "Files", SrcDir$, DEST$
  210.  
  211.     ' Files needed for OLE2 go in the Windows SYSTEM directory
  212.     AddSectionFilesToCopyList "OLE2", SrcDir$, GetWindowsSysDir
  213.  
  214.     ' If there is an existing NETSCAPE.INI file then ask the user if they
  215.     ' want to overwrite the existing file
  216.     IF DoesFileExist(MakePath(DEST$, "NETSCAPE.INI"), femExists) THEN
  217.         IF DoMsgBox("Do you want to overwrite the existing NETSCAPE.INI file?", "Netscape Setup", MB_YESNO) = IDYES THEN
  218.             AddSectionFilesToCopyList "INI", SrcDir$, DEST$
  219.         END IF
  220.     ELSE
  221.         AddSectionFilesToCopyList "INI", SrcDir$, DEST$
  222.     END IF
  223.  
  224.     CopyFilesInCopyList
  225.  
  226.     ' Merge OLE2 registration into system registry
  227.     WinExec "REGEDIT /S OLE2.REG", SW_SHOW
  228.  
  229.     ' Modify the win.ini file to have a [Netscape] section with a keyname-value
  230.     ' pair for the Netscape INI file location
  231.     CreateIniKeyValue "WIN.INI", "Netscape", "ini", MakePath(DEST$, "NETSCAPE.INI"), cmoOverwrite
  232.  
  233.     szNetscapeIni$ = MakePath(DEST$, "NETSCAPE.INI")
  234.  
  235.     ' If the user specified an installation location other than the default
  236.     ' location, then update the netscape.ini file accordingly
  237.     IF DEST$ <> "C:\NETSCAPE" THEN
  238.         UpdateNetscapeIni szNetscapeIni$
  239.     END IF
  240.  
  241.     ' See if there is a news directory specified in the INI file
  242.     szNewsDir$ = GetIniKeyString(szNetscapeIni$, "News", "News Directory")
  243.     IF szNewsDir$ = "" THEN
  244.         CreateNewsDir szNetscapeIni$, MakePath(DEST$, "NEWS")
  245.     ELSEIF DoesDirExist(szNewsDir$) = 0 THEN
  246.         CreateNewsDir szNetscapeIni$, szNewsDir$
  247.     END IF
  248.  
  249.     ' Check to see if the NEWSRC file specified in the NETSCAPE.INI actually exists
  250.     szNewsRC$ = GetIniKeyString(szNetscapeIni$, "Main", "News RC")
  251.     IF szNewsRC$ <> "" THEN
  252.         IF DoesFileExist(szNewsRC$, femExists) = 0 THEN
  253.             ' Make the default NEWSRC file be in the NEWS sub-directory
  254.             CreateIniKeyValue szNetscapeIni$, "Main", "News RC", MakePath(DEST$, "NEWS\NEWSRC"), cmoOverwrite
  255.         END IF
  256.     END IF
  257.  
  258.     ' Setup Netscape to use the audio player as an external viewer
  259.     CreateIniKeyValue szNetscapeIni$, "Viewers", "audio/basic", MakePath(DEST$, "NAPLAYER.EXE"), cmoOverwrite
  260.     CreateIniKeyValue szNetscapeIni$, "Viewers", "audio/x-aiff", MakePath(DEST$, "NAPLAYER.EXE"), cmoOverwrite
  261.     CreateIniKeyValue szNetscapeIni$, "Suffixes", "audio/basic", "au,snd", cmoOverwrite
  262.     CreateIniKeyValue szNetscapeIni$, "Suffixes", "audio/x-aiff", "aif,aiff,aifc", cmoOverwrite
  263.  
  264.     ' Make sure that the user doesn't have a home page containing mcom.com
  265.     szHomePage$ = GetIniKeyString(szNetscapeIni$, "Main", "Home Page")
  266.     IF InStr(LCase$(szHomePage$), "mcom.com") THEN
  267.     ' IF szHomePage$ = "http://home.mcom.com/home/welcome.html" THEN
  268.         CreateIniKeyValue szNetscapeIni$, "Main", "Home Page", "http://home.netscape.com/", cmoOverwrite
  269.     END IF
  270.  
  271.     ' If the user doesn't have an existing cookie file, then see if they have an existing
  272.     ' internetMCI cookie file and if they do make a copy of it
  273.     szCookieFile$ = GetIniKeyString(szNetscapeIni$, "Cookies", "Cookie File")
  274.     IF szCookieFile$ = "" THEN
  275.         szCookieFile$ = MakePath(DEST$, "COOKIES.TXT")
  276.     END IF
  277.     IF DoesFileExist(szCookieFile$, femExists) = 0 THEN
  278.         szInternetMCI$ = GetIniKeyString("WIN.INI", "IMCI", "ini")
  279.         IF szInternetMCI$ <> "" THEN
  280.             szMCICookie$ = GetIniKeyString(szInternetMCI$, "Cookies", "Cookie File")
  281.             IF szMCICookie$ <> "" THEN
  282.                 IF DoesFileExist(szMCICookie$, femExists) THEN
  283.                     CopyFile szMCICookie$, szCookieFile$, cmoNone, 0
  284.                 END IF
  285.             END IF
  286.         END IF
  287.     END IF
  288.  
  289.     ' Show the Program Manager
  290.     ShowWindow FindWindow("PROGMAN", NULL), SW_RESTORE
  291.  
  292.     ' Update program group and program items
  293.     Group$ = GetSymbolValue("ProgramGroup")
  294.     CreateProgmanGroup Group$, "", cmoNone
  295.     ShowProgmanGroup  Group$, 1, cmoNone
  296.     SLEEP 1
  297.     CreateProgmanItem Group$, "Netscape", MakePath(DEST$, "NETSCAPE.EXE"), "", cmoOverwrite
  298.  
  299.     ' Only add a README file icon if this is the default program group
  300.     if Group$ = "Netscape" then
  301.         CreateProgmanItem Group$, "Read Me", "notepad "+ MakePath(DEST$, "README.TXT"), "", cmoOverwrite
  302.     end if
  303.     SLEEP 1
  304. END SUB
  305.  
  306. '**
  307. '** Purpose:
  308. '**     Appends a file name to the end of a directory path,
  309. '**     inserting a backslash character as needed.
  310. '** Arguments:
  311. '**     szDir$  - full directory path (with optional ending "\")
  312. '**     szFile$ - filename to append to directory
  313. '** Returns:
  314. '**     Resulting fully qualified path name.
  315. '*************************************************************************
  316. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  317.     IF szDir$ = "" THEN
  318.         MakePath = szFile$
  319.     ELSEIF szFile$ = "" THEN
  320.         MakePath = szDir$
  321.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  322.         MakePath = szDir$ + szFile$
  323.     ELSE
  324.         MakePath = szDir$ + "\" + szFile$
  325.     END IF
  326. END FUNCTION
  327. 
  328.