Commit 3beb1a14 authored by Leigh B Stoller's avatar Leigh B Stoller

Add check for NoLogins(); do not do anything when logins disabled.

parent d25046aa
#!/usr/bin/perl -w
#
# GENIPUBLIC-COPYRIGHT
# Copyright (c) 2008-2009 University of Utah and the Flux Group.
# Copyright (c) 2008-2010 University of Utah and the Flux Group.
# All rights reserved.
#
use strict;
......@@ -90,6 +90,7 @@ require GeniCertificate;
use Experiment;
use Node;
use libtestbed;
use emutil;
use POSIX qw(strftime);
#
......@@ -299,6 +300,9 @@ $SIG{HUP} = \&handler
if (!$debug);
while (1) {
next
if (NoLogins());
print "Running at ".
POSIX::strftime("20%y-%m-%d %H:%M:%S", localtime()) . "\n";
......
......@@ -86,6 +86,7 @@ require libGeni;
use Experiment;
use Node;
use libtestbed;
use emutil;
use POSIX qw(strftime ceil);
#
......@@ -376,6 +377,9 @@ $SIG{HUP} = \&handler
if (!$debug);
while (1) {
next
if (NoLogins());
print "Running at ".
POSIX::strftime("20%y-%m-%d %H:%M:%S", localtime()) . "\n";
......@@ -386,7 +390,7 @@ while (1) {
# Be certain stale info is gone.
GeniUtil::FlushCaches();
sleep(15);
sleep(60);
}
exit(0);
......
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