Description

This article is from the Amiga Networking FAQ, by Richard Norman with numerous contributions by others.

72 My provider assigns SLIP addresses dynamically. Now What?

    
Now you have an excuse to learn arexx or shell scripts.  ;-)

Actually some have already been written and posted.  Here is one way to do it.
(NOTE: I HAVE NO WAY TO TEST THIS  PROGRAM SO USE IT AT YOUR OWN RISK ) In fact,
it will NOT work as is. You MUST modify it for your system.

 /*REXX*/
 /* go slip! a program to create slip scripts with dynamic address */
 /* usage   rx goslip.rexx <dynamic ip address> */

 option results

 trace off

 If = '0a'x
 address REQUESTSTRING 'rtitle="GoSlip" text="Please enter your IP 
 address." '
 direccion = result
 /* changed from 19200 */
 outdriver = 'baudbandit.device 0 57600 ' || direccion ' CD 7WIRE'
 say outdriver
 foo = open('outfile','ENV:sana2/rhslip0.config','Write')
 foo = writeln('outfile',outdriver)
 call close 'outfile'
 address REQUESTSTRING 'rtitle="GoSlip" text="Please enter your 
 host name.(slip#, w/ out amiga.com)" '
 trob = result
 gene = 'HOST 128.200.142.228 ' || trob || lf || 'DOMAIN amiga.com' || lf

 ||'NAMESERVER 128.200.192.202' || lf || 
 'NAMESERVER128.200.1.201'
 foo = open('outfile','amitcp:db/netdb-myhost','Write')
 foo = writeln('outfile',gene)
 call close 'outfile'

 address command
 'run >NIL: AmiTCP:AmiTCP'
 WaitForPort AMITCP
 'AmiTCP:bin/ifconfig lo0 localhost'
 'AmiTCP:bin/ifconfig slip0' direccion '128.200.1.201'
 'AmiTCP:bin/route add' direccion 'localhost'
 'AmiTCP:bin/route add default 128.200.1.201'
 'Assign TCP: Exists > NIL:'
 /* 'if warn' */
 'Mount TCP: from AmiTCP:devs/inet-mountlist'
 /* 'endif' */
 'run >NIL: amitcp:bin/inetd'
 /*----------end of script ---------------*/
    

 

Continue to:

• prev: 71 Startnet in 3.0b2 says there is "no such interface" why?
• Index
• next: 73 Where are the AmiTCP Docs? How do I install and use AmiTCP?

Share and Enjoy

Tags

amiga, pc, hardware, sotware, networking