home *** CD-ROM | disk | FTP | other *** search
/ Chip 1996 January / Chip_Special_Best_Web_Sites_01-96.iso / pc / zugang / maz / chp.mst < prev    next >
Encoding:
Text File  |  1995-09-11  |  9.0 KB  |  298 lines
  1. '**************************************************************************
  2. '*                       CHIP-Netsurf-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 DESTPATH      = 300
  14. CONST EXITFAILURE   = 400
  15. CONST EXITQUIT      = 600
  16. CONST EXITSUCCESS   = 700
  17. ''CONST OPTIONS     = 800
  18. CONST Modem_Config  = 1100
  19. CONST APPHELP       = 900
  20. CONST BADPATH       = 6400
  21. CONST Internet_HELP = 1000
  22. CONST ISC_DLG      = 1205
  23.  
  24. ''Bitmap ID
  25. CONST LOGO = 1
  26.  
  27. GLOBAL DEST$           ''Default destination directory.
  28. GLOBAL ModemInitIn$    ''Modem Init-String Default
  29. GLOBAL ModemDialIn$    ''Modem Dial-String Default
  30. GLOBAL ComPort$        ''Modem-Port
  31. GLOBAL ModemInit$      ''Modem Init-String
  32. GLOBAL ModemDial$      ''Modem Dial-String
  33. GLOBAL IP_Adr$         ''IP-Adresse
  34. GLOBAL Number$         ''MAZ-Telephonnummer
  35. GLOBAL UserName$       ''Loginname
  36. GLOBAL ISC_number1$     ''ISC_Telephonnummer
  37. GLOBAL ISC_number2$     ''ISC_Telephonnummer
  38. GLOBAL ISC_number3$     ''ISC_Telephonnummer
  39. GLOBAL ISC_account$    ''ISC_Account
  40. GLOBAL ISC_pop3$       ''ISC_POP3_Server
  41. GLOBAL ISC_http_proxy$ ''ISC_http_proxy
  42. GLOBAL ISC_ftp_proxy$  ''ISC_ftp_proxy
  43. GLOBAL WinDir$         ''Winbdows-Verzeichnis
  44. DECLARE SUB Install
  45. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  46.  
  47.  
  48. INIT:
  49.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  50.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  51.  
  52.     SetBitmap CUIDLL$, LOGO
  53.     SetTitle "CHIP-Netsurf Setup"
  54.  
  55.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  56.     IF szInf$ = "" THEN
  57.         szInf$ = GetSymbolValue("STF_CWDDIR") + "SETUP.INF"
  58.     END IF
  59.     ReadInfFile szInf$
  60.  
  61.     OPTCUR$ = "1"
  62.     DEST$ = "C:\NETSURF"
  63.     
  64.     ModemInitIn$ = "ATZ"
  65.     ModemDialIn$ = "ATDP"
  66.  
  67. '$IFDEF DEBUG
  68.     i% = SetSizeCheckMode(scmOnIgnore)    '' could use scmOff; def = scmOnFatal
  69.     WinDir$ = GetWindowsDir
  70.     IF IsDriveValid(WinDir$) = 0 THEN
  71.         i% = DoMsgBox("Windows drive ('"+WinDir$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  72.         GOTO QUIT
  73.     END IF
  74. '$ENDIF ''DEBUG
  75.  
  76.  
  77. WELCOME:
  78.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", Internet_HELP, HELPPROC$)
  79.     IF sz$ = "BACK" THEN
  80.         bla$=UIStartDlg(CUIDLL$,999, "FCopyright", Internet_HELP, HELPPROC$)
  81.         UIPop 1
  82.         GOTO WELCOME
  83.     ELSE
  84.         IF sz$ = "CONTINUE" THEN
  85.             UIPop 1
  86.             GOTO OPTION     
  87.         ELSE
  88.             GOSUB ASKQUIT
  89.             GOTO WELCOME
  90.         END IF
  91.    END IF
  92.  
  93. OPTION:
  94.     SetSymbolValue "Modem_InitIn", ModemInitIn$
  95.     SetSymbolValue "Modem_DialIn", ModemDialIn$
  96. OPTL1:
  97.     sz$ = UIStartDlg(CUIDLL$, Modem_Config, "FModemConfDlgProc", APPHELP, HELPPROC$)
  98.  
  99.     ComPort$   = GetSymbolValue("ButtonChecked")
  100.     ModemInit$ = GetSymbolValue("Modem_InitOut")
  101.     ModemDial$ = GetSymbolValue("Modem_DialOut")
  102.     
  103.     IF sz$ = "CONTINUE" THEN
  104.         UIPop(1)
  105.     ELSEIF sz$ = "REACTIVATE" THEN
  106.         GOTO OPTL1
  107.     ELSE
  108.         GOSUB ASKQUIT
  109.         GOTO OPTION
  110.     END IF
  111.  
  112. ISC:
  113.     sz$ = UIStartDlg(CUIDLL$, ISC_DLG, "FISCListDlgProc", Internet_HELP, HELPPROC$)
  114.     ISC_account$=GetSymbolValue("ISC_Line")
  115.     ISC_number1$=GetSymbolValue("ISC_Number1")
  116.     ISC_number2$=GetSymbolValue("ISC_Number2")
  117.     ISC_number3$=GetSymbolValue("ISC_Number3")
  118.     ISC_pop3$=GetSymbolValue("ISC_POP3")
  119. ''    dummy=DoMsgBox(ISC_pop3$,ISC_number$,MB_APPLMODAL)
  120.     IF sz$ = "CONTINUE" THEN
  121.         UIPop 1
  122.     ELSE
  123.         GOSUB ASKQUIT
  124.         GOTO ISC
  125.     END IF
  126.  
  127.  
  128.  
  129.  
  130. GETPATH:
  131.     SetSymbolValue "EditTextIn", DEST$
  132.     SetSymbolValue "EditFocus", "END"
  133. GETPATHL1:
  134.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
  135.     DEST$ = GetSymbolValue("EditTextOut")
  136.  
  137.     IF sz$ = "CONTINUE" THEN
  138.         IF IsDirWritable(DEST$) = 0 THEN
  139.             GOSUB BADPATH
  140.             GOTO GETPATHL1
  141.         END IF
  142. ''        IF exists(DEST$) = 0 THEN
  143. ''           result=DoMsgBox("Moechten sie das Verzeichnis ueberschreiben?","Verzeichnis existiert",MB_OKCANCEL OR 1)
  144. ''           IF result<>1 THEN
  145. ''             GOTO GETPATHL1
  146. ''           END IF
  147. ''        END IF
  148.         UIPop 1
  149.     ELSEIF sz$ = "REACTIVATE" THEN
  150.         GOTO GETPATHL1
  151.     ELSEIF sz$ = "BACK" THEN
  152.         UIPop 1
  153.         GOTO OPTION
  154.     ELSE
  155.         GOSUB ASKQUIT
  156.         GOTO GETPATH
  157.     END IF
  158.  
  159.  
  160.     Install
  161.  
  162.  
  163. QUIT:
  164.     ON ERROR GOTO ERRQUIT
  165.  
  166.     IF ERR = 0 THEN
  167.         dlg% = EXITSUCCESS
  168.     ELSEIF ERR = STFQUIT THEN
  169.         dlg% = EXITQUIT
  170.     ELSE
  171.         dlg% = EXITFAILURE
  172.     END IF
  173. QUITL1:
  174.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  175.     IF sz$ = "REACTIVATE" THEN
  176.         GOTO QUITL1
  177.     END IF
  178.     UIPop 1
  179.  
  180.     END
  181.  
  182. ERRQUIT:
  183.     i% = DoMsgBox("Setup sources were corrupted, call 555-1212!", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  184.     END
  185.  
  186.  
  187.  
  188. BADPATH:
  189.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  190.     IF sz$ = "REACTIVATE" THEN
  191.         GOTO BADPATH
  192.     END IF
  193.     UIPop 1
  194.     RETURN
  195.  
  196.  
  197.  
  198. ASKQUIT:
  199.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  200.  
  201.     IF sz$ = "EXIT" THEN
  202.         UIPopAll
  203.         ERROR STFQUIT
  204.     ELSEIF sz$ = "REACTIVATE" THEN
  205.         GOTO ASKQUIT
  206.     ELSE
  207.         UIPop 1
  208.     END IF
  209.     RETURN
  210.  
  211.  
  212.  
  213. '**
  214. '** Purpose:
  215. '**     Builds the copy list and performs all installation operations.
  216. '** Arguments:
  217. '**     none.
  218. '** Returns:
  219. '**     none.
  220. '*************************************************************************
  221. SUB Install STATIC
  222.  
  223.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  224.     WinSockDir$ = DEST$+"\WINSOCK"
  225.     WinWebDir$ = DEST$+"\WINWEB"
  226.     WS_FTPDir$ = DEST$+"\WS_FTP"
  227.     WS_PingDir$ = DEST$+"\WS_PING"
  228.     WS_ArchieDir$ = DEST$+"\WS_ARCH"
  229.     WinWebDir$ = DEST$+"\WINWEB"
  230.  
  231.     CreateDir DEST$, cmoNone
  232.     CreateDir WinSockDir$, cmoNone
  233.     CreateDir WinWebDir$, cmoNone
  234.     CreateDir WS_FTPDir$, cmoNone
  235.  
  236.     AddSectionFilesToCopyList "Setup", SrcDir$, DEST$
  237.     AddSectionFilesToCopyList "Winsock", SrcDir$, WinSockDir$
  238.     AddSectionFilesToCopyList "WinWeb", SrcDir$, WinWebDir$
  239.     AddSectionFilesToCopyList "WinWebIni", SrcDir$, WinDir$
  240.     AddSectionFilesToCopyList "AddSetup", SrcDir$, DEST$
  241.     AddSectionFilesToCopyList "WS_FTP", SrcDir$, WS_FTPDir$
  242.  
  243.     CopyFilesInCopyList
  244.  
  245.     WinsockIni$  = MakePath(WinSockDir$,  "TRUMPWSK.INI")
  246.     WS_FTPIni$   = MakePath(WS_FTPDir$,   "WS_FTP.INI")
  247.     WinWebIni$   = MakePath(WinDir$,"WINWEB.INI")
  248.  
  249.     CreateIniKeyValue "WIN.INI", "Netsurf", "NS_Dir", Dest$, cmoOverwrite
  250.     CreateIniKeyValue "WIN.INI", "Netsurf", "WS_FTP", MakePath(WS_FTPDir$,"WS_FTP.EXE"), cmoOverwrite
  251.     CreateIniKeyValue "WIN.INI", "Netsurf", "POP3", ISC_POP3$, cmoOverwrite
  252.  
  253.     CreateIniKeyValue WinsockIni$, "Trumpet Winsock", "slip-port", ComPort$, cmoOverwrite
  254.     CreateIniKeyValue WinsockIni$, "Trumpet Winsock", "ip", "0.0.0.0", cmoOverwrite
  255.     CreateIniKeyValue WinsockIni$, "default vars", "$number1", ISC_number1$, cmoOverwrite
  256.     CreateIniKeyValue WinsockIni$, "default vars", "$number2", ISC_number2$, cmoOverwrite
  257.     CreateIniKeyValue WinsockIni$, "default vars", "$number3", ISC_number3$, cmoOverwrite
  258.     CreateIniKeyValue WinsockIni$, "default vars", "$username", ISC_account$, cmoOverwrite
  259.     CreateIniKeyValue WinsockIni$, "default vars", "$initstring", ModemInit$, cmoOverwrite
  260.     CreateIniKeyValue WinsockIni$, "default vars", "$dialstring", ModemDial$, cmoOverwrite
  261.   
  262.     CreateProgmanGroup "CHIP Netsurf", "", cmoOverwrite
  263.     ShowProgmanGroup  "CHIP Netsurf", 1, cmoNone
  264.     CreateProgmanItem "CHIP Netsurf", "Trumpet Winsock", MakePath(WinSockDir$,"TCPMAN.EXE"), "", cmoOverwrite
  265.     CreateProgmanItem "CHIP Netsurf", "WinWeb", MakePath(WinWebDir$,"WINWEB.EXE"), "", cmoOverwrite
  266.     CreateProgmanItem "CHIP Netsurf", "Readme", MakePath(DEST$,"NETSURF.TXT"), "", cmoOverwrite
  267.     CreateProgmanItem "CHIP Netsurf", "WS FTP", MakePath(WS_FTPDir$,"WS_FTP.EXE"), "", cmoOverwrite
  268.     CreateProgManItem "CHIP Netsurf", "Nach der Registrierung", MakePath(Dest$,"ADDSETUP.EXE"), "", cmoOverwrite
  269.  
  270.     RUN "NOTEPAD.EXE " + MakePath(DEST$,"NETSURF.TXT")
  271.     
  272. END SUB
  273.  
  274.  
  275.  
  276. '**
  277. '** Purpose:
  278. '**     Appends a file name to the end of a directory path,
  279. '**     inserting a backslash character as needed.
  280. '** Arguments:
  281. '**     szDir$  - full directory path (with optional ending "\")
  282. '**     szFile$ - filename to append to directory
  283. '** Returns:
  284. '**     Resulting fully qualified path name.
  285. '*************************************************************************
  286. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  287.     IF szDir$ = "" THEN
  288.         MakePath = szFile$
  289.     ELSEIF szFile$ = "" THEN
  290.         MakePath = szDir$
  291.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  292.         MakePath = szDir$ + szFile$
  293.     ELSE
  294.         MakePath = szDir$ + "\" + szFile$
  295.     END IF
  296. END FUNCTION
  297.  
  298.