-
Notifications
You must be signed in to change notification settings - Fork 10
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
1 parent
dffc0d3
commit 4366ef8
Showing
6 changed files
with
806 additions
and
0 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,27 @@ | ||
[clients] | ||
# list each device name here, in the form user@machine, as you wish SSH to connect to them. | ||
# | ||
local0 = [email protected] | ||
local1 = [email protected] | ||
local2 = [email protected] | ||
local3 = [email protected] | ||
|
||
[directives] | ||
# the command sequence to be run on each client device. directives beginning with $ reference lines from the [aliases] section. | ||
# | ||
local0 = $4kstream | ||
local1 = $voipcall | ||
local2 = $browsing | ||
local3 = $download | ||
|
||
[aliases] | ||
# define aliases here for commands you'd like to run in the [directives] section. This keeps [directives] cleaner so you can | ||
# see what you're doing a little more easily. | ||
# | ||
# any use of the special value $when inside aliases or directives will be replaced with the actual execution time in epoch seconds. | ||
# | ||
$4kstream = netburn -u http://127.0.0.1/1M.bin -r 25 -t 3 -h 4kstream -o /tmp/$testname-$when.csv --ifinfo test0 | ||
$download = netburn -u http://127.0.0.1/1M.bin -t 3 -h download -o /tmp/$testname-$when.csv --ifinfo test0 | ||
$browsing = netburn -u http://127.0.0.1/128K.bin -r 1 -t 3 -c 10 -h browsing -o /tmp/$testname-$when.csv --ifinfo test0 | ||
$voipcall = netburn -u http://127.0.0.1/16K.bin -r 1 -t 3 -h voipcall -o /tmp/$testname-$when.csv --ifinfo test0 | ||
|
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,17 @@ | ||
#!/usr/bin/perl | ||
|
||
my $delay = $ARGV[0]; | ||
my $charcount = 0; | ||
|
||
print "Counting down from $delay seconds: "; | ||
|
||
while ($delay > 0) { | ||
while ($charcount > 0) { print "\b"; $charcount --; } | ||
print "$delay "; select()->flush(); | ||
for (my $i=5; $i-- ; $i > 0) { print "\b"; } | ||
$charcount = length($delay); | ||
sleep 1; | ||
$delay --; | ||
} | ||
|
||
print "\n"; |
Oops, something went wrong.