Commit f30c78b8 authored by Leigh Stoller's avatar Leigh Stoller

Turn off admin mailing lists.

parent 02840d1d
#!/usr/bin/perl -wT
#
# Copyright (c) 2005-2011 University of Utah and the Flux Group.
# Copyright (c) 2005-2013 University of Utah and the Flux Group.
#
# {{{EMULAB-LICENSE
#
......@@ -332,7 +332,7 @@ sub Create($$$$)
#
# Now create the per-project Admin List
#
if ($MAILMANSUPPORT && !$nonlocal) {
if (0 && $MAILMANSUPPORT && !$nonlocal) {
my $res = system("$ADDPROJADMINLIST $pid");
if ($res != 0) {
SENDMAIL($TBOPS, "Addprojadminlist failed!",
......
......@@ -108,7 +108,7 @@ sub TBMAIL_AUDIT() { "Testbed Audit <$TBAUDITEMAIL>" }
# TBMAIL_PROJADMIN should, in general, not be used directly, use
# SendProjAdminMail
sub TBMAIL_PROJADMIN($) {
@MAILMANSUPPORT@ ? "$_[0]-admin\@@OURDOMAIN@" : "@TBAPPROVALEMAIL@";
0 && @MAILMANSUPPORT@ ? "$_[0]-admin\@@OURDOMAIN@" : "@TBAPPROVALEMAIL@";
}
sub TBMAIL_APPROVAL() {
"@TBAPPROVALEMAIL@";
......
#!/usr/bin/perl -wT
#
# Copyright (c) 2000-2011 University of Utah and the Flux Group.
# Copyright (c) 2000-2013 University of Utah and the Flux Group.
#
# {{{EMULAB-LICENSE
#
......@@ -235,7 +235,7 @@ if (system("$RMGROUP $pid_idx")) {
# Now remote the proj admin list, but only if the proj was never
# approved
#
if ($MAILMANSUPPORT) {
if (0 && $MAILMANSUPPORT) {
my $approved =
DBQuerySingleFatal("select approved from projects where pid='$pid'");
if (!$approved) {
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment