diff options
Diffstat (limited to 'fetchmailconf')
| -rwxr-xr-x | fetchmailconf | 2098 |
1 files changed, 0 insertions, 2098 deletions
diff --git a/fetchmailconf b/fetchmailconf deleted file mode 100755 index 4a014036..00000000 --- a/fetchmailconf +++ /dev/null @@ -1,2098 +0,0 @@ -#!/usr/bin/env python -# -# A GUI configurator for generating fetchmail configuration files. -# by Eric S. Raymond, <esr@snark.thyrsus.com>, -# Matthias Andree <matthias.andree@gmx.de> -# Requires Python with Tkinter, and the following OS-dependent services: -# posix, posixpath, socket -version = "1.44" - -from Tkinter import * -from Dialog import * -import sys, time, os, string, socket, getopt, tempfile - -# -# Define the data structures the GUIs will be tossing around -# -class Configuration: - def __init__(self): - self.poll_interval = 0 # Normally, run in foreground - self.logfile = None # No logfile, initially - self.idfile = os.environ["HOME"] + "/.fetchids" # Default idfile, initially - self.postmaster = None # No last-resort address, initially - self.bouncemail = TRUE # Bounce errors to users - self.spambounce = FALSE # Bounce spam errors - self.properties = None # No exiguous properties - self.invisible = FALSE # Suppress Received line & spoof? - self.syslog = FALSE # Use syslogd for logging? - self.servers = [] # List of included sites - Configuration.typemap = ( - ('poll_interval', 'Int'), - ('logfile', 'String'), - ('idfile', 'String'), - ('postmaster', 'String'), - ('bouncemail', 'Boolean'), - ('spambounce', 'Boolean'), - ('properties', 'String'), - ('syslog', 'Boolean'), - ('invisible', 'Boolean')) - - def __repr__(self): - str = ""; - if self.syslog != ConfigurationDefaults.syslog: - str = str + ("set syslog\n") - elif self.logfile: - str = str + ("set logfile \"%s\"\n" % (self.logfile,)); - if self.idfile != ConfigurationDefaults.idfile: - str = str + ("set idfile \"%s\"\n" % (self.idfile,)); - if self.postmaster != ConfigurationDefaults.postmaster: - str = str + ("set postmaster \"%s\"\n" % (self.postmaster,)); - if self.bouncemail: - str = str + ("set bouncemail\n") - else: - str = str + ("set nobouncemail\n") - if self.spambounce: - str = str + ("set spambounce\n") - else: - str = str + ("set no spambounce\n") - if self.properties != ConfigurationDefaults.properties: - str = str + ("set properties \"%s\"\n" % (self.properties,)); - if self.poll_interval > 0: - str = str + "set daemon " + `self.poll_interval` + "\n" - for site in self.servers: - str = str + repr(site) - return str - - def __delitem__(self, name): - for si in range(len(self.servers)): - if self.servers[si].pollname == name: - del self.servers[si] - break - - def __str__(self): - return "[Configuration: " + repr(self) + "]" - -class Server: - def __init__(self): - self.pollname = None # Poll label - self.via = None # True name of host - self.active = TRUE # Poll status - self.interval = 0 # Skip interval - self.protocol = 'auto' # Default to auto protocol - self.service = None # Service name to use - self.uidl = FALSE # Don't use RFC1725 UIDLs by default - self.auth = 'any' # Default to password authentication - self.timeout = 300 # 5-minute timeout - self.envelope = 'Received' # Envelope-address header - self.envskip = 0 # Number of envelope headers to skip - self.qvirtual = None # Name prefix to strip - self.aka = [] # List of DNS aka names - self.dns = TRUE # Enable DNS lookup on multidrop - self.localdomains = [] # Domains to be considered local - self.interface = None # IP address and range - self.monitor = None # IP address and range - self.plugin = None # Plugin command for going to server - self.plugout = None # Plugin command for going to listener - self.principal = None # Kerberos principal - self.esmtpname = None # ESMTP 2554 name - self.esmtppassword = None # ESMTP 2554 password - self.tracepolls = FALSE # Add trace-poll info to headers - self.users = [] # List of user entries for site - Server.typemap = ( - ('pollname', 'String'), - ('via', 'String'), - ('active', 'Boolean'), - ('interval', 'Int'), - ('protocol', 'String'), - ('service', 'String'), - ('uidl', 'Boolean'), - ('auth', 'String'), - ('timeout', 'Int'), - ('envelope', 'String'), - ('envskip', 'Int'), - ('qvirtual', 'String'), - # leave aka out - ('dns', 'Boolean'), - # leave localdomains out - ('interface', 'String'), - ('monitor', 'String'), - ('plugin', 'String'), - ('plugout', 'String'), - ('esmtpname', 'String'), - ('esmtppassword', 'String'), - ('principal', 'String'), - ('tracepolls','Boolean')) - - def dump(self, folded): - res = "" - if self.active: res = res + "poll" - else: res = res + "skip" - res = res + (" " + self.pollname) - if self.via: - res = res + (" via " + str(self.via) + "\n"); - if self.protocol != ServerDefaults.protocol: - res = res + " with proto " + self.protocol - if self.service and self.service != defaultports[self.protocol] and self.service != ianaservices[defaultports[self.protocol]]: - res = res + " service " + self.service - if self.timeout != ServerDefaults.timeout: - res = res + " timeout " + `self.timeout` - if self.interval != ServerDefaults.interval: - res = res + " interval " + `self.interval` - if self.envelope != ServerDefaults.envelope or self.envskip != ServerDefaults.envskip: - if self.envskip: - res = res + " envelope " + `self.envskip` + " " + self.envelope - else: - res = res + " envelope " + self.envelope - if self.qvirtual: - res = res + (" qvirtual " + str(self.qvirtual) + "\n"); - if self.auth != ServerDefaults.auth: - res = res + " auth " + self.auth - if self.dns != ServerDefaults.dns or self.uidl != ServerDefaults.uidl: - res = res + " and options" - if self.dns != ServerDefaults.dns: - res = res + flag2str(self.dns, 'dns') - if self.uidl != ServerDefaults.uidl: - res = res + flag2str(self.uidl, 'uidl') - if folded: res = res + "\n " - else: res = res + " " - - if self.aka: - res = res + "aka" - for x in self.aka: - res = res + " " + x - if self.aka and self.localdomains: res = res + " " - if self.localdomains: - res = res + ("localdomains") - for x in self.localdomains: - res = res + " " + x - if (self.aka or self.localdomains): - if folded: - res = res + "\n " - else: - res = res + " " - - if self.tracepolls: - res = res + "tracepolls\n" - - if self.interface: - res = res + " interface " + str(self.interface) - if self.monitor: - res = res + " monitor " + str(self.monitor) - if self.plugin: - res = res + " plugin " + `self.plugin` - if self.plugout: - res = res + " plugout " + `self.plugout` - if self.principal: - res = res + " principal " + `self.principal` - if self.esmtpname: - res = res + " esmtpname " + `self.esmtpname` - if self.esmtppassword: - res = res + " esmtppassword " + `self.esmtppassword` - if self.interface or self.monitor or self.principal or self.plugin or self.plugout: - if folded: - res = res + "\n" - - if res[-1] == " ": res = res[0:-1] - - for user in self.users: - res = res + repr(user) - res = res + "\n" - return res; - - def __delitem__(self, name): - for ui in range(len(self.users)): - if self.users[ui].remote == name: - del self.users[ui] - break - - def __repr__(self): - return self.dump(TRUE) - - def __str__(self): - return "[Server: " + self.dump(FALSE) + "]" - -class User: - def __init__(self): - if os.environ.has_key("USER"): - self.remote = os.environ["USER"] # Remote username - elif os.environ.has_key("LOGNAME"): - self.remote = os.environ["LOGNAME"] - else: - print "Can't get your username!" - sys.exit(1) - self.localnames = [self.remote,]# Local names - self.password = None # Password for mail account access - self.mailboxes = [] # Remote folders to retrieve from - self.smtphunt = [] # Hosts to forward to - self.fetchdomains = [] # Domains to fetch from - self.smtpaddress = None # Append this to MAIL FROM line - self.smtpname = None # Use this for RCPT TO - self.preconnect = None # Connection setup - self.postconnect = None # Connection wrapup - self.mda = None # Mail Delivery Agent - self.bsmtp = None # BSMTP output file - self.lmtp = FALSE # Use LMTP rather than SMTP? - self.antispam = "" # Listener's spam-block code - self.keep = FALSE # Keep messages - self.flush = FALSE # Flush messages - self.fetchall = FALSE # Fetch old messages - self.rewrite = TRUE # Rewrite message headers - self.forcecr = FALSE # Force LF -> CR/LF - self.stripcr = FALSE # Strip CR - self.pass8bits = FALSE # Force BODY=7BIT - self.mimedecode = FALSE # Undo MIME armoring - self.dropstatus = FALSE # Drop incoming Status lines - self.dropdelivered = FALSE # Drop incoming Delivered-To lines - self.idle = FALSE # IDLE after poll - self.limit = 0 # Message size limit - self.warnings = 3600 # Size warning interval (see tunable.h) - self.fetchlimit = 0 # Max messages fetched per batch - self.fetchsizelimit = 100 # Max message sizes fetched per transaction - self.fastuidl = 10 # Do fast uidl 9 out of 10 times - self.batchlimit = 0 # Max message forwarded per batch - self.expunge = 0 # Interval between expunges (IMAP) - self.ssl = 0 # Enable Seccure Socket Layer - self.sslkey = None # SSL key filename - self.sslcert = None # SSL certificate filename - self.sslproto = None # Force SSL? - self.sslcertck = 0 # Enable strict SSL cert checking - self.sslcertpath = None # Path to trusted certificates - self.sslfingerprint = None # SSL key fingerprint to check - self.properties = None # Extension properties - User.typemap = ( - ('remote', 'String'), - # leave out mailboxes and localnames - ('password', 'String'), - # Leave out smtphunt, fetchdomains - ('smtpaddress', 'String'), - ('smtpname', 'String'), - ('preconnect', 'String'), - ('postconnect', 'String'), - ('mda', 'String'), - ('bsmtp', 'String'), - ('lmtp', 'Boolean'), - ('antispam', 'String'), - ('keep', 'Boolean'), - ('flush', 'Boolean'), - ('fetchall', 'Boolean'), - ('rewrite', 'Boolean'), - ('forcecr', 'Boolean'), - ('stripcr', 'Boolean'), - ('pass8bits', 'Boolean'), - ('mimedecode', 'Boolean'), - ('dropstatus', 'Boolean'), - ('dropdelivered', 'Boolean'), - ('idle', 'Boolean'), - ('limit', 'Int'), - ('warnings', 'Int'), - ('fetchlimit', 'Int'), - ('fetchsizelimit', 'Int'), - ('fastuidl', 'Int'), - ('batchlimit', 'Int'), - ('expunge', 'Int'), - ('ssl', 'Boolean'), - ('sslkey', 'String'), - ('sslcert', 'String'), - ('sslcertck', 'Boolean'), - ('sslcertpath', 'String'), - ('sslfingerprint', 'String'), - ('properties', 'String')) - - def __repr__(self): - res = " " - res = res + "user " + `self.remote` + " there "; - if self.password: - res = res + "with password " + `self.password` + " " - if self.localnames: - res = res + "is" - for x in self.localnames: - res = res + " " + `x` - res = res + " here" - if (self.keep != UserDefaults.keep - or self.flush != UserDefaults.flush - or self.fetchall != UserDefaults.fetchall - or self.rewrite != UserDefaults.rewrite - or self.forcecr != UserDefaults.forcecr - or self.stripcr != UserDefaults.stripcr - or self.pass8bits != UserDefaults.pass8bits - or self.mimedecode != UserDefaults.mimedecode - or self.dropstatus != UserDefaults.dropstatus - or self.dropdelivered != UserDefaults.dropdelivered - or self.idle != UserDefaults.idle): - res = res + " options" - if self.keep != UserDefaults.keep: - res = res + flag2str(self.keep, 'keep') - if self.flush != UserDefaults.flush: - res = res + flag2str(self.flush, 'flush') - if self.fetchall != UserDefaults.fetchall: - res = res + flag2str(self.fetchall, 'fetchall') - if self.rewrite != UserDefaults.rewrite: - res = res + flag2str(self.rewrite, 'rewrite') - if self.forcecr != UserDefaults.forcecr: - res = res + flag2str(self.forcecr, 'forcecr') - if self.stripcr != UserDefaults.stripcr: - res = res + flag2str(self.stripcr, 'stripcr') - if self.pass8bits != UserDefaults.pass8bits: - res = res + flag2str(self.pass8bits, 'pass8bits') - if self.mimedecode != UserDefaults.mimedecode: - res = res + flag2str(self.mimedecode, 'mimedecode') - if self.dropstatus != UserDefaults.dropstatus: - res = res + flag2str(self.dropstatus, 'dropstatus') - if self.dropdelivered != UserDefaults.dropdelivered: - res = res + flag2str(self.dropdelivered, 'dropdelivered') - if self.idle != UserDefaults.idle: - res = res + flag2str(self.idle, 'idle') - if self.limit != UserDefaults.limit: - res = res + " limit " + `self.limit` - if self.warnings != UserDefaults.warnings: - res = res + " warnings " + `self.warnings` - if self.fetchlimit != UserDefaults.fetchlimit: - res = res + " fetchlimit " + `self.fetchlimit` - if self.fetchsizelimit != UserDefaults.fetchsizelimit: - res = res + " fetchsizelimit " + `self.fetchsizelimit` - if self.fastuidl != UserDefaults.fastuidl: - res = res + " fastuidl " + `self.fastuidl` - if self.batchlimit != UserDefaults.batchlimit: - res = res + " batchlimit " + `self.batchlimit` - if self.ssl and self.ssl != UserDefaults.ssl: - res = res + flag2str(self.ssl, 'ssl') - if self.sslkey and self.sslkey != UserDefaults.sslkey: - res = res + " sslkey " + `self.sslkey` - if self.sslcert and self.sslcert != UserDefaults.sslcert: - res = res + " sslcert " + `self.sslcert` - if self.sslproto and self.sslproto != UserDefaults.sslproto: - res = res + " sslproto " + `self.sslproto` - if self.sslcertck and self.sslcertck != UserDefaults.sslcertck: - res = res + flag2str(self.sslcertck, 'sslcertck') - if self.sslcertpath and self.sslcertpath != UserDefaults.sslcertpath: - res = res + " sslcertpath " + `self.sslcertpath` - if self.sslfingerprint and self.sslfingerprint != UserDefaults.sslfingerprint: - res = res + " sslfingerprint " + `self.sslfingerprint` - if self.expunge != UserDefaults.expunge: - res = res + " expunge " + `self.expunge` - res = res + "\n" - trimmed = self.smtphunt; - if trimmed != [] and trimmed[len(trimmed) - 1] == "localhost": - trimmed = trimmed[0:len(trimmed) - 1] - if trimmed != [] and trimmed[len(trimmed) - 1] == hostname: - trimmed = trimmed[0:len(trimmed) - 1] - if trimmed != []: - res = res + " smtphost " - for x in trimmed: - res = res + " " + x - res = res + "\n" - trimmed = self.fetchdomains - if trimmed != [] and trimmed[len(trimmed) - 1] == hostname: - trimmed = trimmed[0:len(trimmed) - 1] - if trimmed != []: - res = res + " fetchdomains " - for x in trimmed: - res = res + " " + x - res = res + "\n" - if self.mailboxes: - res = res + " folder" - for x in self.mailboxes: - res = res + " " + x - res = res + "\n" - for fld in ('smtpaddress', 'preconnect', 'postconnect', 'mda', 'bsmtp', 'properties'): - if getattr(self, fld): - res = res + " %s %s\n" % (fld, `getattr(self, fld)`) - if self.lmtp != UserDefaults.lmtp: - res = res + flag2str(self.lmtp, 'lmtp') - if self.antispam != UserDefaults.antispam: - res = res + " antispam " + self.antispam + "\n" - return res; - - def __str__(self): - return "[User: " + repr(self) + "]" - -# -# Helper code -# - -# IANA port assignments and bogus 1109 entry -ianaservices = {"pop2":109, - "pop3":110, - "1109":1109, - "imap":143, - "smtp":25, - "odmr":366} - -# fetchmail protocol to IANA service name -defaultports = {"auto":None, - "POP2":"pop2", - "POP3":"pop3", - "APOP":"pop3", - "KPOP":"1109", - "IMAP":"imap", - "ETRN":"smtp", - "ODMR":"odmr"} - -authlist = ("any", "password", "gssapi", "kerberos", "ssh", "otp") - -listboxhelp = { - 'title' : 'List Selection Help', - 'banner': 'List Selection', - 'text' : """ -You must select an item in the list box (by clicking on it). -"""} - -def flag2str(value, string): -# make a string representation of a .fetchmailrc flag or negated flag - str = "" - if value != None: - str = str + (" ") - if value == FALSE: str = str + ("no ") - str = str + string; - return str - -class LabeledEntry(Frame): -# widget consisting of entry field with caption to left - def bind(self, key, action): - self.E.bind(key, action) - def focus_set(self): - self.E.focus_set() - def __init__(self, Master, text, textvar, lwidth, ewidth=12): - Frame.__init__(self, Master) - self.L = Label(self, {'text':text, 'width':lwidth, 'anchor':'w'}) - self.E = Entry(self, {'textvar':textvar, 'width':ewidth}) - self.L.pack({'side':'left'}) - self.E.pack({'side':'left', 'expand':'1', 'fill':'x'}) - -def ButtonBar(frame, legend, ref, alternatives, depth, command): -# array of radio buttons, caption to left, picking from a string list - bar = Frame(frame) - width = (len(alternatives)+1) / depth; - Label(bar, text=legend).pack(side=LEFT) - for column in range(width): - subframe = Frame(bar) - for row in range(depth): - ind = width * row + column - if ind < len(alternatives): - Radiobutton(subframe, - {'text':alternatives[ind], - 'variable':ref, - 'value':alternatives[ind], - 'command':command}).pack(side=TOP, anchor=W) - else: - # This is just a spacer - Radiobutton(subframe, - {'text':" ",'state':DISABLED}).pack(side=TOP, anchor=W) - subframe.pack(side=LEFT) - bar.pack(side=TOP); - return bar - -def helpwin(helpdict): -# help message window with a self-destruct button - helpwin = Toplevel() - helpwin.title(helpdict['title']) - helpwin.iconname(helpdict['title']) - Label(helpwin, text=helpdict['banner']).pack() - textframe = Frame(helpwin) - scroll = Scrollbar(textframe) - helpwin.textwidget = Text(textframe, setgrid=TRUE) - textframe.pack(side=TOP, expand=YES, fill=BOTH) - helpwin.textwidget.config(yscrollcommand=scroll.set) - helpwin.textwidget.pack(side=LEFT, expand=YES, fill=BOTH) - scroll.config(command=helpwin.textwidget.yview) - scroll.pack(side=RIGHT, fill=BOTH) - helpwin.textwidget.insert(END, helpdict['text']); - Button(helpwin, text='Done', - command=lambda x=helpwin: x.destroy(), bd=2).pack() - textframe.pack(side=TOP) - -def make_icon_window(base, image): - try: - # Some older pythons will error out on this - icon_image = PhotoImage(data=image) - icon_window = Toplevel() - Label(icon_window, image=icon_image, bg='black').pack() - base.master.iconwindow(icon_window) - # Avoid TkInter brain death. PhotoImage objects go out of - # scope when the enclosing function returns. Therefore - # we have to explicitly link them to something. - base.keepalive.append(icon_image) - except: - pass - -class ListEdit(Frame): -# edit a list of values (duplicates not allowed) with a supplied editor hook - def __init__(self, newlegend, list, editor, deletor, master, helptxt): - self.editor = editor - self.deletor = deletor - self.list = list - - # Set up a widget to accept new elements - self.newval = StringVar(master) - newwin = LabeledEntry(master, newlegend, self.newval, '12') - newwin.bind('<Double-1>', self.handleNew) - newwin.bind('<Return>', self.handleNew) - newwin.pack(side=TOP, fill=X, anchor=E) - - # Edit the existing list - listframe = Frame(master) - scroll = Scrollbar(listframe) - self.listwidget = Listbox(listframe, height=0, selectmode='browse') - if self.list: - for x in self.list: - self.listwidget.insert(END, x) - listframe.pack(side=TOP, expand=YES, fill=BOTH) - self.listwidget.config(yscrollcommand=scroll.set) - self.listwidget.pack(side=LEFT, expand=YES, fill=BOTH) - scroll.config(command=self.listwidget.yview) - scroll.pack(side=RIGHT, fill=BOTH) - self.listwidget.config(selectmode=SINGLE, setgrid=TRUE) - self.listwidget.bind('<Double-1>', self.handleList); - self.listwidget.bind('<Return>', self.handleList); - - bf = Frame(master); - if self.editor: - Button(bf, text='Edit', command=self.editItem).pack(side=LEFT) - Button(bf, text='Delete', command=self.deleteItem).pack(side=LEFT) - if helptxt: - self.helptxt = helptxt - Button(bf, text='Help', fg='blue', - command=self.help).pack(side=RIGHT) - bf.pack(fill=X) - - def help(self): - helpwin(self.helptxt) - - def handleList(self, event): - self.editItem(); - - def handleNew(self, event): - item = self.newval.get() - if item: - entire = self.listwidget.get(0, self.listwidget.index('end')); - if item and (not entire) or (not item in self.listwidget.get(0, self.listwidget.index('end'))): - self.listwidget.insert('end', item) - if self.list != None: self.list.append(item) - if self.editor: - apply(self.editor, (item,)) - self.newval.set('') - - def editItem(self): - select = self.listwidget.curselection() - if not select: - helpwin(listboxhelp) - else: - index = select[0] - if index and self.editor: - label = self.listwidget.get(index); - if self.editor: - apply(self.editor, (label,)) - - def deleteItem(self): - select = self.listwidget.curselection() - if not select: - helpwin(listboxhelp) - else: - index = string.atoi(select[0]) - label = self.listwidget.get(index); - self.listwidget.delete(index) - if self.list != None: - del self.list[index] - if self.deletor != None: - apply(self.deletor, (label,)) - -def ConfirmQuit(frame, context): - ans = Dialog(frame, - title = 'Quit?', - text = 'Really quit ' + context + ' without saving?', - bitmap = 'question', - strings = ('Yes', 'No'), - default = 1) - return ans.num == 0 - -def dispose_window(master, legend, help, savelegend='OK'): - dispose = Frame(master, relief=RAISED, bd=5) - Label(dispose, text=legend).pack(side=TOP,pady=10) - Button(dispose, text=savelegend, fg='blue', - command=master.save).pack(side=LEFT) - Button(dispose, text='Quit', fg='blue', - command=master.nosave).pack(side=LEFT) - Button(dispose, text='Help', fg='blue', - command=lambda x=help: helpwin(x)).pack(side=RIGHT) - dispose.pack(fill=X) - return dispose - -class MyWidget: -# Common methods for Tkinter widgets -- deals with Tkinter declaration - def post(self, widgetclass, field): - for x in widgetclass.typemap: - if x[1] == 'Boolean': - setattr(self, x[0], BooleanVar(self)) - elif x[1] == 'String': - setattr(self, x[0], StringVar(self)) - elif x[1] == 'Int': - setattr(self, x[0], IntVar(self)) - source = getattr(getattr(self, field), x[0]) - if source: - getattr(self, x[0]).set(source) - - def fetch(self, widgetclass, field): - for x in widgetclass.typemap: - setattr(getattr(self, field), x[0], getattr(self, x[0]).get()) - -# -# First, code to set the global fetchmail run controls. -# - -configure_novice_help = { - 'title' : 'Fetchmail novice configurator help', - 'banner': 'Novice configurator help', - 'text' : """ -In the `Novice Configurator Controls' panel, you can: - -Press `Save' to save the new fetchmail configuration you have created. -Press `Quit' to exit without saving. -Press `Help' to bring up this help message. - -In the `Novice Configuration' panels, you will set up the basic data -needed to create a simple fetchmail setup. These include: - -1. The name of the remote site you want to query. - -2. Your login name on that site. - -3. Your password on that site. - -4. A protocol to use (POP, IMAP, ETRN, etc.) - -5. A polling interval. - -6. Options to fetch old messages as well as new, uor to suppress - deletion of fetched message. - -The novice-configuration code will assume that you want to forward mail -to a local sendmail listener with no special options. -"""} - -configure_expert_help = { - 'title' : 'Fetchmail expert configurator help', - 'banner': 'Expert configurator help', - 'text' : """ -In the `Expert Configurator Controls' panel, you can: - -Press `Save' to save the new fetchmail configuration you have edited. -Press `Quit' to exit without saving. -Press `Help' to bring up this help message. - -In the `Run Controls' panel, you can set the following options that -control how fetchmail runs: - -Poll interval - Number of seconds to wait between polls in the background. - If zero, fetchmail will run in foreground. - -Logfile - If empty, emit progress and error messages to stderr. - Otherwise this gives the name of the files to write to. - This field is ignored if the "Log to syslog?" option is on. - -Idfile - If empty, store seen-message IDs in .fetchids under user's home - directory. If nonempty, use given file name. - -Postmaster - Who to send multidrop mail to as a last resort if no address can - be matched. Normally empty; in this case, fetchmail treats the - invoking user as the address of last resort unless that user is - root. If that user is root, fetchmail sends to `postmaster'. - -Bounces to sender? - If this option is on (the default) error mail goes to the sender. - Otherwise it goes to the postmaster. - -Send spam bounces? - If this option is on, spam bounces are sent to the sender or - postmaster (depending on the "Bounces to sender?" option. Otherwise, - spam bounces are not sent (the default). - -Invisible - If false (the default) fetchmail generates a Received line into - each message and generates a HELO from the machine it is running on. - If true, fetchmail generates no Received line and HELOs as if it were - the remote site. - -In the `Remote Mail Configurations' panel, you can: - -1. Enter the name of a new remote mail server you want fetchmail to query. - -To do this, simply enter a label for the poll configuration in the -`New Server:' box. The label should be a DNS name of the server (unless -you are using ssh or some other tunneling method and will fill in the `via' -option on the site configuration screen). - -2. Change the configuration of an existing site. - -To do this, find the site's label in the listbox and double-click it. -This will take you to a site configuration dialogue. -"""} - - -class ConfigurationEdit(Frame, MyWidget): - def __init__(self, configuration, outfile, master, onexit): - self.subwidgets = {} - self.configuration = configuration - self.outfile = outfile - self.container = master - self.onexit = onexit - ConfigurationEdit.mode_to_help = { - 'novice':configure_novice_help, 'expert':configure_expert_help - } - - def server_edit(self, sitename): - self.subwidgets[sitename] = ServerEdit(sitename, self).edit(self.mode, Toplevel()) - - def server_delete(self, sitename): - try: - for user in self.subwidgets.keys(): - user.destruct() - del self.configuration[sitename] - except: - pass - - def edit(self, mode): - self.mode = mode - Frame.__init__(self, self.container) - self.master.title('fetchmail ' + self.mode + ' configurator'); - self.master.iconname('fetchmail ' + self.mode + ' configurator'); - self.master.protocol('WM_DELETE_WINDOW', self.nosave) - self.keepalive = [] # Use this to anchor the PhotoImage object - make_icon_window(self, fetchmail_icon) - Pack.config(self) - self.post(Configuration, 'configuration') - - dispose_window(self, - 'Configurator ' + self.mode + ' Controls', - ConfigurationEdit.mode_to_help[self.mode], - 'Save') - - gf = Frame(self, relief=RAISED, bd = 5) - Label(gf, - text='Fetchmail Run Controls', - bd=2).pack(side=TOP, pady=10) - - df = Frame(gf) - - ff = Frame(df) - if self.mode != 'novice': - # Set the postmaster - log = LabeledEntry(ff, ' Postmaster:', self.postmaster, '14') - log.pack(side=RIGHT, anchor=E) - - # Set the poll interval - de = LabeledEntry(ff, ' Poll interval:', self.poll_interval, '14') - de.pack(side=RIGHT, anchor=E) - ff.pack() - - df.pack() - - if self.mode != 'novice': - pf = Frame(gf) - Checkbutton(pf, - {'text':'Bounces to sender?', - 'variable':self.bouncemail, - 'relief':GROOVE}).pack(side=LEFT, anchor=W) - pf.pack(fill=X) - - sb = Frame(gf) - Checkbutton(sb, - {'text':'send spam bounces?', - 'variable':self.spambounce, - 'relief':GROOVE}).pack(side=LEFT, anchor=W) - sb.pack(fill=X) - - sf = Frame(gf) - Checkbutton(sf, - {'text':'Log to syslog?', - 'variable':self.syslog, - 'relief':GROOVE}).pack(side=LEFT, anchor=W) - log = LabeledEntry(sf, ' Logfile:', self.logfile, '14') - log.pack(side=RIGHT, anchor=E) - sf.pack(fill=X) - - Checkbutton(gf, - {'text':'Invisible mode?', - 'variable':self.invisible, - 'relief':GROOVE}).pack(side=LEFT, anchor=W) - # Set the idfile - log = LabeledEntry(gf, ' Idfile:', self.idfile, '14') - log.pack(side=RIGHT, anchor=E) - - gf.pack(fill=X) - - # Expert mode allows us to edit multiple sites - lf = Frame(self, relief=RAISED, bd=5) - Label(lf, - text='Remote Mail Server Configurations', - bd=2).pack(side=TOP, pady=10) - ListEdit('New Server:', - map(lambda x: x.pollname, self.configuration.servers), - lambda site, self=self: self.server_edit(site), - lambda site, self=self: self.server_delete(site), - lf, remotehelp) - lf.pack(fill=X) - - def destruct(self): - for sitename in self.subwidgets.keys(): - self.subwidgets[sitename].destruct() - self.master.destroy() - self.onexit() - - def nosave(self): - if ConfirmQuit(self, self.mode + " configuration editor"): - self.destruct() - - def save(self): - for sitename in self.subwidgets.keys(): - self.subwidgets[sitename].save() - self.fetch(Configuration, 'configuration') - fm = None - if not self.outfile: - fm = sys.stdout - elif not os.path.isfile(self.outfile) or Dialog(self, - title = 'Overwrite existing run control file?', - text = 'Really overwrite existing run control file?', - bitmap = 'question', - strings = ('Yes', 'No'), - default = 1).num == 0: - try: - os.rename(self.outfile, self.outfile + "~") - # Pre-1.5.2 compatibility... - except os.error: - pass - fm = open(self.outfile, 'w') - if fm: - fm.write("# Configuration created %s by fetchmailconf\n" % time.ctime(time.time())) - fm.write(`self.configuration`) - if self.outfile: - fm.close() - if fm != sys.stdout: - os.chmod(self.outfile, 0600) - self.destruct() - -# -# Server editing stuff. -# -remotehelp = { - 'title' : 'Remote site help', - 'banner': 'Remote sites', - 'text' : """ -When you add a site name to the list here, -you initialize an entry telling fetchmail -how to poll a new site. - -When you select a sitename (by double- -clicking it, or by single-clicking to -select and then clicking the Edit button), -you will open a window to configure that -site. -"""} - -serverhelp = { - 'title' : 'Server options help', - 'banner': 'Server Options', - 'text' : """ -The server options screen controls fetchmail -options that apply to one of your mailservers. - -Once you have a mailserver configuration set -up as you like it, you can select `OK' to -store it in the server list maintained in -the main configuration window. - -If you wish to discard changes to a server -configuration, select `Quit'. -"""} - -controlhelp = { - 'title' : 'Run Control help', - 'banner': 'Run Controls', - 'text' : """ -If the `Poll normally' checkbox is on, the host is polled as part of -the normal operation of fetchmail when it is run with no arguments. -If it is off, fetchmail will only query this host when it is given as -a command-line argument. - -The `True name of server' box should specify the actual DNS name -to query. By default this is the same as the poll name. - -Normally each host described in the file is queried once each -poll cycle. If `Cycles to skip between polls' is greater than 0, -that's the number of poll cycles that are skipped between the -times this post is actually polled. - -The `Server timeout' is the number of seconds fetchmail will wait -for a reply from the mailserver before concluding it is hung and -giving up. -"""} - -protohelp = { - 'title' : 'Protocol and Port help', - 'banner': 'Protocol and Port', - 'text' : """ -These options control the remote-mail protocol -and TCP/IP service port used to query this -server. - -If you click the `Probe for supported protocols' -button, fetchmail will try to find you the most -capable server on the selected host (this will -only work if you're conncted to the Internet). -The probe only checks for ordinary IMAP and POP -protocols; fortunately these are the most -frequently supported. - -The `Protocol' button bar offers you a choice of -all the different protocols available. The `auto' -protocol is the default mode; it probes the host -ports for POP3 and IMAP to see if either is -available. - -Normally the TCP/IP service port to use is -dictated by the protocol choice. The `Service' -field (only present in expert mode) lets you -set a non-standard service (port). -"""} - -sechelp = { - 'title' : 'Security option help', - 'banner': 'Security', - 'text' : """ -The `interface' option allows you to specify a range -of IP addresses to monitor for activity. If these -addresses are not active, fetchmail will not poll. -Specifying this may protect you from a spoofing attack -if your client machine has more than one IP gateway -address and some of the gateways are to insecure nets. - -The `monitor' option, if given, specifies the only -device through which fetchmail is permitted to connect -to servers. This option may be used to prevent -fetchmail from triggering an expensive dial-out if the -interface is not already active. - -The `interface' and `monitor' options are available -only for Linux and freeBSD systems. See the fetchmail -manual page for details on these. - -The ssl option enables SSL communication with a mailserver -supporting Secure Sockets Layer. The sslkey and sslcert options -declare key and certificate files for use with SSL. -The sslcertck option enables strict checking of SSL server -certificates (and sslcertpath gives trusted certificate -directory). With sslfingerprint, you can specify a finger- -print the server's key is checked against. -"""} - -multihelp = { - 'title' : 'Multidrop option help', - 'banner': 'Multidrop', - 'text' : """ -These options are only useful with multidrop mode. -See the manual page for extended discussion. -"""} - -suserhelp = { - 'title' : 'User list help', - 'banner': 'User list', - 'text' : """ -When you add a user name to the list here, -you initialize an entry telling fetchmail -to poll the site on behalf of the new user. - -When you select a username (by double- -clicking it, or by single-clicking to -select and then clicking the Edit button), -you will open a window to configure the -user's options on that site. -"""} - -class ServerEdit(Frame, MyWidget): - def __init__(self, host, parent): - self.parent = parent - self.server = None - self.subwidgets = {} - for site in parent.configuration.servers: - if site.pollname == host: - self.server = site - if (self.server == None): - self.server = Server() - self.server.pollname = host - self.server.via = None - parent.configuration.servers.append(self.server) - - def edit(self, mode, master=None): - Frame.__init__(self, master) - Pack.config(self) - self.master.title('Fetchmail host ' + self.server.pollname); - self.master.iconname('Fetchmail host ' + self.server.pollname); - self.post(Server, 'server') - self.makeWidgets(self.server.pollname, mode) - self.keepalive = [] # Use this to anchor the PhotoImage object - make_icon_window(self, fetchmail_icon) -# self.grab_set() -# self.focus_set() -# self.wait_window() - return self - - def destruct(self): - for username in self.subwidgets.keys(): - self.subwidgets[username].destruct() - del self.parent.subwidgets[self.server.pollname] - self.master.destroy() - - def nosave(self): - if ConfirmQuit(self, 'server option editing'): - self.destruct() - - def save(self): - self.fetch(Server, 'server') - for username in self.subwidgets.keys(): - self.subwidgets[username].save() - self.destruct() - - def defaultPort(self): - proto = self.protocol.get() - # Callback to reset the port number whenever the protocol type changes. - # We used to only reset the port if it had a default (zero) value. - # This turns out to be a bad idea especially in Novice mode -- if - # you set POP3 and then set IMAP, the port invisibly remained 110. - # Now we reset unconditionally on the theory that if you're setting - # a custom port number you should be in expert mode and playing - # close enough attention to notice this... - self.service.set(defaultports[proto]) - if not proto in ("POP3", "APOP", "KPOP"): self.uidl.state = DISABLED - - def user_edit(self, username, mode): - self.subwidgets[username] = UserEdit(username, self).edit(mode, Toplevel()) - - def user_delete(self, username): - if self.subwidgets.has_key(username): - self.subwidgets[username].destruct() - del self.server[username] - - def makeWidgets(self, host, mode): - topwin = dispose_window(self, "Server options for querying " + host, serverhelp) - - leftwin = Frame(self); - leftwidth = '25'; - - if mode != 'novice': - ctlwin = Frame(leftwin, relief=RAISED, bd=5) - Label(ctlwin, text="Run Controls").pack(side=TOP) - Checkbutton(ctlwin, text='Poll ' + host + ' normally?', variable=self.active).pack(side=TOP) - LabeledEntry(ctlwin, 'True name of ' + host + ':', - self.via, leftwidth).pack(side=TOP, fill=X) - LabeledEntry(ctlwin, 'Cycles to skip between polls:', - self.interval, leftwidth).pack(side=TOP, fill=X) - LabeledEntry(ctlwin, 'Server timeout (seconds):', - self.timeout, leftwidth).pack(side=TOP, fill=X) - Button(ctlwin, text='Help', fg='blue', - command=lambda: helpwin(controlhelp)).pack(side=RIGHT) - ctlwin.pack(fill=X) - - # Compute the available protocols from the compile-time options - protolist = ['auto'] - if 'pop2' in feature_options: - protolist.append("POP2") - if 'pop3' in feature_options: - protolist = protolist + ["POP3", "APOP", "KPOP"] - if 'sdps' in feature_options: - protolist.append("SDPS") - if 'imap' in feature_options: - protolist.append("IMAP") - if 'etrn' in feature_options: - protolist.append("ETRN") - if 'odmr' in feature_options: - protolist.append("ODMR") - - protwin = Frame(leftwin, relief=RAISED, bd=5) - Label(protwin, text="Protocol").pack(side=TOP) - ButtonBar(protwin, '', - self.protocol, protolist, 2, - self.defaultPort) - if mode != 'novice': - LabeledEntry(protwin, 'On server TCP/IP service:', - self.service, leftwidth).pack(side=TOP, fill=X) - self.defaultPort() - Checkbutton(protwin, - text="POP3: track `seen' with client-side UIDLs?", - variable=self.uidl).pack(side=TOP) - Button(protwin, text='Probe for supported protocols', fg='blue', - command=self.autoprobe).pack(side=LEFT) - Button(protwin, text='Help', fg='blue', - command=lambda: helpwin(protohelp)).pack(side=RIGHT) - protwin.pack(fill=X) - - userwin = Frame(leftwin, relief=RAISED, bd=5) - Label(userwin, text="User entries for " + host).pack(side=TOP) - ListEdit("New user: ", - map(lambda x: x.remote, self.server.users), - lambda u, m=mode, s=self: s.user_edit(u, m), - lambda u, s=self: s.user_delete(u), - userwin, suserhelp) - userwin.pack(fill=X) - - leftwin.pack(side=LEFT, anchor=N, fill=X); - - if mode != 'novice': - rightwin = Frame(self); - - mdropwin = Frame(rightwin, relief=RAISED, bd=5) - Label(mdropwin, text="Multidrop options").pack(side=TOP) - LabeledEntry(mdropwin, 'Envelope address header:', - self.envelope, '22').pack(side=TOP, fill=X) - LabeledEntry(mdropwin, 'Envelope headers to skip:', - self.envskip, '22').pack(side=TOP, fill=X) - LabeledEntry(mdropwin, 'Name prefix to strip:', - self.qvirtual, '22').pack(side=TOP, fill=X) - Checkbutton(mdropwin, text="Enable multidrop DNS lookup?", - variable=self.dns).pack(side=TOP) - Label(mdropwin, text="DNS aliases").pack(side=TOP) - ListEdit("New alias: ", self.server.aka, None, None, mdropwin, None) - Label(mdropwin, text="Domains to be considered local").pack(side=TOP) - ListEdit("New domain: ", - self.server.localdomains, None, None, mdropwin, multihelp) - mdropwin.pack(fill=X) - - if os_type in ('linux', 'freebsd'): - secwin = Frame(rightwin, relief=RAISED, bd=5) - Label(secwin, text="Security").pack(side=TOP) - # Don't actually let users set this. KPOP sets it implicitly - # ButtonBar(secwin, 'Authorization mode:', - # self.auth, authlist, 1, None).pack(side=TOP) - if os_type == 'linux' or os_type == 'freebsd' or 'interface' in dictmembers: - LabeledEntry(secwin, 'IP range to check before poll:', - self.interface, leftwidth).pack(side=TOP, fill=X) - if os_type == 'linux' or os_type == 'freebsd' or 'monitor' in dictmembers: - LabeledEntry(secwin, 'Interface to monitor:', - self.monitor, leftwidth).pack(side=TOP, fill=X) - # Someday this should handle Kerberos 5 too - if 'kerberos' in feature_options: - LabeledEntry(secwin, 'Principal:', - self.principal, '12').pack(side=TOP, fill=X) - # ESMTP authentication - LabeledEntry(secwin, 'ESMTP name:', - self.esmtpname, '12').pack(side=TOP, fill=X) - LabeledEntry(secwin, 'ESMTP password:', - self.esmtppassword, '12').pack(side=TOP, fill=X) - Button(secwin, text='Help', fg='blue', - command=lambda: helpwin(sechelp)).pack(side=RIGHT) - secwin.pack(fill=X) - - rightwin.pack(side=LEFT, anchor=N); - - def autoprobe(self): - # Note: this only handles case (1) near fetchmail.c:1032 - # We're assuming people smart enough to set up ssh tunneling - # won't need autoprobing. - if self.server.via: - realhost = self.server.via - else: - realhost = self.server.pollname - greetline = None - for protocol in ("IMAP","POP3","POP2"): - service = defaultports[protocol] - sock = socket.socket(socket.AF_INET, socket.SOCK_STREAM) - try: - sock.connect((realhost, ianaservices[service])) - greetline = sock.recv(1024) - sock.close() - except: - pass - else: - break - confwin = Toplevel() - if greetline == None: - title = "Autoprobe of " + realhost + " failed" - confirm = """ -Fetchmailconf didn't find any mailservers active. -This could mean the host doesn't support any, -or that your Internet connection is down, or -that the host is so slow that the probe timed -out before getting a response. -""" - else: - warnings = '' - # OK, now try to recognize potential problems - - if protocol == "POP2": - warnings = warnings + """ -It appears you have somehow found a mailserver running only POP2. -Congratulations. Have you considered a career in archaeology? - -Unfortunately, stock fetchmail binaries don't include POP2 support anymore. -Unless the first line of your fetchmail -V output includes the string "POP2", -you'll have to build it from sources yourself with the configure -switch --enable-POP2. - -""" - -### POP3 servers start here - - if string.find(greetline, "1.003") > 0 or string.find(greetline, "1.004") > 0: - warnings = warnings + """ -This appears to be an old version of the UC Davis POP server. These are -dangerously unreliable (among other problems, they may drop your mailbox -on the floor if your connection is interrupted during the session). - -It is strongly recommended that you find a better POP3 server. The fetchmail -FAQ includes pointers to good ones. - -""" - if string.find(greetline, "comcast.net") > 0: - warnings = warnings + """ -The Comcast Maillennium POP3 server only returns the first 80K of a long -message retrieved with TOP. Its response to RETR is normal, so use the -`fetchall' option. - -""" -# Steve VanDevender <stevev@efn.org> writes: -# The only system I have seen this happen with is cucipop-1.31 -# under SunOS 4.1.4. cucipop-1.31 runs fine on at least Solaris -# 2.x and probably quite a few other systems. It appears to be a -# bug or bad interaction with the SunOS realloc() -- it turns out -# that internally cucipop does allocate a certain data structure in -# multiples of 16, using realloc() to bump it up to the next -# multiple if it needs more. -# -# The distinctive symptom is that when there are 16 messages in the -# inbox, you can RETR and DELE all 16 messages successfully, but on -# QUIT cucipop returns something like "-ERR Error locking your -# mailbox" and aborts without updating it. -# -# The cucipop banner looks like: -# -# +OK Cubic Circle's v1.31 1998/05/13 POP3 ready <6229000062f95036@wakko> -# - if string.find(greetline, "Cubic Circle") > 0: - warnings = warnings + """ -I see your server is running cucipop. Better make sure the server box -isn't a SunOS 4.1.4 machine; cucipop tickles a bug in SunOS realloc() -under that version, and doesn't cope with the result gracefully. Newer -SunOS and Solaris machines run cucipop OK. - -Also, some versions of cucipop don't assert an exclusive lock on your -mailbox when it's being queried. This means that if you have more than -one fetchmail query running against the same mailbox, bad things can happen. -""" - if string.find(greetline, "David POP3 Server") > 0: - warnings = warnings + """ -This POP3 server is badly broken. You should get rid of it -- and the -brain-dead Microsoft operating system it rode in on. - -""" -# The greeting line on the server known to be buggy is: -# +OK POP3 server ready (running FTGate V2, 2, 1, 0 Jun 21 1999 09:55:01) -# - if string.find(greetline, "FTGate") > 0: - warnings = warnings + """ -This POP server has a weird bug; it says OK twice in response to TOP. -Its response to RETR is normal, so use the `fetchall' option. - -""" - if string.find(greetline, " geonet.de") > 0: - warnings = warnings + """ -You appear to be using geonet. As of late 2002, the TOP command on -geonet's POP3 is broken. Use the fetchall option. - -""" - if string.find(greetline, "OpenMail") > 0: - warnings = warnings + """ -You appear to be using some version of HP OpenMail. Many versions of -OpenMail do not process the "TOP" command correctly; the symptom is that -only the header and first line of each message is retrieved. To work -around this bug, turn on `fetchall' on all user entries associated with -this server. - -""" - if string.find(greetline, "Escape character is") > 0: - warnings = warnings + """ -Your greeting line looks like it was written by a fetid pile of -camel dung identified to me as `popa3d written by Solar Designer'. -Beware! The UIDL support in this thing is known to be completely broken, -and other things probably are too. - -""" - if string.find(greetline, "MercuryP/NLM v1.48") > 0: - warnings = warnings + """ -This is not a POP3 server. It has delusions of being one, but after -RETR all messages are automatically marked to be deleted. The only -way to prevent this is to issue an RSET before leaving the server. -Fetchmail does this, but we suspect this is probably broken in lots -of other ways, too. - -""" - if string.find(greetline, "POP-Max") > 0: - warnings = warnings + """ -The Mail Max POP3 server screws up on mail with attachments. It -reports the message size with attachments included, but doesn't -download them on a RETR or TOP (this violates the IMAP RFCs). It also -doesn't implement TOP correctly. You should get rid of it -- and the -brain-dead NT server it rode in on. - -""" - if string.find(greetline, "POP3 Server Ready") > 0: - warnings = warnings + """ -Some server that uses this greeting line has been observed to choke on -TOP %d 99999999. Use the fetchall option. if necessary, to force RETR. - -""" - if string.find(greetline, "QPOP") > 0: - warnings = warnings + """ -This appears to be a version of Eudora qpopper. That's good. Fetchmail -knows all about qpopper. However, be aware that the 2.53 version of -qpopper does something odd that causes fetchmail to hang with a socket -error on very large messages. This is probably not a fetchmail bug, as -it has been observed with fetchpop. The fix is to upgrade to qpopper -3.0beta or a more recent version. Better yet, switch to IMAP. - -""" - if string.find(greetline, " sprynet.com") > 0: - warnings = warnings + """ -You appear to be using a SpryNet server. In mid-1999 it was reported that -the SpryNet TOP command marks messages seen. Therefore, for proper error -recovery in the event of a line drop, it is strongly recommended that you -turn on `fetchall' on all user entries associated with this server. - -""" - if string.find(greetline, "TEMS POP3") > 0: - warnings = warnings + """ -Your POP3 server has "TEMS" in its header line. At least one such -server does not process the "TOP" command correctly; the symptom is -that fetchmail hangs when trying to retrieve mail. To work around -this bug, turn on `fetchall' on all user entries associated with this -server. - -""" - if string.find(greetline, " spray.se") > 0: - warnings = warnings + """ -Your POP3 server has "spray.se" in its header line. In May 2000 at -least one such server did not process the "TOP" command correctly; the -symptom is that messages are treated as headerless. To work around -this bug, turn on `fetchall' on all user entries associated with this -server. - -""" - if string.find(greetline, " usa.net") > 0: - warnings = warnings + """ -You appear to be using USA.NET's free mail service. Their POP3 servers -(at least as of the 2.2 version in use mid-1998) are quite flaky, but -fetchmail can compensate. They seem to require that fetchall be switched on -(otherwise you won't necessarily see all your mail, not even new mail). -They also botch the TOP command the fetchmail normally uses for retrieval -(it only retrieves about 10 lines rather than the number specified). -Turning on fetchall will disable the use of TOP. - -Therefore, it is strongly recommended that you turn on `fetchall' on all -user entries associated with this server. - -""" - if string.find(greetline, " Novonyx POP3") > 0: - warnings = warnings + """ -Your mailserver is running Novonyx POP3. This server, at least as of -version 2.17, seems to have problems handling and reporting seen bits. -You may have to use the fetchall option. - -""" - if string.find(greetline, " IMS POP3") > 0: - warnings = warnings + """ -Some servers issuing the greeting line 'IMS POP3' have been known to -do byte-stuffing incorrectly. This means that if a message you receive -has a . (period) at start of line, fetchmail will become confused and -probably wedge itself. (This bug was recorded on IMS POP3 0.86.) - -""" - -### IMAP servers start here - - if string.find(greetline, "GroupWise") > 0: - warnings = warnings + """ -The Novell GroupWise IMAP server would be better named GroupFoolish; -it is (according to the designer of IMAP) unusably broken. Among -other things, it doesn't include a required content length in its -BODY[TEXT] response.<p> - -Fetchmail works around this problem, but we strongly recommend voting -with your dollars for a server that isn't brain-dead. If you stick -with code as shoddy as GroupWise seems to be, you will probably pay -for it with other problems.<p> - -""" - if string.find(greetline, "Netscape IMAP4rev1 Service 3.6") > 0: - warnings = warnings + """ -This server violates the RFC2060 requirement that a BODY[TEXT] fetch should -set the messages's Seen flag. As a result, if you use the keep option the -same messages will be downloaded over and over. - -""" - if string.find(greetline, "InterChange") > 0: - warnings = warnings + """ - -The InterChange IMAP server at release levels below 3.61.08 screws up -on mail with attachments. It doesn't fetch them if you give it a -BODY[TEXT] request, though it does if you request RFC822.TEXT. -According to the IMAP RFCs and their maintainer these should be -equivalent -- and we can't drop the BODY[TEXT] form because M$ -Exchange (quite legally under RFC2062) rejectsit. The InterChange -folks claim to have fixed this bug in 3.61.08. - -""" - if string.find(greetline, "Imail") > 0: - warnings = warnings + """ -We've seen a bug report indicating that this IMAP server (at least as of -version 5.0.7) returns an invalid body size for messages with MIME -attachments; the effect is to drop the attachments on the floor. We -recommend you upgrade to a non-broken IMAP server. - -""" - if string.find(greetline, "Domino IMAP4") > 0: - warnings = warnings + """ -Your IMAP server appears to be Lotus Domino. This server, at least up -to version 4.6.2a, has a bug in its generation of MIME boundaries (see -the details in the fetchmail FAQ). As a result, even MIME aware MUAs -will see attachments as part of the message text. If your Domino server's -POP3 facility is enabled, we recommend you fall back on it. - -""" - -### Checks for protocol variants start here - - closebrak = string.find(greetline, ">") - if closebrak > 0 and greetline[closebrak+1] == "\r": - warnings = warnings + """ -It looks like you could use APOP on this server and avoid sending it your -password in clear. You should talk to the mailserver administrator about -this. - -""" - if string.find(greetline, "IMAP2bis") > 0: - warnings = warnings + """ -IMAP2bis servers have a minor problem; they can't peek at messages without -marking them seen. If you take a line hit during the retrieval, the -interrupted message may get left on the server, marked seen. - -To work around this, it is recommended that you set the `fetchall' -option on all user entries associated with this server, so any stuck -mail will be retrieved next time around. - -To fix this bug, upgrade to an IMAP4 server. The fetchmail FAQ includes -a pointer to an open-source implementation. - -""" - if string.find(greetline, "IMAP4rev1") > 0: - warnings = warnings + """ -I see an IMAP4rev1 server. Excellent. This is (a) the best kind of -remote-mail server, and (b) the one the fetchmail author uses. Fetchmail -has therefore been extremely well tested with this class of server. - -""" - if warnings == '': - warnings = warnings + """ -Fetchmail doesn't know anything special about this server type. - -""" - - # Display success window with warnings - title = "Autoprobe of " + realhost + " succeeded" - confirm = "The " + protocol + " server said:\n\n" + greetline + warnings - self.protocol.set(protocol) - confwin.title(title) - confwin.iconname(title) - Label(confwin, text=title).pack() - Message(confwin, text=confirm, width=600).pack() - Button(confwin, text='Done', - command=lambda x=confwin: x.destroy(), bd=2).pack() - -# -# User editing stuff -# - -userhelp = { - 'title' : 'User option help', - 'banner': 'User options', - 'text' : """ -You may use this panel to set options -that may differ between individual -users on your site. - -Once you have a user configuration set -up as you like it, you can select `OK' to -store it in the user list maintained in -the site configuration window. - -If you wish to discard the changes you have -made to user options, select `Quit'. -"""} - -localhelp = { - 'title' : 'Local name help', - 'banner': 'Local names', - 'text' : """ -The local name(s) in a user entry are the -people on the client machine who should -receive mail from the poll described. - -Note: if a user entry has more than one -local name, messages will be retrieved -in multidrop mode. This complicates -the configuration issues; see the manual -page section on multidrop mode. - -Warning: Be careful with local names -such as foo@bar.com, as that can cause -the mail to be sent to foo@bar.com instead -of sending it to your local system. -"""} - -class UserEdit(Frame, MyWidget): - def __init__(self, username, parent): - self.parent = parent - self.user = None - for user in parent.server.users: - if user.remote == username: - self.user = user - if self.user == None: - self.user = User() - self.user.remote = username - self.user.localnames = [username] - parent.server.users.append(self.user) - - def edit(self, mode, master=None): - Frame.__init__(self, master) - Pack.config(self) - self.master.title('Fetchmail user ' + self.user.remote - + ' querying ' + self.parent.server.pollname); - self.master.iconname('Fetchmail user ' + self.user.remote); - self.post(User, 'user') - self.makeWidgets(mode, self.parent.server.pollname) - self.keepalive = [] # Use this to anchor the PhotoImage object - make_icon_window(self, fetchmail_icon) -# self.grab_set() -# self.focus_set() -# self.wait_window() - return self - - def destruct(self): - # Yes, this test can fail -- if you delete the parent window. - if self.parent.subwidgets.has_key(self.user.remote): - del self.parent.subwidgets[self.user.remote] - self.master.destroy() - - def nosave(self): - if ConfirmQuit(self, 'user option editing'): - self.destruct() - - def save(self): - ok = 0 - for x in self.user.localnames: ok = ok + (string.find(x, '@') != -1) - if ok == 0 or Dialog(self, - title = "Really accept an embedded '@' ?", - text = "Local names with an embedded '@', such as in foo@bar " - "might result in your mail being sent to foo@bar.com " - "instead of your local system.\n Are you sure you want " - "a local user name with an '@' in it?", - bitmap = 'question', - strings = ('Yes', 'No'), - default = 1).num == 0: - self.fetch(User, 'user') - self.destruct() - - def makeWidgets(self, mode, servername): - dispose_window(self, - "User options for " + self.user.remote + " querying " + servername, - userhelp) - - if mode != 'novice': - leftwin = Frame(self); - else: - leftwin = self - - secwin = Frame(leftwin, relief=RAISED, bd=5) - Label(secwin, text="Authentication").pack(side=TOP) - LabeledEntry(secwin, 'Password:', - self.password, '12').pack(side=TOP, fill=X) - secwin.pack(fill=X, anchor=N) - - if 'ssl' in feature_options or 'ssl' in dictmembers: - sslwin = Frame(leftwin, relief=RAISED, bd=5) - Checkbutton(sslwin, text="Use SSL?", - variable=self.ssl).pack(side=TOP, fill=X) - LabeledEntry(sslwin, 'SSL key:', - self.sslkey, '14').pack(side=TOP, fill=X) - LabeledEntry(sslwin, 'SSL certificate:', - self.sslcert, '14').pack(side=TOP, fill=X) - Checkbutton(sslwin, text="Check server SSL certificate?", - variable=self.sslcertck).pack(side=TOP, fill=X) - LabeledEntry(sslwin, 'SSL trusted certificate directory:', - self.sslcertpath, '14').pack(side=TOP, fill=X) - LabeledEntry(sslwin, 'SSL key fingerprint:', - self.sslfingerprint, '14').pack(side=TOP, fill=X) - sslwin.pack(fill=X, anchor=N) - - names = Frame(leftwin, relief=RAISED, bd=5) - Label(names, text="Local names").pack(side=TOP) - ListEdit("New name: ", - self.user.localnames, None, None, names, localhelp) - names.pack(fill=X, anchor=N) - - if mode != 'novice': - targwin = Frame(leftwin, relief=RAISED, bd=5) - Label(targwin, text="Forwarding Options").pack(side=TOP) - Label(targwin, text="Listeners to forward to").pack(side=TOP) - ListEdit("New listener:", - self.user.smtphunt, None, None, targwin, None) - Label(targwin, text="Domains to fetch from (ODMR/ETRN only)").pack(side=TOP) - ListEdit("Domains:", - self.user.fetchdomains, None, None, targwin, None) - LabeledEntry(targwin, 'Append to MAIL FROM line:', - self.smtpaddress, '26').pack(side=TOP, fill=X) - LabeledEntry(targwin, 'Set RCPT To address:', - self.smtpname, '26').pack(side=TOP, fill=X) - LabeledEntry(targwin, 'Connection setup command:', - self.preconnect, '26').pack(side=TOP, fill=X) - LabeledEntry(targwin, 'Connection wrapup command:', - self.postconnect, '26').pack(side=TOP, fill=X) - LabeledEntry(targwin, 'Local delivery agent:', - self.mda, '26').pack(side=TOP, fill=X) - LabeledEntry(targwin, 'BSMTP output file:', - self.bsmtp, '26').pack(side=TOP, fill=X) - LabeledEntry(targwin, 'Listener spam-block codes:', - self.antispam, '26').pack(side=TOP, fill=X) - LabeledEntry(targwin, 'Pass-through properties:', - self.properties, '26').pack(side=TOP, fill=X) - Checkbutton(targwin, text="Use LMTP?", - variable=self.lmtp).pack(side=TOP, fill=X) - targwin.pack(fill=X, anchor=N) - - if mode != 'novice': - leftwin.pack(side=LEFT, fill=X, anchor=N) - rightwin = Frame(self) - else: - rightwin = self - - optwin = Frame(rightwin, relief=RAISED, bd=5) - Label(optwin, text="Processing Options").pack(side=TOP) - Checkbutton(optwin, text="Suppress deletion of messages after reading", - variable=self.keep).pack(side=TOP, anchor=W) - Checkbutton(optwin, text="Fetch old messages as well as new", - variable=self.fetchall).pack(side=TOP, anchor=W) - if mode != 'novice': - Checkbutton(optwin, text="Flush seen messages before retrieval", - variable=self.flush).pack(side=TOP, anchor=W) - Checkbutton(optwin, text="Rewrite To/Cc/Bcc messages to enable reply", - variable=self.rewrite).pack(side=TOP, anchor=W) - Checkbutton(optwin, text="Force CR/LF at end of each line", - variable=self.forcecr).pack(side=TOP, anchor=W) - Checkbutton(optwin, text="Strip CR from end of each line", - variable=self.stripcr).pack(side=TOP, anchor=W) - Checkbutton(optwin, text="Pass 8 bits even though SMTP says 7BIT", - variable=self.pass8bits).pack(side=TOP, anchor=W) - Checkbutton(optwin, text="Undo MIME armoring on header and body", - variable=self.mimedecode).pack(side=TOP, anchor=W) - Checkbutton(optwin, text="Drop Status lines from forwarded messages", - variable=self.dropstatus).pack(side=TOP, anchor=W) - Checkbutton(optwin, text="Drop Delivered-To lines from forwarded messages", - variable=self.dropdelivered).pack(side=TOP, anchor=W) - optwin.pack(fill=X) - - if mode != 'novice': - limwin = Frame(rightwin, relief=RAISED, bd=5) - Label(limwin, text="Resource Limits").pack(side=TOP) - LabeledEntry(limwin, 'Message size limit:', - self.limit, '30').pack(side=TOP, fill=X) - LabeledEntry(limwin, 'Size warning interval:', - self.warnings, '30').pack(side=TOP, fill=X) - LabeledEntry(limwin, 'Max messages to fetch per poll:', - self.fetchlimit, '30').pack(side=TOP, fill=X) - LabeledEntry(limwin, 'Max message sizes to fetch per transaction:', - self.fetchsizelimit, '30').pack(side=TOP, fill=X) - if self.parent.server.protocol not in ('ETRN', 'ODMR'): - LabeledEntry(limwin, 'Use fast UIDL:', - self.fastuidl, '30').pack(side=TOP, fill=X) - LabeledEntry(limwin, 'Max messages to forward per poll:', - self.batchlimit, '30').pack(side=TOP, fill=X) - if self.parent.server.protocol not in ('ETRN', 'ODMR'): - LabeledEntry(limwin, 'Interval between expunges:', - self.expunge, '30').pack(side=TOP, fill=X) - Checkbutton(limwin, text="Idle after each poll (IMAP only)", - variable=self.idle).pack(side=TOP, anchor=W) - limwin.pack(fill=X) - - if self.parent.server.protocol == 'IMAP': - foldwin = Frame(rightwin, relief=RAISED, bd=5) - Label(foldwin, text="Remote folders (IMAP only)").pack(side=TOP) - ListEdit("New folder:", self.user.mailboxes, - None, None, foldwin, None) - foldwin.pack(fill=X, anchor=N) - - if mode != 'novice': - rightwin.pack(side=LEFT) - else: - self.pack() - - -# -# Top-level window that offers either novice or expert mode -# (but not both at once; it disappears when one is selected). -# - -class Configurator(Frame): - def __init__(self, outfile, master, onexit, parent): - Frame.__init__(self, master) - self.outfile = outfile - self.onexit = onexit - self.parent = parent - self.master.title('fetchmail configurator'); - self.master.iconname('fetchmail configurator'); - Pack.config(self) - self.keepalive = [] # Use this to anchor the PhotoImage object - make_icon_window(self, fetchmail_icon) - - Message(self, text=""" -Use `Novice Configuration' for basic fetchmail setup; -with this, you can easily set up a single-drop connection -to one remote mail server. -""", width=600).pack(side=TOP) - Button(self, text='Novice Configuration', - fg='blue', command=self.novice).pack() - - Message(self, text=""" -Use `Expert Configuration' for advanced fetchmail setup, -including multiple-site or multidrop connections. -""", width=600).pack(side=TOP) - Button(self, text='Expert Configuration', - fg='blue', command=self.expert).pack() - - Message(self, text=""" -Or you can just select `Quit' to leave the configurator now and -return to the main panel. -""", width=600).pack(side=TOP) - Button(self, text='Quit', fg='blue', command=self.leave).pack() - master.protocol("WM_DELETE_WINDOW", self.leave) - - def novice(self): - self.master.destroy() - ConfigurationEdit(Fetchmailrc, self.outfile, Toplevel(), self.onexit).edit('novice') - - def expert(self): - self.master.destroy() - ConfigurationEdit(Fetchmailrc, self.outfile, Toplevel(), self.onexit).edit('expert') - - def leave(self): - self.master.destroy() - self.onexit() - -# Run a command in a scrolling text widget, displaying its output - -class RunWindow(Frame): - def __init__(self, command, master, parent): - Frame.__init__(self, master) - self.master = master - self.master.title('fetchmail run window'); - self.master.iconname('fetchmail run window'); - Pack.config(self) - Label(self, - text="Running "+command, - bd=2).pack(side=TOP, pady=10) - self.keepalive = [] # Use this to anchor the PhotoImage object - make_icon_window(self, fetchmail_icon) - - # This is a scrolling text window - textframe = Frame(self) - scroll = Scrollbar(textframe) - self.textwidget = Text(textframe, setgrid=TRUE) - textframe.pack(side=TOP, expand=YES, fill=BOTH) - self.textwidget.config(yscrollcommand=scroll.set) - self.textwidget.pack(side=LEFT, expand=YES, fill=BOTH) - scroll.config(command=self.textwidget.yview) - scroll.pack(side=RIGHT, fill=BOTH) - textframe.pack(side=TOP) - - Button(self, text='Quit', fg='blue', command=self.leave).pack() - - self.update() # Draw widget before executing fetchmail - - # Always look for a runnable command in the directory we're running in - # first. This avoids some obscure version-skew errors that can occur - # if you pick up an old fetchmail from the standard system locations. - os.environ["PATH"] = os.path.dirname(sys.argv[0]) + ":" + os.environ["PATH"] - child_stdout = os.popen(command + " 2>&1", "r") - while 1: - ch = child_stdout.read(1) - if not ch: - break - self.textwidget.insert(END, ch) - self.textwidget.insert(END, "Done.") - self.textwidget.see(END); - - def leave(self): - self.master.destroy() - -# Here's where we choose either configuration or launching - -class MainWindow(Frame): - def __init__(self, outfile, master=None): - Frame.__init__(self, master) - self.outfile = outfile - self.master.title('fetchmail launcher'); - self.master.iconname('fetchmail launcher'); - Pack.config(self) - Label(self, - text='Fetchmailconf ' + version, - bd=2).pack(side=TOP, pady=10) - self.keepalive = [] # Use this to anchor the PhotoImage object - make_icon_window(self, fetchmail_icon) - self.debug = 0 - - ## Test icon display with the following: - # icon_image = PhotoImage(data=fetchmail_icon) - # Label(self, image=icon_image).pack(side=TOP, pady=10) - # self.keepalive.append(icon_image) - - Message(self, text=""" -Use `Configure fetchmail' to tell fetchmail about the remote -servers it should poll (the host name, your username there, -whether to use POP or IMAP, and so forth). -""", width=600).pack(side=TOP) - self.configbutton = Button(self, text='Configure fetchmail', - fg='blue', command=self.configure) - self.configbutton.pack() - - Message(self, text=""" -Use `Run fetchmail' to run fetchmail with debugging enabled. -This is a good way to test out a new configuration. -""", width=600).pack(side=TOP) - Button(self, text='Run fetchmail',fg='blue', command=self.test).pack() - - Message(self, text=""" -Use `Run fetchmail' to run fetchmail in foreground. -Progress messages will be shown, but not debug messages. -""", width=600).pack(side=TOP) - Button(self, text='Run fetchmail', fg='blue', command=self.run).pack() - - Message(self, text=""" -Or you can just select `Quit' to exit the launcher now. -""", width=600).pack(side=TOP) - Button(self, text='Quit', fg='blue', command=self.leave).pack() - - def configure(self): - self.configbutton.configure(state=DISABLED) - Configurator(self.outfile, Toplevel(), - lambda self=self: self.configbutton.configure(state=NORMAL), - self) - def test(self): - RunWindow("fetchmail -d0 -v --nosyslog", Toplevel(), self) - - def run(self): - RunWindow("fetchmail -d0", Toplevel(), self) - - def leave(self): - self.quit() - -# Functions for turning a dictionary into an instantiated object tree. - -def intersect(list1, list2): -# Compute set intersection of lists - res = [] - for x in list1: - if x in list2: - res.append(x) - return res - -def setdiff(list1, list2): -# Compute set difference of lists - res = [] - for x in list1: - if not x in list2: - res.append(x) - return res - -def copy_instance(toclass, fromdict): -# Initialize a class object of given type from a conformant dictionary. - for fld in fromdict.keys(): - if not fld in dictmembers: - dictmembers.append(fld) -# The `optional' fields are the ones we can ignore for purposes of -# conformability checking; they'll still get copied if they are -# present in the dictionary. - optional = ('interface', 'monitor', - 'esmtpname', 'esmtppassword', - 'ssl', 'sslkey', 'sslcert', 'sslproto', 'sslcertck', - 'sslcertpath', 'sslfingerprint', 'showdots') - class_sig = setdiff(toclass.__dict__.keys(), optional) - class_sig.sort() - dict_keys = setdiff(fromdict.keys(), optional) - 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 "Fields don't match what fetchmailconf expected:" -# print "Class signature: " + `class_sig` -# print "Dictionary keys: " + `dict_keys` - diff = setdiff(class_sig, common) - if diff: - print "Not matched in class `" + toclass.__class__.__name__ + "' signature: " + `diff` - diff = setdiff(dict_keys, common) - if diff: - print "Not matched in dictionary keys: " + `diff` - sys.exit(1) - else: - for x in fromdict.keys(): - setattr(toclass, x, fromdict[x]) - -# -# And this is the main sequence. How it works: -# -# First, call `fetchmail --configdump' and trap the output in a tempfile. -# This should fill it with a Python initializer for a variable `fetchmailrc'. -# Run execfile on the file to pull fetchmailrc into Python global space. -# You don't want static data, though; you want, instead, a tree of objects -# with the same data members and added appropriate methods. -# -# This is what the copy_instance function() is for. It tries to copy a -# dictionary field by field into a class, aborting if the class and dictionary -# have different data members (except for any typemap member in the class; -# that one is strictly for use by the MyWidget supperclass). -# -# Once the object tree is set up, require user to choose novice or expert -# mode and instantiate an edit object for the configuration. Class methods -# will take it all from there. -# -# Options (not documented because they're for fetchmailconf debuggers only): -# -d: Read the configuration and dump it to stdout before editing. Dump -# the edited result to stdout as well. -# -f: specify the run control file to read. - -if __name__ == '__main__': - - if not os.environ.has_key("DISPLAY"): - print "fetchmailconf must be run under X" - sys.exit(1) - - fetchmail_icon = """ -R0lGODdhPAAoAPcAAP///wgICBAQEISEhIyMjJSUlKWlpa2trbW1tcbGxs7Ozufn5+/v7//39yEY -GNa9tUoxKZyEe1o5KTEQAN7OxpyMhIRjUvfn3pxSKYQ5EO/Wxv/WvWtSQrVzSmtCKWspAMatnP/e -xu+1jIxSKaV7Wt6ca5xSGK2EY8aUa72MY86UY617UsaMWrV7SpRjOaVrOZRaKYxSIXNCGGs5EIRC -CJR7Y/+UMdbOxnNrY97Ove/Wvd7GrZyEa961jL2Ua9alc86ca7WEUntSKcaMSqVjGNZ7GGM5CNa1 -jPfOnN6tc3taMffeve/WtWtaQv/OjGtSMYRzWv/erda1hM6te7WUY62MWs61jP/vzv/ntda9jL2l -czEhAO/n1oyEc//elDEpGEo5EOfexpyUe+/epefevffvxnNrQpyUStbWzsbGvZyclN7ezmNjWv// -5/f33qWllNbWve/vzv//1ufnve/vvf//xvf3vefnrf//taWlc0pKMf//pbW1Y///jKWlWq2tWsbG -Y///c97eUvf3Ut7nc+/3a87We8bOjOfv1u/37/f//621tb3Gxtbn52Nra87n53uUlJTv/6W9xuf3 -/8bW3iExOXu11tbv/5TW/4TO/63e/zmt/1KUxlK1/2u9/wCM/73GzrXG1gBKjACE/87e72NzhCkx -OaXO92OMtUql/xCE/wApUtbe57W9xnN7hHut52Ot/xBSnABKnABavQB7/2ul7zF71gBr77XO73Oc -1lqc9yFSlBApSimE/wAYOQApY0J7zlKM5wAxhABS1gBj/6W95wAhWgA5nAAYSgBS7wBS/wBK9wAp -jABC5wBK/wApnABC/wApxgAhtYSMtQAQYwAp/3OE74SMxgAYxlpjvWNr70pS/wgQ3sbGzs7O1qWl -3qWl70pKe0JC/yEhlCkp/wgI/wAAEAAAIQAAKQAAOQAASgAAUgAAYwAAawAAlAAAnAAApQAArQAA -zgAA1gAA5wAA9wAA/0pC/xgQ52Na9ykhe4R7zikhYxgQSjEpQgAAACwAAAAAPAAoAAAI/wABCBxI -sKDBgwgTKiRIYKHDhxARIvgXsaLFhGgEUBSYoKPHjyBDihxJkuS/kwNLqlzJcuTJjQBaypxpEiVH -mjhxvkyZs2fLnTd9ehxAtKjRo0ZrwhTasUsENhYHKOUpk1E3j11mxCBiQVLEBlJd2owp9iVRjwUs -zMCQ5IcLD4saPVxjIKxIoGTvvqSoyFEFGTBeqEhyxAoSFR/USGKVcEGBAwDshsSr1OYTEyhQpJiS -ZcoUKWOQtJDRJFSaggzUGBgoGSTlsjahlPCRIkWVKT16THHRIoqIISBIEUgAYIGBhgRbf3ytFygU -FZp9UDmxQkkMCRwyZKDBQy4aApABhP8XqNwj88l7BVpQYZtF5iArWgwAgGZBq24HU7OeGhQ90PVA -aKZZCiiUMJ9ArSTEwGqR8ZeXfzbV0MIIMQTBwoUdxDDfAm8sZFyDZVEF4UYSKBEBD0+k6IEFPMxH -3FzldXSea+kBgANJSOWIlIMhXZXAXv+c1WM3PuJEpH8iuhbAkv+MdENPRHaTRkdF/jiWSKCAwlKW -VbbkY5Q0LgUSKExgoYBKCjCxARpdltQNKHaUoYAddnR53lVRnJLKBWh4RIEGCZx5FSOv1OLNDUVe -deZHaWiZAB35fIOGNtbEUeV5oGAByzPOrBPFGt3kwEgxITACSg5oLGGLMg60oQAjaNz/oAAcN4Ai -a0c3kHFDK3jYsw4g9sRzBgPLXdkRrBrQ8gsWQUxCCRZX9IJNBQ1s8IgCdeBCzBYN6IBIN2TUsQYd -dXhDBxdzlAHOHHKEcocZdWwDjx8MTCmjsR2FMAstw1RyiSzHqPLALaOwk8QmzCzDCSi0xJKMMk4E -Yw8389iTDT32GAKOPf7YY0Aa9tATyD3w/EGsefgmgEYUtPiChLKWQDMBJtEUgYkzH2RiTgGfTMCI -Mlu0Yc85hNiDziH2tMqOGL72QY47gshLb7Fi4roELcjoQIsxWpDwQyfS2OCJMkLI4YUmyhgxSTVg -CP2FHPZ80UDcieBjStNPD5LPOyZT/y0iHGiMwswexDSzRiRq6KIMJBc4M8skwKAyChia2KPH3P24 -YU8/lFhOTj152OPOHuXMU4g48vCRiN/9rZGLMdS4csUu1JzDgxuipOMDHMKsAwEnq/ByzTrrZMNO -OtO0k84+7KjzBjzplMJOOOOoo8846/ATxqJWinkkGUyEkMAaIezABQM3bMAEK1xEsUMDGjARRxhY -xEGGHfPjEcccca6BRxhyuEMY7FCHMNDhf9140r2qRiVvdENQ3liUArzREW/0qRsRVIAGFfBADnLw -gUSiYASJpMEHhilJTEnhAlGoQqYAZQ1AiqEMZ0jDGtqQImhwwA13yMMevoQAGvGhEAWHGMOAAAA7 -""" -# The base64 data in the string above was generated by the following procedure: -# -# import base64 -# print base64.encodestring(open("fetchmail.gif", "rb").read()) -# - - # Process options - (options, arguments) = getopt.getopt(sys.argv[1:], "df:") - dump = rcfile = None; - for (switch, val) in options: - if (switch == '-d'): - dump = TRUE - elif (switch == '-f'): - rcfile = val - - # Get client host's FQDN - hostname = socket.gethostbyaddr(socket.gethostname())[0] - - # Compute defaults - ConfigurationDefaults = Configuration() - ServerDefaults = Server() - UserDefaults = User() - - # Read the existing configuration. We set the umask to 077 to make sure - # that group & other read/write permissions are shut off -- we wouldn't - # want crackers to snoop password information out of the tempfile. - tmpfile = tempfile.mktemp() - if rcfile: - cmd = "umask 077; fetchmail -f " + rcfile + " --configdump --nosyslog >" + tmpfile - else: - cmd = "umask 077; fetchmail --configdump --nosyslog >" + tmpfile - - try: - s = os.system(cmd) - if s != 0: - print "`" + cmd + "' run failure, status " + `s` - raise SystemExit - except: - print "Unknown error while running fetchmail --configdump" - os.remove(tmpfile) - sys.exit(1) - - try: - execfile(tmpfile) - except: - print "Can't read configuration output of fetchmail --configdump." - os.remove(tmpfile) - sys.exit(1) - - os.remove(tmpfile) - - # The tricky part -- initializing objects from the configuration global - # `Configuration' is the top level of the object tree we're going to mung. - # The dictmembers list is used to track the set of fields the dictionary - # contains; in particular, we can use it to tell whether things like the - # monitor, interface, ssl, sslkey, or sslcert fields are present. - dictmembers = [] - Fetchmailrc = Configuration() - copy_instance(Fetchmailrc, fetchmailrc) - Fetchmailrc.servers = []; - for server in fetchmailrc['servers']: - Newsite = Server() - copy_instance(Newsite, server) - Fetchmailrc.servers.append(Newsite) - Newsite.users = []; - for user in server['users']: - Newuser = User() - copy_instance(Newuser, user) - Newsite.users.append(Newuser) - - # We may want to display the configuration and quit - if dump: - print "This is a dump of the configuration we read:\n"+`Fetchmailrc` - - # The theory here is that -f alone sets the rcfile location, - # but -d and -f together mean the new configuration should go to stdout. - if not rcfile and not dump: - rcfile = os.environ["HOME"] + "/.fetchmailrc" - - # OK, now run the configuration edit - root = MainWindow(rcfile) - root.mainloop() - -# The following sets edit modes for GNU EMACS -# Local Variables: -# mode:python -# End: |