🚀 go-pugleaf

In article <3f90c703.59b7@sauron.engin.umich.edu> jfm@ruddles.sprl.umich.edu.UUCP (John F. Mansfield) writes:
>In article <249@dataspan.UUCP% kratz@dataspan.UUCP (Geoff Kratz) writes:
>%To QuickMail sites:  Has anyone out there written a script for QuickMail
>%that sends and receives mail to/from Suns or other Unix boxes?  A friend
>
>No, Please post replies as I'm sure there are many of us interested in this.

Here is a script that a friend wrote.  I just got QuickMail today and haven't
even tried the script yet.  In other words, no guarantees.  I'm sure there
are some site-specific commands, but, you should be able to find them and
customize to your site.

Enjoy,

Fred Hollander
Computer Science Center
Texas Instruments, Inc.
holland%ti-csl@csnet-rela

The above statements are my own and not representative of Texas Instruments.


* Unix_LINK, for QuickMail*
*   ) 1988 CE Software
*
* This is a simple script for logging onto CompuServe.  It assumes
that
* you are calling directly into the CompuServe network
*
* 
:IN
OOPS 120,FAILURE
ISMAIL You have mail.
ALERT 3,IN11,CONNECT 1200
ALERT 2,IN10,User ID:
ALERT 1,IN3,SYSTEM ID
PAUSE 2
TYPE ^M
:IN1
WAIT login:
TYPE GLOGIDH^M
WAIT password:
TYPE GPASSWORDH^M
ALERT 1,IN2,next? [ynq]
ALERT 2,IN4,More? [ynq]
ALERT 3,IN2,read now? [ynq]
ALERT 4,IN2,next? [qnp]
ALERT 5,IN6,[yn]
GOTO IN5
:IN2
TYPE q^M
GOTO IN5
:IN3
TYPE ~^M
GOTO IN1
:IN4
TYPE q^M
GOTO IN5
:IN5
WAIT (tilde) !.
TYPE unalias mail^M
WAIT (tilde) !.
SUCCESS
:IN6
TYPE n^M
GOTO IN5
*   Call back stuff
:IN10
TYPE userid^M
WAIT Password:
TYPE passwd^M
WAIT Phone #:
TYPE ^M
WAIT SURE? (Y/N)
TYPE y^M
WAIT wait for call back
PAUSE 1
TYPE +++
WAIT NO CARRIER
TYPE ATS0=1^M
OOPS 240,FAILURE
GOTO IN
:IN11
TYPE ^M
GOTO IN
*
* This logs us off CompuServe
*
:BYE
TYPE logout^M
ALERT 1,SUCCESS,NO CARRIER
ALERT 2,B2,(Y or N)!
ALERT 3,BYE,(tilde) !.
ALERT 4,B3,&
:B1
PAUSE 30
SUCCESS
:B2
TYPE Y^M
GOTO B1
:B3
TYPE quit^M
WAIT (tilde) !.
GOTO BYE
*
* This is called to send one piece of mail
*
:SEND
OOPS 60,FAILURE
ALERT 1,S4,&
ALERT 2,,
ALERT 3,,
ALERT 4,,
ALERT 5,,
TYPE copy write.mailrc .mailrc^M
WAIT (tilde) !.
TYPE mail GADDRESSH^M
ALERT 1,,
WAIT Subject:
TYPE GTOPICH^M
WAIT terminate the letter.
TYPE ^M
TYPE Attn: GNAMEH^M
DUMP
TYPE ^M.^M
WAIT Cc:
ALERT 1,S1,&
TYPE ^M
:S2
WAIT (tilde) !.
SUCCESS
:S1
TYPE quit^M
GOTO S2
:S3
FAILURE
:S4
TYPE quit^M
GOTO SEND
*
* This is called to receive mail.  It is called continually with
increasing
* values in GCOUNTH, until FAILURE occurs.  You can put all reads
into one
* listing, if you wish
*
:RECEIVE
OOPS 60,FAILURE
TYPE copy read.mailrc .mailrc^M
WAIT (tilde) !.
TYPE mail -N^M
ALERT 1,R1,&
ALERT 2,R2,(tilde) !.
ALERT 3,R3,At EOF
ALERT 4,R3,No Mail for white
ALERT 5,R4,--More--
PAUSE 20
:R1
ALERT 1,,
TYPE ^M
WAIT &
ALERT 2,,
ALERT 1,R5,&
:R5
TYPE q^M
WAIT (tilde) !.
TYPE cat mbox^M
BUFFER (tilde) !.
RECEIVE Subject:,Attn:,From:,<,>
TYPE rm mbox^M
WAIT (tilde) !.
SUCCESS
:R2
FAILURE
:R3
TYPE q^M
FAILURE
:R4
TYPE q^M
WAIT &
ALERT 2,,
TYPE q^M
FAILURE

****************************************************