aboutsummaryrefslogtreecommitdiffstats
path: root/fetchmailconf
diff options
context:
space:
mode:
authorMatthias Andree <matthias.andree@gmx.de>2005-08-02 01:20:23 +0000
committerMatthias Andree <matthias.andree@gmx.de>2005-08-02 01:20:23 +0000
commitaab18800bcf364ee5d3f34f96fb88ceec2b50bb9 (patch)
treeebe8f342c0f753184748b4e78bbe6b2d72655b1a /fetchmailconf
parent2cabbf89f9f696a4786476a4eda7a59a1c16d486 (diff)
downloadfetchmail-aab18800bcf364ee5d3f34f96fb88ceec2b50bb9.tar.gz
fetchmail-aab18800bcf364ee5d3f34f96fb88ceec2b50bb9.tar.bz2
fetchmail-aab18800bcf364ee5d3f34f96fb88ceec2b50bb9.zip
Rename fetchmailconf to fetchmailconf.py.
Add a shell wrapper script fetchmailconf (with @PYTHON@ substituted). Use automake's PYTHON mode to byte-compile the script at install time. svn path=/trunk/; revision=4220
Diffstat (limited to 'fetchmailconf')
-rwxr-xr-xfetchmailconf2098
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: