Commit ba9db60f authored by Leigh B Stoller's avatar Leigh B Stoller

Fix where email is sent; do now hardwire Utah!

parent a1c0e50c
#!/usr/bin/perl -w
#
# Copyright (c) 2008-2012 University of Utah and the Flux Group.
# Copyright (c) 2008-2013 University of Utah and the Flux Group.
#
# {{{GENIPUBLIC-LICENSE
#
......@@ -55,6 +55,7 @@ my $MAINSITE = @TBMAINSITE@;
my $PGENIDOMAIN = "@PROTOGENI_DOMAIN@";
my $PGENISUPPORT = @PROTOGENI_SUPPORT@;
my $PGENICLRHOUSE = @PROTOGENI_ISCLEARINGHOUSE@;
my $PGENIEMAIL = "@PROTOGENI_EMAIL@";
my $ADDIR = "$TB/www/protogeni/advertisements";
my $SALIST = "$TB/www/protogeni/authorities/salist.txt";
my $LOGFILE = "$TB/log/ch_daemon.log";
......@@ -244,7 +245,7 @@ sub ProbeCMs()
notify("Could not open $ADDIR/list.txt for output\n");
next;
}
SENDMAIL("geni-dev-utah\@flux.utah.edu",
SENDMAIL($PGENIEMAIL,
"ClearingHouse Daemon Message",
"This is an automated message from the ClearingHouse Daemon\n\n".
$up . "\n" . $down . "\n" . $disabled . "\n", $TBOPS);
......
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