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