home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / MODEM / HOST1.ZIP / HOSTCFG.SCR < prev    next >
Text File  |  1993-12-06  |  3KB  |  86 lines
  1. ' Configuration routines for host mode.
  2.  
  3. declare sub GetPrivateProfileString lib "kernel" (section as string, entry as string, default as string, buffer as string, bufsize as integer, filename as string)
  4. declare function GetPrivateProfileInt lib "kernel" (section as string, entry as string, default as integer, filename as string) as integer
  5. declare sub WritePrivateProfileString lib "kernel" (section as string, entry as string, data as string, filename as string)
  6.  
  7. function GetHostProfileString(entry as string, default as string) as string
  8.   dim buf as string
  9.   buf = space(128)
  10.   call GetPrivateProfileString("Host", entry, default, buf, 128, "qmwin.ini")
  11.   GetHostProfileString = buf
  12. end function
  13.  
  14. function GetHostProfileInt(entry as string, default as integer) as integer
  15.   GetHostProfileInt = GetPrivateProfileInt("Host", entry, default, "qmwin.ini")
  16. end function
  17.  
  18. sub WriteHostProfileString(entry as string, data as string)
  19.   call WritePrivateProfileString("Host", entry, data, "qmwin.ini")
  20. end sub
  21.  
  22. sub WriteHostProfileInt(entry as string, data as integer)
  23.   call WriteHostProfileString(entry, str(data))
  24. end sub
  25.  
  26. function SetupDialog.id(200) as integer
  27.   dim d as ModemSetupDialog
  28.   d = ModemSetup
  29.   if dialogbox(d) = IDOK then
  30.     ModemSetup = d
  31.     call WriteHostProfileString("ModemInit", ModemSetup.init)
  32.     call WriteHostProfileString("ModemAnswer", ModemSetup.answer)
  33.     call WriteHostProfileString("ModemBusy", ModemSetup.busy)
  34.     call WriteHostProfileString("ModemOK", ModemSetup.ok)
  35.     call WriteHostProfileString("ModemRing", ModemSetup.ring)
  36.     call WriteHostProfileString("ModemRingCount", ModemSetup.ringcount)
  37.   end if
  38. end function
  39.  
  40. sub SetupHost
  41.   dim d as SetupDialog
  42.   d = Setup
  43.   if dialogbox(d) = IDOK then
  44.     Setup = d
  45.     if Setup.modeopen then
  46.       call WriteHostProfileInt("Mode", 0)
  47.     elseif Setup.modeclosed then
  48.       call WriteHostProfileInt("Mode", 1)
  49.     elseif Setup.modecallback then
  50.       call WriteHostProfileInt("Mode", 2)
  51.     end if
  52.     call WriteHostProfileString("MaxTime", Setup.maxtime)
  53.     call WriteHostProfileString("DosPassword", Setup.dospass)
  54.     call WriteHostProfileString("ShutdownPassword", Setup.shutdownpass)
  55.     call WriteHostProfileString("DownloadPath", Setup.dlpath)
  56.     call WriteHostProfileString("UploadPath", Setup.ulpath)
  57.     call WriteHostProfileInt("SysopAnyPath", Setup.sysopanypath)
  58.   end if
  59. end sub
  60.  
  61. sub LoadConfig
  62.   Setup.modeopen = 0
  63.   Setup.modeclosed = 0
  64.   Setup.modecallback = 0
  65.   select case GetHostProfileInt("Mode", 0)
  66.     case 0
  67.       Setup.modeopen = 1
  68.     case 1
  69.       Setup.modeclosed = 1
  70.     case 2
  71.       Setup.modecallback = 1
  72.   end select
  73.   Setup.maxtime = str(GetHostProfileInt("MaxTime", 60))
  74.   Setup.dospass = GetHostProfileString("DosPassword", "")
  75.   Setup.shutdownpass = GetHostProfileString("ShutdownPassword", "")
  76.   Setup.dlpath = GetHostProfileString("DownloadPath", "")
  77.   Setup.ulpath = GetHostProfileString("UploadPath", "")
  78.   Setup.sysopanypath = GetHostProfileInt("SysopAnyPath", 0)
  79.   ModemSetup.init = GetHostProfileString("ModemInit", "ATQ0H0S0=0^M")
  80.   ModemSetup.answer = GetHostProfileString("ModemAnswer", "ATA^M")
  81.   ModemSetup.busy = GetHostProfileString("ModemBusy", "ATH1M0^M")
  82.   ModemSetup.ok = GetHostProfileString("ModemOK", "OK")
  83.   ModemSetup.ring = GetHostProfileString("ModemRing", "RING")
  84.   ModemSetup.ringcount = str(GetHostProfileInt("ModemRingCount", 1))
  85. end sub
  86.