7 print "runit.pl kernelname\n";
11 $tcpp_dir = "/rwatson/svn/base/head/tools/tools/netrate/tcpp";
13 ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
16 $date = sprintf("%04d%02d%02d", $year, $mon, $mday);
19 $outfile = $date."_".$kernel.".csv";
21 open(OUTFILE, ">".$outfile) || die $outfile;
22 print OUTFILE "# $kernel $date\n";
23 print OUTFILE "# hydra1: ".`ssh root\@hydra1 uname -a`."\n";
24 print OUTFILE "# hydra2: ".`ssh root\@hydra2 uname -a`."\n";
26 print OUTFILE "kernel,tso,lro,mtu,cores,trial,";
27 print OUTFILE "bytes,seconds,conns,bandwidth,user,nice,sys,intr,idle\n";
30 system("ssh root\@hydra1 killall tcpp");
31 system("ssh root\@hydra2 killall tcpp");
33 system("ssh root\@hydra2 ${tcpp_dir}/tcpp -s -p 8&");
37 my ($kernel, $tso, $lro, $mtu) = @_;
39 $prefix = "$kernel,$tso,$lro,$mtu";
40 print "Configuring $prefix\n";
42 system("ssh root\@hydra1 ifconfig cxgb0 $tso $lro mtu $mtu");
44 system("ssh root\@hydra2 ifconfig cxgb0 $tso $lro mtu $mtu");
46 print "Running $prefix\n";
47 system("ssh root\@hydra1 '(cd $tcpp_dir ; csh parallelism.csh ".
48 "$outfile $prefix)'");
51 # Frobbing MTU requires resetting the host cache, which we don't do,
53 @mtu_options = ("1500");
54 @tso_options = ("tso", "-tso");
55 @lro_options = ("lro", "-lro");
57 foreach $mtu (@mtu_options) {
58 foreach $tso (@tso_options) {
59 foreach $lro (@lro_options) {
61 test($kernel, $tso, $lro, $mtu);