home *** CD-ROM | disk | FTP | other *** search
/ PC/CD Gamer UK 28 / PCGAMER28.bin / wincim / scripts.lib / INTERNET.SCR < prev    next >
Text File  |  1995-09-13  |  2KB  |  89 lines
  1. !
  2. !  Copyright (c) 1995
  3. !  by CompuServe Incorporated, Columbus, Ohio
  4. !
  5. !  The information in this software is subject to change without
  6. !  notice and should not be construed as a commitment by CompuServe.
  7. !
  8. !  Internet:
  9. !    Success:  returns %Success
  10. !    Failure:  saves error msg in %FailureMsg and returns %Failure
  11. !
  12. !+V
  13. ! "3.6"
  14. !-V
  15.  
  16. Tries = 5;
  17. Sent_Host_Name = %FALSE;
  18. on cancel goto Return_Cancel;
  19. show "Connecting to Internet";
  20. Wait_Time = 30;
  21.  
  22. Wait_Internet:
  23.     if Tries = 0 goto Internet_Failure;
  24.     wait
  25.         "Host Name"        goto Send_Host_Name,
  26.         "User ID"        goto Return_User_ID,
  27.         "? ICD"        goto Process_Net_Msg,
  28.         "??ICD"        goto Process_Net_Msg,
  29.         "OFF):"            goto Send_Baud_Rate
  30.     until Wait_Time;
  31.  
  32.     send "^M";
  33.     Wait_Time = 200;
  34.     Tries = Tries - 1;
  35.     goto Wait_Internet;
  36.  
  37. Send_Host_Name: 
  38.     if Sent_Host_Name goto Reset_Host_Name;
  39.     send "CISAGREE^M";
  40.     Sent_Host_Name = %TRUE;
  41.     Wait_Time = 200;
  42.     goto Wait_Internet;
  43.  
  44. !
  45. ! Only send CISAGREE response on 1st, 3rd, & 5th attempts
  46. ! to guard against unintended double host name prompts resulting
  47. ! from sending "^M".  On even attempts, eat the Host Name: prompt.
  48. !
  49. Reset_Host_Name:
  50.     Sent_Host_Name = %FALSE;
  51.     Tries = Tries - 1;
  52.     goto Wait_Internet;
  53.  
  54. Send_Baud_Rate:
  55.     send %BaudRate;
  56.     send "^M";
  57.     goto Return_Success;
  58.  
  59. Internet_Failure:
  60.     define %FailureMsg = "Internet not responding";
  61.     exit %Failure;
  62.  
  63. Return_Cancel:
  64.     exit %Cancel;
  65.  
  66. Return_User_ID:
  67.     send %CR;
  68.     wait until 10;
  69. Return_Success:
  70.     exit %Success;
  71.  
  72. Process_Net_Msg:
  73.     define %ErrorCode = 31;
  74.     FailStr = "PPP connection failure, please try again";
  75.  
  76.     wait
  77.         "^M"    goto Found_Error
  78.     until 10;
  79.  
  80.     goto Return_Fail_Msg;
  81.  
  82. Found_Error:
  83.     if %Scanned = "" goto Return_Fail_Msg;
  84.     FailStr = %Scanned;
  85.  
  86. Return_Fail_Msg:
  87.     define %FailureMsg = FailStr;
  88.     exit %Failure;
  89.