3882l1.orig100664 777 330 1211 7062263000 12124 0ustar ljeditorljedit3882l1 Listing 1. fetchmail Configuration File set postmaster "esr" set daemon 300 poll imap.ccil.org with proto IMAP and options no dns aka snark.thyrsus.com locke.ccil.org ccil.org user esr there is esr here options fetchall dropstatus warnings 3600 poll imap.netaxs.com with proto IMAP user "esr" there is esr here options dropstatus warnings 3600 skip imap.21cn.com with proto IMAP user esr here is tranxww there options fetchall skip pop.tems.com with proto POP3: user esr here is ed there options fetchall skip mail.frequentis.com with proto IMAP: user esr here is imaptest there with options fetchall 3882l2.orig100664 777 330 6127 7062263145 12152 0ustar ljeditorljedit3882l2 Listing 2. fetchmailrc fetchmailrc = { 'poll_interval':300, "logfile":None, "postmaster":"esr", 'bouncemail':TRUE, "properties":None, 'invisible':FALSE, 'syslog':FALSE, # List of server entries begins here 'servers': [ # Entry for site `imap.ccil.org' begins: { "pollname":"imap.ccil.org", 'active':TRUE, "via":None, "protocol":"IMAP", 'port':0, 'timeout':300, 'dns':FALSE, "aka":["snark.thyrsus.com", "locke.ccil.org", "ccil.org"], 'users': [ { "remote":"esr", "password":"Malvern", 'localnames':["esr"], 'fetchall':TRUE, 'keep':FALSE, 'flush':FALSE, "mda":None, 'limit':0, 'warnings':3600, } , ] } , # Entry for site `imap.netaxs.com' begins: { "pollname":"imap.netaxs.com", 'active':TRUE, "via":None, "protocol":"IMAP", 'port':0, 'timeout':300, 'dns':TRUE, "aka":None, 'users': [ { "remote":"esr", "password":"d0wnthere", 'localnames':["esr"], 'fetchall':FALSE, 'keep':FALSE, 'flush':FALSE, "mda":None, 'limit':0, 'warnings':3600, } , ] } , # Entry for site `imap.21cn.com' begins: { "pollname":"imap.21cn.com", 'active':FALSE, "via":None, "protocol":"IMAP", 'port':0, 'timeout':300, 'dns':TRUE, "aka":None, 'users': [ { "remote":"tranxww", "password":None, 'localnames':["esr"], 'fetchall':TRUE, 'keep':FALSE, 'flush':FALSE, "mda":None, 'limit':0, 'warnings':3600, } , ] } , # Entry for site `pop.tems.com' begins: { "pollname":"pop.tems.com", 'active':FALSE, "via":None, "protocol":"POP3", 'port':0, 'timeout':300, 'dns':TRUE, 'uidl':FALSE, "aka":None, 'users': [ { "remote":"ed", "password":None, 'localnames':["esr"], 'fetchall':TRUE, 'keep':FALSE, 'flush':FALSE, "mda":None, 'limit':0, 'warnings':3600, } , ] } , # Entry for site `mail.frequentis.com' begins: { "pollname":"mail.frequentis.com", 'active':FALSE, "via":None, "protocol":"IMAP", 'port':0, 'timeout':300, 'dns':TRUE, "aka":None, 'users': [ { "remote":"imaptest", "password":None, 'localnames':["esr"], 'fetchall':TRUE, 'keep':FALSE, 'flush':FALSE, "mda":None, 'limit':0, 'warnings':3600, } , ] } ] } 3882l3.orig100664 777 330 1415 7062263655 12154 0ustar ljeditorljedit3882l3 Listing 3. Metaclass Function def copy_instance(toclass, fromdict): # Initialize a class object of given type from a conformant dictionary. class_sig = toclass.__dict__.keys(); class_sig.sort() dict_keys = fromdict.keys(); dict_keys.sort() common = intersect(class_sig, dict_keys) if 'typemap' in class_sig: class_sig.remove('typemap') if tuple(class_sig) != tuple(dict_keys): print "Conformability error" # print "Class signature: " + `class_sig` # print "Dictionary keys: " + `dict_keys` print "Not matched in class signature: " + `setdiff(class_sig, common)` print "Not matched in dictionary keys: " + `setdiff(dict_keys, common)` sys.exit(1) else: for x in dict_keys: setattr(toclass, x, fromdict[x]) 3882l4.orig100664 777 330 1057 7062262254 12151 0ustar ljeditorljedit3882l4 # The tricky part--initializing objects from the configuration global # `Configuration' is the top level of the object tree we're going to mung Configuration = Controls() copy_instance(Configuration, configuration) Configuration.servers = []; for server in configuration[`servers']: Newsite = Server() copy_instance(Newsite, server) Configuration.servers.append(Newsite) Newsite.users = []; for user in server['users']: Newuser = User() copy_instance(Newuser, user) Newsite.users.append(Newuser)