Autor: Jarosław Tabor (formatc_at_bevy.hsn.com.pl)
Data: Sat 18 Jan 1997 - 14:32:07 MET
On Thu, 16 Jan 1997 11:11:08 +0100, Grzegorz Bodaszewski wrote:
>Czy do standardowego dialera TCP/IP 3.0 mozna jakos podlaczyc
>kawalek skryptu w Rexx-ie, albo czegos podobnego ?
>Problem mam taki, ze dzwonie raz przez Telbank, raz przez
>TPSA. I musze za kazdym razem recznie podmieniac plik
>resolv w katalogu /tcpip/dos/etc/ - ten w /mptn/etc/
>jest ustawiany automatycznie, a DOS-owy nie.
>Czy da sie to jakos rozwiazac, czy trzeba poszukac
>madrzejszego dialera ?
>
>OSciski,
>
>Grzegorz Bodaszewski
>== warta_olsztyn_at_telbank.pl
>
To jest mail ktorego juz raz wyslalem, powinien rozwiazac te problemy:
Potrzeba do tego :
1. Program sl.cmd do uruchomienia slipa i zrobienia ikonki np:
SL.CMD:
mode com3:57600
slip
exit
2. Plik konfiguracyjny dla slipa,
\MPTN\ETC\SLIP.CFG:
interface sl0 { device = com3, mtu=1006, attachcmd = skrypt.cmd }
3. i oczywiscie skrypt do logowania przerobiony z \tcpip\bin\annex.cmd
skrypt.cmd:
cr='0d'x
crlf='0d0a'x
/* Flush any stuff left over from previous COM activity */
call flush_receive
call charout , 'Now Dialing...'
conn = 0
DO WHILE conn = 0
reset = 0
DO WHILE reset = 0 /* zerowanie modemu..... */
call send 'AT&F1L0' || cr
call waitfor 'OK', 5
if RC = 0 then reset = 1
END
call flush_receive 'echo' /* dodzwanianie sie */
call send 'ATDP6566127' || cr
call waitfor 'CONNECT', 45
if RC = 0 then conn = 1
call flush_receive 'echo'
END
call waitfor cr, 2
call send crlf
call waitfor 'login: ' ; call flush_receive 'echo'
call send 'useid' || cr /* tu oczywiscie trzeba wpisac swoje id */
call waitfor 'Password:' ; call flush_receive 'echo'
call send 'haslo' || cr /* a tu haslo */
/* u mnie server zglasza sie bevy$, moze byc potrzebny inny tekst : */
call waitfor 'bevy$' ; call flush_receive 'echo'
/* userslip - uruchomienie slipa na serwerze, moze byc niepotrzebne
jak sie uruchamia automatycznie */
call send 'userslip' || cr
call waitfor 'Your IP is'
call waitfor crlf
call waitfor crlf
call waitfor crlf
parse var waitfor_buffer a '.' b '.' c '.' d '.' .
os2_address = a||'.'||b||'.'||c||'.'||d
say os2_address
call flush_receive 'echo'
say 'SLIP Connection Established'
say 'Configuring local address =' os2_address
/* U mnie adres serwera jest 195.116.1.169 - pewnie trzeba bedzie zmienic */
'ifconfig sl0' os2_address '195.116.1.169 netmask 255.255.255.0'
'route add default 195.116.1.169 1'
/* All done */
/* tu mozna dolozyc: 'play costam.wav' - jak ktos lubi */
exit 0
/* tu dalszy ciag pliku annex.cmd */
Taki skrypt potrafi sie dodzwonic prawie zawsze. Nie przeszkadzaja
mu komunikaty No dial tone, czy busy. dzwoni do skutku.
Jak polaczenie zacina sie po CONNECT, to mozna sobie zrobic dalsza
obsluge bledow podobnie jak wczesniej.
U mnie na nowym modemie ( GVC28.8 ), bardzo rzadko zdarza sie ze sie
nie polaczy tym skryptem, mimo ze linie mam slaba.
To archiwum zostało wygenerowane przez hypermail 2.1.7 : Tue 18 May 2004 - 15:09:47 MET DST