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