add sleep_rand function for login dispersion
Project: http://git-wip-us.apache.org/repos/asf/incubator-trafficcontrol/repo Commit: http://git-wip-us.apache.org/repos/asf/incubator-trafficcontrol/commit/8ae1f385 Tree: http://git-wip-us.apache.org/repos/asf/incubator-trafficcontrol/tree/8ae1f385 Diff: http://git-wip-us.apache.org/repos/asf/incubator-trafficcontrol/diff/8ae1f385 Branch: refs/heads/master Commit: 8ae1f385674880f2f8a884a24a17f568bacd5d94 Parents: dfa58b8 Author: Derek Gelinas <mrdgeli...@gmail.com> Authored: Mon Mar 27 22:54:50 2017 +0000 Committer: Dewayne Richardson <dewr...@apache.org> Committed: Tue Mar 28 09:18:32 2017 -0600 ---------------------------------------------------------------------- traffic_ops/bin/traffic_ops_ort.pl | 20 ++++++++++++++++---- 1 file changed, 16 insertions(+), 4 deletions(-) ---------------------------------------------------------------------- http://git-wip-us.apache.org/repos/asf/incubator-trafficcontrol/blob/8ae1f385/traffic_ops/bin/traffic_ops_ort.pl ---------------------------------------------------------------------- diff --git a/traffic_ops/bin/traffic_ops_ort.pl b/traffic_ops/bin/traffic_ops_ort.pl index f82c8ae..ec19d57 100755 --- a/traffic_ops/bin/traffic_ops_ort.pl +++ b/traffic_ops/bin/traffic_ops_ort.pl @@ -319,10 +319,10 @@ sub usage { print "\n"; print "\t<Traffic_Ops_Login> => Example: 'username:password' \n"; print "\n\t[optional flags]:\n"; - print "\t dispersion=<time>\t=> wait a random number between 0 and <time> before starting. Default = 300.\n"; - print "\t login_dispersion=<time>\t=> wait a random number between 0 and <time> before login. Default = 0.\n"; - print "\t retries=<number>\t=> retry connection to Traffic Ops URL <number> times. Default = 3.\n"; - print "\t wait_for_parents=<0|1>\t=> do not update if parent_pending = 1 in the update json. Default = 1, wait for parents.\n"; + print "\t dispersion=<time> => wait a random number between 0 and <time> before starting. Default = 300.\n"; + print "\t login_dispersion=<time> => wait a random number between 0 and <time> before login. Default = 0.\n"; + print "\t retries=<number> => retry connection to Traffic Ops URL <number> times. Default = 3.\n"; + print "\t wait_for_parents=<0|1> => do not update if parent_pending = 1 in the update json. Default = 1, wait for parents.\n"; print "====-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-====\n"; exit 1; } @@ -1016,6 +1016,18 @@ sub check_syncds_state { return ($syncds_update); } +sub sleep_rand { + my $duration = int( rand(shift) ); + + ( $log_level >> $WARN ) && print "WARN Sleeping for $duration seconds: "; + + for ( my $i = $duration; $i > 0; $i-- ) { + ( $log_level >> $WARN ) && print "."; + sleep 1; + } + ( $log_level >> $WARN ) && print "\n"; +} + sub sleep_timer { my $duration = shift; my $reval_clock = $reval_wait_time;
