1 """A test program that allows us to control Eudora"""
10 class Eudora(Eudora_Suite
.Eudora_Suite
, Required_Suite
.Required_Suite
, \
11 Standard_Suite
.Standard_Suite
, aetools
.TalkTo
):
12 """A class that can talk to Eudora"""
15 # The Creator signature of eudora:
19 talker
= Eudora(SIGNATURE
, start
=1)
21 print 'get, put, name (of first folder), list (foldernames), quit (eudora) or exit (this program) ?'
22 line
= sys
.stdin
.readline()
25 talker
.connect(checking
=1)
27 talker
.connect(sending
=1)
29 id = Eudora_Suite
.mailbox(1).name
30 name
= talker
._get
(id, as='text')
31 print "It is called", name
38 except MacOS
.Error
, arg
:
40 print 'Connection invalid, is eudora running?'
42 print 'MacOS Error:', arg
[1]
43 except aetools
.Error
, arg
:
44 print 'Eudora returned error:', arg