Commit 0b40e70f authored by Pramod R Sanaga's avatar Pramod R Sanaga

Added copyright notices to files in cvs:pelab/ directory.

parent d68a658d
#!/bin/sh
#
# EMULAB-COPYRIGHT
# Copyright (c) 2006, 2007 University of Utah and the Flux Group.
# All rights reserved.
#
InputFile1="\"$1\""
InputFile2="\"$2\""
OutputFile="\"$3\""
......
#!/usr/bin/perl -w
#
# EMULAB-COPYRIGHT
# Copyright (c) 2006, 2007 University of Utah and the Flux Group.
# All rights reserved.
#
use Mysql;
my $DB = Mysql->connect("localhost", "pelab", "flexlabdata");
my $threshold = 4;
my $threshold = 3;
if (!$DB) {
die "Failled to connect to DB\n";
......@@ -27,10 +34,13 @@ while (my @row = $result->fetchrow()) {
$bw{$row[0]}{$row[1]} = $row[2];
}
$totalPaths = 0;
foreach my $src (keys %bw) {
foreach my $dst (keys %{$bw{$src}}) {
if (exists $bw{$dst}{$src}) {
# We have measurements in both directions
$totalPaths = $totalPaths + 1;
my $ratio = $bw{$src}{$dst} * 1.0 / $bw{$dst}{$src};
if ($ratio < 1) {
# We'll catch this in the other order
......@@ -42,3 +52,6 @@ foreach my $src (keys %bw) {
}
}
}
print "Total paths = $totalPaths\n";
#
# EMULAB-COPYRIGHT
# Copyright (c) 2006, 2007 University of Utah and the Flux Group.
# All rights reserved.
#
NOTICE: The "measured_by" field in the table "pair_data" is
a short integer... should be longer (?)
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2006, 2007 University of Utah and the Flux Group.
# All rights reserved.
#
#
# Get stats of available pair data for a set of nodes over a fixed
# interval. Useful to see if managerclient.pl is working.
......
#!/usr/local/bin/python
#
# EMULAB-COPYRIGHT
# Copyright (c) 2006, 2007 University of Utah and the Flux Group.
# All rights reserved.
#
import sys
import getopt
import xmlrpclib
......
#
# EMULAB-COPYRIGHT
# Copyright (c) 2006, 2007 University of Utah and the Flux Group.
# All rights reserved.
#
#usage: init-by-file.pl proj exp input-file
#
......
#
# EMULAB-COPYRIGHT
# Copyright (c) 2006, 2007 University of Utah and the Flux Group.
# All rights reserved.
#
# Run in directory of monitor.
# Usage: run-fake.sh <path-to-logs>
#
......
#!/usr/bin/perl
#
# EMULAB-COPYRIGHT
# Copyright (c) 2006, 2007 University of Utah and the Flux Group.
# All rights reserved.
#
$proj = $ARGV[0];
$exp = $ARGV[1];
......
#!/usr/bin/perl -w
#
# EMULAB-COPYRIGHT
# Copyright (c) 2006, 2007 University of Utah and the Flux Group.
# All rights reserved.
#
use English;
use Getopt::Std;
#
......
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