# Install script 
autoquit="nohup"
  shell cls
  maxwait=0
  print "- If a service doesn't exist or you not sure, enter IP-number 0."
  print "- If a server needs a special portnumber different from the"
  print "  well known numbers (smtp=25, nntp=119, pop=110 and ntp=37),
  print "  add this number blank delimeted to the IP/address field"
  print "- Hit ENTER if you want the defaults (shown in brackets)."
  print "- Hit ESC to break. Install.bat restarts installation"
  print "****************************************************************"
  my_ip=$entry wattcp.cfg,"my_ip="
  my_ip=$inkey"Local (your own) IP ("+my_ip+"): ;"
  nameserver=$entry wattcp.cfg,"nameserver="
  nameserver=$inkey"IP number of your nameserver ("+nameserver+"): ;"
  news_server=$entry x_tcp.cfg,"news_server:"
  news_server=$inkey"Name or IP of newsserver ("+news_server+"): ;"
  pop_server=$entry x_tcp.cfg,"pop_server:"
  pop_server=$inkey"Name or IP of Popserver ("+pop_server+"): ;"
  smtp_server=$entry x_tcp.cfg,"smtp_server:"
  smtp_server=$inkey"Name or IP of smtpserver ("+smtp_server+"): ;"
  time_server=$entry x_tcp.cfg,"time_server:"
  time_server=$inkey"Name or IP of timeserver ("+time_server+"): ;"
  if time_server >"0."
     tz=$entry x_tcp.cfg,"TZ:"
     tz=$inkey"Offset to GMT? Value is negativ if east from Greewnwich ("+tz+"): ;"
  end if
  domainslist=$entry wattcp.cfg,"domainslist="
  domainslist=$inkey"Domainname ("+domainslist+"): ;"
  print "Do you want to get a list of all newsgroups available"
  print "from your server when you first login? (n): ;"
  ok=n
  ok=$inkey ";"
  newgroups = "700101 000000"
  if ok <> "y" and ok <> "j"
     newgroups = $date," 235959"
  end if
  alg=$entry x_news.rc, "$max_len:"
  alg=$inkey "Maximum articlelength in bytes, 0 means unlimted ("+alg+"): ;"
  ok=n
  ok=$inkey "XOVER off? Downloads are faster without xover. (n): ;"
  modify x_news.rc,"$max_len:",alg
  if ok="y"
     modify x_news.rc,"$xover:","0"
  else
     modify x_news.rc,"$xover:","1" 
  end if
  user=$entry x_tcp.cfg,"user:"
  user=$inkey"Popuser Login ("+user+"): ;"
  pass=$entry x_tcp.cfg,"pass:"
  pass=$inkey"Popuser Password ("+pass+"): ;"
  ok=n
  ok=$inkey"Leave mail on Server (n): ;"
  if ok = y or ok=j
     keepmail = 1
  else
    keepmail = 0
  end if
  packetdriver="cslipper"
  $vec=$entry wattcp.cfg,"pktint="
  $vec=$inkey"Softwareinterrupt of Packetdriver? Enter hex number 60-7f.("+$vec+"): ;"
  if $vec>="60"
     ok=n
     ok=$inkey"External packetdriver? (n): ;" 
     if ok=y
        packetdriver=""
     else 
        ok=y
        ok=$inkey"Slip with header compression (y): ;"
        if ok=y or ok=j 
           packetdriver=cslipper
        else
           packetdriver=slipper
        end if
     end if
  else
  end if
  $port=$entry x_tcp.cfg,"$PORT:"
  $port=$inkey"Address of COMPort ("+$port+"): ;"
  $irq=$entry x_tcp.cfg,"$IRQ:"
  $irq=$inkey"COM IRQ ("+$irq+"): ;
  $baud=$entry x_tcp.cfg,"$BAUD:"
  $baud=$inkey"Baudrate ("+$baud+"): ;"
  initstring=$entry,x_tcp.cfg,"initstring:"
  initstring=$inkey"Initstring for your modem ("+initstring+"): ;"
  dialstring=$entry x_tcp.cfg,"dialstring:"
  dialstring=$inkey"Dialstring ("+dialstring+"): ;"
  print "{7}Please wait a moment..."
  wait 2
  call modify
  call sendmsg
  ok="y"
  ok=$inkey"Do you want to run modem and slip test?(y,n): ;"
  if ok=y
     call test
  end if
  print "**********************************************************"
  print "                 SLIP_IT 2.2 INSTALLED!"
  print " Edit x_news.rc now (add the newsgroups you want to read)."
  print "   To start a session: change to the slip_it dir, start"
  print "           slip_it.bat from the commandline"
  print "      If you have problems: run install.bat again"
  print "**********************************************************"
end
