Commit 041e646a authored by Leigh B Stoller's avatar Leigh B Stoller

Merge branch 'master' of git-public.flux.utah.edu:/flux/git/emulab-devel

parents b4bde6d6 cf747373
#! /bin/sh
#
# EMULAB-COPYRIGHT
# Copyright (c) 2008-2009 University of Utah and the Flux Group.
# All rights reserved.
#
TRANGCMD="java -jar ${TRANG:-/usr/local/share/java/classes/trang.jar}"
......
#!/usr/bin/perl -T
#
#
# EMULAB-COPYRIGHT
# Copyright (c) 2010 University of Utah and the Flux Group.
# All rights reserved.
#
use strict;
......
#!/bin/sh
#
# EMULAB-COPYRIGHT
# Copyright (c) 2010 University of Utah and the Flux Group.
# All rights reserved.
#
set -e
......
#
# EMULAB-COPYRIGHT
# Copyright (c) 2010 University of Utah and the Flux Group.
# All rights reserved.
#
gcc -DELVIN_COMPAT -c ../lib/event.c -o event.o -I../lib/ -I../../lib/libtb/ \
-I../../.. -L../../../pubsub
gcc -DELVIN_COMPAT -c ../lib/util.c -o util.o -I../lib/ -I../../lib/libtb/ \
......
/*
* EMULAB-COPYRIGHT
* Copyright (c) 2010 University of Utah and the Flux Group.
* All rights reserved.
*/
// main.cc
#include <cassert>
......
#! /usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2008 University of Utah and the Flux Group.
# All rights reserved.
#
use XML::Parser;
use Data::Dumper;
......
#
# EMULAB-COPYRIGHT
# Copyright (c) 2010 University of Utah and the Flux Group.
# All rights reserved.
#
cd stub
gmake
cd ../libnetmon
......
#!/bin/sh
#
# EMULAB-COPYRIGHT
# Copyright (c) 2010, University of Utah and the Flux Group.
# All rights reserved.
#
iperfd/iperfd -s -p 4242 &
sudo libnetmon/instrument-standalone.sh magent/magent --interface=vnet --replay-save=/local/logs/stub.replay --monitorserverport=3153 --peerserverport=4242 --peerudpserverport=4243 1> /local/logs/stub.out 2> /local/logs/stub.err
......
#
# EMULAB-COPYRIGHT
# Copyright (c) 2010 University of Utah and the Flux Group.
# All rights reserved.
#
#/usr/testbed/bin/tevc -e tbres/pelab-generated now elabc-elab-1 modify dest=10.0.0.2 delay=$1
#/usr/testbed/bin/tevc -e tbres/pelab-generated now elabc-elab-2 modify dest=10.0.0.1 delay=$1
#/usr/testbed/bin/tevc -e tbres/pelab-generated now elabc-elab-1 modify dest=10.0.0.2 bandwidth=$2
......
......@@ -93,6 +93,9 @@ INSERT INTO sitevariables VALUES ('general/default_latitude','40.768652','','The
INSERT INTO sitevariables VALUES ('general/default_longitude','-111.84581','','The default longitude of your site',0);
INSERT INTO sitevariables VALUES ('oml/default_osid',NULL,'','Default OSID to use for OML server',1);
INSERT INTO sitevariables VALUES ('oml/default_server_startcmd',NULL,'','Default command line to use to start OML server',1);
INSERT INTO sitevariables VALUES ('images/create/maxwait',NULL,'72','Max time (minutes) to allow for saving an image',0);
INSERT INTO sitevariables VALUES ('images/create/idlewait',NULL,'8','Max time (minutes) to allow between periods of progress (image file getting larger) when saving an image (should be <= maxwait)',0);
INSERT INTO sitevariables VALUES ('images/create/maxsize',NULL,'6','Max size (GB) of a created image',0);
/*!40103 SET TIME_ZONE=@OLD_TIME_ZONE */;
/*!40101 SET SQL_MODE=@OLD_SQL_MODE */;
......
#
# Add sitevariables to control image creation limits.
#
use strict;
use libdb;
sub DoUpdate($$$)
{
my ($dbhandle, $dbname, $version) = @_;
DBQueryFatal("INSERT INTO sitevariables VALUES ".
"('images/create/maxwait',NULL,'72',".
"'Max time (minutes) to allow for saving an image',0)")
if (!TBSiteVarExists("images/create/maxwait"));
DBQueryFatal("INSERT INTO sitevariables VALUES ".
"('images/create/idlewait',NULL,'8',".
"'Max time (minutes) to allow between periods of progress (image file getting larger) when saving an image (should be <= maxwait)',0)")
if (!TBSiteVarExists("images/create/idlewait"));
DBQueryFatal("INSERT INTO sitevariables VALUES ".
"('images/create/maxsize',NULL,'6',".
"'Max size (GB) of a created image',0)")
if (!TBSiteVarExists("images/create/maxsize"));
return 0;
}
1;
#!/usr/bin/perl -w
#
# GENIPUBLIC-COPYRIGHT
# EMULAB-COPYRIGHT
# Copyright (c) 2009-2010 University of Utah and the Flux Group.
# All rights reserved.
#
......
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
@tops = ( "plan-20.top" );
@ptops = &::lsptop("big-*.ptop");
$name = "plan20-scale";
......
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
@tops = ( "plan-20.top" );
@ptops = &::lsptop("small-*.ptop");
$name = "plan20-small-scale";
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
use inc::Module::Install;
# Define metadata
......
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
package TBConfig;
use SemiModern::Perl;
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
use Modern::Perl;
use File::Temp;
use Data::Dumper;
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
use strict;
use warnings;
use CPAN;
......
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
use 5.008_000;
use strict;
use warnings;
......
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
package TestBed::Daemonize;
use SemiModern::Perl;
......
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
my $FFDEBUG = 0;
package TestBed::ForkFramework::Process;
......
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
package TAP::Parser::Iterator::StdOutErr;
use strict;
use warnings;
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
package TestBed::ParallelRunner;
use SemiModern::Perl;
use TestBed::ParallelRunner::Executor;
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
package TestBed::ParallelRunner::ErrorStrategy;
use SemiModern::Perl;
use Mouse;
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
package TestBed::ParallelRunner::Executor::Exception;
use Mouse;
has original => ( is => 'rw');
......
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
package TestBed::TestBuilderWrapper;
use Test::Builder;
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
package TestBed::TestSuite;
use SemiModern::Perl;
use TestBed::TestSuite::Experiment;
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
package TestBed::TestSuite::Experiment;
use SemiModern::Perl;
use Mouse;
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
package TestBed::TestSuite::Link;
use SemiModern::Perl;
use Mouse;
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
package TestBed::TestSuite::Node;
use SemiModern::Perl;
use Mouse;
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
package TestBed::Wrap::linktest;
use SemiModern::Perl;
use TBConfig;
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
package TestBed::Wrap::loghole;
use SemiModern::Perl;
use TBConfig;
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
package TestBed::Wrap::tevc;
use SemiModern::Perl;
use TBConfig;
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
package TestBed::XMLRPC::Client;
use SemiModern::Perl;
use Mouse;
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
package TestBed::XMLRPC::Client::Emulab;
use SemiModern::Perl;
use Mouse;
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
package TestBed::XMLRPC::Client::Experiment;
use SemiModern::Perl;
use Mouse;
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
package TestBed::XMLRPC::Client::Node::InsufficientNodes;
use Mouse;
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
package TestBed::XMLRPC::Client::NodeInfo;
use SemiModern::Perl;
require Exporter;
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
package TestBed::XMLRPC::Client::OSID;
use SemiModern::Perl;
use Mouse;
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
package TestBed::XMLRPC::Client::Pretty;
use SemiModern::Perl;
require Exporter;
......
package Tools;
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
use SemiModern::Perl;
use Log::Log4perl qw(get_logger :levels);
use POSIX qw(setsid);
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
package Tools::Network;
use SemiModern::Perl;
use Net::Ping;
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
package Tools::PerlSSH;
use SemiModern::Perl;
use Net::SSH::Perl;
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
package Tools::TBSSH;
use SemiModern::Perl;
use Data::Dumper;
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
package Tools::WrappedSSH;
use SemiModern::Perl;
use Data::Dumper;
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
BEGIN {
#add localcpan path to library search path
if (-f glob("~/lib/perl5/Test/Harness.pm")) {
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
BEGIN {
#add localcpan path to library search path
if (-f glob("~/lib/perl5/Test/Harness.pm")) {
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
use Test::More;
eval "use Test::Pod::Coverage 1.00";
if ( $@ ) {
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
use SemiModern::Perl;
use TBConfig;
use TestBed::TestSuite;
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
use SemiModern::Perl;
use TestBed::ForkFramework;
use TestBed::ParallelRunner::Executor;
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
use SemiModern::Perl;
use TBConfig;
use TestBed::TestSuite;
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
use SemiModern::Perl;
use TBConfig;
use Tools;
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
use SemiModern::Perl;
use TBConfig;
use Tools::Network;
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
use SemiModern::Perl;
use TBConfig;
use Tools;
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
use SemiModern::Perl;
use TestBed::TestSuite;
use Test::More tests => 7;
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
use SemiModern::Perl;
use TBConfig;
use Data::Dumper;
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
use SemiModern::Perl;
use TBConfig;
use Data::Dumper;
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
use SemiModern::Perl;
use TestBed::XMLRPC::Client::Emulab;
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
use SemiModern::Perl;
use TestBed::TestSuite;
use Test::More tests => 3;;
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
use SemiModern::Perl;
use TestBed::XMLRPC::Client::Node;
use Data::Dumper;
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
use SemiModern::Perl;
use TestBed::XMLRPC::Client::OSID;
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
BEGIN {
#add localcpan path to library search path
if (-f glob("~/lib/perl5/Test/Harness.pm")) {
......