aboutsummaryrefslogtreecommitdiffstats
path: root/bin/show_qfiles
diff options
context:
space:
mode:
author <>2003-09-22 02:07:49 +0000
committer <>2003-09-22 02:07:49 +0000
commit29de1e65e784b67e635616b2f4edf2a8a12e0a9e (patch)
treea62e374ceb5dad32cf92b11f84426345ec031586 /bin/show_qfiles
parenta2a6085f338386ab1e4f34579a884e15b6639075 (diff)
downloadmailman2-29de1e65e784b67e635616b2f4edf2a8a12e0a9e.tar.gz
mailman2-29de1e65e784b67e635616b2f4edf2a8a12e0a9e.tar.xz
mailman2-29de1e65e784b67e635616b2f4edf2a8a12e0a9e.zip
This commit was manufactured by cvs2svn to create branch
'Release_2_1-maint'.
Diffstat (limited to '')
-rw-r--r--bin/show_qfiles74
1 files changed, 74 insertions, 0 deletions
diff --git a/bin/show_qfiles b/bin/show_qfiles
new file mode 100644
index 00000000..dba22cd6
--- /dev/null
+++ b/bin/show_qfiles
@@ -0,0 +1,74 @@
+#! @PYTHON@
+
+"""Show the contents of one or more Mailman queue files.
+
+Usage: show_qfiles [options] qfile ...
+
+Options:
+
+ -q / --quiet
+ Don't print `helpful' message delimiters.
+
+ -h / --help
+ Print this text and exit.
+
+Example: show_qfiles qfiles/shunt/*.pck
+"""
+
+import sys
+import getopt
+from cPickle import load
+
+import paths
+from Mailman.i18n import _
+
+try:
+ True, False
+except NameError:
+ True = 1
+ False = 0
+
+
+
+def usage(code, msg=''):
+ if code:
+ fd = sys.stderr
+ else:
+ fd = sys.stdout
+ print >> fd, _(__doc__)
+ if msg:
+ print >> fd, msg
+ sys.exit(code)
+
+
+
+def main():
+ try:
+ opts, args = getopt.getopt(sys.argv[1:], 'hq', ['help', 'quiet'])
+ except getopt.error, msg:
+ usage(1, msg)
+
+ quiet = False
+ for opt, arg in opts:
+ if opt in ('-h', '--help'):
+ usage(0)
+ elif opt in ('-q', '--quiet'):
+ quiet = True
+
+ if not args:
+ usage(1, "Not enough arguments")
+
+ for filename in args:
+ if not quiet:
+ print '====================>', filename
+ fp = open(filename)
+ if filename.endswith(".pck"):
+ msg = load(fp)
+ sys.stdout.write(msg.as_string())
+ else:
+ sys.stdout.write(fp.read())
+
+
+
+if __name__ == '__main__':
+ main()