CD Direkt: Spezial 1/CDD_SPIELE_.ISO/wingames/fibsw/portal.scc

Text File | 1994-05-31 | 3KB | 87 lines

@echo 0 ;%%Portal hosted connection to FIBS.
@rem ****************************************************************************
@rem ****                                                                   *****
@rem ****     Portal login Script                                           *****
@rem ****     (thanks to Don Rudolph)                                       *****
@rem ****                                                                   *****
@rem ****************************************************************************

@echo "\r\n** Connecting to FIBS via *PORTAL* \r\n"
@board 0

@rem *****************************************************
@rem ***  Dial the Telephone Number                     **
@rem *****************************************************


@rem Execute dial.scr file to dial the telephone number.
<dial.scr

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

@if "%HostLoginName%" != ""
@:RetryLogin
@   echo "\r\n** Logging in...\r\n"
@   if "%NetworkScript%" == "manual.scn"
@       wait "help:"  ; wait indefinitely if manual network connect.
@   else
@       if not @wait "help:" 10
@           echo "\r\n ------ Waiting for 'help:' ------\r\n"
@           send "\r"
@           goto RetryLogin
@       endif
@   endif
@   send "online\r"
@   if not @wait "HELP:" 15
@      echo "\r\n** Error(portal.scc): Login prompt not received\r\n"
<
@   endif
@   send "%HostLoginName%\r"
@   wait "\n" 15
@   if "%HostPassword%" != ""
@       if not @wait "word:" 15
@          echo "\r\n** Error(portal.scc): Password prompt not received\r\n"
<
@       endif
@       send "%HostPassword%\r"
@       wait "\n"
@       wait "ontinue" 15 ; wait for the motd.
@   else ; manual password entry
@       echo "\r\n** Automated login script will resume after you enter your password\r\n"
@       if not @wait "word:" 30
@          echo "\r\n** Error(portal.scc): Host password prompt not received\r\n"
<
@       endif
@       passwordEntry 1
@       wait "\n"
@       passwordEntry 0
@       wait "ontinue" ; wait indefinitely for contine message
@   endif
@else
@   echo "\r\n** Automated login script will resume after login is complete\r\n"
@   wait "HELP:"    ; clear login prompt
@   passwordEntry 1
@   wait "word:"    ; clear password prompt
@   passwordEntry 0
@   wait "ontinue"  ; wait indefinitely for continue message
@endif ; HostLoginName

@rem *****************************************************
@rem *** Get to telnet via menus                       ***
@rem *****************************************************

@send "\r"    ; in response to "continue" message
@wait "Command:" 15
@send "go internet\r"
@wait "Command:" 15
@send "10\r"

@rem *****************************************************
@rem *** Connect via telnet                            ***
@rem *****************************************************

<telnet.scr