Cardinal Internet Access Solutions/Cardinal_Internet_Access_Solutions(1996-08-19).iso/files/internet/fibs/delphtym.scc

Text File | 1994-08-03 | 4KB | 110 lines

@echo 0 ;%%Delphi via Tymnet
@rem ******************************************************************
@rem ****                                                         *****
@rem ****   This script logs on to Delphi via Tymnet              *****
@rem ****   Grateful acknowledgements and thanks to Cary Camden.  *****
@rem ****                                                         *****
@rem ****                                                         *****
@rem ******************************************************************

@rem ***dial using dial.scr
@board 0
@echo "\r\n **** Connection to FIBS via Delphi/Tymnet... ***\r\n"
<dial.scr

@rem *****************************************************
@rem ***  Connect to Delphi via Tymnet                  **
@rem *****************************************************

@wait 3
@send "o"
@if not @wait ":" 10
@    send "o"
@    if not @wait ":" 10
@      echo "\r\n** Error(delphtym.scc): Tymnet connect prompt not received\r\n"
<
@    endif
@endif
@send "DELPHI\r"



@rem *****************************************************
@rem ***  Execute the login procedure                   **
@rem *****************************************************

@if "%HostLoginName%" != ""
@:RetryLogin
@   if "%NetworkScript%" == "manual.scn"
@       wait "sername:"   ; If manual network connect, don't prompt or timeout for login
@   else
@       echo "\r\n** Logging in...\r\n"
@       if not @wait "sername:" 40
@           echo "\r\n** Error(delphspr.scc): error - Host Login Prompt not received\r\n"
@           send "\r"
@           goto RetryLogin
@       endif
@   endif
@   send "%HostLoginName%\r"
@   if not @wait "\n" 40
@      echo "\r\n** Error(delphspr.scc): No response to Host Login Name\r\n"
<
@   endif
@   if "%HostPassword%" != ""
@       if not @wait "assword:" 30  ; e.g. "Password:" or "password:"
@           echo "\r\n** Error(delphspr.scc): Host Password prompt not received\r\n"
<
@       endif
@       send "%HostPassword%\r"
@       if not @wait "\n" 40
@           echo "\r\n** Error(delphspr.scc): No response to Host Password\r\n"
<
@       endif
@   else
@       rem ** We need to synchronize around the password **
@       echo "\r\n** Automated login script will resume after you enter your password\r\n"
@       if not @wait "assword:" 40
@          echo "\r\n** Error(delphspr.scc): Host password prompt not received\r\n"
<
@       endif
@       passwordEntry 1
@       wait "\n"
@       passwordEntry 0
@   endif ; HostPassword
@else
@   if "%NetworkScript%" != "manual.scn"  ; No prompts if manual network connect
@       echo "\r\n** Automated login script will resume after login is complete\r\n"
@   endif
@   wait "sername:"
@   wait "assword:"
@   passwordEntry 1
@   wait "\n"
@   passwordEntry 0
@endif ; HostLoginName


@rem ***************************************************
@rem *** Go from MAIN Prompt to Internet Conference ****
@rem ***************************************************

@delphifix 1 ; // Ignore LFs, CR -> CR+LF.

@wait "MAIN>What do you want to do? "

@send "/busy\r"    ;disables confernce messages
@wait "MAIN>What do you want to do? "

@send "/prompt=brief\r"
@wait "MAIN>What do you want to do? "

@send "/width 255\r"
@wait "MAIN>What do you want to do? "

@send "/echo HOST\r"
@wait "MAIN>What do you want to do? "


@send "go Int telnet %FibsInternetAddress% %FibsTelnetPort%\r"

<fibslogn.scr