jcb@loral.UUCP (Jay Bowden) (10/04/89)
I have an ASPECT (of PROCOMM PLUS) script that I use to
get my home PC to call in to a unix system, and get a
list of the subjects from the comp.sys.ibm.pc newsgroup,
and then print it out. I use a LATER-ON and set it to
turn on the PC at 11:30 PM, so the next day I have this
list on the printer.
I am not happy with this method, though, and I am wondering
if anyone does this or has a better approach. Some problems are:
o This script fails when a new news group is added; rn then asks
if I want to add it.
o All those silly [type space to continue] prompts end up in the
list
o Only the first newsgroup that has new news gets listed
o etc.
I realize that I could add complication to try and account for
these problems, but I guess I am *really* looking for another
way to get subjects (without using rn, maybe?).
Anyone have a suggestion? Thanks!
- Jay
Script I use follows. Passwd and phone # have been changed.
------------------------------------------------------------
; Call up vax and log in V89/03/13.23.1 JCB
; and get a list of news via rn
; for ASPECT in PCPLUS
START:
TRACE ON
IF CONNECTED ; skip dialing if we are on line
GOTO NODIAL
ENDIF
; Cannot get to vax1 at 2400 baud!
SET BAUDRATE 1200
SET PARITY EVEN
SET DATABITS 7
SET STOPBITS 1
CLOOP:
TRANSMIT "ATDT 555-1212^M" ;
WAITFOR "CONNECT" 40
IF NOT WAITFOR
MESSAGE "No connect, hanging up"
TRANSMIT "~~~~~~+++~~~~~~ATH" ; hang up
GOTO ENDEXIT ; no re-try
ENDIF
NODIAL:
RELOG:
WAITFOR "ogin:" 20
IF NOT WAITFOR
GOTO NODIAL
ENDIF
TRANSMIT "jim^M" ; enter login
WAITFOR "Password:" 20
IF NOT WAITFOR
GOTO RELOG
ENDIF
TRANSMIT "fishhead^M" ; tell password
WAITFOR ")" 60 ; will ask for terminal type
IF NOT WAITFOR
GOTO RELOG
ENDIF
TRANSMIT "vt100^M" ; select vt100 terminal
WAITFOR "1:" 40 ; look for prompt
IF NOT WAITFOR
GOTO RELOG
ENDIF
ENDEXIT:
DOS "erase newslist"
TRANSMIT "rn^M" ; invoke rn
WAITFOR "read now? [ynq] "
LOG OPEN "newslist"
TRANSMIT "="
WHEN "Type space to continue]" " " ; this may happen many times
WAITFOR "what next?" 300
LOG CLOSE
CWHEN
TRANSMIT "c" ; catch-up over all those just listed
WAITFOR "as read?"
TRANSMIT "y"
WAITFOR "read now?" ; skip other groups
TRANSMIT "q"
WAITFOR ":"
TRANSMIT "bye"
HANGUP
; leave pcplus
QUIT
------------------------------------------------------------------
Jay Bowden, EE/Consultant; see also Bowden Engineering
Currently contracted at Loral Instrumentation, San Diego
{ucbvax, ittvax!dcdwest, akgua, decvax, ihnp4}!ucsd!loral!jcb
--
------------------------------------------------------------------
Jay Bowden, EE/Consultant; see also Bowden Engineering
Currently contracted at Loral Instrumentation, San Diego
{ucbvax, ittvax!dcdwest, akgua, decvax, ihnp4}!ucsd!loral!jcb