[24221] in Source-Commits
/svn/athena r23822 - in trunk/athena/bin/mitmailutils: . debian
daemon@ATHENA.MIT.EDU (Geoffrey Thomas)
Wed May 20 00:40:59 2009
Date: Wed, 20 May 2009 00:40:46 -0400
From: Geoffrey Thomas <geofft@MIT.EDU>
Message-Id: <200905200440.n4K4ekQF016390@drugstore.mit.edu>
To: source-commits@mit.edu
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Author: geofft
Date: 2009-05-20 00:40:46 -0400 (Wed, 20 May 2009)
New Revision: 23822
Modified:
trunk/athena/bin/mitmailutils/debian/changelog
trunk/athena/bin/mitmailutils/from.pl
trunk/athena/bin/mitmailutils/mailquota.pl
trunk/athena/bin/mitmailutils/mailusage.pl
trunk/athena/bin/mitmailutils/mitmailappend.pl
trunk/athena/bin/mitmailutils/mitmailcreate.pl
trunk/athena/bin/mitmailutils/mitmaildel.pl
trunk/athena/bin/mitmailutils/mitmailexp.pl
trunk/athena/bin/mitmailutils/mitmailmove.pl
trunk/athena/bin/mitmailutils/mitmailrename.pl
trunk/athena/bin/mitmailutils/mitmailscan.pl
trunk/athena/bin/mitmailutils/mitmailshow.pl
Log:
Apply previous change to all mitmailutils, and print an error
Modified: trunk/athena/bin/mitmailutils/debian/changelog
===================================================================
--- trunk/athena/bin/mitmailutils/debian/changelog 2009-05-20 04:23:08 UTC (rev 23821)
+++ trunk/athena/bin/mitmailutils/debian/changelog 2009-05-20 04:40:46 UTC (rev 23822)
@@ -1,9 +1,10 @@
debathena-mitmailutils (10.1.0-0debathena3) unstable; urgency=low
- * Don't run 'from' on EXCHANGE.MIT.EDU accounts for now. This is
- apparently causing prefrosh' dotfiles to hang forever on login.
+ * Don't run mitmailutils on EXCHANGE.MIT.EDU accounts for now, since this
+ will hang forever (since IMAP.EXCHANGE, not EXCHANGE, is the IMAP server,
+ but it doesn't currently support GSSAPI anyway).
- -- Geoffrey Thomas <geofft@mit.edu> Wed, 20 May 2009 00:20:01 -0400
+ -- Geoffrey Thomas <geofft@mit.edu> Wed, 20 May 2009 00:39:10 -0400
debathena-mitmailutils (10.1.0-0debathena2) unstable; urgency=low
Modified: trunk/athena/bin/mitmailutils/from.pl
===================================================================
--- trunk/athena/bin/mitmailutils/from.pl 2009-05-20 04:23:08 UTC (rev 23821)
+++ trunk/athena/bin/mitmailutils/from.pl 2009-05-20 04:40:46 UTC (rev 23822)
@@ -63,7 +63,7 @@
my $debug = $opts{'d'};
my $host = $opts{'h'} || (split(" ", `hesinfo $username pobox`))[1] ||
errorout "Cannot find Post Office server for $username";
-exit 0 if $host eq "EXCHANGE.MIT.EDU";
+errorout "Exchange accounts are not supported yet. Try http://owa.mit.edu/." if $host eq "EXCHANGE.MIT.EDU";
my $mbox = $opts{'m'} || "INBOX";
my $quiet = $opts{'n'};
my $checknew = $opts{'N'} && ($search_key = "new");
Modified: trunk/athena/bin/mitmailutils/mailquota.pl
===================================================================
--- trunk/athena/bin/mitmailutils/mailquota.pl 2009-05-20 04:23:08 UTC (rev 23821)
+++ trunk/athena/bin/mitmailutils/mailquota.pl 2009-05-20 04:40:46 UTC (rev 23822)
@@ -53,6 +53,7 @@
my $usage_threshold = $opts{'u'};
my $host = $opts{'h'} || (split(" ", `hesinfo $username pobox`))[1] ||
errorout "Cannot find Post Office server for $username";
+errorout "Exchange accounts are not supported yet. Try http://owa.mit.edu/." if $host eq "EXCHANGE.MIT.EDU";
my $mbox = $opts{'m'} || "INBOX";
# Validate the usage percentage threshold, allowing a trailing %.
Modified: trunk/athena/bin/mitmailutils/mailusage.pl
===================================================================
--- trunk/athena/bin/mitmailutils/mailusage.pl 2009-05-20 04:23:08 UTC (rev 23821)
+++ trunk/athena/bin/mitmailutils/mailusage.pl 2009-05-20 04:40:46 UTC (rev 23822)
@@ -45,6 +45,7 @@
my $debug = $opts{'d'};
my $host = $opts{'h'} || (split(" ", `hesinfo $username pobox`))[1] ||
errorout "Cannot find Post Office server for $username";
+errorout "Exchange accounts are not supported yet. Try http://owa.mit.edu/." if $host eq "EXCHANGE.MIT.EDU";
my $mbox = $opts{'m'} || '*';
my $noheader = $opts{'n'};
my $recurse = $opts{'r'};
Modified: trunk/athena/bin/mitmailutils/mitmailappend.pl
===================================================================
--- trunk/athena/bin/mitmailutils/mitmailappend.pl 2009-05-20 04:23:08 UTC (rev 23821)
+++ trunk/athena/bin/mitmailutils/mitmailappend.pl 2009-05-20 04:40:46 UTC (rev 23822)
@@ -57,6 +57,7 @@
$opt_host = (split(" ", `hesinfo $username pobox`))[1] ||
errorout "Cannot find Post Office server for $username";
}
+errorout "Exchange accounts are not supported yet. Try http://owa.mit.edu/." if $opt_host eq "EXCHANGE.MIT.EDU";
# Read the entire message file into a string.
my $msg = read_file($opt_file);
Modified: trunk/athena/bin/mitmailutils/mitmailcreate.pl
===================================================================
--- trunk/athena/bin/mitmailutils/mitmailcreate.pl 2009-05-20 04:23:08 UTC (rev 23821)
+++ trunk/athena/bin/mitmailutils/mitmailcreate.pl 2009-05-20 04:40:46 UTC (rev 23822)
@@ -76,6 +76,7 @@
$opt_host = (split(" ", `hesinfo $username pobox`))[1] ||
errorout "Cannot find Post Office server for $username";
}
+errorout "Exchange accounts are not supported yet. Try http://owa.mit.edu/." if $opt_host eq "EXCHANGE.MIT.EDU";
# Connect to the IMAP server, and authenticate.
my $client = Cyrus::IMAP->new($opt_host) ||
Modified: trunk/athena/bin/mitmailutils/mitmaildel.pl
===================================================================
--- trunk/athena/bin/mitmailutils/mitmaildel.pl 2009-05-20 04:23:08 UTC (rev 23821)
+++ trunk/athena/bin/mitmailutils/mitmaildel.pl 2009-05-20 04:40:46 UTC (rev 23822)
@@ -67,6 +67,7 @@
$opt_host = (split(" ", `hesinfo $username pobox`))[1] ||
errorout "Cannot find Post Office server for $username";
}
+errorout "Exchange accounts are not supported yet. Try http://owa.mit.edu/." if $opt_host eq "EXCHANGE.MIT.EDU";
# Connect to the IMAP server, and authenticate.
my $client = Cyrus::IMAP->new($opt_host) ||
Modified: trunk/athena/bin/mitmailutils/mitmailexp.pl
===================================================================
--- trunk/athena/bin/mitmailutils/mitmailexp.pl 2009-05-20 04:23:08 UTC (rev 23821)
+++ trunk/athena/bin/mitmailutils/mitmailexp.pl 2009-05-20 04:40:46 UTC (rev 23822)
@@ -51,6 +51,7 @@
$opt_host = (split(" ", `hesinfo $username pobox`))[1] ||
errorout "Cannot find Post Office server for $username";
}
+errorout "Exchange accounts are not supported yet. Try http://owa.mit.edu/." if $opt_host eq "EXCHANGE.MIT.EDU";
# Connect to the IMAP server, and authenticate.
my $client = Cyrus::IMAP->new($opt_host) ||
Modified: trunk/athena/bin/mitmailutils/mitmailmove.pl
===================================================================
--- trunk/athena/bin/mitmailutils/mitmailmove.pl 2009-05-20 04:23:08 UTC (rev 23821)
+++ trunk/athena/bin/mitmailutils/mitmailmove.pl 2009-05-20 04:40:46 UTC (rev 23822)
@@ -64,6 +64,7 @@
$opt_host = (split(" ", `hesinfo $username pobox`))[1] ||
errorout "Cannot find Post Office server for $username";
}
+errorout "Exchange accounts are not supported yet. Try http://owa.mit.edu/." if $opt_host eq "EXCHANGE.MIT.EDU";
# Connect to the IMAP server, and authenticate.
my $client = Cyrus::IMAP->new($opt_host) ||
Modified: trunk/athena/bin/mitmailutils/mitmailrename.pl
===================================================================
--- trunk/athena/bin/mitmailutils/mitmailrename.pl 2009-05-20 04:23:08 UTC (rev 23821)
+++ trunk/athena/bin/mitmailutils/mitmailrename.pl 2009-05-20 04:40:46 UTC (rev 23822)
@@ -42,6 +42,7 @@
$opt_host = (split(" ", `hesinfo $username pobox`))[1] ||
errorout "Cannot find Post Office server for $username";
}
+errorout "Exchange accounts are not supported yet. Try http://owa.mit.edu/." if $opt_host eq "EXCHANGE.MIT.EDU";
# Connect to the IMAP server, and authenticate.
my $client = Cyrus::IMAP->new($opt_host) ||
Modified: trunk/athena/bin/mitmailutils/mitmailscan.pl
===================================================================
--- trunk/athena/bin/mitmailutils/mitmailscan.pl 2009-05-20 04:23:08 UTC (rev 23821)
+++ trunk/athena/bin/mitmailutils/mitmailscan.pl 2009-05-20 04:40:46 UTC (rev 23822)
@@ -138,6 +138,7 @@
$opt_host = (split(" ", `hesinfo $username pobox`))[1] ||
errorout "Cannot find Post Office server for $username";
}
+errorout "Exchange accounts are not supported yet. Try http://owa.mit.edu/." if $opt_host eq "EXCHANGE.MIT.EDU";
# Build the search key based on the specified command line options.
if ($msgset) {
Modified: trunk/athena/bin/mitmailutils/mitmailshow.pl
===================================================================
--- trunk/athena/bin/mitmailutils/mitmailshow.pl 2009-05-20 04:23:08 UTC (rev 23821)
+++ trunk/athena/bin/mitmailutils/mitmailshow.pl 2009-05-20 04:40:46 UTC (rev 23822)
@@ -65,6 +65,7 @@
$opt_host = (split(" ", `hesinfo $username pobox`))[1] ||
errorout "Cannot find Post Office server for $username";
}
+errorout "Exchange accounts are not supported yet. Try http://owa.mit.edu/." if $opt_host eq "EXCHANGE.MIT.EDU";
# Connect to the IMAP server, and authenticate.
my $client = Cyrus::IMAP->new($opt_host) ||
