home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 11 / CDACTUAL11.iso / cdactual / demobin / share / COMMS / IDECNET / INFOVIA.CM_ / INFOVIA
Encoding:
Text File  |  1996-05-02  |  4.4 KB  |  140 lines
  1. #trace on
  2. # -- Unix shows 
  3. $prompt = ">"
  4. $userprompt = "ogin:"
  5. $passprompt = "assword:"
  6. $badlogin = "ogin incorrect"
  7. # -- Send to Unix
  8. $pppcmd = "ppp"
  9. # -- Modem commands - rather standard --
  10. $initstring = "AT&C1&D2L3"
  11. $dialpref = "ATD"
  12. $getonline = "ATO"
  13. $resetmodem = "ATZ"
  14. # -- Modem return messages - rather standard --
  15. $nodialtone   = "NO DIAL"     # substring for NO DIAL TONE
  16. $busy         = "BUSY"
  17. $connectmsg   = "CONNECT"
  18. # First Load parameters form .ini file - or generate them
  19. if ![load $number]
  20.   if [query $number "Introduzca numero de telefono"]
  21.     save $number
  22.   end
  23. end
  24. if ![load $username]
  25.   if [username "Introduzca su identificador (login)"]
  26.     save $username
  27.   end
  28. end
  29. #Modem init strings.
  30. if ![load $initmodem]
  31.    $initmodem = $initstring
  32.    query $initmodem "Cadena de inicializacion del modem:"
  33.    save $initmodem
  34. end
  35. # -- Modem dial string --
  36. if ![load $dialprefix]
  37.    $dialmode = "T"
  38.    query $dialmode "Marcacion por Tonos o por Pulsos (T o P) "
  39.    $dialprefix   = $dialpref + $dialmode
  40.    save $dialprefix
  41. end
  42. # Display Constants in TCPMAN window
  43. display \n\n
  44. display "+-----------------------------------------------------+"\n
  45. display "                    .-= IdecNet =-."\n
  46. display \n
  47. display "                  Usuario: " $username\n
  48. display "                 Telefono: " $number\n
  49. display "+-----------------------------------------------------+"\n
  50. display \n
  51. # ===== CHECK TO SEE IF MODEM IS CURRENTLY ONLINE  ========
  52. #       if still connected then give option to abort by pressing [ESC]
  53. display "Comprobando el estado de linea..."\n
  54. echo off
  55. output +++
  56. #sleep 2
  57. #output $getonline\r              #see if on line
  58. #if [input 2 $connectmsg ] # if ATO returns a string 'CONNECT' then on line
  59. #   display \n
  60. #   display "El modem informa de que hay una conexion activa"\n
  61. #   display "Pulse ESC antes de 5 segundos para detener la desconexion"\n
  62. #   display " 5"
  63. #   sleep 1
  64. #   display \b "4"
  65. #   sleep 1
  66. #   display \b "3"
  67. #   sleep 1
  68. #   display \b "2"
  69. #   sleep 1
  70. #   display \b "1"
  71. #   sleep 1
  72. #   display \b "0"\n
  73. #   output +++  # Disconnect again
  74. #   sleep 2
  75. #end
  76. echo off
  77. # ====== Initialize Modem ============
  78. display "Inicializando el modem..."\n
  79. set dtr off    # hang up if connected  (This really isn't needed since +++ above)
  80. sleep 1        # note that these sleeps are needed for +++ above
  81. set dtr on
  82. sleep 1
  83. output $resetmodem\n
  84. if ![input 4 OK\n]
  85.    display "ERROR: El reset del modem falla."\n
  86.    display "       Verifique la conexion y estado del modem."\n
  87. #!   exec egassem.exe
  88.    abort
  89. end
  90. output $initmodem\r
  91. if ![input 4 OK\n]
  92.    display "ERROR: El modem no responde o se produjo un error con la"\n
  93.    display "       cadena de inicializacion."\n
  94.    display "       Verifique la conexion y estado del modem y los"\n
  95.    display "       valores de la secuencia inicial."\n
  96. #!   exec egassem.exe
  97.    abort
  98. end
  99. # ======== Dial Modem ===========
  100. display "Estableciendo comunicacion con InfoVia (" $number ")"\n
  101. %attempts = 10
  102. %n = 0
  103. display \n
  104. repeat
  105.   if %n = %attempts
  106.     display "ERROR: No se pudo conectar con InfoVia"\n
  107.     display "       < Lineas ocupadas >"\n
  108.     display "       Vuelva a intentarlo dentro de unos minutos."\n
  109. #!    exec egassem.exe
  110.     abort
  111.   end
  112.   output $dialprefix $number\13
  113.   if [ input 7 $nodialtone ]
  114.     display "ERROR: No hay linea!"\n
  115. #!    exec egassem.exe
  116.     abort
  117.   end
  118.   %ok = [input 60 $connectmsg]
  119.   %n = %n + 1
  120. until %ok
  121. online
  122. # ========= Login ============
  123. display "Enviando la identificacion de usuario a InfoVia..."\n
  124. echo off
  125. display \n
  126. display \n
  127. display "Conectando PPP..."\n
  128. echo off
  129. display \n
  130. display "+-----------------------------------------------------------------+"\n
  131. display "                     Conexion PPP Establecida"\n
  132. display "                  Bienvenido a Internet con IdecNet"\n
  133. display "+-----------------------------------------------------------------+"\n
  134. display "               Espere a un mensaje similar al siguiente"\n
  135. display "             My IP : 194.179.48.XXX  y ya estara conectado"\n
  136. display "         Ahora podra utilizar utilizar sus programas favoritos"\n
  137. display "+-----------------------------------------------------------------+"\n
  138. display "  Recuerde que para reconectar tendra que reiniciar este programa"\n
  139. display "+-----------------------------------------------------------------+"\n
  140.