[24315] in Source-Commits
/svn/athena r23913 - in trunk/athena/bin/mitmailutils: . debian
daemon@ATHENA.MIT.EDU (Anders Kaseorg)
Fri Jul 10 16:59:03 2009
Date: Fri, 10 Jul 2009 16:58:51 -0400
From: Anders Kaseorg <andersk@MIT.EDU>
Message-Id: <200907102058.n6AKwphQ021053@drugstore.mit.edu>
To: source-commits@mit.edu
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Author: andersk
Date: 2009-07-10 16:58:50 -0400 (Fri, 10 Jul 2009)
New Revision: 23913
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:
In mitmailutils:
* Replace test for EXCHANGE.MIT.EDU with test for *EXCHANGE*.
Modified: trunk/athena/bin/mitmailutils/debian/changelog
===================================================================
--- trunk/athena/bin/mitmailutils/debian/changelog 2009-07-09 19:49:30 UTC (rev 23912)
+++ trunk/athena/bin/mitmailutils/debian/changelog 2009-07-10 20:58:50 UTC (rev 23913)
@@ -1,3 +1,9 @@
+debathena-mitmailutils (10.1.1-0debathena1) unstable; urgency=low
+
+ * Replace test for EXCHANGE.MIT.EDU with test for *EXCHANGE*.
+
+ -- Anders Kaseorg <andersk@mit.edu> Fri, 10 Jul 2009 16:47:26 -0400
+
debathena-mitmailutils (10.1.0-0debathena3) unstable; urgency=low
* Don't run mitmailutils on EXCHANGE.MIT.EDU accounts for now, since this
Modified: trunk/athena/bin/mitmailutils/from.pl
===================================================================
--- trunk/athena/bin/mitmailutils/from.pl 2009-07-09 19:49:30 UTC (rev 23912)
+++ trunk/athena/bin/mitmailutils/from.pl 2009-07-10 20:58:50 UTC (rev 23913)
@@ -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";
-errorout "Exchange accounts are not supported yet. Try http://owa.mit.edu/." if $host eq "EXCHANGE.MIT.EDU";
+errorout "Exchange accounts are not supported yet. Try http://owa.mit.edu/." if $host =~ /EXCHANGE/;
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-07-09 19:49:30 UTC (rev 23912)
+++ trunk/athena/bin/mitmailutils/mailquota.pl 2009-07-10 20:58:50 UTC (rev 23913)
@@ -53,7 +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";
+errorout "Exchange accounts are not supported yet. Try http://owa.mit.edu/." if $host =~ /EXCHANGE/;
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-07-09 19:49:30 UTC (rev 23912)
+++ trunk/athena/bin/mitmailutils/mailusage.pl 2009-07-10 20:58:50 UTC (rev 23913)
@@ -45,7 +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";
+errorout "Exchange accounts are not supported yet. Try http://owa.mit.edu/." if $host =~ /EXCHANGE/;
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-07-09 19:49:30 UTC (rev 23912)
+++ trunk/athena/bin/mitmailutils/mitmailappend.pl 2009-07-10 20:58:50 UTC (rev 23913)
@@ -57,7 +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";
+errorout "Exchange accounts are not supported yet. Try http://owa.mit.edu/." if $opt_host =~ /EXCHANGE/;
# 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-07-09 19:49:30 UTC (rev 23912)
+++ trunk/athena/bin/mitmailutils/mitmailcreate.pl 2009-07-10 20:58:50 UTC (rev 23913)
@@ -76,7 +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";
+errorout "Exchange accounts are not supported yet. Try http://owa.mit.edu/." if $opt_host =~ /EXCHANGE/;
# 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-07-09 19:49:30 UTC (rev 23912)
+++ trunk/athena/bin/mitmailutils/mitmaildel.pl 2009-07-10 20:58:50 UTC (rev 23913)
@@ -67,7 +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";
+errorout "Exchange accounts are not supported yet. Try http://owa.mit.edu/." if $opt_host =~ /EXCHANGE/;
# 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-07-09 19:49:30 UTC (rev 23912)
+++ trunk/athena/bin/mitmailutils/mitmailexp.pl 2009-07-10 20:58:50 UTC (rev 23913)
@@ -51,7 +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";
+errorout "Exchange accounts are not supported yet. Try http://owa.mit.edu/." if $opt_host =~ /EXCHANGE/;
# 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-07-09 19:49:30 UTC (rev 23912)
+++ trunk/athena/bin/mitmailutils/mitmailmove.pl 2009-07-10 20:58:50 UTC (rev 23913)
@@ -64,7 +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";
+errorout "Exchange accounts are not supported yet. Try http://owa.mit.edu/." if $opt_host =~ /EXCHANGE/;
# 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-07-09 19:49:30 UTC (rev 23912)
+++ trunk/athena/bin/mitmailutils/mitmailrename.pl 2009-07-10 20:58:50 UTC (rev 23913)
@@ -42,7 +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";
+errorout "Exchange accounts are not supported yet. Try http://owa.mit.edu/." if $opt_host =~ /EXCHANGE/;
# 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-07-09 19:49:30 UTC (rev 23912)
+++ trunk/athena/bin/mitmailutils/mitmailscan.pl 2009-07-10 20:58:50 UTC (rev 23913)
@@ -138,7 +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";
+errorout "Exchange accounts are not supported yet. Try http://owa.mit.edu/." if $opt_host =~ /EXCHANGE/;
# 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-07-09 19:49:30 UTC (rev 23912)
+++ trunk/athena/bin/mitmailutils/mitmailshow.pl 2009-07-10 20:58:50 UTC (rev 23913)
@@ -65,7 +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";
+errorout "Exchange accounts are not supported yet. Try http://owa.mit.edu/." if $opt_host =~ /EXCHANGE/;
# Connect to the IMAP server, and authenticate.
my $client = Cyrus::IMAP->new($opt_host) ||
