home *** CD-ROM | disk | FTP | other *** search
/ Chip 1996 January / Chip_Special_Best_Web_Sites_01-96.iso / pc / zugang / maz / addsetup.ms_ / addsetup.ms
Text File  |  1995-09-11  |  8KB  |  270 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.  
  23. ''Bitmap ID
  24. CONST LOGO = 1
  25.  
  26. GLOBAL DEST$        ''Default destination directory.
  27. GLOBAL ModemInitIn$ ''Modem Init-String Default
  28. GLOBAL ModemDialIn$ ''Modem Dial-String Default
  29. GLOBAL ComPort$     ''Modem-Port
  30. GLOBAL ModemInit$   ''Modem Init-String
  31. GLOBAL ModemDial$   ''Modem Dial-String
  32. GLOBAL IP_Adr$      ''IP-Adresse
  33. GLOBAL Number$      ''MAZ-Telephonnummer
  34. GLOBAL UserName$    ''Loginname
  35. GLOBAL ISC_POP3$    ''POP-Server
  36. GLOBAL LoginName$
  37. GLOBAL Vorname$
  38. GLOBAL Nachname$
  39. GLOBAL Password$
  40. GLOBAL GetEudora$
  41. GLOBAL GetAgent$
  42. GLOBAL WinDir$      ''Windows-Verzeichnis
  43. DECLARE SUB Install
  44. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  45.  
  46.  
  47. INIT:
  48.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  49.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  50.  
  51.     SetBitmap CUIDLL$, LOGO
  52.     SetTitle "CHIP-Netsurf Setup"
  53.  
  54.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  55.     IF szInf$ = "" THEN
  56.         szInf$ = GetSymbolValue("STF_CWDDIR") + "SETUP.INF"
  57.     END IF
  58.     ReadInfFile szInf$
  59.  
  60.     OPTCUR$ = "1"
  61.     DEST$ = "C:\NETSURF"
  62.     
  63.     ModemInitIn$ = "AT&F"
  64.     ModemDialIn$ = "ATDP"
  65.  
  66. '$IFDEF DEBUG
  67.     i% = SetSizeCheckMode(scmOnIgnore)    '' could use scmOff; def = scmOnFatal
  68.     WinDir$ = GetWindowsDir
  69.     IF IsDriveValid(WinDir$) = 0 THEN
  70.         i% = DoMsgBox("Windows drive ('"+WinDir$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  71.         GOTO QUIT
  72.     END IF
  73. '$ENDIF ''DEBUG
  74.  
  75.  
  76. WELCOME:
  77.     DEST$= GetIniKeyString("WIN.INI","NetSurf","NS_Dir")
  78. REM    Temp$=GetIniKeyString(WinDir$+"WINWEB.INI","Options","HomePage")
  79. REM     CreateIniKeyValue WinDir$+"WINWEB.INI","Options","HomePage","http://www.netsurf.de/netsurf/teilnahme/diewelt.html",cmoOverwrite
  80. REM     RUN DEST$+"\WINWEB\WINWEB.EXE"
  81. REM     CreateIniKeyValue WinDir$+"WINWEB.INI","Options","HomePage",Temp$,cmoOverwrite
  82.  
  83. SOFTWARE:
  84.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", Internet_HELP, HELPPROC$)
  85.     IF sz$ = "CONTINUE" THEN
  86.         UIPop 1
  87.         GOTO OPTION     
  88.     ELSE
  89.         GOSUB ASKQUIT
  90.         GOTO SOFTWARE
  91.     END IF
  92.  
  93. OPTION:
  94. ''    SetSymbolValue "RadioDefault", OPTCUR$
  95. ''    SetSymbolValue "Modem_InitIn", ModemInitIn$
  96. ''    SetSymbolValue "Modem_DialIn", ModemDialIn$
  97. OPTL1:
  98.     sz$ = UIStartDlg(CUIDLL$, Modem_Config, "FModemConfDlgProc", APPHELP, HELPPROC$)
  99.     
  100.     GetEudora$ = GetSymbolValue("eudora.zip")
  101.     GetAgent$= GetSymbolValue("agent.zip")
  102. ''    i% = DoMsgBox("Setup sources were corrupted, call 555-1212!", GetEudora$, MB_OK+MB_TASKMODAL+MB_ICONHAND)
  103.     IF sz$ = "CONTINUE" THEN
  104.         UIPop(1)
  105.     ELSEIF sz$ = "REACTIVATE" THEN
  106.         UIPop(1)
  107. ''        GOTO OPTL1
  108.     ELSE
  109.         GOSUB ASKQUIT
  110.         GOTO OPTION
  111.     END IF
  112.  
  113.  
  114.  
  115.  
  116. GETPATH:
  117. ''    SetSymbolValue "EditTextIn", DEST$
  118. ''    SetSymbolValue "EditFocus", "END"
  119. GETPATHL1:
  120.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
  121. ''    DEST$ = GetSymbolValue("EditTextOut")
  122.  
  123.     IF sz$ = "CONTINUE" THEN
  124. ''        IF IsDirWritable(DEST$) = 0 THEN
  125. ''            GOSUB BADPATH
  126. ''            GOTO GETPATHL1
  127. ''        END IF
  128.         Vorname$= GetSymbolValue("FirstName")
  129.         Nachname$= GetSymbolValue("LastName")
  130.         Loginname$= GetSymbolValue("Password")
  131. ''        i% = DoMsgBox("Setup sources were corrupted, call 555-1212!", Vorname$, MB_OK+MB_TASKMODAL+MB_ICONHAND)
  132.         UIPop 1
  133.     ELSEIF sz$ = "REACTIVATE" THEN
  134.         GOTO GETPATHL1
  135.     ELSEIF sz$ = "BACK" THEN
  136.         UIPop 1
  137.         GOTO OPTION
  138.     ELSE
  139.         GOSUB ASKQUIT
  140.         GOTO GETPATH
  141.     END IF
  142.  
  143.  
  144.     Install
  145.  
  146.  
  147. QUIT:
  148.     ON ERROR GOTO ERRQUIT
  149.  
  150.     IF ERR = 0 THEN
  151.         dlg% = EXITSUCCESS
  152.     ELSEIF ERR = STFQUIT THEN
  153.         dlg% = EXITQUIT
  154.     ELSE
  155.         dlg% = EXITFAILURE
  156.     END IF
  157. QUITL1:
  158.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  159.     IF sz$ = "REACTIVATE" THEN
  160.         GOTO QUITL1
  161.     END IF
  162.     UIPop 1
  163.  
  164.     END
  165.  
  166. ERRQUIT:
  167.     i% = DoMsgBox("Setup sources were corrupted, call 555-1212!", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  168.     END
  169.  
  170.  
  171.  
  172. BADPATH:
  173.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  174.     IF sz$ = "REACTIVATE" THEN
  175.         GOTO BADPATH
  176.     END IF
  177.     UIPop 1
  178.     RETURN
  179.  
  180.  
  181.  
  182. ASKQUIT:
  183.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  184.  
  185.     IF sz$ = "EXIT" THEN
  186.         UIPopAll
  187.         ERROR STFQUIT
  188.     ELSEIF sz$ = "REACTIVATE" THEN
  189.         GOTO ASKQUIT
  190.     ELSE
  191.         UIPop 1
  192.     END IF
  193.     RETURN
  194.  
  195.  
  196.  
  197. '**
  198. '** Purpose:
  199. '**     Builds the copy list and performs all installation operations.
  200. '** Arguments:
  201. '**     none.
  202. '** Returns:
  203. '**     none.
  204. '*************************************************************************
  205. SUB Install STATIC
  206.  
  207.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  208.     
  209.     DEST$= GetIniKeyString("WIN.INI","NetSurf","NS_Dir")
  210.     ISC_POP3$ = GetIniKeyString("WIN.INI","NetSurf","POP3")
  211.     EudoraDir$=DEST$+"\EUDORA"
  212.     AgentDir$=DEST$+"\AGENT"
  213.     WinSockDir$ = DEST$+"\WINSOCK"
  214.     WS_FTPDir$ = DEST$+"\WS_FTP"
  215.  
  216.     WinsockIni$  = MakePath(WinSockDir$,  "TRUMPWSK.INI")
  217.     WinVNIni$    = MakePath(WinVNDir$,    "WINVN.INI")
  218.     WS_FTPIni$   = MakePath(WS_FTPDir$,   "WS_FTP.INI")
  219.     WinsockIni$  = MakePath(WinSockDir$, "TRUMPWSK.INI")
  220.  
  221.     CreateIniKeyValue WinsockIni$, "Trumpet Winsock", "ip", "0.0.0.0", cmoOverwrite ''IP_Adr$, cmoOverwrite
  222.     CreateIniKeyValue WinsockIni$, "default vars", "$username", Loginname$, cmoOverwrite
  223.  
  224.     if GetEudora$="Yes" then
  225.         CreateIniKeyValue EudoraDir$+"\EUDORA.INI","Configurations","POPAccount",Vorname$+"."+Nachname$+"@"+ISC_POP3$, cmoOverwrite
  226.         CreateIniKeyValue EudoraDir$+"\EUDORA.INI","Configurations","RealName",Vorname$+" "+Nachname$, cmoOverwrite
  227.         CreateIniKeyValue EudoraDir$+"\EUDORA.INI","Configurations","ReturnAddress",Vorname$+"."+Nachname$+"@"+ISC_POP3$, cmoOverwrite
  228.     endif
  229.  
  230.     if GetAgent$="Yes" then
  231.         CreateIniKeyValue AgentDir$+"\AGENT.INI","Profile","Fullname",Vorname$+" "+Nachname$, cmoOverwrite
  232.         CreateIniKeyValue AgentDir$+"\AGENT.INI","Profile","EMailAddress",Vorname$+"."+Nachname$+"@"+ISC_POP3$, cmoOverwrite
  233.     endif
  234.  
  235.  
  236.     ShowProgmanGroup  "CHIP Netsurf", 1, cmoNone
  237.     if GetEudora$="Yes" then
  238.         CreateProgmanItem "CHIP Netsurf", "Eudora", MakePath(EudoraDir$,"WEUDORA.EXE"), "", cmoOverwrite
  239.     endif
  240.     if GetAgent$="Yes" then
  241.         CreateProgmanItem "CHIP Netsurf", "Agent", MakePath(AgentDir$,"AGENT.EXE"), "", cmoOverwrite
  242.     endif
  243.  
  244. END SUB
  245.  
  246.  
  247.  
  248. '**
  249. '** Purpose:
  250. '**     Appends a file name to the end of a directory path,
  251. '**     inserting a backslash character as needed.
  252. '** Arguments:
  253. '**     szDir$  - full directory path (with optional ending "\")
  254. '**     szFile$ - filename to append to directory
  255. '** Returns:
  256. '**     Resulting fully qualified path name.
  257. '*************************************************************************
  258. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  259.     IF szDir$ = "" THEN
  260.         MakePath = szFile$
  261.     ELSEIF szFile$ = "" THEN
  262.         MakePath = szDir$
  263.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  264.         MakePath = szDir$ + szFile$
  265.     ELSE
  266.         MakePath = szDir$ + "\" + szFile$
  267.     END IF
  268. END FUNCTION
  269.  
  270.